@verb #1119:"ban unban banned" any none none rxdo #2168
@program #1119:"ban unban banned" any none none
if (caller != this.owner)
  raise(E_PERM, "Do I kick people out of your home?")
endif
baddie = $su:match_player(dobjstr)
for x in (this.banned)
  if (x:isa($toad) || !$recycler:valid(x))
    player:tell("Warning: removing ", x, ", an invalid object, from the banned list.")
    this.banned = setremove(this.banned, x)
  endif
endfor
if (verb == "ban")
  this.banned = setadd(this.banned, baddie)
  this:eject(baddie)
  caller:tell(baddie:title(), " banned.")
elseif (verb == "unban")
  this.banned = setremove(this.banned, baddie)
  caller:tell(baddie:title(), " unbanned.")
elseif (verb == "banned")
  baddies = this.banned
  $code_utils:show_who_listing(baddies)
endif
"Last modified by Avator (#2168) on Mon Oct 18 21:52:47 1999 MDT."
.