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