View/Edit #12:@imp*s

Switch to edit mode.

Name(s): @imp*s
1:  "Improved slightly by Wanderer."
2:  if (caller_perms() == $nothing && player == this)
3:    set_task_perms(player)
4:    imps = #7921.imp
5:    loc = {}
6:    for x in (imps)
7:      try
8:        loc = {@loc, valid(x) ? x.location:msg_who_location(x) | "<nowhere>"}
9:      except (ANY)
10:       loc = {@loc, "!Doh! Broken verb . . ."}
11:     endtry
12:   endfor
13:   lines = {}
14:   inc_f = 0
15:   for dude in (imps)
16:     rank = "++ Imp ++"
17:     where = ``dude.location:msg_who_location(dude) ! E_INVIND => "<nowhere>"' ! E_VERBNF => dude.location:title()'
18:     lines = {@lines, {dude.name, dude, rank, where, tostr(dude.location), dude:connected(player:isa($guardian) || player in imps) ? "Yes" | $time_utils:ddmmyy(dude.last_disconnect_time)}}
19:     $command_utils:suspend_if_needed()
20:   endfor
21:   player:tellcolumns("lrllrr", {1, 1, 1, 1, 1, 1}, {"Imp", "", "Rank", "Location", "", "Connected"}, @lines)
22:   player:tell("Total number of imps: ", length(imps), " (connected: ", length($func_utils:filter("return args[1]:connected();", imps)), ")   Time: ", player:ctime()[12..16])
23: else
24:   return $msg:mtell("huh")
25: endif
26: "Last modified by Slacker (#55) on Wed Mar  5 02:55:31 2008 EST."

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]