alias mass {
  if ($me isop $chan) {
    var %prefix = $left($1,1), %mode = $right($1,1), %counter = 1, %nicks
    while ($nick(#,%counter)) {
      if ($nick(#,%counter) != $me) %nicks = %nicks $ifmatch
      if ($numtok(%nicks,32) == $modespl) {
        mode $chan %prefix $+ $str(%mode,$numtok(%nicks,32)) %nicks
        %nicks = ""
      }
      inc %counter
    }
    if (%nicks) mode $chan %prefix $+ $str(%mode,$numtok(%nicks,32)) %nicks
  }
}

alias masskick {
  unset %total
  set %count.nick 0
  set %total $nick(#,0)
  :start
  inc %count.nick
  if (%count.nick > %total) { halt }
  if ($nick(#,%count.nick) == $me) { goto start }
  else { kick # $nick(#,%count.nick) | goto start }
}