View/Edit #12:@gag @ignore

Switch to edit mode.

Name(s): @gag @ignore
1:  set_task_perms(player)
2:  if (player != this)
3:    return player:tell(E_PERM)
4:  elseif (!args)
5:    return player:tell("Usage:  ", verb, " <player or object> [<player or object>...]")
6:  endif
7:  victims = $string_utils:match_player_or_object(@args)
8:  changed = 0
9:  for p in (victims)
10:   if (p in player.gaglist)
11:     player:tell("You are already gagging ", p.name, ".")
12:   elseif (p == player)
13:     player:tell("Gagging yourself is a bad idea.")
14:   else
15:     changed = 1
16:     player:set_gaglist(@setadd(this.gaglist, p))
17:   endif
18: endfor
19: if (changed)
20:   this:("@listgag")("but don't fork")
21: endif
22: "Last modified by Dax (#789) on Thu Nov  8 11:14:57 2001 MST."

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

You are not logged in.

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