@verb #3852:"@pwho pwho pw @pw" any none none rdo #3852
@program #3852:"@pwho pwho pw @pw" any none none
player == this || raise(E_PERM)
if (args && valid($su:match_player(args[1])))
  #1250:pwho_listing({$su:match_player(args[1])})
elseif (!args)
  connected = connected_players()
  $com_utils:pwho_listing($com_utils:sortwho(connected))
else
  player:tell("Not a player.")
endif
"Last modified by HIghoS (#3852) on Wed Apr 17 00:51:48 2002 MDT."
.