View/Edit #12:@audit @pros*pectus pros*pectus

Switch to edit mode.

Name(s): @audit @pros*pectus pros*pectus
1:  "Figures out who is being @audited, and for what objects.  Calls _audit or _pros as appropriate."
2:  if (player != this)
3:    return $msg:mtell("huh")
4:  elseif (!dobjstr)
5:    dobj = this
6:  elseif ($command_utils:player_match_failed(dobj = this:match_entity(dobjstr), dobjstr))
7:    return
8:  endif
9:  try
10:   SpamSaved = {}
11:   if (player.spied)
12:     SpamSaved = player.spied
13:     for whew in (SpamSaved)
14:       toobj(whew):tell("[" + tostr(player) + "]: Saved from @audit spam.")
15:       player.spied = {}
16:     endfor
17:   endif
18:   fork (0)
19:     set_task_perms(player)
20:     if ($code_utils:short_prep(prepstr) == "for")
21:       match = {}
22:       for o in (dobj.owned_objects)
23:         if (index(o.name, iobjstr) || o == toobj(iobjstr))
24:           match[1..0] = {o}
25:         endif
26:       endfor
27:       if (match)
28:         if (verb == "@audit" || verb == "@compte")
29:           this:_audit(@match)
30:         else
31:           this:_pros(@match)
32:         endif
33:       else
34:         this:tell(dobj:titlec(), " doesn't own anything matching ", iobjstr, ".")
35:       endif
36:     elseif (!prepstr)
37:       own = dobj.owned_objects
38:       if (own)
39:         if (verb == "@audit")
40:           this:_audit(@own)
41:         else
42:           this:_pros(@own)
43:         endif
44:       else
45:         this:tell(dobj:titlec(), " doesn't own anything.")
46:       endif
47:     else
48:       $msg:mtell("huh")
49:       player:sub_tell($msg:msg_try_instead(), $code_utils:explain_verb_syntax(player, verb, "any", "for", "any"))
50:     endif
51:   endfork
52: finally
53:   player.spied = SpamSaved
54: endtry
55: "Last modified by Dax (#789) on Fri Jul 26 10:52:28 2002 MDT."

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

You are not logged in.

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