2b2
@verb #2992:"@wwho" any any any rxd #562
@program #2992:"@wwho" any any any
"@wwho - Shows a listing of interesting people connected."
if (caller == player)
  idx = $list_utils:iassoc(player, ti = this.inter)
  "  set_task_perms(player);"
  if (!idx)
    player:tell("You have no interesting list set.")
  elseif (who = $set_utils:intersection(player:isa($guardian) ? connected_players() | $no_one:eval("connected_players()")[2], ti[idx][3]))
    $code_utils:show_who_listing(who)
    this:update_usage(verb)
  else
    player:tell("None of your interesting players are online right now.")
  endif
endif
"Last modified by killeen (#562) on Sat Sep  2 09:18:11 2000 MDT."
.

0