3e6
@verb #8043:"@pal-list" any none none rxdo #8043
@program #8043:"@pal-list" any none none
set_task_perms(caller)
dudes = $sin.pals
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)
success = 0
for x in (connected_players())
  `x.helping ! E_PROPNF' && (success = 1)
endfor
if (success)
  player:tell("    If you have a question, try using \"page help <question>\" or checking @helpers before talking to the wizzen.")
endif
"Last modified by Russ (#8043) on Sun Jun 24 22:49:33 2001 MDT."
.

0