@verb #4214:"@vwho" any none none rxo #8438
@program #4214:"@vwho" any none none
"Syntax: @vwho - gives an informative list of connected players."
this:update_usage("vwho", player)
ppl = connected_players()
data = {}
for x in (ppl)
  con = $cecil_utils:short_time(connected_seconds(x))
  idle = $cecil_utils:short_time(idle_seconds(x))
  locstr = `x.location:msg_who_location(x) ! ANY => x.location.name'
  locstr = tostr(x:isa($webber) ? "WWW Interface" | locstr)
  flags = tostr(x.programmer ? "P" | " ", x.helping ? "H" | " ", x:isa($guardian) ? x.wizard ? "W" | "G" | " ")
  gender = tostr(x.gender == "male" ? "M" | (x.gender == "female" ? "F" | "O"))
  data = {@data, {gender, flags, x.name, tostr(x), con, idle, locstr, tostr(x.location)}}
  $command_utils:suspend_if_needed()
endfor
data = $list_utils:sort(data, $list_utils:slice(data, {8, 7, 4, 3}))
player:tellColumns("cllrllrl", {1, 3, 20, 5, 3, 3, 3, 25, 5}, {"G", "Flags", "Player", "#", "Con", "Idle", "Location", "#"}, @data)
player:tell(" Total number of connected players: ", length(ppl), $string_utils:space(3), "Time: ", $time_utils:ampm(player:ctime()))
"Last modified by Jay (#8438) on Thu Mar  2 05:11:09 2000 MST."
.