38e
@verb #12:"@wiz*ards" any none none rxdo #55
@program #12:"@wiz*ards" any none none
"Generates a list of the current status of all wizards and guardians."
"When invoked like @wizards all, shows all wizards. (commented out)"
set_task_perms(caller)
dudes = setremove($guardian:leaves(), $slacker)
connected = connected_players()
key = {}
lines = {}
for dude in (dudes)
  last = dude in connected ? "*** Connected ***" | player:ctime(dude.last_disconnect_time)
  lines = {@lines, {dude:title(), dude:rank(6), last, dude.location:msg_who_location(dude)}}
  key = {@key, dude:connected() ? $maxint - idle_seconds(dude) | dude.last_disconnect_time}
endfor
lines = $list_utils:reverse($list_utils:sort(lines, key))
lines = {@lines, "-"}
caller:tellColumns({15, 6, 30, 20}, {"Name", "Rank", "Last disconnect", "Location"}, @lines)
"Last modified by Cecil (#7407) on Mon Nov  4 14:13:11 2002 MST."
.

0