View/Edit #3310:_kick

Switch to edit mode.

1:  "Begin generic security check (_kick)"
2:  if (verb == "_kick" && !args[1]:isa(this))
3:    raise(E_INVARG, "Illegal object", args[1])
4:    return E_INVARG
5:  endif
6:  "End generic security check (_kick)"
7:  what = args[1]
8:  if (what.people[2])
9:    for x in (what.people[2])
10:     if (!valid(x) || !is_player(x))
11:       what.people[2] = setremove(what.people[2], x)
12:       $command_utils:suspend_if_needed()
13:     endif
14:   endfor
15: endif
16: for x in (what.invites)
17:   if (!valid(x) || !is_player(x) || !x:connected())
18:     what.invites = setremove(what.invites, x)
19:     $command_utils:suspend_if_needed()
20:   endif
21: endfor
22: what:seat_update()
23: return
24: "Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."

[home | help | who | search | setup | code]