cool channel protection, seems to work pritty good, its had a few wars with some other bots \o/, just chane #chan to your clan channel and away it goes :x
on @!*:OP:#chan:{
if (!$istok(Q L,$nick,32)) { mode $chan -o $opnick
msg $chan ( $nick ) Do Not Op Anyone Who Is Not On L/Q !
}
}
on !*:BAN:#chan:{
if ($banmask !iswm $ial($me)) return 0
set -u60 $+(%,ban.,$chan) $fulladdress
msg L invite $chan
.timerunban 1 15 msg L unbanall $chan
}
on *:INVITE:#:if (? iswm $nick) join $chan
on *:OP:#:{
var %i = $eval($+(%,ban.,$chan),2)
if (!%i) return 0
.quote MODE $chan -o+b $gettok(%i,1,33) $mask(%i,1) $cr KICK $chan $gettok(%i,1,33) :You Are Not Allowed To BAN On This Channel!.
unset $+(%,ban.,$chan)
}
on !1:DEOP:#chan:{
if ($opnick == $me) { msg l op $chan $me
timer 1 1 mode $chan -o $nick
timer 1 1 kick $chan $nick You Are not Allowed To DEOP In This Channel!
halt
}
else { mode $chan -o $nick
mode $chan +o $opnick
kick $chan $nick You Are not Allowed To DEOP In This Channel!
halt
}
}
on !1:KICK:#chan:{
set %chan.1 $chan
if ($knick == $me) { /join %chan.1
mode $chan -o $nick
kick $chan $nick You Are Not Allowed To KICK In This Channel!
unset %chan.1
}
else { mode $chan -o $nick
/invite $knick $chan
kick $chan $nick You Are Not Allowed To KICK In This Channel!
unset %chan.1
}
}