@verb #3972:"@bann" any none none rdo #2322
@program #3972:"@bann" any none none
evilperson = $string_utils:match_local_player(dobjstr)
if (evilperson == caller)
  player:tell("Why would you want to bann yourself from a room?")
else
  if (player == this.owner)
    if (evilperson in this.banned)
      player:tell("It appears that ", evilperson.name, " is /already/ banned from ", this.name, ".")
    else
      player:tell("Why are you banning ", evilperson.name, "?")
      comment = $command_utils:read()
      suspend(2)
      player:tell("You have banned ", evilperson.name, " for ", comment)
      evilperson:tell("You have been banned from ", this.name, " by ", player.name, " for: ", comment)
      player.location:announce(evilperson.name, " has been banned from ", this.name, " by, ", player.name, " for: ", comment, ".")
      if (evilperson.location == this)
        this:eject(evilperson)
        this.banned = listappend(this.banned, evilperson)
        player:tell("You have ejected ", evilperson.name, " from ", this.name)
        evilperson:tell("You have been ejected from ", this.name)
      else
        this.banned = listappend(this.banned, evilperson)
      endif
    endif
  endif
endif
"Last modified by Roosterman (#2322) on Fri Dec 17 18:04:31 1999 MST."
.