@verb #3652:"gagged" any none none rxdo #7446
@program #3652:"gagged" any none none
this:update_usage(verb, player)
person = $su:match_player(argstr)
for x in (players())
  suspend(0)
  try
    if (person in x.gaglist)
      player:tell("[", x, "] ", x.name)
    endif
  except (ANY)
  endtry
endfor
player:tell("And ", $su:nn(person), " is gagging: ", $su:name_list(person.gaglist))
player:Tell("---- F i n i s h e d ----")
.