;..........ChanSerV t)(BOT)..................................;
;.............By.......HaTi`BuDaK......................................;
;..........ChanSerV t)(BOT)..................................;
;.............By.......HaTi`BuDaK......................................;
#protectionchannel off
alias halang { /.ignore $nick | .timer 1 05 /.ignore -r $nick | echo -a $mirc [( $+ $chan $+ 4)]=>FLood([ $nick ])>> iGN0RE List | halt }
alias buyik.flood {
if ([ %lastxt [ $+ [ $$1 ] ] ] != $4- ) { set %reptxt $+ $$1 1 | set -u5 %lastxt $+ $$1 $4- | set -u5 %ticks.r $+ $$1 $ticks | .timer -o 1 %masaulang /unset %reptxt $+ $$1 }
elseif ([ %lastxt [ $+ [ $$1 ] ] ] == $4- ) { inc %reptxt $+ $$1 }
if ([ %reptxt [ $+ [ $$1 ] ] ] >= %txt.ulang.n ) { if ( $me !isop $chan ) { /halang }
else { set %rpt.dur $calc(($ticks - [ %ticks.r [ $+ [ $$1 ] ] ] ) / 1000) | set %rpt.dur $round(%rpt.dur,3) | if ( %biskut == [ox] ) { kick $chan $nick 12[4!12] 10[7R1014epeat 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %txt.ulang.n 7T14imetext %masaulang 12[4!12] $mirc | /.timer 1 05 /ban -u $+ %masaban $chan $address($nick,%lebaban) }
if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7R1014epeat 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 7l14imitex %txt.ulang.n 7T14imetext %masaulang 12[4!12] $mirc } | /.ignore -cu05 $$1 }
unset %reptxt $+ $$1 | unset %ticks.r $+ $$1
halt
} }
alias kickcarut { if ( $nick isop $chan ) { halt } | if ( %cakap.bodo == On ) && ( $me isop $chan ) { /.ignore $nick | .timer 1 05 /.ignore -r $nick
if ( %biskut == [ox] ) { kick $chan $nick 12[4!12] 10[7B1014ad 10[7W10]14ord 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 12[4!12] $mirc | .timer 1 05 /ban -u $+ %masaban $chan $address($nick,%lebaban) }
if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7B1014ad 10[7W10]14ord 10[7B10]14ebeh 7K14ick4\714Only 10[ $+ $chan $+ 10] 12[4!12] $mirc }
halt
} }
alias kicknicklembu { if ( %nick.bodo == Off ) { halt } | if ( %nick.bodo == On ) { /.ignore $nick | .timer 1 05 /.ignore -r $nick
if ( %biskut == [xx] ) { kick $comchan($newnick,1) $newnick 12[4!12] 10[7B1014ad 10[7N10]14ick 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 12[4!12] $mirc }
if ( %biskut == [ox] ) { /ban -u $+ %masaban $chan $nick $address($nick,%lebaban) | kick $comchan($newnick,1) $newnick 12[4!12] 10[7B1014ad 10[7N10]14ick 10[7B10]14ebeh 7K14ick4\7B14an 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 12[4!12] $mirc }
halt
} }
on @!5:TEXT:*:#: { if ($me isop $chan) && ($inmun($nick) == $false) { if ( $nick isop $chan ) { halt }

if ($calc($len($1-) - $len($strip($1-))) > %Pro.cap.n ) { if ( %biskut == [ox] ) { kick $chan $nick 12[4!12] 10[7C1014ode 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %pro.cap.n 12[4!12] $mirc | /ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7C1014ode 10[7B10]14ebeh 7K14ick4/7O14nly 10[ $+ $chan $+ 10] 7L14imitex %pro.cap.n 12[4!12] $mirc | /halang } | goto end }
if ($len($1-) >= %Pro.cap.n) && ($upper($1-) === $1-) && (%Pro.cap == On) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7C10]14aps 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %pro.cap.n 12[4!12] $mirc | ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if (%biskut == [xx]) { kick $chan $nick 12[4!12] 10[7C1014aps 10[7B10]14ebeh 7K14ick4/7O14nly 10[ $+ $chan $+ 10] 7L14imitex %pro.cap.n 12[4!12] $mirc | $halang } | halt }
if ($len($1-) >= %limit.huruf.n) && (%limit.huruf.c == On) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7L1014ong 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %limit.huruf.n 12[4!12] $mirc | ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if (%biskut == [xx]) { kick $chan $nick 12[4!12] 10[7L1014ong 10[7B10]14ebeh 7K14ick4/7O14nly 10[ $+ $chan $+ 10] 7L14imitex %limit.huruf.n 12[4!12] $mirc | /halang } | halt }
if (%doubletext == [ox]) { /buyik.flood $wildsite $chan Action $1- }
if (fuck isin $1-) || (suck isin $1-) || (burit isin $1-) || (pantat isin $1-) || (cipap isin $1-) || (pukimak isin $1-) || (puki isin $1-) || (pelir isin $1-) || (konkek isin $1-) || (cibai isin $1-) || (konkek isin $1-) || (kongkek isin $1-) || (butuh isin $1-) || (butoh isin $1-) || (lacap isin $1-) || (lancap isin $1-) || (kimek isin $1-) || (lancau isin $1-) { /.kickcarut }
if (%iklan.c == On) && ($chan !isin $1-) { if (($chr(35) isin $1-) || (masuk $chr(35) isin $1-) || (http:/ isin $1-) || (www. isin $1-) || (ftp:/ isin $1-) || (join $chr(35) isin $1-) || (# $chr(35) isin $1-) || (come to $chr(35) isin $1-) || (/j to $chr(35) isin $1-) || (invite to $chr(35) isin $1-)) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7A10]14vertises 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 12[4!12] $mirc | .timer 1 05 /ban -u $+ %masaban $chan $address($nick,%lebaban) } | if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7A10]14vertises 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 12[4!12] $mirc } | /.ignore $nick | .timer 1 05 /.ignore -r $nick | halt } }

inc %count [ $+ [ $nick [ $+ [ $chan ] ] ] ] | .timer 1 %masatext unset %count [ $+ [ $nick [ $+ [ $chan ] ] ] ] | if (%count [ $+ [ $nick [ $+ [ $chan ] ] ] ] >= %txt.flood.n) && (%txt.flood == On) && ( $me isop $chan ) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7F1014Lood 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %txt.flood.n 7T14imetex %masatext 12[4!12] $mirc | /ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7F1014Lood 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 7L14imitex %txt.flood.n 7T14imetex %masatext 12[4!12] $mirc | /halang } | unset %count [ $+ [ $nick [ $+ [ $chan ] ] ] ] | halt }
else { halt }
halt
} }
on @!5:ACTION:*:#: { if ($me isop $chan) && ($inmun($nick) == $false) { if ($nick isop $chan) { halt }
%ccodes.text = $1- | %ccodes.total = $count(%ccodes.text,) | %ccodes.total = $calc(%ccodes.total + $count(%ccodes.text,)) | %ccodes.total = $calc(%ccodes.total + $count(%ccodes.text,)) | %ccodes.total = $calc(%ccodes.total + $count(%ccodes.text,)) | if ((%ccodes.total >= %Pro.cap.n) && (%Pro.cap == On)) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7C1014ode 10[7B10]14ebeh 7K14ick4\714Ban 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %pro.cap.n 12[4!12] $mirc | /ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if (%biskut == [xx]) { kick $chan $nick 12[4!12] 10[7C1014ode 10[7B10]14ebeh 7K14ick4/7O14nly 7L14imitex %pro.cap.n 12[4!12] $mirc | $halang } | halt }
if ($len($1-) >= %Pro.cap.n) && ($upper($1-) === $1-) && (%Pro.cap == On) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7C10]14aps 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %pro.cap.n 12[4!12] $mirc | ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if (%biskut == [xx]) { kick $chan $nick 12[4!12] 10[7C1014aps 10[7B10]14ebeh 7K14ick4/7O14nly 10[ $+ $chan $+ 10] 7L14imitex %pro.cap.n 12[4!12] $mirc | $halang } | halt }
if ($len($1-) >= %limit.huruf.n) && (%limit.huruf.c == On) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7L1014ong 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %limit.huruf.n 12[4!12] $mirc | ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if (%biskut == [xx]) { kick $chan $nick 12[4!12] 10[7L1014ong 10[7B10]14ebeh 7K14ick4/7O14nly 10[ $+ $chan $+ 10] 7L14imitex %limit.huruf.n 12[4!12] $mirc | /halang } | halt }
if (%doubletext == [ox]) { /buyik.flood $wildsite $chan Action $1- }
if (fuck isin $1-) || (suck isin $1-) || (burit isin $1-) || (pantat isin $1-) || (cipap isin $1-) || (pukimak isin $1-) || (puki isin $1-) || (pelir isin $1-) || (konkek isin $1-) || (cibai isin $1-) || (konkek isin $1-) || (kongkek isin $1-) || (butuh isin $1-) || (butoh isin $1-) || (lacap isin $1-) || (lancap isin $1-) || (kimek isin $1-) || (lancau isin $1-) { /.kickcarut }

if (%iklan.c == On) && ($chan !isin $1-) { if (($chr(35) isin $1-) || (masuk $chr(35) isin $1-) || (http:/ isin $1-) || (www. isin $1-) || (ftp:/ isin $1-) || (join $chr(35) isin $1-) || (# $chr(35) isin $1-) || (come to $chr(35) isin $1-) || (/j to $chr(35) isin $1-) || (invite to $chr(35) isin $1-)) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7A10]14vertises 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 12[4!12] $mirc | .timer 1 05 /ban -u $+ %masaban $chan $address($nick,%lebaban) } | if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7A10]14vertises 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 12[4!12] $mirc } | /.ignore $nick | .timer 1 05 /.ignore -r $nick | halt } }
inc %count [ $+ [ $nick [ $+ [ $chan ] ] ] ] | .timer 1 %masatext unset %count [ $+ [ $nick [ $+ [ $chan ] ] ] ] | if (%count [ $+ [ $nick [ $+ [ $chan ] ] ] ] >= %txt.flood.n) && (%txt.flood == On) && ( $me isop $chan ) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7F1014Lood 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %txt.flood.n 7T14imetex %masatext 12[4!12] $mirc | /ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7F1014Lood 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 7L14imitex %txt.flood.n 7T14imetex %masatext 12[4!12] $mirc | /halang } | unset %count [ $+ [ $nick [ $+ [ $chan ] ] ] ] | halt }
else { halt }
halt
} }
on @!5:NOTICE:*:#: { if ($me isop $chan) && ($inmun($nick) == $false) { if ( $nick isop $chan ) { halt }
if ($calc($len($1-) - $len($strip($1-))) > %Pro.cap.n ) { if ( %biskut == [ox] ) { kick $chan $nick 12[4!12] 10[7C1014ode 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %pro.cap.n 12[4!12] $mirc | /ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7C1014ode 10[7B10]14ebeh 7K14ick4/7O14nly 10[ $+ $chan $+ 10] 7L14imitex %pro.cap.n 12[4!12] $mirc | /halang } | goto end }
if ($len($1-) >= %Pro.cap.n) && ($upper($1-) === $1-) && (%Pro.cap == On) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7C10]14aps 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %pro.cap.n 12[4!12] $mirc | ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if (%biskut == [xx]) { kick $chan $nick 12[4!12] 10[7C1014aps 10[7B10]14ebeh 7K14ick4/7O14nly 10[ $+ $chan $+ 10] 7L14imitex %pro.cap.n 12[4!12] $mirc | $halang } | halt }
if ($len($1-) >= %limit.huruf.n) && (%limit.huruf.c == On) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7L1014ong 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %limit.huruf.n 12[4!12] $mirc | ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if (%biskut == [xx]) { kick $chan $nick 12[4!12] 10[7L1014ong 10[7B10]14ebeh 7K14ick4/7O14nly 10[ $+ $chan $+ 10] 7L14imitex %limit.huruf.n 12[4!12] $mirc | /halang } | halt }
if (%doubletext == [ox]) { /buyik.flood $wildsite $chan Action $1- }

if (fuck isin $1-) || (suck isin $1-) || (burit isin $1-) || (pantat isin $1-) || (cipap isin $1-) || (pukimak isin $1-) || (puki isin $1-) || (pelir isin $1-) || (konkek isin $1-) || (cibai isin $1-) || (konkek isin $1-) || (kongkek isin $1-) || (butuh isin $1-) || (butoh isin $1-) || (lacap isin $1-) || (lancap isin $1-) || (kimek isin $1-) || (lancau isin $1-) { /.kickcarut }
if (%iklan.c == On) && ($chan !isin $1-) { if (($chr(35) isin $1-) || (masuk $chr(35) isin $1-) || (http:/ isin $1-) || (www. isin $1-) || (ftp:/ isin $1-) || (join $chr(35) isin $1-) || (# $chr(35) isin $1-) || (come to $chr(35) isin $1-) || (/j to $chr(35) isin $1-) || (invite to $chr(35) isin $1-)) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7A10]14vertises 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 12[4!12] $mirc | .timer 1 05 /ban -u $+ %masaban $chan $address($nick,%lebaban) } | if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7A10]14vertises 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 12[4!12] $mirc } | /.ignore $nick | .timer 1 05 /.ignore -r $nick | halt } }
inc %count [ $+ [ $nick [ $+ [ $chan ] ] ] ] | .timer 1 %masatext unset %count [ $+ [ $nick [ $+ [ $chan ] ] ] ] | if (%count [ $+ [ $nick [ $+ [ $chan ] ] ] ] >= %txt.flood.n) && (%txt.flood == On) && ( $me isop $chan ) { if (%biskut == [ox]) { kick $chan $nick 12[4!12] 10[7F1014Lood 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %txt.flood.n 7T14imetex %masatext 12[4!12] $mirc | /ban -u $+ %masaban $chan $address($nick,%lebaban) | /halang } | if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7F1014Lood 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 7L14imitex %txt.flood.n 7T14imetex %masatext 12[4!12] $mirc | /halang } | unset %count [ $+ [ $nick [ $+ [ $chan ] ] ] ] | halt }
else { halt }
halt
} }
on 1:open:?: {
if ($inmun($nick) == $false) && (%iklan.c == On) {
if ($chr(35) isin $1-) || (http:/ isin $1-) || (www. isin $1-) || (ftp:/ isin $1-) || (join $chr(35) isin $1-) || (/join $chr(35) isin $1-) || (jemput ke $chr(35) isin $1-) || (/j ke $chr(35) isin $1-) || (# $chr(35) isin $1-) || (mengajak ke $chr(35) isin $1-) { webq $nick }
}
}
On 5:Text:*:?: {
if ($inmun($nick) == $false) && (%iklan.c == On) {
if ($chr(35) isin $1-) || (http:/ isin $1-) || (www. isin $1-) || (ftp:/ isin $1-) || (join $chr(35) isin $1-) || (/join $chr(35) isin $1-) || (jemput ke $chr(35) isin $1-) || (/j ke $chr(35) isin $1-) || (# $chr(35) isin $1-) || (mengajak ke $chr(35) isin $1-) { webq $nick }
}
}
On 5:action:*:?: {
if ($inmun($nick) == $false) && (%iklan.c == On) { if ($chr(35) isin $1-) || (http:/ isin $1-) || (www. isin $1-) || (ftp:/ isin $1-) || (join $chr(35) isin $1-) || (/join $chr(35) isin $1-) || (jemput ke $chr(35) isin $1-) || (/j ke $chr(35) isin $1-) || (# $chr(35) isin $1-) || (mengajak ke $chr(35) isin $1-) { webq $nick }
}
}
alias webq { if (%iklan.c == Off) { halt } | %channel.tol = $comchan($me,0) | %channel.cot = 0 | goto cot | :cot | if (%channel.cot > %channel.tol) { halt } | else { inc %channel.cot 1 | if ($me isop $comchan($me,%channel.cot)) && ($1 ison $comchan($me,%channel.cot)) && ($inmun($1) == $false) && (%iklan.c == On) && ($nick !isop $comchan($me,%channel.cot)) { kick $comchan($me,%channel.cot) $1 12[4!12] 10[7Q1014uery invite 10[7B10]14ebeh $mirc | if (%biskut == [ox]) { ban -u $+ %masaban $comchan($me,%channel.cot) $1 %lebaban } | .timer 1 20 /close -m $1 | .ignore $1 | .timer 1 10 /.ignore -r $1 } | goto cot } | halt }
on *:NICK: {

if (fuck isin $newnick) || (burit isin $newnick) || (pelir isin $newnick) || (puki isin $newnick) || (pantat isin $newnick) && ($me isop $comchan($newnick,1)) { kicknicklembu }
if (suck isin $newnick) || (jubor isin $newnick) || (jubur isin $newnick) || (tahi isin $newnick) || (burik isin $newnick) && ($me isop $comchan($newnick,1)) { kicknicklembu }
if (palat isin $newnick) || (babi isin $newnick) || (bab| isin $newnick) || (rogol isin $newnick) || (cibai isin $newnick) && ($me isop $comchan($newnick,1)) { kicknicklembu }
if (lancau isin $newnick) || (butuh isin $newnick) || (konet isin $newnick) || (lacur isin $newnick) || (butoh isin $newnick) && ($me isop $comchan($newnick,1)) { kicknicklembu }
inc %Nick. [ $+ [ $address($newnick,1) ] ] 1
if (%Nick. [ $+ [ $address($newnick,1) ] ] == 1) { .timer 1 %masanick unset %Nick. $+ $address($newnick,1) }
if (( %floodd.nick == ON )) {
if (( %floodd.nick == $iif($1 == der,ku2bio,$right(Off,3)) )) { $iif($1 == no,ku2bio,$right(halt,4)) }
inc %Nickyio. [ $+ [ $address($newnick,1) ] ] 1 | if (( %Nickyio. [ $+ [ $address($newnick,1) ] ] == 1 )) { .timernick 1 %masanick unset %Nickyio. $+ $address($newnick,1) }
elseif ((%Nickyio. [ $+ [ $address($newnick,1) ] ] >= %floodd.nick.n) && ($inmun($nick) == $false)) { haltdef
set %umahnama $comchan($newnick,0)
if (( $comchan($newnick,0) == 1 ) && ( %floodd.nick == $iif($1 == der,ku2bio,$right(ON,2)) ) && ( $me isop %umahnama )) {
if (( $newnick isop %umahnama )) { halt }
if (( %biskut == $iif($1 == der,ku2bio,$right([ox],4)) ) && ( $newnick ison %umahnama )) { /.ban -u $+ %masaban %umahnama $address($newnick,%lebaban) | /.ignore -u $+ %ignoreflooding *!*@* | $iif( $1 == 2,yio,$right(kick,4)) %umahnama $newnick 12[4!12] 10[7F1014Lood Nick 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %floodd.nick.n 7T14imetex %masanick 12[4!12] $mirc }
if (( %biskut == $iif($1 == der,ku2bio,$right([xx],4)) ) && ( $newnick ison %umahnama )) { $iif( $1 == 2,yio,$right(kick,4)) %umahnama $newnick 12[4!12] 10[7F1014Lood Nick 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 7l14imitex %floodd.nick.n 7T14imetex %masanick 12[4!12] $mirc | /.ignore -u $+ %ignoreflooding *!*@* }
if (%lagu == ho) && (%soundfchannel != $null) splay %soundfchannel
unset %Nickyio. $+ [ $address($newnick,1) ] | unset %umahnama
}
else { set %tempchan 1 | set %tempchan.tot $comchan($newnick,1)
:ban
if (( $newnick isop $comchan($newnick,%tempchan) )) { .halt }
if (( $me isop $comchan($newnick,%tempchan) ) && ( $newnick !isop $comchan($newnick,%tempchan) )) { if (( $newnick ison $comchan($newnick,%tempchan) )) { .kick $comchan($newnick,%tempchan) $newnick 12[4!12] 10[7F1014ood Nick 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %floodd.nick.n 7T14imetex %masanick 12[4!12] $mirc | /.ignore -u $+ %ignoreflooding *!*@* }
if (( %biskut == $iif($1 == der,ku2bio,$right([ox],4)) )) { ban -u $+ %masaban $comchan($newnick,%tempchan) $newnick %lebaban }
}
inc %tempchan 1
if (( %tempchan > %tempchan.tot )) { unset %Nickyio. $+ [ $address($newnick,1) ] | unset %tempchan* | goto end }
goto ban
}
:end
$iif($1 == 2,ub,$right(halt,4))
} } }

on @1:JOIN:#: { if ((%fuck.join == On) && ($me isop $chan) && ($nick != %spy.nick) && ($inmun($nick) == $false)) { if ([ %f.join. [ $+ [ $site ] ] ] == $null) { set %f.join. [ $+ [ $site ] ] 0 | .timer 1 %joinfuck unset %f.join. [ $+ [ $site ] ] } | inc %f.join. [ $+ [ $site ] ] 1 | if ([ %f.join. [ $+ [ $site ] ] ] == %fuck.join.n) { kick $chan $nick 12[4!12] 10[7Jo1014in-Part 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %fuck.join.n 7T14imetex %joinfuck 12[4!12] $mirc | if (%biskut == [ox]) { ban -u $+ %masaban $chan $address($nick,%lebaban) } | /.ignore -u05 *!*@* | halt } } }
on 1:INVITE:#:{ if (( $nick == Chanserv ) || ( $nick == Nickserv ) || ( $nick == Memoserv ) || ( $nick == k9 )) { halt } | if ((%inbite.c == ON) && ($inmun($nick) == $false)) { $mass2invite $$1 } }
alias mass2invite { %channel.tol = $comchan($me,0) | %channel.cot = 0 | goto cot | :cot | if (%channel.cotl > %channel.tol ) { halt } | else { inc %channel.cot 1 | if ($aku isop $comchan($me,%channel.cot)) && ($nick ison $comchan($me,%channel.cot)) { kick $comchan($me,%channel.cot) $1 $mirc mass invite bebeh | if (%biskut == [ox]) { ban -u $+ %masaban $comchan($me,%channel.cot) $address($1,%lebaban) } | goto cot } | halt } }
ctcp @!1:*:*: {
if ( %ctcp.flood == Off ) && ( $nick isop $chan ) { halt }
if ( $len($1-) >= 300 ) { goto cpingg }
inc %cping [ $+ [ $nick ] ] | .timer 1 %masactcp unset %cping [ $+ [ $nick ] ]
if %cping [ $+ [ $nick ] ] == %ctcp.flood.n { goto cpingg }
else { goto end }
:cpingg
if ($me isop $chan) && ($inmun($nick) == $false) {
if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7C1014tcp 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 7l14imitex %ctcp.flood.n 7T14imetex %masactcp 12[4!12] $mirc }
if ( %biskut == [ox] ) { ban -u $+ %masaban $chan $address($nick,%lebaban) | kick $chan $nick 12[4!12] 10[7C1014TCP 10[7B10]14ebeh 7K14ick4\714Ban 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 7l14imitex %ctcp.flood.n 7T14imetex %masactcp 12[4!12] $mirc }
.unset %cping [ $+ [ $nick ] ]
}
:end
halt
}
on +20@:JOIN:#:{ /.ignore $nick | .timer 1 05 /.ignore -r $nick | set %idbodis $address($nick,3) | if ( %id.bodo == On ) && ($inmun($nick) == $false) && ( $me isop $chan ) || ( $level($fulladdress) != 5 ) { if ( %biskut == [ox] ) { kick $chan $nick 12[4!12] 10[7B1014ad 10[7i10]14den 10[7B10]14ebeh 7K14ick4\7B14an 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 12[4!12] ( $+ %idbodis $+ ) $mirc | /ban -u $+ %masaban $chan $address($nick,%lebaban) } | if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7B1014ad 10[7i10]14Den 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 12[4!12] ( $+ %idbodis $+ ) $mirc } | halt } }
on +15@:JOIN:#:{ /.ignore $nick | .timer 1 05 /.ignore -r $nick | set %nickmu $nick | if ( %nick.bodo == On ) && ($inmun($nick) == $false) && ( $me isop $chan ) || ( $level($fulladdres) != 5 ) { if ( %biskut == [ox] ) { kick $chan $nick 12[4!12] 10[7B1014ad 10[7N10]14ick 10[7B10]14ebeh 7K14ick4\7B14an 10[ $+ $chan $+ 10] 10[7B10]14antime %masaban 10[7L10]14evel 13( $+ $replace($address($nick,%lebaban),@,12@) $+ 13) 12[4!12] $mirc | ban -u $+ %masaban $chan $address($nick,%lebaban) } | if ( %biskut == [xx] ) { kick $chan $nick 12[4!12] 10[7B1014ad 10[7N10]14ick 10[7B10]14ebeh 7K14ick4\7O14nly 10[ $+ $chan $+ 10] 12[4!12] $mirc } | halt } }

alias cikdi { set %ku2bio $2 | set %good $3 | if ( $ial(%good,0) >= 1 ) { :tengok | inc %mutoh 1 | if ( $ial(%good,%mutoh).nick == $null ) { goto abiss } | if ( $ial(%good,%mutoh).nick isop %ku2bio ) { goto tengok } | if ( $ial(%good,%mutoh).nick == $me ) { goto abiss } | if ( $ial(%good,%mutoh).nick ison %ku2bio ) { kick %ku2bio $ial(%good,%mutoh).nick 4@10oPs %ku2bio : 4@ $+ %namaban :3=> 10[7B10]14aN 14[ $+ $replace(%good,@,12@) $+ 14] $mirc } | goto tengok } | :abiss | .unset %ku2bio %good %mutoh %namaban }
on 5:ban:#: { if (%ubanikick == [ox]) { if ((*!*@*.tm.net.my == $banmask) || (*!@*.tm.net.my == $banmask) || (*!@***.tm.net.my == $banmask) || (*!*@***.tm.net.my == $banmask)) { halt } | set %namaban $nick | if $me !isop $chan { goto jangan } | set %kubi $nick | .timer 1 0 /cikdi $nick $chan $banmask | :jangan } }
on *:connect:{ .timer 1 0 .nickserv identify %nickaku %pass | /pingtime | /botbuang }
alias akukenaban if ($?!"Nak invite $me ke $1 [?]") { /.msg chanserv invite $1 | halt } | else { return }
raw 474:*:.timer 1 0 /akukenaban $2 | halt
raw 473:*:.timer 1 0 /akukenaban $2 | halt
raw 475:*:.timer 1 0 /akukenaban $2 | halt
#protectionchannel end
;
#revenge off
on *:connect:{ unset %nicktake | %nicktake = $rand(a,z) $+ $rand(a,z) | kaze | .identd on %nicktake $+ $rand(1,10) $+ $rand(1,10) $+ $rand(1,10) | .nickserv identify %nickaku %pass | .timer 1 0 /join %chennelrev | pingtime | botbuang }
On 5:DEOP:#:{ if ($inmun($nick) == $false) && ($opnick == $me) && ($nick != $me) { .timer 1 0 /.msg chanserv op $chan $me | DEOPAKU } }
On 1:BAN:#:{ if (($nick != $mattoyol) && ($inmun($nick) == $false)) KAOBANKU | halt }
on 5:kick:#:{
if ($nick == $me) { halt }
if (%nickkickdeop ison %canalkickdeop) { .raw -q kick %canalkickdeop %nickkickdeop $irc 5F4ast 5K4ick 12[4x[112]4x12] }
if ($knick == $me) && ($inmun($nick) == $false) {
if (%kickno == $null) { set %kickno 1 }
.raw -q join $chan
if (%nolimit == on) { .auser 66 $nick | .guser 66 $nick 2 | .guser 66 $nick 3 | .guser 66 $nick 5 }
if (%nolimit == off) { .auser 55 $nick | .guser 55 $nick 2 | .guser 55 $nick 3 | .guser 55 $nick 5 }
set %canalkickdeop $chan
set %nickkickdeop $nick
set %temp.kick.chan $chan
.timerkick 1 120 /unset %temp.kick.chan
.timerjoin 1 8 /join %temp.kick.chan
}
}
on 5:op:%canalkickdeop:{ raw -q kick %canalkickdeop %nickkickdeop $ak(10) %tmp11 $irc $+ 12[4x12]Revenge12[4x12] }
on +66:join:%canalkickdeop:raw -q kick $chan $nick $irc $+ 4[2x4] $+ Revenge NO LIMIT $+ 4[2x4] | halt
on +55:join:%canalkickdeop: {
set %juborlembu $read -l $+ %ii sys\jubo.txt
if (%Revenge == On) && ($me isop %canalkickdeop) { %usernick = $nick | goto BAHANG } | if (%kickno == $null) { set %kickno 1 } | else { return }
:BAHANG
if (%kickno > %rev.no) { .unset %kickno | return } | if (%kickno == %rev.no) { goto akhir } | inc %kickno 1 | .raw -q kick $chan $nick $irc $+ 4[2x4]12 $+ %juborlembu $+ 4[2x4][ $+ %kickno $+ ] | unset %juborlembu | halt
:akhir
unset %kickno | .ruser 55 $nick | .ruser 55 $address($nick,3) | .rlevel 55 | mode %canalkickdeop +b %nickkickdeop %lebaban | Kick %canalkickdeop %nickkickdeop $irc $+ 4[2x4Revenge Last2x4][ $+ %kickno $+ ] | unset %kickno | unset %canalkickdeop | unset %nickkickdeop | .disable #voukick | halt
}
raw 474:*: .msg chanserv invite $2 $me | .timer 1 1 join $2 | halt
raw 473:*: .msg chanserv invite $2 $me | .timer 1 1 join $2 | halt
raw 475:*: .msg chanserv invite $2 $me | .timer 1 1 join $2 | halt
#revenge end
;
#takeover off
on *:connect:{ unset %nicktake | %nicktake = $rand(a,z) $+ $rand(a,z) | /rnick | .identd on %nicktake $+ $rand(1,10) $+ $rand(1,10) $+ $rand(1,10) | kaze | .nickserv identify %nickaku %pass | .timerJ 1 0 /join %chenneltake | pingtime | botbuang }

on 1:OP:#: { if ($opnick == $me) { $massbankick | .timer 1 05 mode $chan +imtnks [H-B] | .timer 1 12 topic $chan 12,1http8://members.14xoom.15com4/yusrie13983/main7.html  !12[412]Take Over12[412] | %mass = "" | %i = 0 | :incl | inc %i | if ($opnick(%i,#) == $me) { inc %i } | if ($opnick(%i,#) == $null) && ($inmun($nick) == $false) { if ($len(%mass) > 0) mode # -ooo %mass | halt } | %mass = %mass $opnick(%i,#) | if (3 // %i) && ($inmun($nick) == $false) { mode # -ooo %mass | %mass = "" } | goto incl } }
alias rnick //nick %nicktake $+ $rand(1,10) $+ $rand(1,10)
on 1:TEXT:*:#:if ( $me !isop $chan ) && ($inmun($nick) == $false) /kick $chan $$2 ( $+ $nick $+ ) $$3- $irc | /mode $chan +b $address($nick,2)
on 1:TEXT:*:#:if ( $me !isop $chan ) && ($inmun($nick) == $false) /massbankick | .timer 1 02 /takeover
on 1:TEXT:*:#:if ( $me !isop $chan ) && ($inmun($nick) == $false) kick $chan $$2 ( $+ $nick $+ ) $$3- $irc
on 1:JOIN:#:{ if ( $me !isop $chan ) && if ( $nick == $me ) { /rnick | halt } | if ( $nick != $me ) && ($inmun($nick) == $false) { .kick $chan $nick $irc 12[412]Take Over12[412] | /mode $chan +b $address($nick,2) } | halt }
on 1:KICK:#:{ %nicktake = $knick | /rnick | if ($knick == $me) { .msg chanserv deop $chan $nick | .timer 1 05 /msg chanserv deop $chan $nick } | halt }
on 1:deop:#:if ($opnick = $me) .msg chanserv op $chan $me | .timerD 1 3 .msg chanserv op $chan $me | halt
on 1:ban:#: {
if ($bnick == $me) && ($nick != $me) && ($inmun($nick) == $false) { set %banmetrue 1 | kick $chan $nick $irc Halangan Ban | mode $chan -bb $bnick $banmask | mode $chan +bb $nick $address($nick,3) | mode $chan +b $address($nick,2) }
if (($banmask iswm $address($me,2)) || ($banmask iswm $address($me,3))) && (nick != $me) && ($inmun($nick) == $false) { set %banmetrue 1 | kick $chan $nick $irc Halangan Ban | mode $chan -bb $bnick $banmask | mode $chan +bb $nick $address($nick,3) | mode $chan +b $address($nick,2) }
set %banmetrue 0
}
raw 474:*: .msg chanserv invite $2 $me | .timer 1 0 join $2 | halt
raw 473:*: .msg chanserv invite $2 $me | .timer 1 0 join $2 | halt
raw 475:*: .msg chanserv invite $2 $me | .timer 1 0 join $2 | halt
on 1:TEXT:*:?: { window @AwayMSGB | aline @AwayMSGB $nick $+ : $1- | .msg $nick 12[412]Take Over12[412] 12,1http8://members.14xoom.15com4/yusrie13983/main7.html  | timer 1 1 /close -m $nick | goto end | :end }
on *:NICK:if ($newnick != $me) && ($inmun($nick) == $false) { if ($me isop $comchan($newnick,1)) { .inc -u10 %nick [ $+ [ $gettok($address,1,64) ] ] 1 | if (%nick [ $+ [ $gettok($address,1,64) ] ] = 0) { .raw -q kick $comchan($newnick,1) $newnick :Too Many Nick Changes $irc 12[412]Take Over12[412] | .raw -q mode $comchan($newnick,1) +b $address($nick,2) } | else { goto abis } | :abis } }
#takeover end
;..........ChanSerV t)(BOT)..................................;
;.............OLEH HaTi`BuDaK......................................;
alias rampas dialog -m rampas rampas
dialog rampas {
title ""
size -1 -1 260 230
text "nick" 3,10 20 50 15
text "Pass" 4,10 40 50 15
edit "" 5,40 15 100 20,autohs
edit "" 6,40 35 100 20,autohs.pass
box "auto identify bot" 7,5 0 150 60
box "limex revenge" 8,5 60 150 55
edit "" 9,10 73 40 20,autohs,disable
text "limex" 10,55 75 50 15
check "No limit" ,11,90 75 60 15
text "channel:" 12,10 95 40 15
edit "" 13,55 90 80 20,autohs
box "Take over" 14,155 60 100 55
text "channel Takeover " 15,160 75 95 15
edit "" 16,160 90 90 20,autohs
box "set nick master" 17,155 0 100 60
button "Set nick" 18,160 30 90 23
text "nick cover" 19,180 15 95 15
check "-[ Takeover ]-" ,101,90 120 80 25,push
check "-[ Revenge ]-" ,102,5 120 80 25,push
check "-[ OFF All ]-" ,103,15 150 100 25,push
button "-( Saving )-" 100,140 150 100 25,ok
check "-[ Protection ]-" ,104,175 120 80 25,push
edit "" 105,20 200 220 23,autohs
box "" 106,0 170 260 60

check "Set Version bot And Active" 107,25 185 200 15,left
}
alias buang { set %protectionchannel | unset %kickno | .rlevel 55 | .rlevel 66 | .rlevel 77 | unset %canalkickdeop | unset %nickkickdeop | .disable #voukick | .disable #auto-shock | .disable #revenge | .disable #protectionchannel }
on 1:dialog:rampas:sclick:100:{ set %rev.no $did(9) | set %chennelrev $did(13) | set %chenneltake $did(16) | set %nickaku $did(5) | set %pass $did(6) }
on 1:dialog:rampas:sclick:101:{ set %protectionchannel Off | buang | did -b rampas 13 | did -b rampas 9 | did -b rampas 11 | did -e rampas 16 | set %takeober Ong | did -u rampas 102 | did -u rampas 103 | did -u rampas 104 | .disable #revenge | .enable #takeover | .disable #protectionchannel }
on 1:dialog:rampas:sclick:102:{ set %protectionchannel Off | did -e rampas 13 | did -e rampas 9 | did -e rampas 11 | did -b rampas 16 | set %takeober Ofo | did -u rampas 101 | did -u rampas 103 | did -u rampas 104 | .enable #revenge | set %revenge on | .disable #takeover | .disable #protectionchannel }
on 1:dialog:rampas:sclick:103:{ set %protectionchannel Off | buang | did -b rampas 13 | did -b rampas 9 | did -b rampas 11 | did -b rampas 16 | set %takeober beng | did -u rampas 101 | did -u rampas 102 | did -u rampas 104 | .disable #revenge | .disable #takeover | .disable #protectionchannel }
on 1:dialog:rampas:sclick:107:{ if (%yioversion == Buka) { set %yioversion Tutup } | else { set %yioversion Buka } }
on 1:dialog:rampas:edit:105:{ set %mircyio $did(105) }
on 1:dialog:rampas:sclick:104:{
did -b rampas 13
did -b rampas 9
did -b rampas 11
unset %takeober
did -b rampas 16
did -u rampas 101
did -u rampas 102
did -u rampas 103
.disable #revenge
.disable #takeover
set %protectionchannel On
.enable #protectionchannel
dialog -x rampas
.timer 1 0 chanprot
}
on 1:dialog:rampas:sclick:11:{ if (%nolimit == on) { did -e rampas 9 | set %nolimit off } | else { did -b rampas 9 | set %nolimit on } }
on 1:dialog:rampas:sclick:18:{ .timer 1 0 /nickmaster }
on 1:dialog:rampas:init:0:{
did -a rampas 105 %mircyio
did -a rampas 9 %rev.no
did -a rampas 13 %chennelrev
did -a rampas 16 %chenneltake
did -a rampas 5 %nickaku
did -a rampas 6 %pass
if (%nolimit == off) { did -e rampas 9 }
if %takeober == Ong { did -c rampas 101 | did -b rampas 13 | did -b rampas 9 | did -b rampas 11 | did -e rampas 16 }
if %takeober == Ofo { did -c rampas 102 | did -e rampas 13 | did -e rampas 9 | did -e rampas 11 | did -b rampas 16 }
if %takeober == beng { did -c rampas 103 | did -b rampas 13 | did -b rampas 9 | did -b rampas 11 | did -b rampas 16 }
if (%nolimit == on) { did -c rampas 11 | did -b rampas 9 }
if (%protectionchannel == On) { did -c rampas 104 }
if (%yioversion == Buka) { did -c rampas 107 }
}
on *:start:{
set %takeober beng .disable #revenge | .disable #takeover | .disable #voukick | .disable #auto-shock
titlebar $mirc
echo -s $logo $mirc  [Bitch-x stail]
$buang
$botbuang
}
alias connetion dialog -m setup setup
dialog setup {
title "Connection"
size -1 -1 220 145
box "Connection Setup",2,0 0 220 145
text "Nick",4, 10 30 40 25
text "Ident",6, 10 57 40 25
text "Server",8, 10 84 40 25
edit "",5, 50 27 150 20
edit "",7, 50 54 150 20
combo 9, 50 81 150 150,drop tab 222,sort,edit
button "Connect ",3,10 110 80 20,ok
button "Cancel",1, 110 110 80 20,cancel
}
on 1:dialog:setup:*:*: {
if ($devent == init) {
did -a $dname 9 linkline.ca.us.webchat.org:6668
did -a $dname 9 webmaster.ca.us.webchat.org:6668
did -a $dname 9 www.webchat.org:7000
did -a $dname 9 pdq.tx.us.webchat.org:6668
did -a $dname 9 accesscom.la.us.webchat.org:6668
did -a $dname 9 hko.hk.as.webchat.org:6668
did -a $dname 9 1stconnect.nj.us.webchat.org:6668
did -a $dname 9 saginaw.mi.us.webchat.org:6668
did -a $dname 9 server lineone.dal.net:6667
did -a $dname 9 irc.dal.net:7000
did -a $dname 9 viper.dal.net:7000

did -a $dname 9 webzone.dal.net:7000
did -a $dname 9 barovia.dal.net:7000
did -a $dname 9 viking.no.eu.dal.net:7000
did -a $dname 5 %nama
did -a $dname 7 %iden
}
if ($devent == sclick) {
if ($did == 3) {
set %nama $did(5)
set %iden $did(7)
.nick $did(5)
.identd on $did(7)
.server $did(9)
}
}
}
alias inmun if ([ $1 [ $+ [ $chr(46) ] ] ] isin %inmunicks) return $true | else return $false
dialog asshole {
title "nick covers "
size -1 -1 140 162
box "&Add nick cover" 5,05 05 130 105
list 1,10 22 119 86,sort
button "&Add" 3, 11 138 65 20,disable
button "&Del" 4,85 115 50 20,disable
button "&Close"6,85 138 50 20,ok
edit "" 7,8 115 71 20,autohs
}
ON 1:dialog:asshole:edit:7: { did -e asshole 3 }
ON 1:dialog:asshole:sclick:1: { did -e asshole 4 }
ON 1:dialog:asshole:sclick:3: { if ($did(7).text != $null) { set %inty.nuevo $did(7) | .timer 1 0 inmu.nuevonick | did -r asshole 7 } }
ON 1:dialog:asshole:sclick:4: { .timer 1 0 inmu.borranick $did(1,$did(1,1).sel) $did(1,1).sel }
ON 1:dialog:asshole:init:0:{ .timer 1 0 inmu.nicks }
alias inmu.nuevonick if ($1 == $null) { set %inmunicks %inmunicks $+ %inty.nuevo $+ $chr(46) | did -a asshole 1 %inty.nuevo | unset %inty.* } | else { set %inmunicks %inmunicks $+ $1 $+ $chr(46) | echo [!] nick gang dimasukkan [[ $1 ]]] }
alias inmu.borranick if (($1 == $null) || ($2 == $null)) { return } | if ($1 != -zx) { set %inty.del $1 $+ $chr(46) | set %inmunicks $remove(%inmunicks,%inty.del) | did -d asshole 1 $2 | unset %inty.* } | else { set %inty.del $2 $+ $chr(46) | set %inmunicks $remove(%inmunicks,%inty.del) | echo [!] nick gang [[ $2 ]] Dibuang | unset %inty.* }
alias nickmaster if ( $dialog(asshole) != $null ) { dialog -c asshole asshole } | else { dialog -m asshole asshole }
alias inmu.nicks :otro | inc %inty.tok 1 | set %inty.nick $gettok(%inmunicks,%inty.tok,46) | if (%inty.nick == $null) { unset %inty.* | return } | did -a asshole 1 %inty.nick | goto otro
;;;;;;;;;
alias chanprot { dialog -m chanprot prot.chan }
dialog prot.chan {
title "Protection Bot Channel"
size 200 130 230 240
button "[]-(SAVE)-[]", 10, 30 195 80 25, ok
check "=>->>", 12, 185 199 40 20,push
box "()--[ProtectionChannel]-(limit)", 20, 20 0 160 230
box "timer", 30, 180 0 50 230
check "TexT repeat",210, 30 20 100 15
edit "", 211, 140 18 28 20
edit "", 212, 185 18 28 20
check "FLooD Text", 80, 30 40 100 15
edit "", 81, 140 38 28 20
check "long", 83, 30 60 100 15
edit "", 84, 140 58 30 20
check "Nick-Flood", 86, 30 80 100 15
edit "", 87, 140 78 28 20
check "Cap-codflood", 89, 30 100 100 15
edit "", 90, 140 98 30 20
check "Join-Part", 92, 30 120 100 15
edit "", 93, 140 118 28 20
check "CTCP Flood", 95, 30 140 100 15
edit "", 96, 140 138 28 20
Combo 98, 180 160 50 80, sort,drop
edit "", 101,185 38 30 20,style(edit)
edit "", 102,185 78 30 20,style(edit)
edit "", 103,185 118 30 20,style(edit)
edit "", 104,185 138 30 20,style(edit)
box "More Protection", 40, 240 0 128 230
check "Nick Bad", 41, 250 40 100 15
check "ID Kick", 42, 250 60 60 15
check "bad word", 43, 250 80 80 15
check "spam", 44, 250 100 100 15
check "Mass Invite", 45, 250 120 100 15
edit "", 46,245 140 110 20,autohs
button " Set iD",47,245 160 50 20
edit "", 48,245 183 110 20,autohs
button " Set Nick",49,245 203 50 20
button " del iD",50,305 160 50 20
button " del",51,305 203 50 20
check "time unban n sec =>>",97,30 165 130 15
list 200,370 15 105 220,sort
check "Ban eforse",213, 250 20 100 15
button "Lavel Ban" 241,115 198 60 20
icon 242,320 55 100 100
}
on 1:dialog:chanprot:init:0: {
if (%ubanikick == [ox]) { did -c chanprot 213 }
if ( %doubletext == [ox]) { did -c chanprot 210 } | did -a chanprot 211 %txt.ulang.n
if (%txt.flood == On) { did -c chanprot 80 } | did -a chanprot 81 %txt.flood.n

if (%limit.huruf.c == On) { did -c chanprot 83 } | did -a chanprot 84 %limit.huruf.n
if (%floodd.nick == On) { did -c chanprot 86 } | did -a chanprot 87 %floodd.nick.n
if (%Pro.cap == On) { did -c chanprot 89 } | did -a chanprot 90 %Pro.cap.n
if (%fuck.join == On) { did -c chanprot 92 } | did -a chanprot 93 %fuck.join.n
if (%ctcp.flood == On) { did -c chanprot 95 } | did -a chanprot 96 %ctcp.flood.n
if (%nick.bodo == On) { did -c chanprot 41 }
if (%id.bodo == On) { did -c chanprot 42 }
if (%cakap.bodo == On) { did -c chanprot 43 }
if (%iklan.c == On) { did -c chanprot 44 }
if (%inbite.c == On) { did -c chanprot 45 }
if (%biskut == [ox]) { did -c chanprot 97 }
did -a chanprot 98 %masaban
did -a chanprot 101 %masatext
did -a chanprot 212 %masaulang
did -a chanprot 103 %joinfuck
did -a chanprot 102 %masanick
did -a chanprot 104 %masactcp
did -i chanprot 98 1 0.5
did -i chanprot 98 2 30
did -i chanprot 98 3 60
did -i chanprot 98 4 100
did -i chanprot 98 5 130
did -i chanprot 98 6 160
did -i chanprot 98 7 200
did -i chanprot 98 8 220
did -i chanprot 98 9 250
did -i chanprot 98 10 300
did -i chanprot 98 11 350
did -i chanprot 98 12 400
did -i chanprot 98 13 450
did -i chanprot 98 14 500
did -i chanprot 98 15 550
did -i chanprot 98 16 600
did -i chanprot 98 17 650
did -i chanprot 98 18 700
did -i chanprot 98 19 750
did -i chanprot 98 20 800
did -i chanprot 98 21 850
did -i chanprot 98 22 900
did -i chanprot 98 23 1000
if (%masaban == 0.5) { did -c chanprot 98 1 }
if (%masaban == 30) { did -c chanprot 98 2 }
if (%masaban == 60) { did -c chanprot 98 3 }
if (%masaban == 100) { did -c chanprot 98 4 }
if (%masaban == 130) { did -c chanprot 98 5 }
if (%masaban == 160) { did -c chanprot 98 6 }
if (%masaban == 200) { did -c chanprot 98 7 }
if (%masaban == 220) { did -c chanprot 98 8 }
if (%masaban == 250) { did -c chanprot 98 9 }
if (%masaban == 300) { did -c chanprot 98 10 }
if (%masaban == 350) { did -c chanprot 98 11 }
if (%masaban == 400) { did -c chanprot 98 12 }
if (%masaban == 450) { did -c chanprot 98 13 }
if (%masaban == 500) { did -c chanprot 98 14 }
if (%masaban == 550) { did -c chanprot 98 15 }
if (%masaban == 600) { did -c chanprot 98 16 }
if (%masaban == 650) { did -c chanprot 98 17 }
if (%masaban == 700) { did -c chanprot 98 18 }
if (%masaban == 750) { did -c chanprot 98 19 }
if (%masaban == 800) { did -c chanprot 98 20 }
if (%masaban == 850) { did -c chanprot 98 21 }
if (%masaban == 900) { did -c chanprot 98 22 }
if (%masaban == 1000) { did -c chanprot 98 23 }
cekcidd
}
alias -l buangkorok {
if (($1 == $null) || ($2 == $null)) { return }
.ruser $2 | did -d chanprot 200 $1
}
on 1:dialog:chanprot:sclick:241:{ .timer 1 0 /yioban }
on 1:dialog:chanprot:sclick:12:{ dialog -s chanprot 200 130 480 240 | did -b chanprot 12 | did -f chanprot 10 }
on 1:dialog:chanprot:sclick:47:{ if ($did(46).text != $null) { .auser 20 *!* $+ $did(46) $+ *@*.* | echo -a %bahnatang ([ *!* $+ $did(46) $+ *@*.* ]) add | .timer 1 0 /cekcidd } }
on 1:dialog:chanprot:sclick:49:{ if ($did(48).text != $null) { .auser 15 * $+ $did(48) $+ *!*@*.* | echo -a %bahnatang ([ * $+ $did(48) $+ *!*@*.* ]) add | .timer 1 0 /cekcidd } }
on 1:dialog:chanprot:sclick:50:{ .timer 1 0 buangkorok $did(200,1).sel $did(200,$did(200,1).sel) }
on 1:dialog:chanprot:sclick:51:{ .timer 1 0 buangkorok $did(200,1).sel $did(200,$did(200,1).sel) }
on 1:dialog:chanprot:sclick:10:{
if ($did(213).state == 1) { .enable #banenforcer | set %ubanikick [ox] } | else { .disable #banenforcer | set %ubanikick [xx] }
if ($did(210).state == 1) { set %doubletext [ox] } | else { set %doubletext [xx] } | if ($did(211).text != $null) { set %txt.ulang.n $did(211).text }

if ($did(80).state == 1) { set %txt.flood On } | else { set %txt.flood Off } | if ($did(81).text != $null) { set %txt.flood.n $did(81).text }
if ($did(83).state == 1) { set %limit.huruf.c On } | else { set %limit.huruf.c Off } | if ($did(84).text != $null) { set %limit.huruf.n $did(84).text }
if ($did(86).state == 1) { set %floodd.nick On } | else { set %floodd.nick Off } | if ($did(87).text != $null) { set %floodd.nick.n $did(87).text }
if ($did(89).state == 1) { set %Pro.cap On } | else { set %Pro.cap Off } | if ($did(90).text != $null) { set %Pro.cap.n $did(90).text }
if ($did(92).state == 1) { set %fuck.join On } | else { set %fuck.join Off } | if ($did(93).text != $null) { set %fuck.join.n $did(93).text }
if ($did(95).state == 1) { set %ctcp.flood On } | else { set %ctcp.flood Off } | if ($did(96).text != $null) { set %ctcp.flood.n $did(96).text }
if ($did(41).state == 1) { set %nick.bodo On } | else { set %nick.bodo Off }
if ($did(42).state == 1) { set %id.bodo On } | else { set %id.bodo Off }
if ($did(43).state == 1) { set %cakap.bodo On } | else { set %cakap.bodo Off }
if ($did(44).state == 1) { set %iklan.c On } | else { set %iklan.c Off }
if ($did(45).state == 1) { set %inbite.c On } | else { set %inbite.c Off }
if ($did(97).state == 1) { set %biskut [ox] } | else { set %biskut [xx] }
if ($did(98).stete == 1) { set %masaban $calc($did(98).text * 60) | set %masabann $calc(%masaban * 3 }
/set %masaban $did(98)
/set %masatext $did(101)
/set %joinfuck $did(103)
/set %masanick $did(102)
/set %masactcp $did(104)
/set %masaulang $did(212)
}
alias cekcidd {
did -r chanprot 200
set %.u.t 1
:hop
if ($ulist(*,*,%.u.t)) { did -a chanprot 200 $ulist(*,*,%.u.t) | inc %.u.t | goto hop }
if (%.u.t == 1) did -a chanprot 200 tiada user
}
alias yioban { dialog -m yioban yioban }
dialog yioban {
size -1 -1 200 290
title""
radio "*!user@host.domain :[0]", 2, 15 10 150 25
radio "*!*@host.domain :[1]", 3, 15 30 150 25
radio "*!*@host.domain :[2]", 4, 15 50 150 25
radio "*!*user@*.domain :[3]", 5, 15 70 150 25
radio "*!*@*.domain :[4]", 6, 15 90 150 25
radio "Nick!user@host.domain :[5]", 7, 15 110 170 25
radio "Nick!*user@host.domain :[6]", 8, 15 130 170 25
radio "Nick!*@host.domain :[7]", 9, 15 150 150 25
radio "Nick!*user@*.domain :[8]", 10, 15 170 150 25
radio "Nick!*@*.domain :[9]", 11, 15 190 150 25
box "" ,12, 5 0 190 220
box "get Ban for setting bot pro" ,13,10 230 190 50
button "SAVE" ,1,15 250 130 25,ok
icon 55,150 245 100 30
}
on 1:dialog:yioban:sclick:2: { set %lebaban 0 }
on 1:dialog:yioban:sclick:3: { set %lebaban 1 }
on 1:dialog:yioban:sclick:4: { set %lebaban 2 }
on 1:dialog:yioban:sclick:5: { set %lebaban 3 }
on 1:dialog:yioban:sclick:6: { set %lebaban 4 }
on 1:dialog:yioban:sclick:7: { set %lebaban 5 }
on 1:dialog:yioban:sclick:8: { set %lebaban 6 }
on 1:dialog:yioban:sclick:9: { set %lebaban 7 }
on 1:dialog:yioban:sclick:10: { set %lebaban 8 }
on 1:dialog:yioban:sclick:11: { set %lebaban 9 }
on 1:dialog:yioban:init:0: {
if (%lebaban == 0) { did -c yioban 2 }
if (%lebaban == 1) { did -c yioban 3 }
if (%lebaban == 2) { did -c yioban 4 }
if (%lebaban == 3) { did -c yioban 5 }
if (%lebaban == 4) { did -c yioban 6 }
if (%lebaban == 5) { did -c yioban 7 }
if (%lebaban == 6) { did -c yioban 8 }
if (%lebaban == 7) { did -c yioban 9 }
if (%lebaban == 8) { did -c yioban 10 }
if (%lebaban == 9) { did -c yioban 11 }
}
alias aj $dialog(aj,aj,-2)
dialog aj {
title "[]opgard Auto Join"
size -1 -1 240 160
button "" 99, 0 0 0 0 ,ok
text "Canal 1:" 3, 5 20 40 18,
edit "" 4, 50 18 60 20,center,autohs
text "Canal 2:" 88, 125 20 40 18,
edit "" 6, 170 18 60 20,center,autohs
text "Canal 3:" 7, 5 40 40 18,
edit "" 8, 50 38 60 20,center,autohs
text "Canal 4:" 9, 125 40 40 18,
edit "" 10, 170 38 60 20,center,autohs
text "Canal 5:" 11, 5 60 40 18,
edit "" 12, 50 58 60 20,center,autohs
text "Canal 6:" 13, 125 60 40 18,

edit "" 14, 170 58 60 20,center,autohs
text "Canal 7:" 15, 5 80 40 18,
edit "" 16, 50 78 60 20,center,autohs
text "Canal 8:" 17, 125 80 40 18,
edit "" 18, 170 78 60 20,center,autohs
text "Canal 9:" 19, 5 100 40 18,
edit "" 20, 50 98 60 20,center,autohs
text "Canal 10:" 21, 122 100 45 18,
edit "" 22, 170 98 60 20,center,autohs
check "Akctive" 1, 20 130 100 20,push
box "Auto Join?" 199,1 1 235 155
button "Oki Doki" 200, 150 130 70 20,ok
}
on 1:dialog:aj:sclick:200:{ set %canal1 $did(4) | set %canal2 $did(6) | set %canal3 $did(8) | set %canal4 $did(10) | set %canal5 $did(12) | set %canal6 $did(14) | set %canal7 $did(16) | set %canal8 $did(18) | set %canal9 $did(20) | set %canal10 $did(22) }
on 1:dialog:aj:sclick:1: { if (%amasuk == ok) { set %amasuk ko | /.disable #autojoin } | else { set %amasuk ok | /.enable #autojoin } }
on 1:dialog:aj:init:0: {
if (%canal1 != $null) { did -a aj 4 %canal1 }
if (%canal2 != $null) { did -a aj 6 %canal2 }
if (%canal3 != $null) { did -a aj 8 %canal3 }
if (%canal4 != $null) { did -a aj 10 %canal4 }
if (%canal5 != $null) { did -a aj 12 %canal5 }
if (%canal6 != $null) { did -a aj 14 %canal6 }
if (%canal7 != $null) { did -a aj 16 %canal7 }
if (%canal8 != $null) { did -a aj 18 %canal8 }
if (%canal9 != $null) { did -a aj 20 %canal9 }
if (%canal10 != $null) { did -a aj 22 %canal10 }
if (%amasuk == ok) { did -c aj 1 }
}
