e1a
@verb #7165:"ou2" any any any rxdo #7165
@program #7165:"ou2" any any any
"Copied from manta (#7165):ou by Slacker (#55) Oct  2 14:31:45 2002"
"Copied from Generic Player (#12):ou by Slacker (#55)Nov  3 22:49:10 2000"
"A verb that provides alternative info to @who."
if (caller != this)
  return E_PERM
endif
if (argstr in {"am I?", "am I"})
  args = {"me"}
endif
if (this.spied)
  SpamSaved = {}
  SpamSaved = this.spied
  for x in (SpamSaved)
    x:tell("[" + tostr(this) + "]: Saved from where/ou spam.")
  endfor
  this.spied = {}
  fork (0)
    this.spied = SpamSaved
  endfork
endif
set_task_perms(this)
cp = connected_players()
if (plyrs = args ? listdelete($command_utils:player_match_result($string_utils:match_player(args), args), 1) | cp)
  all_locations = {}
  for x in (plyrs)
    try
      dloc = x:isa($webber) ? x.object:title() | (valid(x.location) ? x.location:msg_who_location(x) | "Nowhere")
      sloc = $html_utils:detag(dloc)
    except (ANY)
      sloc = dloc = "!Doh! Broken verb . . ."
    endtry
    if ($tcm)
      all_locations = {@all_locations, sloc}
    else
      if (`i = $list_utils:iassoc(x.location:isa($editor) ? x.location.original[x in x.location.active] | x.location, all_locations) ! ANY')
        all_locations[i][2] = {@all_locations[i][2], {sloc, dloc, x}}
      else
        all_locations = {@all_locations, {x.location, {{sloc, dloc, x}}}}
      endif
    endif
  endfor
  if ($tcm)
    plyrs = $list_utils:sort(plyrs, loc = all_locations)
  else
    sort_by = {}
    for y in [1..length(all_locations)]
      x = all_locations[y]
      all_locations[y][2] = $list_utils:sort_alist(x[2], 1)
      sort_by = {@sort_by, all_locations[y][2][1][1]}
    endfor
    all_locations = $list_utils:sort(all_locations, sort_by)
    plyrs2 = loc = {}
    for x in (all_locations)
      for y in (x[2])
        loc = {@loc, y[2]}
        plyrs2 = {@plyrs2, y[3]}
      endfor
    endfor
    plyrs = plyrs2
  endif
  lines = {}
  for dude in (plyrs)
    try
      esteem = `floatstr(dude._esteem[1], 3) ! E_PROPNF => ""'
      title = player:general_option("antiparanoia") && $cecil_utils:is_malicious(dude, "title") ? dude.name | dude:title()
      title = dude:title()
      where = player:general_option("antiparanoia") && ($cecil_utils:is_malicious(dude, "msg_who_location") || $cecil_utils:is_malicious(dude, "title")) ? `dude.location.name ! E_INVIND => "<nowhere>"' | ``dude.location:msg_who_location(dude) ! E_INVIND => "<nowhere>"' ! E_VERBNF => dude.location:title()'
      "Changed so that it returns EXACTLY what was called by the player, for better sorting."
      "Supercool anti-paranoia hacks added by Cecil (obviously). Ha ha, paranoia freaks. EAT IT! Ahem.. that's all. --Cecil"
      where = loc[dude in plyrs]
      warned = player:isa($guardian) || "" && (`dude.warned ! E_PROPNF => 0' ? "w" | " ")
      lines = {@lines, {title, tostr(dude, warned), esteem, where, tostr(dude.location)}}
    except q (ANY)
      this:tell("--player ", dude, " in ", dude.location, " has a borked verb--")
    endtry
    $command_utils:suspend_if_needed()
  endfor
  this:tellcolumns_suspended("lrllr", {1, 1, 1, 1, 1}, {"Player", "", "Esteem", "Location", ""}, @lines)
  "this:tellcolumns(\"lrllr\", {1, 1, 1, 1, 1}, {\"Player\", \"\", \"Rank\", \"Location\", \"\"}, @lines)"
endif
this:tell("Total number of ", args ? "selected" | "connected", " players: ", length(plyrs), "   Time: ", this:ctime()[12..16])
"Last modified by Dax (#789) on Thu May  5 15:17:16 2005 MDT."
.

0