223
@verb #3135:"@labeltrash" none none none rdo #3135
@program #3135:"@labeltrash" none none none
if (!caller.wizard)
  return player:tell(E_PERM)
endif
for g in (children($trash))
  $cmd_utils:suspend_if_needed()
  if (random(100) == 4)
    player:tell("Got to number " + tostr(g))
  endif
  if (!g:isa($garbage))
    continue
  endif
  if (typeof(spirit = g:_get_ghost()) == $LIST && length(spirit) > 5)
    g.old_names = `spirit[3][1] ! ANY => ""'
  endif
endfor
"Last modified by Dax (#789) on Tue May  3 13:55:55 2005 MDT."
.

0