@verb #104:"_kick" this none this rxdo #55
@program #104:"_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)"
"Delete any $ properties set to #-1"
{victim} = args
victim:isa(#104) || raise(E_INVARG)
for p in (properties(victim))
  $command_utils:suspend_if_needed()
  if (typeof(victim.(p)) == $OBJ && victim.(p) < #-3 && !$root:has_property(p))
    player:tell("Deleting expired core prop ", victim, ".", p)
    delete_property(victim, p)
  endif
endfor
"Last modified by Dax (#789) on Tue May  3 13:49:40 2005 MDT."
.