View/Edit #12:@sweep(old)

Switch to edit mode.

Name(s): @sweep(old)
1:  buggers = 1
2:  found_listener = 0
3:  here = this.location
4:  for thing in (setremove(here:contents(), this))
5:    for x in ({"notify", "tell"})
6:      notifywhere = thing:has_verb(x)
7:      if (#-1 in `thing.gaglist ! ANY => {}')
8:        this:sub_tell(thing:msg_audio_isolate(), thing)
9:      elseif (thing:connected(this:isa($guardian)))
10:       this:tell(tostr(thing.name, " (", thing, ") is listening."))
11:       found_listener = 1
12:       break
13:     elseif (typeof(msg = `thing:msg_sweep() ! E_PROPNF') == $STR)
14:       this:tell(tostr(thing.name, " (", thing, ") ", msg, "."))
15:       found_listener = 1
16:       break
17:     elseif (notifywhere && ((owner = verb_info(notifywhere[1], x)[1]) != this && (!owner.wizard && owner != $hacker)))
18:       this:tell(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"))
19:       found_listener = 1
20:       break
21:     elseif (notifywhere && ((owner = verb_info(notifywhere[1], x)[1]) != this && (!owner.wizard && owner != $hacker)))
22:       this:tell(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"))
23:       found_listener = 1
24:       break
25:     endif
26:   endfor
27:   suspend(0)
28: endfor
29: buggers = {}
30: 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"})
31:   vwhere = $object_utils:has_verb(here, v)
32:   if (vwhere && ((owner = verb_info(vwhere[1], v)[1]) != this && (!owner.wizard && owner != $hacker)))
33:     buggers = setadd(buggers, owner)
34:   endif
35: endfor
36: if (buggers != {})
37:   if (typeof(msg = `here:msg_sweep() ! E_PROPNF') == $STR)
38:     this:tell(tostr(here.name, " (", here, ") ", msg, "."))
39:   else
40:     this:tell(tostr(here.name, " (", here, ") may have been bugged by ", $string_utils:english_list($list_utils:map_prop(buggers, "name")), "."))
41:   endif
42: elseif (!found_listener)
43:   this:tell("Communications look secure.")
44: endif
45: "Last modified by Dax (#789) on Tue May  3 13:43:06 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]