Op: massmode # + o $$1 $2- DeOp: massmode # - o $$1 $2- Voice: massmode # + v $$1 $2- DeVoice: massmode # - v $$1 $2-
massmode { if ( $me isop $1 ) { var %i = 4 while ( [ [ $+($,%i) ] ] ) { mode $1 $+($2,$str($3,$modespl)) [ [ $+($,%i,-,$calc( %i - 1 + $modespl )) ] ] inc %i $modespl } } }