@verb #3887:"whois" any none none rdo #3887
@program #3887:"whois" any none none
"Syntax: @whois <user>"
"Displays information about a specific MOO user."
if (length(args) < 1)
  return player:tell("Usage: ", verb, " &lt;user&gt;")
endif
if ($command_utils:player_match_result(who = $su:match_player(dobjstr), dobjstr))
  out = {tostr($su:space(30, "-"), "[ User Information ]", $su:space(30, "-"))}
  "General User Information"
  data = {tostr($su:right("Who: ", 10), who:nn())}
  data = {@data, tostr($su:right("Gender: ", 10), who.gender)}
  data = {@data, tostr($su:right("Rank: ", 10), who:rank())}
  data = {@data, tostr($su:right("Age: ", 10), $su:explode($time_utils:english_time(time() - who.first_connect_time), ",")[1])}
  data = {@data, tostr($su:right("Home: ", 10), who.home:nn())}
  data = {@data, tostr($su:right("Lastlog: ", 10), who in connected_players() ? "Currently Connected" | ctime(who.last_disconnect_time))}
  out = {@out, @$su:columnize(data, 2, 80)}
  out = {@out, $su:space(80, "-")}
  "User's Description"
  out = {@out, who.description}
  out = {@out, $su:space(80, "-")}
  player:tell(out)
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:33 2001 MST."
.