@verb #12:"@gag @ignore" any any any rdo #55
@program #12:"@gag @ignore" any any any
set_task_perms(player)
if (player != this)
  return player:tell(E_PERM)
elseif (!args)
  return player:tell("Usage:  ", verb, " <player or object> [<player or object>...]")
endif
victims = $string_utils:match_player_or_object(@args)
changed = 0
for p in (victims)
  if (p in player.gaglist)
    player:tell("You are already gagging ", p.name, ".")
  elseif (p == player)
    player:tell("Gagging yourself is a bad idea.")
  else
    changed = 1
    player:set_gaglist(@setadd(this.gaglist, p))
  endif
endfor
if (changed)
  this:("@listgag")("but don't fork")
endif
"Last modified by Dax (#789) on Thu Nov  8 11:14:57 2001 MST."
.