@verb #12:"@listgag @gaglist" none none none rxdo #55
@program #12:"@listgag @gaglist" none none none
set_task_perms(valid(caller_perms()) ? caller_perms() | player)
if (!this.gaglist)
  player:tell("You are ", callers() ? "no longer gagging anything." | "not gagging anything right now.")
else
  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))), ".")
endif
gl = {}
if (!args)
  for p in (players())
    if (`this in p.gaglist ! ANY')
      gl = {@gl, p}
    endif
    $command_utils:suspend_if_needed()
  endfor
  if (gl || !callers())
    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.")
  endif
endif
"Last modified by Dax (#789) on Sun May 17 17:24:51 1998 EDT."
.