View/Edit #12:@ungag

Switch to edit mode.

Name(s): @ungag
1:  if (player != this || (caller != this && !$perm_utils:controls(caller_perms(), this)))
2:    player:tell(E_PERM)
3:  elseif (dobjstr == "")
4:    player:tell("Usage:  ", verb, " <player>  or  ", verb, " all")
5:  elseif (dobjstr in {"everyone", "everything", "all"})
6:    this.gaglist = {}
7:    player:notify("You are no longer gagging anyone or anything.")
8:  else
9:    if (valid(dobj))
10:     match = dobj
11:   elseif ((match = toobj(dobjstr)) > #0)
12:   else
13:     match = $string_utils:match(dobjstr, this.gaglist, "name", this.gaglist, "aliases")
14:   endif
15:   if (match == $failed_match)
16:     player:notify(tostr("You don't seem to be gagging anything named ", dobjstr, "."))
17:   elseif (match == $ambiguous_match)
18:     player:notify(tostr("I don't know which \"", dobjstr, "\" you mean."))
19:   else
20:     this.gaglist = setremove(this.gaglist, match)
21:     player:notify(tostr(valid(match) ? match.name | match, " removed from gag list."))
22:   endif
23:   this:("@listgag")("but don't fork")
24: endif
25: "Last modified by Dax (#789) on Sun May 17 17:32:46 1998 EDT."

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

You are not logged in.

[home | help | who | search | setup | code]