;Mass commands
;Use /mass +o/-o +v/-v ...
alias mass {
  if ($me !isop #) {
    echo -a Error : You are not op on $chan
  }
  else {
    if ($regex($1,/\Q+v\E/i) == 1) {
      echo -a +V
      var %x 1
      while %x <= $nick(#,0,r) {
        set %x.nick %x.nick $nick(#,%x,r)
        if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
        inc %x
      }
      if %x.nick { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
    }
    if ($regex($1,/\Q-v\E/i) == 1) {
      var %x 1
      while %x <= $nick(#,0,v) {
        set %x.nick %x.nick $nick(#,%x,v)
        if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
        inc %x
      }
      if %x.nick { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
    }
    if ($regex($1,/\Q+o\E/i) == 1) {
      var %x 1
      while %x <= $nick(#,%x,a) {
        set %x.nick %x.nick $nick(#,%x,a)
        if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
        inc %x
      }
      if %x.nick { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
    }
    if ($regex($1,/\Q-o\E/i) == 1) {
      var %x 1
      while %x <= $nick(#,%x,o) {
        set %x.nick %x.nick $remove($nick(#,%x,o),$me)
        if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
        inc %x
      }
      if %x.nick { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
    }
  }