View/Edit #12:@sw*eep

Switch to edit mode.

Name(s): @sw*eep
1:  "Copied from Maxamillian (#833):@sweep Apr 27 11:11:22 2001"
2:  "Coded by Maxamillian with a number of enhancements over the original @sweep."
3:  "Cooked by Cecil"
4:  "Modified to only trust slacker and hacker by Lao."
5:  buggers = 1
6:  found_listener = 0
7:  here = this.location
8:  listening = {}
9:  for x in (here:contents(1))
10:   listening = {@listening, x}
11:   for y in (`x:contents(1) ! ANY => {}')
12:     if (`y.listen_in_location2 ! E_PROPNF => 0')
13:       listening = {@listening, y}
14:     endif
15:   endfor
16: endfor
17: for thing in (listening)
18:   for x in ({"notify", "tell"})
19:     notifywhere = thing:has_verb(x)
20:     if (#-1 in `thing.gaglist ! ANY => {}')
21:       this:sub_tell(thing:msg_audio_isolate(), thing)
22:     elseif (thing:connected())
23:       this:tell(tostr(thing.name, " (", thing, ") is listening."))
24:       found_listener = 1
25:       break
26:     elseif (typeof(msg = `thing:msg_sweep() ! E_PROPNF') == $STR)
27:       this:tell(tostr(thing.name, " (", thing, ") ", msg, "."))
28:       found_listener = 1
29:       break
30:     elseif (notifywhere)
31:       owner = verb_info(notifywhere[1], x)[1]
32:       if (owner != $slacker && owner != $hacker)
33:         "Slacker and Hacker are exempt because they are responsible for every object listening, really."
34:         this:tell(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"))
35:         found_listener = 1
36:         break
37:       endif
38:     endif
39:   endfor
40:   suspend(0)
41: endfor
42: buggers = {}
43: for v in ({"announce", "announce_all", "announce_all_but", "say", "emote", "huh", "here_huh", "huh2", "whisper", "msg_oexclaim", "msg_exclaim", "msg_oquestion", "msg_question", "msg_osay", "msg_say", "match"})
44:   vwhere = $object_utils:has_verb(here, v)
45:   if (vwhere && ((owner = verb_info(vwhere[1], v)[1]) != this && (owner != $slacker && owner != $hacker)))
46:     buggers = setadd(buggers, owner)
47:   endif
48: endfor
49: if (buggers != {})
50:   if (typeof(msg = `here:msg_sweep() ! E_PROPNF') == $STR)
51:     this:tell(tostr(here.name, " (", here, ") ", msg, "."))
52:   else
53:     this:tell(tostr(here.name, " (", here, ") may have been bugged by ", $string_utils:english_list($list_utils:map_prop(buggers, "name")), "."))
54:   endif
55: elseif (!found_listener)
56:   this:tell("Communications look secure.")
57: endif
58: "Last modified by Dax (#789) on Thu May  5 15:10:43 2005 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]