@verb #12:"@imp*s" none none none rdo #55
@program #12:"@imp*s" none none none
imps = #7921.imp
loc = {}
for x in (imps)
  try
    loc = {@loc, valid(x) ? x.location:msg_who_location(x) | "<nowhere>"}
  except (ANY)
    loc = {@loc, "!Doh! Broken verb . . ."}
  endtry
endfor
lines = {}
inc_f = 0
for dude in (imps)
  rank = "++ Imp ++"
  where = ``dude.location:msg_who_location(dude) ! E_INVIND => "<nowhere>"' ! E_VERBNF => dude.location:title()'
  lines = {@lines, {dude.name, dude, rank, where, tostr(dude.location), dude:connected(player:isa($guardian) || player in imps) ? "Yes" | "No"}}
  $command_utils:suspend_if_needed()
endfor
player:tellcolumns("lrllrr", {1, 1, 1, 1, 1, 1}, {"Imp", "", "Rank", "Location", "", "Connected"}, @lines)
player:tell("Total number of imps: ", length(imps), " (connected: ", length($func_utils:filter("return args[1]:connected();", imps)), ")   Time: ", player:ctime()[12..16])
"Last modified by Lao-Tzu (#8084) on Tue Aug 20 06:17:25 2002 MDT."
.