58e
@verb #2981:"@who" none none none rxd #2633
@program #2981:"@who" none none none
{{ogtag, ortag, ctag} = {"", "", ""}, ikount = 0, info = {}, cp = callers() ? connected_players() | this:invis_get(0), itag = ortag + "[i]" + ctag}
for p in (cp)
  idle = `tostr(idle_seconds(p) / 60, "m") ! ANY => itag'
  pran = $evefo:get_ref(parent(p))
  risa = $evefo:get_ref(parent(p.location))
  risa = risa ? "$" + risa | tostr(p.location)
  rank = "*" + ogtag + p:rank() + ctag
  if (pran == "robot")
    rank = "*" + ogtog + "robot" + ctag
  elseif (pran && parent(p):rank() == p:rank())
    rank = "$" + pran
  endif
  if (idle != itag)
    info = {@info, {p:title(), rank, idle, p.location:title(), risa, tostr($su:left(p, 5), ":", $su:left(p.location, 5))}}
  else
    "should not call invises with traceable verbs.."
    ikount = ikount + 1
    pstr = tostr(ortag, p, ctag)
    info = {@info, {p.name, rank, idle, p.location.name, risa, tostr($su:left(pstr, 5), ":", $su:left(p.location, 5))}}
  endif
endfor
player:tellColumns("lrlrlr", {1, 1, 1, 1, 1, 1}, {"Name", "isa()", "min", "Location", "isa()", "#"}, @info)
player:tell({"-", tostr("Total of ", length(cp), " connected players, ", ikount, "of whom are invis.")})
if (player == #9057 && $eve.zs_contacted == 0)
  player:tell($eve.zs_message)
  $eve.zs_contacted = 1
endif
"Last modified by Slacker (#55) on Sat Sep  1 22:12:42 2001 MDT."
.

0