Switch to edit mode.
Name(s): @sw*eep1: "Copied from Generic Player (#12):@sweep by Slacker (#55)Jun 30 18:47:00 1998"
2: buggers = 1
3: found_listener = 0
4: here = this.location
5: for thing in (setremove(here:contents(), this))
6: tellwhere = thing:has_verb("tell")
7: notifywhere = thing:has_verb("notify")
8: if (#-1 in `thing.gaglist ! ANY => {}')
9: this:sub_tell(thing:msg_audio_isolate(), thing)
10: elseif (thing:connected(1))
11: this:notify(tostr(thing.name, " (", thing, ") is listening."))
12: found_listener = 1
13: elseif (thing:has_callable_verb("sweep_msg") && typeof(msg = thing:sweep_msg()) == $STR)
14: this:notify(tostr(thing.name, " (", thing, ") ", msg, "."))
15: found_listener = 1
16: elseif (tellwhere && ((owner = verb_info(tellwhere[1], "tell")[1]) != this && (!owner.wizard && owner != $hacker)))
17: this:notify(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"))
18: found_listener = 1
19: elseif (notifywhere && ((owner = verb_info(notifywhere[1], "notify")[1]) != this && (!owner.wizard && owner != $hacker)))
20: this:notify(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"))
21: found_listener = 1
22: endif
23: suspend(0)
24: endfor
25: buggers = {}
26: for v in ({"announce", "announce_all", "announce_all_but", "say", "emote", "huh", "here_huh", "huh2", "whisper"})
27: vwhere = $object_utils:has_verb(here, v)
28: if (vwhere && ((owner = verb_info(vwhere[1], v)[1]) != this && (!owner.wizard && owner != $hacker)))
29: buggers = setadd(buggers, owner)
30: endif
31: endfor
32: if (buggers != {})
33: if ($object_utils:has_verb(here, "sweep_msg") && typeof(msg = here:sweep_msg()) == $STR)
34: this:notify(tostr(here.name, " (", here, ") ", msg, "."))
35: else
36: this:notify(tostr(here.name, " (", here, ") may have been bugged by ", $string_utils:english_list($list_utils:map_prop(buggers, "name")), "."))
37: endif
38: elseif (!found_listener)
39: this:notify("Communications look secure.")
40: endif
41: "Last modified by Dax (#789) on Tue May 3 13:43:09 2005 MDT."