Mass modes.

alias massvoice {
  var %i 0 | while (%i <= $nick(#,0)) { 
    var %voice %voice $nick(#,$abs(%i)) $+ $chr(32) | inc %i 
  }
  mode # + $+ $str(v, $abs($numtok(%voice,32))) %voice
}

alias massop { 
  var %i 0 | while (%i <= $nick(#,0)) { 
    var %op %op $nick(#,$abs(%i)) $+ $chr(32) | inc %i
  }
  mode # + $+ $str(o,$abs($numtok(%op,32))) %op
}

alias massdevoice {
  var %i 0 | while (%i <= $nick(#,0,v)) { 
    var %devoice %devoice $nick(#,$abs(%i),v) $+ $chr(32) | inc %i
  }
  mode # - $+ $str(v,$abs($numtok(%devoice,32))) %devoice
}

alias massdeop { 
  var %i 0 | while (%i <= $nick(#,0,o)) { 
    inc %i | if ($nick(#,$abs(%i)) != $me) { var %deop %deop $nick(#,$abs(%i)) $+ $chr(32) }   
  }
  mode # - $+ $str(o,$abs($numtok(%deop,32))) %deop
}