1ec
@verb #58:"vacuum" this none this rxdo #55
@program #58:"vacuum" this none this
if (caller != this)
  return E_PERM
endif
o = args[1]
if (o:isa($toad))
  this.location:sub_announce_all("%t tries to vaccum up %1, but %1~s hops away just in the nick of time...", o)
  return
endif
if (o.location == this.location)
  `o.anchor = #-1 ! ANY'
  `o.key = 0 ! ANY'
  move(o, this)
  $msg:mtell("vacuum", o)
endif
"Last modified by Raptor (#6319) on Thu Apr 29 11:57:10 1999 MDT."
.

0