massban {
var %bantype = 2
var %nicks = $1-
var %banvar
var %i = 1
while ( %i <= $0 ) {
if ( $ial( $eval( $+($,%i) ,2) ) ) { %banvar = %banvar $mask($ifmatch,%bantype) }
else { %banvar = %banvar $eval( $+($,%i) ,2) }
inc %i
}
tokenize 32 %banvar
var %i = 1
var %thing = $0
while ( $eval( $+($,%i) , 2 ) ) {
var %incc = $iif( $modespl < %thing , $modespl , %thing )
mode # $+(+,$str(b,%incc)) $eval( $+($,%i,-,$calc( %i - 1 + %incc )) , 2 )
inc %i %incc
dec %thing %incc
}
}