View/Edit #12:@listgag @gaglist

Switch to edit mode.

Name(s): @listgag @gaglist
1:  set_task_perms(valid(caller_perms()) ? caller_perms() | player)
2:  if (!this.gaglist)
3:    player:tell("You are ", callers() ? "no longer gagging anything." | "not gagging anything right now.")
4:  else
5:    player:tell("You are ", callers() ? "now" | "currently", " gagging ", $string_utils:english_list($list_utils:map_arg(2, $string_utils, "pronoun_sub", "%n (%#)", setremove(this.gaglist, #-1))), ".")
6:  endif
7:  gl = {}
8:  if (!args)
9:    for p in (players())
10:     if (`this in p.gaglist ! ANY')
11:       gl = {@gl, p}
12:     endif
13:     $command_utils:suspend_if_needed()
14:   endfor
15:   if (gl || !callers())
16:     player:tell($string_utils:english_list($list_utils:map_arg(2, $string_utils, "pronoun_sub", "%n (%#)", gl), "No one"), " appear", length(gl) <= 1 ? "s" | "", " to be gagging you.")
17:   endif
18: endif
19: "Last modified by Dax (#789) on Sun May 17 17:24:51 1998 EDT."

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

You are not logged in.

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