Code:
on @*:rawmode:#:{ massmode $chan +v }
alias massmode {
  if ($me ison $1) {
    var %i = 1, %n
    while (%i <= $nick($1,0)) {
      %n = $addtok(%n,$nick($1,%i),32)
      inc %i
    }
    while (%n != $null) { 
      mode $1 $+($left($2,1),$str($mid($2,2),$calc($modespl * $len($mid($2,2))))) $gettok(%n,$+(1-,$modespl),32)
      %n = $deltok(%n,$+(1-,$modespl),32)
    }
  }
}