Switch to edit mode.
Name(s): @sw*eep1: "Copied from Generic Player (#12):@sweep by Slacker (#55)Sep 20 11:30:31 2001"
2: "Copied from Maxamillian (#833):@sweep Apr 27 11:11:22 2001"
3: "Coded by Maxamillian with a number of enhancements over the original @sweep."
4: "Cooked by Cecil"
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 (setremove(listening, this))
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 && (!(owner = verb_info(notifywhere[1], x)[1]).wizard && owner != $hacker))
31: this:tell(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"))
32: found_listener = 1
33: break
34: endif
35: endfor
36: suspend(0)
37: endfor
38: buggers = {}
39: 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"})
40: vwhere = $object_utils:has_verb(here, v)
41: if (vwhere && ((owner = verb_info(vwhere[1], v)[1]) != this && (!owner.wizard && owner != $hacker)))
42: buggers = setadd(buggers, owner)
43: endif
44: endfor
45: if (buggers != {})
46: if (typeof(msg = `here:msg_sweep() ! E_PROPNF') == $STR)
47: this:tell(tostr(here.name, " (", here, ") ", msg, "."))
48: else
49: this:tell(tostr(here.name, " (", here, ") may have been bugged by ", $string_utils:english_list($list_utils:map_prop(buggers, "name")), "."))
50: endif
51: elseif (!found_listener)
52: this:tell("Communications look secure.")
53: endif
54: "Last modified by Dax (#789) on Thu May 5 15:12:18 2005 MDT."