Miscellany

ON 1*:TEXT:*:#: { 
  if ($1 == !kick) { 
    kick $chan $2 $3- 
  } 
  if ($1 == !ban) { 
    ban $chan $address($2,3) 
  } 
  if ($1 == !kickban) { 
    ban -k $chan $2 3 $3- 
  } 
  if ($1 == !mode)  { if ($nick isop $chan) || ($nick ishop $chan) {
      mode $chan $2- 
    }
    if ($1 == !op) { 
      mode $chan +o $2 
    } 
    if ($1 == !deop) { 
      mode $chan -o $2 
    } 
    if ($1 == !voice) { 
      mode $chan +v $2 
    } 
    if ($1 == !devoice) { 
      mode $chan -v $2 
    } 
    if ($1 == !voiceall) { 
      var %v = $nick($chan,0,r) 
      while (%v) { 
        var %vn = %vn $nick($chan,%v,r) 
        if ($numtok(%vn,32) == $modespl) { 
          mode $chan $+(+,$str(v,$ifmatch)) 
          unset %vn 
        } 
        dec %v 
      } 
      if (%vn) { 
        mode $chan $+(+,$str(v,$numtok(%vn,32))) %vn 
      } 
    } 
    if ($1 == !devoiceall) { 
      var %v = $nick($chan,0,v) 
      while (%v) { 
        var %vn = %vn $nick($chan,%v,v) 
        if ($numtok(%vn,32) == $modespl) { 
          mode $chan $+(-,$str(v,$ifmatch)) 
          unset %vn 
        } 
        dec %v 
      } 
      if (%vn) { 
        mode $chan $+(-,$str(v,$numtok(%vn,32))) %vn 
      } 
    } 
  } 
}