View/Edit #12:where*is @where*is ou @ou @wehre

Switch to edit mode.

Name(s): where*is @where*is ou @ou @wehre
1:  "A verb that provides alternative info to @who."
2:  caller == this || raise(E_PERM)
3:  if (argstr in {"am I?", "am I"})
4:    args = {"me"}
5:  endif
6:  if (this.spied)
7:    SpamSaved = {}
8:    SpamSaved = this.spied
9:    for x in (SpamSaved)
10:     x:tell("[", this, "]: Saved from where/ou spam.")
11:   endfor
12:   this.spied = {}
13:   fork (0)
14:     this.spied = SpamSaved
15:   endfork
16: endif
17: set_task_perms(this)
18: cp = connected_players()
19: if (plyrs = args ? listdelete($command_utils:player_match_result($string_utils:match_player(args), args), 1) | cp)
20:   all_locations = {}
21:   for x in (plyrs)
22:     if (!is_player(x) || !x:isa($connectable))
23:       continue
24:     endif
25:     try
26:       dloc = valid(x.location) ? x.location:msg_who_location(x) | "Nowhere"
27:       sloc = $html_utils:detag(dloc)
28:     except (ANY)
29:       sloc = dloc = "!Doh! Broken verb . . ."
30:     endtry
31:     if ($tcm)
32:       all_locations = {@all_locations, sloc}
33:     else
34:       if (`i = $list_utils:iassoc(x.location:isa($editor) ? x.location.original[x in x.location.active] | x.location, all_locations) ! ANY')
35:         all_locations[i][2] = {@all_locations[i][2], {sloc, dloc, x}}
36:       else
37:         all_locations = {@all_locations, {x.location, {{sloc, dloc, x}}}}
38:       endif
39:     endif
40:   endfor
41:   if ($tcm)
42:     plyrs = $list_utils:sort(plyrs, loc = all_locations)
43:   else
44:     sort_by = {}
45:     for y in [1..length(all_locations)]
46:       x = all_locations[y]
47:       all_locations[y][2] = $list_utils:sort_alist(x[2], 1)
48:       sort_by = {@sort_by, all_locations[y][2][1][1]}
49:     endfor
50:     all_locations = $list_utils:sort(all_locations, sort_by)
51:     plyrs2 = loc = {}
52:     for x in (all_locations)
53:       for y in (x[2])
54:         loc = {@loc, y[2]}
55:         plyrs2 = {@plyrs2, y[3]}
56:       endfor
57:     endfor
58:     plyrs = plyrs2
59:   endif
60:   lines = {}
61:   for dude in (plyrs)
62:     try
63:       rank = $wiz_utils:rank(dude, 3)
64:       title = player:general_option("antiparanoia") && $cecil_utils:is_malicious(dude, "title") ? dude.name | dude:title()
65:       where = player:general_option("antiparanoia") && ($cecil_utils:is_malicious(dude, "msg_who_location") || $cecil_utils:is_malicious(dude, "title")) ? `dude.location.name ! E_INVIND => "<nowhere>"' | ``dude.location:msg_who_location(dude) ! E_INVIND => "<nowhere>"' ! E_VERBNF => dude.location:title()'
66:       "Changed so that it returns EXACTLY what was called by the player, for better sorting."
67:       "Supercool anti-paranoia hacks added by Cecil (obviously). Ha ha, paranoia freaks. EAT IT! Ahem.. that's all. --Cecil"
68:       where = loc[dude in plyrs]
69:       warned = player:isa($guardian) || "" && (`dude.warned ! E_PROPNF => 0' ? "w" | " ")
70:       lines = {@lines, {title, tostr(dude, warned), rank, where, tostr(dude.location)}}
71:     except (ANY)
72:       this:tell("--player ", dude, " in ", dude.location, " has a borked verb--")
73:     endtry
74:     $command_utils:suspend_if_needed()
75:   endfor
76:   "  this:tellcolumns_suspended(\"lrlr\", {1, 1, 1, 1}, {\"Player\", \"\", \"Location\", \"\"}, @lines);"
77:   this:tellcolumns("lrrlr", {1, 1, 1, 1, 1}, {"Player", "", "Rnk", "Location", ""}, @lines)
78: endif
79: this:tell("Total number of ", args ? "selected" | "connected", " players: ", length(plyrs), "   Time: ", this:ctime()[12..16])
80: "Last modified by Dax (#789) on Tue May 30 08:16:22 2006 MDT."

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

You are not logged in.

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