View/Edit #1119:ban unban banned

Name(s): ban unban banned

1:  if (caller != this.owner)
2:    raise(E_PERM, "Do I kick people out of your home?")
3:  endif
4:  baddie = $su:match_player(dobjstr)
5:  for x in (this.banned)
6:    if (x:isa($toad) || !$recycler:valid(x))
7:      player:tell("Warning: removing ", x, ", an invalid object, from the banned list.")
8:      this.banned = setremove(this.banned, x)
9:    endif
10: endfor
11: if (verb == "ban")
12:   this.banned = setadd(this.banned, baddie)
13:   this:eject(baddie)
14:   caller:tell(baddie:title(), " banned.")
15: elseif (verb == "unban")
16:   this.banned = setremove(this.banned, baddie)
17:   caller:tell(baddie:title(), " unbanned.")
18: elseif (verb == "banned")
19:   baddies = this.banned
20:   $code_utils:show_who_listing(baddies)
21: endif
22: "Last modified by Avator (#2168) on Mon Oct 18 21:52:47 1999 MDT."

Verb arguments: any none none
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Avator (#2168)

You are not logged in.