@verb #5505:"sweep" none none none rdo #55
@program #5505:"sweep" none none none
"Add code for @status"
"Add code for $bug's"
"Add code for homemade bugs"
"Add code for sweep_msgs"
bugs = {}
for thing in (this.contents)
  if (thing:isa($player))
    bugs = {@bugs, {thing, thing:rank(6), thing:connected()}}
  elseif (thing:isa($animal))
    bugs = {@bugs, {thing, "$animal", thing.listening && thing.owner:connected()}}
  elseif (thing:isa(#3100))
    bugs = {@bugs, {thing, "bug", thing.owner:connected()}}
  elseif (thing:isa(#1333) || thing == #1333)
    bugs = {@bugs, {thing, "Dupe", 1}}
  elseif (thing:has_verb("notify") && `index(verb_info(thing, "notify")[2], "x") ! ANY => 0')
    bugs = {@bugs, {thing, "Original", 2}}
  endif
endfor
player:tell("Listener                Kind      Owner                   On  Detect-@sweep?")
player:tell("----------------------  --------  ----------------------  --  --------------")
x = $list_utils:slice(bugs, 3)
for i in ($list_utils:reverse($list_utils:sort(bugs, x)))
  player:tell($string_utils:left(i[1].name, 15), "  ", $string_utils:right(i[1], 5), "  ", $string_utils:left(i[2], 8), "  ", $string_utils:left(i[1].owner.name, 15), "  ", $string_utils:right(i[1].owner, 5), "  ", {"No", "Ya", "??"}[i[3] in {0, 1, 2}], "  ", i[1]:has_verb("msg_sweep")[1] in {i[1], parent(i[1]) == $animal ? #0 | parent(i[1])} ? "Maybe" | "No")
endfor
"Last modified by MadHatter (#8371) on Sun Sep 22 21:27:07 2002 MDT."
.