@verb #2348:"authenticate" this none this rxdo #9452
@program #2348:"authenticate" this none this
if (!(caller_perms() in this.admins))
  raise(E_PERM)
else
  if (this.access_locked)
    player:tell(this.access_locked_msg)
    return 2
  elseif (this:is_player(player))
    dude = this:get_player(player)
    if (dude->in_fight)
      dude->dead = 1
      dude->in_fight = 0
      player:tell("An @aborted fight is a loss.  You are dead.")
      !player.location:isa($lord_room) || player.location:eject(player)
      return 2
    endif
    return dude
  else
    player:tell(this.no_player_msg)
    player:tell()
    if (player.location:isa($lord_room))
      player:tell(player.location.menu_msg)
    endif
    return 0
  endif
endif
"Last modified by Crono (#9452) on Sat Sep  7 18:23:04 2002 MDT."
.