:kicking functions 
:module
:help.m
alias k {
	if ([$1]) {
		//kick $T $0 $kstr $1-
	}
	if (![$1]) {
		if (rkreas==[ON]) {
			//kick $T $0 $kstr $getreason(n)
		}
		{
			//kick $T $0 $kstr segmentation fault.
		}
	}
        ^restub k kicks.m
}
alias bk {
	kb $0-
        ^restub bk kicks.m
}
alias kb { 
	if ([$1]) {
		//bk $T $0 $kbstr $1-
	}
	{
		if (rkreas==[ON]) {
			//bk $T $0 $kbstr $getreason(a)
		}
		{
			//bk $T $0 $kbstr segmentation fault.
		}
	}
        ^restub kb kicks.m
}
eval addhelp clean&clean&kicks users of mirc, pirch, xirc, and virc.
alias clean {
	^local tmpk
	if ([$mirck] == [on]) { ^push tmpk mIRC }
	if ([$pirchk] == [on]) { ^push tmpk PIRC }
	if ([$virck] == [on]) { ^push tmpk ViRC }
	if ([$xirck] == [on]) { ^push tmpk XiRCON }
	if (strlen($tmpk) > 0) {
		xecho -b Cleaning up $(c2)$C$(c3) from $(c2)$msar(g! !$(c3)/$(c2)!$tmpk) lamers.
		^do ver
    		^on ^ctcp_reply "% VERSION *" {
			if  ([$ischanop($0 $T)]!=[1]) {
		    		if ([$mirck] == [on] && pattern(*mIRC* $*)) { do k $0 Khaled Mardam Bey is a homosexual little brit. }
		    		if ([$pirchk] == [on] && pattern(*PIRCH* $*)) { do k $0 Polargeek fucks penguins. }
				if ([$virck] == [on] && pattern(*ViRC* $*)) { do k $0 Megalith pulled his back out humping your mom. }
				if ([$xirck] == [on] && pattern(*xircon* $*)) { do k $0 Mark Hanson has no penis. }
			}
			^timer 20 ^on ctcp_reply -"% VERSION *"
		}
	}
	{
		xecho -b error: none of your version kick toggles are set on.
	}
        ^restub clean kicks.m
}
