View/Edit #7854:@where2

Switch to edit mode.

1:  "Copied from Generic Player (#12):@where by Slacker (#55)Aug 20 23:15:47 1998"
2:  "A verb that provides alternative info to @who."
3:  if (argstr in {"am I?", "am I"})
4:    args = {"me"}
5:  endif
6:  set_task_perms(this)
7:  if (caller == this && (plyrs = args ? listdelete($command_utils:player_match_result($string_utils:match_player(args), args), 1) | connected_players()))
8:    loc = {}
9:    for x in (plyrs)
10:     try
11:       loc = {@loc, valid(x) ? x.location:msg_who_location(x) | "<Nowhere>"}
12:     except (ANY)
13:       loc = {@loc, "!Doh! Broken verb . . ."}
14:     endtry
15:   endfor
16:   $tcm || (plyrs = $list_utils:sort(plyrs, loc))
17:   "  see_priv = player:isa($guardian);"
18:   lines = {}
19:   for dude in (plyrs)
20:     try
21:       rank = dude:rank(6)
22:       where = ``dude.location:msg_who_location(dude) ! E_INVIND => "&lt;nowhere&gt;"' ! E_VERBNF => dude.location:title()'
23:       warned = player:isa($guardian) || "" && (`dude.warned ! E_PROPNF => 0' ? "w" | " ")
24:       lines = {@lines, {dude:title(), tostr(dude, warned, " "), rank, where, tostr(dude.location)}}
25:     except q (ANY)
26:       player:tell("--player ", dude, " in ", dude.location, " has a borked verb--")
27:     endtry
28:     $command_utils:suspend_if_needed()
29:   endfor
30:   player:tellcolumns("13113", {1, 1, 1, 1, 1}, {"Player", "", "Rank", "Location", ""}, @lines)
31:   player:tell("Total number of ", args ? "selected" | "connected", " players: ", length(plyrs), "   Time: ", ctime()[12..16])
32: endif
33: "Last modified by Dax (#789) on Thu May  5 15:25:41 2005 MDT."

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