View/Edit #12:@dis*connect hoof

Switch to edit mode.

Name(s): @dis*connect hoof
1:  "Copied from Generic Programmer (#14):hoof by Dax (#789)Jul 13 23:43:12 1998"
2:  "Disconnects the offending player IF you have permission"
3:  if ($object_utils:isa(player, $guardian) && toobj(dobjstr) < #0)
4:    "For un-logged-in connections."
5:    dobj = toobj(dobjstr)
6:    try
7:      ci = connection_name(dobj)
8:      boot_player(dobj)
9:      this:sub_tell("%D (%1) hoofed.", ci)
10:   except (E_INVARG)
11:     this:sub_tell("%D isn't the number of an unconnected connection.")
12:   endtry
13: elseif ($command_utils:player_match_failed(dobj = $string_utils:match_local_player(dobjstr), dobjstr))
14: elseif (!dobj:connected($object_utils:isa(player, $guardian)))
15:   player:sub_tell("%D (#%d~#) isn't connected.")
16: elseif (player:controls(dobj) || player:isa($guardian))
17:   boot_player(dobj)
18:   $msg:mtell(dobj, {player, "i"}, "hoof")
19: else
20:   player:tell(E_PERM, ".  See 'help hoof' for requirements.")
21: endif
22: "Last modified by Cecil (#7407) on Wed Feb 12 16:33:15 2003 MST."

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.

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