View/Edit #1518:_kick _constructor

Name(s): _kick _constructor

1:  "Begin generic security check (_constructor)"
2:  if (verb == "_constructor" && caller_perms() != #-1)
3:    raise(E_PERM)
4:    return E_PERM
5:  endif
6:  "End generic security check (_constructor)"
7:  "Begin generic security check (_kick)"
8:  if (verb == "_kick" && !args[1]:isa(this))
9:    raise(E_INVARG, "Illegal object", args[1])
10:   return E_INVARG
11: endif
12: "End generic security check (_kick)"
13: {room} = args
14: room:isa($movable_room) || raise(E_INVARG)
15: p = 0
16: for thing in (room.contents)
17:   thing:isa(player) && thing:connected() && (p = p + 1)
18: endfor
19: room.players = p
20: "Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Maxamillian (#833)

You are not logged in.