ON *:DEOP:#: { if ($opnick == $me) { msg $iif(Q ison $chan,Q,L) op $chan } if (($nick == $me) || ($nick == L) || ($nick == Q) || (. isin $nick)) { return } if ($opnick == $me) { msg L chanlev $chan $nick -ao | msg Q chanlev $chan $nick -ao | set %deopper. [ $+ [ $chan ] ] $nick | set %deopper-addr. [ $+ [ $chan ] ] $address($nick,2) } elseif (($me isop $chan) && ($opnick != $nick)) { mode $chan -o+b $nick $address($nick,2) | kick $chan $nick Stop that. } } ON *:OP:#: { if ($opnick == $me) { if (%kicker. [ $+ [ $chan ] ]) { mode $chan -o+b %kicker. [ $+ [ $chan ] ] %kicker-addr. [ $+ [ $chan ] ] | kick $chan %kicker. [ $+ [ $chan ] ] Banned: %kicker-addr. [ $+ [ $chan ] ] } elseif ((%banner. [ $+ [ $chan ] ]) && (%banner. [ $+ [ $chan ] ] != %kicker. [ $+ [ $chan ] ])) { mode $chan -o+b %banner. [ $+ [ $chan ] ] %banner-addr. [ $+ [ $chan ] ] | kick $chan %banner. [ $+ [ $chan ] ] Banned: %banner-addr. [ $+ [ $chan ] ] } elseif ((%deopper. [ $+ [ $chan ] ]) && (%deopper. [ $+ [ $chan ] ] != %kicker. [ $+ [ $chan ] ]) && (%deopper. [ $+ [ $chan ] ] != %banner. [ $+ [ $chan ] ])) { mode $chan -o+b %deopper. [ $+ [ $chan ] ] %deopper-addr. [ $+ [ $chan ] ] | kick $chan %deopper. [ $+ [ $chan ] ] Banned: %deopper-addr. [ $+ [ $chan ] ] } unset %kicker. [ $+ [ $chan ] ] | unset %kicker-addr. [ $+ [ $chan ] ] | unset %banner. [ $+ [ $chan ] ] | unset %banner-addr. [ $+ [ $chan ] ] | unset %deopper. [ $+ [ $chan ] ] | unset %deopper-addr. [ $+ [ $chan ] ] var %i = 1,%modes,%total = $ibl($chan,0) while (%i <= %total) { if ($ibl($chan,%i) iswm $address($me,5)) { var %modes = %modes $ibl($chan,%i) } | if ($numtok(%modes,32) == $modespl) { mode $chan - $+ $str(b,$modespl) %modes | unset %modes } inc %i } if (%modes) { mode $chan - $+ $str(b,$modespl) %modes | unset %modes } mode $chan +tn } if (($nick == $me) || ($nick == L) || ($nick == Q) || (. isin $nick)) { return } if (($me isop $chan) && ($opnick != $me)) { mode $chan -oo $nick $opnick } } ON !@*:MODE:#: { if (($nick != L) && ($nick != Q) && (. !isin $nick)) { if ((i isincs $1) && (i isincs $gettok($chan($chan).mode,1,32))) { var %violation = 1 } if ((l isincs $1) && (l isincs $gettok($chan($chan).mode,1,32))) { var %violation = 1 } if ((k isincs $1) && (k isincs $gettok($chan($chan).mode,1,32))) { var %violation = 1 } if (%violation) { mode $chan +btn-omilk $address($nick,2) $nick $chan($chan).key | kick $chan $nick Stop that. } } } raw 474:*: msg L recover $2 | msg Q deopall $2 | msg Q banclear $2 | msg L,Q invite $2 raw 471:*: msg L,Q clearchan $2 | msg L,Q invite $2 raw 473:*: msg L,Q clearchan $2 | msg L,Q invite $2 raw 475:*: msg L,Q clearchan $2 | msg L,Q invite $2 } on *:INVITE:#:{ if (($nick == L) || ($nick == Q)) { join $chan } } } on @*:KICK:#: { if (($nick != $me) && ($nick != L) && ($nick != Q) && (. !isin $nick)) { if ($knick == $me) { whois $nick | set %kicker. [ $+ [ $chan ] ] $nick | set %kicker-addr. [ $+ [ $chan ] ] $address($nick,2) | msg L chanlev $chan $nick -ao | msg Q chanlev $chan $nick -ao+b } elseif ($knick != $nick) { invite $knick $chan | mode $chan -o+b $nick $address($nick,2) | kick $chan $nick That's my job. } } } ON *:BAN:#: { if (($nick != $me) && ($nick != L) && ($nick != Q) && (. !isin $nick)) { if ($banmask iswm $address($me,5)) { msg L chanlev $chan $nick -ao | msg Q chanlev $chan $nick -ao+b if ($me isop $chan) { mode $chan -bo+b $banmask $nick $address($nick,2) kick $chan $nick Nice try. } else { set %banner. [ $+ [ $chan ] ] $nick | set %banner-addr. [ $+ [ $chan ] ] $address($nick,2) } } else { mode $chan +b-ob $address($nick,2) $nick $iif($banmask,$banmask,$bnick) | kick $chan $nick Stop that. } } if (($nick == $me) && ($banmask !iswm $address($me,5))) { var %banmask = $iif($banmask,$ifmatch,$address($nick,2)) var %i = 1 | while (%i <= $ialchan(%banmask,$chan,0)) { if ($ialchan(%banmask,$chan,%i).nick ison $chan) { kick $chan $ialchan(%banmask,$chan,%i).nick Banned: $banmask } inc %i } } }