25b
@verb #3:"_kick" this none this rxdo #789
@program #3:"_kick" this none this
"Begin generic security check (_kick)"
if (verb == "_kick" && !args[1]:isa(this))
  raise(E_INVARG, "Illegal object", args[1])
  return E_INVARG
endif
"End generic security check (_kick)"
{victim} = args
victim:isa(this) || raise(E_PERM)
if (!$universe:contains(victim) && victim != $universe)
  "Must have escaped"
  move(victim, $czone)
elseif (victim.location:isa($garbage))
  "You are inside garbage???"
  move(victim, $czone)
endif
"Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."
.

0