3B /Mass mode alias
; Available modes:
; /mass +o   /mass +h   /mass +v
; /mass -o   /mass -h   /mass -v

alias mass {
  if (!$chan) echo 4 -ta * Error: Alias can only be used in channels.
  elseif +o = $1 {
    if $me !isop $chan echo 4 -ta * Error: You must be an operator to perform this command.
    else {
      var %x 1, %y
      while %x <= $nick($chan,%x,a) {
        set %y %y $nick($chan,%x,a)
        if $numtok(%y,32) == $modespl mode $chan $+(+,$str(o,$modespl)) %y
        inc %x
      }
      if (%y) mode $chan $+(+,$str(o,$modespl)) %y
    }
  }
  elseif -o = $1 {
    if $me !isop $chan echo 4 -ta * Error: You must be an operator to perform this command.
    else {
      var %x 1, %y
      while %x <= $nick($chan,%x,o) {
        set %y %y $remove($nick($chan,%x,o),$me)
        if $numtok(%y,32) == $modespl mode $chan $+(-,$str(o,$modespl)) %y
        inc %x
      }
      if (%y) mode $chan $+(-,$str(o,$modespl)) %y
    }
  }
  elseif +h = $1 {
    if $me !isop $chan echo 4 -ta * Error: You must be an operator to perform this command.
    else {
      var %x 1, %y
      while %x <= $nick($chan,0,r) {
        set %y %y $nick($chan,%x,r)
        if $numtok(%y,32) == $modespl mode $chan $+(+,$str(h,$modespl)) %y
        inc %x
      }
      if (%y) mode $chan $+(+,$str(h,$modespl)) %y
    }
  }
  elseif -h = $1 {
    if $me !isop $chan echo 4 -ta * Error: You must be an operator to perform this command.
    else {
      var %x 1, %y
      while %x <= $nick($chan,0,h) {
        set %y %y $nick($chan,%x,h)
        if $numtok(%y,32) == $modespl mode $chan $+(-,$str(h,$modespl)) %y
        inc %x
      }
      if (%y) mode $chan $+(-,$str(h,$modespl))
    }
  }
  elseif +v = $1 {
    if $me !ishop $chan && $me !isop $chan echo 4 -ta * Error: You must be (half-) operator to perform this command.
    else {
      var %x 1, %y
      while %x <= $nick($chan,0,r) {
        set %y %y $nick($chan,%x,r)
        if $numtok(%y,32) == $modespl mode $chan $+(+,$str(v,$modespl)) %y
        inc %x
      }
      if (%y) mode $chan $+(+,$str(v,$modespl)) %y
    }
  }
  elseif -v = $1 {
    if $me !ishop $chan && $me !isop $chan echo 4 -ta * Error: You must be (half-) operator to perform this command.
    else {
      var %x 1, %y
      while %x <= $nick($chan,0,v) {
        set %y %y $nick($chan,%x,v)
        if $numtok(%y,32) == $modespl mode $chan $+(-,$str(v,$modespl)) %y
        inc %x
      }
      if (%y) mode $chan $+(-,$str(v,$modespl)) %y
    }
  }
  else echo 4 -ta * Erroneous command.
}