@verb #12:"@mentors" none none none rdo #55
@program #12:"@mentors" none none none
"Copied from Generic Player (#12):@imps by Mud (#2526) Aug 20 06:13:01 2002"
mentors = $mentor:leaves()
loc = {}
for x in (mentors)
  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 (mentors)
  where = ``dude.location:msg_who_location(dude) ! E_INVIND => "<nowhere>"' ! E_VERBNF => dude.location:title()'
  lines = {@lines, {dude.name, dude, where, tostr(dude.location), dude:connected(player:isa($guardian)) ? "Yes" | "No"}}
  $command_utils:suspend_if_needed()
endfor
player:tellcolumns("lrllrr", {1, 1, 1, 1, 1}, {"Mentor", "", "Location", "", "Connected"}, @lines)
player:Tell("Total number of mentors: ", length(mentors), " (connected: ", length($func_utils:filter("return args[1]:connected();", mentors)), ")  Time: ", player:ctime()[12..16])
"Last modified by Lao-Tzu (#8084) on Tue Aug 20 06:16:20 2002 MDT."
.