Unnamed

on *:INPUT:#:{ if ($regex($1-,/^[!@.]mass[du]?[vho](?> -[rvho])?(?> (.+))?/Si)) {
    if ($me isop $chan) || ($me ishop $chan) {
      if (($address($me,4) == $address($nick,4)) || ($nick isop $chan)) || (($nick ishop $chan) && ($right($1,1) == v)) {
        var %massf = 0
        :massm
        var %repeat = 0
        var %massm = 0
        if ($mid($1,6,2) == $mid($1,6,1) $+ b) {
          if (!$2) {
            while (%massf <= $ibl($chan,0)) {
              inc %massm
              inc %massf
              var %massc = %massc $ibl($chan,%massf)
              if (%massm == 12) {
                var %repeat = 1
                break
                else { halt }
              }
            }
          }
        }
        else {
          while (%massf < $iif($2 isin $regml(1),$nick($chan,0),$iif($2,$nick($chan,0,$right($2,1)),$nick($chan,0)))) {
            inc %massf
            inc %massm
            if ($iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))) != $me) {
              if ($right($1,1) == k) {
                if ($iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))) != $nick) {
                  kick $chan $iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))) $iif($regml(1),$regml(1),Masskick)
                }
              }
              else {
                var %massc = %massc $iif($right($1,1) == b,$address($iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))),1),$iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))))
                if (%massm == 12) {
                  var %repeat = 1
                  break
                  else { halt }
                }
              }
            }
          }
        }
        if ($right($1,1) != k) {
          mode $chan $iif($mid($1,6,1) isin ud,-,+) $+ $str($right($1,1),%massm) %massc
          if (%repeat = 1) {
            unset %massc
            goto massm
            else { halt }
          }
        }
      }
    }
  } 
  var %massf = 0
  :massm
  var %repeat = 0
  var %massm = 0
  if ($mid($1,6,2) == $mid($1,6,1) $+ b) {
    if (!$2) {
      while (%massf <= $ibl($chan,0)) {
        inc %massm
        inc %massf
        var %massc = %massc $ibl($chan,%massf)
        if (%massm == 12) {
          var %repeat = 1
          break
          else { halt }
        }
      }
    }
  }
  else {
    while (%massf < $iif($2 isin $regml(1),$nick($chan,0),$iif($2,$nick($chan,0,$right($2,1)),$nick($chan,0)))) {
      inc %massf
      inc %massm
      if ($iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))) != $me) {
        if ($right($1,1) == k) {
          if ($iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))) != $nick) {
            kick $chan $iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))) $iif($regml(1),$regml(1),Masskick)
          }
        }
        else {
          var %massc = %massc $iif($right($1,1) == b,$address($iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))),1),$iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))))
          if (%massm == 12) {
            var %repeat = 1
            break
            else { halt }
          }
        }
      }
    }
  }
  if ($right($1,1) != k) {
    mode $chan $iif($mid($1,6,1) isin ud,-,+) $+ $str($right($1,1),%massm) %massc
    if (%repeat = 1) {
      unset %massc
      goto massm
      break
      else { halt }
    }
  }
}