@verb #1518:"_kick _constructor" this none this rxdo #833
@program #1518:"_kick _constructor" this none this
"Begin generic security check (_constructor)"
if (verb == "_constructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_constructor)"
"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)"
{room} = args
room:isa($movable_room) || raise(E_INVARG)
p = 0
for thing in (room.contents)
  thing:isa(player) && thing:connected() && (p = p + 1)
endfor
room.players = p
"Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."
.