Mass Modes

alias mass {
  if ($me isop $chan) {
    if ($$1 isin +v) { set %prefix $+(+,$str(v,$modespl)) | goto start }
    if ($$1 isin -v) { set %prefix $+(-,$str(v,$modespl)) | goto start }
    if ($$1 isin +h) { set %prefix $+(+,$str(h,$modespl)) | goto start }
    if ($$1 isin -h) { set %prefix $+(-,$str(h,$modespl)) | goto start }
    if ($$1 isin +op) { set %prefix $+(+,$str(o,$modespl)) | goto start }
    if ($$1 isin -op) { set %prefix $+(-,$str(o,$modespl)) | goto start }
    if ($$1 isin +a) { set %prefix $+(+,$str(a,$modespl)) | goto start }
    if ($$1 isin -a) { set %prefix $+(-,$str(a,$modespl)) | goto start }
    :start
    set %massing $nick($chan,0)
    while (%massing) {
      if ($nick($chan,%massing) != $me) { set %mass1 %mass1 $nick($chan,%massing) }
      if ($gettok(%mass1,0,32) = $modespl) { mode $chan %prefix %mass1 | unset %mass1 }
      dec %massing
    }
    mode $chan %prefix %mass1 | unset %mass1
  }
}