Stuff

menu nicklist { 
  .Gag: _gag gag $chan $1- 
  .UnGag: _gag ungag $chan $1- 
} 
on !*:JOIN:#:{ if ( %gag. [ $+ [ $nick ] ] == $true ){ mode $chan -h-o-a-v $nick $nick $nick $nick } 
alias -l _gag { 
  var %_gag.chan = $2, %_gag.cur = 1, %_gag.tok = $3-, %_gag.total = $numtok(%_gag.tok, 32) 
  if (%_gag.total > 15) && ($?!="This will affect %_gag.total nicknames. Are you sure? $crlf $crlf $+ You may flood off with too many nicknames." == $false) return 
  while (%_gag.cur <= %_gag.total) { 
    var %_gag.nick = $gettok(%_gag.tok, %_gag.cur, 32) 
    if ($1 == gag) { 
      set %gag. [ $+ [ %_gag.nick ] ] $true 
      mode %_gag.chan +b ~q: $+ $address(%_gag.nick, 7) 
      mode %_gag.chan -hoav %_gag.nick %_gag.nick %_gag.nick %_gag.nick 
    } 
    else { 
      unset %gag. [ $+ [ %_gag.nick ] ] 
      mode %_gag.chan -b ~q: $+ $address(%_gag.nick, 7) 
      mode %_gag.chan +v %_gag.nick 
    } 
    inc %_gag.cur 
  } 
}