3fa
@verb #2978:")who" none none none rxdo #55
@program #2978:")who" none none none
if (!(player in this.listeners))
  raise(E_PERM)
endif
$perm_utils:is_called_from(player, "my_huh") || raise(E_PERM)
"Copied from CatsTalk (#2978):)whoo by Catspaw (#7921)Jun 19 15:14:17 2001"
key = {}
dudes = {}
for m in (this.listeners)
  dudes = {@dudes, tostr($string_utils:left(m.name, 15), " (", m == #789 ? "#789 " | m, ")    ", this:available(player, m) && this:available(m, player) ? "lisn" | "IGNR", "    ", m:connected(player in this.listeners) ? "*CON*" | "discn", "    ", $string_utils:left(m.location:title(), 20), " ", m.location)}
  key = {@key, m:connected() ? 1 | 0}
endfor
player:tell("Name                      Status   Online   Location")
player:tell("-----------------------   ------   ------   --------------------------")
dudes = $list_utils:reverse($list_utils:sort(dudes, key))
for y in (dudes)
  player:tell(y)
endfor
"Last modified by MadHatter (#8371) on Tue Aug  6 13:44:56 2002 MDT."
.

0