Since I have mIRC with me at the moment, I'll show you what I meant:

alias mass {
  if ($regex($1,/^([+-])([vhoaq])$/S)) { 
    var %1 = $regml(1), %2 = $regml(2), %- = $nick(#,0) 
    while (%-) {
      var %m = %m $iif($nick(#,%-) != $me,$v1)
      if ($numtok(%m,32) == $modespl) {
        mode # $+(%1,$str(%2,$v1))
      }
      dec %-
    }
    if (%m) mode # $+(%1,$str(%2,$numtok(%m,32))) %m
  }
}

This is for demonstration purposes only.