@verb #12:"@sweep(old)" none none none rdo #55
@program #12:"@sweep(old)" none none none
buggers = 1
found_listener = 0
here = this.location
for thing in (setremove(here:contents(), this))
  for x in ({"notify", "tell"})
    notifywhere = thing:has_verb(x)
    if (#-1 in `thing.gaglist ! ANY => {}')
      this:sub_tell(thing:msg_audio_isolate(), thing)
    elseif (thing:connected(this:isa($guardian)))
      this:tell(tostr(thing.name, " (", thing, ") is listening."))
      found_listener = 1
      break
    elseif (typeof(msg = `thing:msg_sweep() ! E_PROPNF') == $STR)
      this:tell(tostr(thing.name, " (", thing, ") ", msg, "."))
      found_listener = 1
      break
    elseif (notifywhere && ((owner = verb_info(notifywhere[1], x)[1]) != this && (!owner.wizard && owner != $hacker)))
      this:tell(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"))
      found_listener = 1
      break
    elseif (notifywhere && ((owner = verb_info(notifywhere[1], x)[1]) != this && (!owner.wizard && owner != $hacker)))
      this:tell(tostr(thing.name, " (", thing, ") has been taught to listen by ", owner.name, " (", owner, ")"))
      found_listener = 1
      break
    endif
  endfor
  suspend(0)
endfor
buggers = {}
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"})
  vwhere = $object_utils:has_verb(here, v)
  if (vwhere && ((owner = verb_info(vwhere[1], v)[1]) != this && (!owner.wizard && owner != $hacker)))
    buggers = setadd(buggers, owner)
  endif
endfor
if (buggers != {})
  if (typeof(msg = `here:msg_sweep() ! E_PROPNF') == $STR)
    this:tell(tostr(here.name, " (", here, ") ", msg, "."))
  else
    this:tell(tostr(here.name, " (", here, ") may have been bugged by ", $string_utils:english_list($list_utils:map_prop(buggers, "name")), "."))
  endif
elseif (!found_listener)
  this:tell("Communications look secure.")
endif
"Last modified by Dax (#789) on Tue May  3 13:43:06 2005 MDT."
.