4ba
@verb #18:"boot" this none none rdo #55
@program #18:"boot" this none none
if (!this:connected())
  player:tell(this:title(), " isn't connected.  You can't ", verb, " it.")
elseif (player == this)
  boot_player(this)
elseif (player:isa($guest))
  player:tell("You are a guest, please don't boot other guests.")
else
  if (!(g = player:isa($guardian)))
    player:tell("You are about to ", verb, " ", this:title(), ".")
    player:notify("This will result in the following actions:")
    player:notify(" 1. A 911 report will be triggered.")
    player:notify(" 2. The guest's connection site will automatically be blacklisted (no guests).")
    player:tell("Remember, it is an offense to ", verb, " a guest for no reason.")
    doit = $command_utils:yes_or_no(tostr("Are you SURE you want to ", verb, " ", this:title(), "?"))
  else
    doit = 1
  endif
  if (!doit)
    return player:tell("Aborted.")
  elseif (!g)
    $e911:alert(@player.responsible)
  endif
  this:blacklist_me()
  boot_player(this)
  player:tell(this:title(), " has been booted.")
  !g && player:tell("911 report has been submitted.")
endif
"Last modified by Cecil (#7407) on Mon Nov  4 14:07:39 2002 MST."
.

0