306
@verb #58:"funky_action" this none this rxdo #58
@program #58:"funky_action" this none this
caller == this || raise(E_PERM)
{where} = args
contents = where:contents()
junk = {}
for o in (contents)
  "Hmm, we can't fully trust :junk_p(), because it's +o.  I'm assuming that there might be legitimate reasons to write one's own :junk_p() verb, so I'm putting an is_player() check here. -whiz"
  if (where:junk_p(o) && !is_player(o))
    junk[1..0] = {o}
  endif
  $command_utils:suspend_if_needed()
endfor
if (!junk)
  return
endif
this:indirect_move(where)
for o in (junk)
  if (o.location == where)
    this:vacuum(o)
    $msg:mtell(where, "vacuum", o)
  endif
  suspend(1)
endfor
"Last modified by whiz (#3135) on Thu Mar 29 18:20:59 2001 MST."
.

0