boo.irc

# boo.irc
# written by prym

alias ooooMDOP {
	if ([$3]) { QUOTE MODE $C -oooo $0 $1 $2 $3 ;}{
		if ([$2]) { QUOTE MODE $C -booo *!*@* $0 $1 $2 ;}{
			if ([$1]) { QUOTE MODE $C -boo *!*@* $0 $1 ;}{
				if ([$0]) { QUOTE MODE $C -bo *!*@* $0 ;}
			}
		}
	}
	if ([$4]) { ooooMDOP $4- ;}
}

alias booooMDOP {
	if ([$2]) { QUOTE MODE $C -booo *!*@* $0 $1 $2 ;}{
		if ([$1]) { QUOTE MODE $C -boo *!*@* $0 $1 ;}{
			if ([$0]) { QUOTE MODE $C -bo *!*@* $0 ;}
		}
	}
	if ([$3]) { booooMDOP $3- ;}
}

alias leftw {
	@ function_return = [$(1-$0)]
}

alias restw {
	@ function_return = [$(${[$0]+1}-)]
}

alias notw {
	if ([$0]) { @ _pad = [ ] ;}{
	@ _pad = [] ;}
	@ _words = [$1-]
	@ function_return = [$leftw($0 $1-)] ## [$_pad] ## [$restw(${[$0]+1} $1-)]
}

alias rem_w {
	@ _pattern = rmatch($0 $1-) - 1
	if (_pattern != -1) { @ function_return = notw($_pattern $1-) ;}{
	@ function_return = [$1-] ;}
}

alias do_mdop {
	if ([$0]) { @ ops = [$rem_w($0 $ops)]
	if ([$1]) { do_mdop $1- ;}{
	ooooMDOP $ops ;}}{
	ooooMDOP $ops ;}
}



alias mdop {
	echo ### boooo mass deoping $C
	@ ops = [$chops()]
	do_mdop $N $0-
}

echo ### boo.irc
echo ### written by prym
echo ### /mdop [nicks] - mass deops current channel excluding [nicks]