View/Edit #12:@mentors

Switch to edit mode.

Name(s): @mentors
1:  "Copied from Generic Player (#12):@imps by Mud (#2526) Aug 20 06:13:01 2002"
2:  mentors = $mentor:leaves()
3:  loc = {}
4:  for x in (mentors)
5:    try
6:      loc = {@loc, valid(x) ? x.location:msg_who_location(x) | "<nowhere>"}
7:    except (ANY)
8:      loc = {@loc, "!Doh! Broken verb . . ."}
9:    endtry
10: endfor
11: lines = {}
12: inc_f = 0
13: for dude in (mentors)
14:   where = ``dude.location:msg_who_location(dude) ! E_INVIND => "<nowhere>"' ! E_VERBNF => dude.location:title()'
15:   lines = {@lines, {dude.name, dude, where, tostr(dude.location), dude:connected(player:isa($guardian)) ? "Yes" | "No"}}
16:   $command_utils:suspend_if_needed()
17: endfor
18: player:tellcolumns("lrllrr", {1, 1, 1, 1, 1}, {"Mentor", "", "Location", "", "Connected"}, @lines)
19: player:Tell("Total number of mentors: ", length(mentors), " (connected: ", length($func_utils:filter("return args[1]:connected();", mentors)), ")  Time: ", player:ctime()[12..16])
20: "Last modified by Lao-Tzu (#8084) on Tue Aug 20 06:16:20 2002 MDT."

Verb arguments: none none none
Verb perms: Readable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

[home | help | who | search | setup | code]