@verb #8562:"ban_cmd unban_cmd" this none this rxdo #3887
@program #8562:"ban_cmd unban_cmd" this none this
if ((victim = this:identify_victim(dobjstr, 1)) <= $nothing)
  return
elseif (!this:has_access(player, "ban", victim) || this:level(victim) >= this:level(player))
  return this:say(this.msg_access_denied_say)
endif
this.banned = call_function(verb[1] == "b" ? "setadd" | "setremove", this.banned, victim)
(pos = listiassoc(victim, this.officers)) && (this.officers = listdelete(this.officers, pos))
this:say(tostr(victim.name, " has been ", verb[1] == "b" ? "banned" | "unbanned", " from the room."))
"Last modified by Daryl (#3887) on Sun Nov 21 11:04:42 1999 MST."
.