Miscellany

on $*:TEXT:/^[!@]mass[du]?[vhobkm](?> -[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 { 
        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 
              } 
            } 
          } 
        } 
      } 
      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 
        } 
      } 
    } 
  } 
}