Mine

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
  }
}