;..........ChanSerV t)(BOT)..................................;
;.............OLEH HaTi`BuDaK......................................;
;..........ChanSerV t)(BOT)..................................;
;.............OLEH HaTi`BuDaK......................................;
on ^*:NOTICE:*:*: {
if ($me ison #) { pxt.notice.chan # $nick $1- } | else { echo -a 1,15<0,15>0,5 $nick $+ 1,15<0,15>: $+ $colour(notice) $1- }
if (nickserv identify isin $1-) && ($nick == Nickserv) && (%pass != $null) { /.nickserv identify %nickaku %pass | /.nickserv identify %pass | halt }
haltdef
}
On 1:OPEN:?: {
if ([ %f.noti.que.query [ $+ [ $site ] ] ] == $null ) { set %f.noti.que. [ $+ [ $site ] ] 0 | .timer 1 3 /unset %f.noti.que.query [ $+ [ $site ] ] }
inc %f.noti.que.query [ $+ [ $site ] ] 1 | if ([ %f.noti.que.query [ $+ [ $site ] ] ] > 3 ) {
.ignore -u10 $mask($fulladdress,3)
echo $logo 12[4Query Flood12] 12[7D12]14i 12[K]esan [O]leh $nick $+ ! ignoring!!
.closemsg $nick
.notice $nick $mirc Query Flood Detect From YOU ignoring!!
unset %f.noti.que.query [ $+ [ $site ] ] | halt
}
}
on ^1:NOTICE:*:?: {
if (!Hey* iswm $1-) && ($inmun($nick) == $true) { $2- | $logo 14[Master Notice14] $1- | halt }
set %Temp.len $len($strip($1-))
if ($inmun($nick) == $false) {
if (($calc($len($1-) - $len($strip($1-))) > 100)) { .ignore -kpu60 $wildsite | .ignore -pu05 *!*@* | close -m $nick | unset %Temp.len | halt }
if ((%Temp.len > 400)) { .ignore -pu60 $wildsite | .ignore -pu05 *!*@* | close -m $nick | unset %Temp.len | echo $logo 12 $nick 13( $+ $addres $+ 13) $logo 4NO $+ TIC $+ E F $+ LOOD | halt }
if ([ %f.noti.que. [ $+ [ $site ] ] ] == $null ) { set %f.noti.que. [ $+ [ $site ] ] 0 | .timer 1 5 /unset %f.noti.que. [ $+ [ $site ] ] }
inc %f.noti.que. [ $+ [ $site ] ] 1 | if ([ %f.noti.que. [ $+ [ $site ] ] ] > 3 ) {
.ignore -nu60 $wildsite
.ignore -pu05 *!*@*
echo $logo 4 $nick (*!* $+ $address $+ ) ignored,  60  saat, kerana notice flood
unset %f.noti.que. [ $+ [ $site ] ]
halt
} } }
on 1:TEXT:*:?: {
set %Temp.len $len($strip($1-))
if ($inmun($nick) == $false) {
if (($calc($len($1-) - $len($strip($1-))) > 100)) { .ignore -kpu60 $wildsite | .ignore -pu05 *!*@* | close -m $nick | unset %Temp.len | halt }
if ((%Temp.len > 400)) { .ignore -pu60 $wildsite | .ignore -pu05 *!*@* | close -m $nick | unset %Temp.len | echo $logo 12 $nick 13( $+ $addres $+ 13) $logo 4NO $+ TIC $+ E F $+ LOOD | halt }
if ([ %f.noti.que. [ $+ [ $site ] ] ] == $null ) { set %f.noti.que. [ $+ [ $site ] ] 0 | .timer 1 5 /unset %f.noti.que. [ $+ [ $site ] ] }
inc %f.noti.que. [ $+ [ $site ] ] 1 | if ([ %f.noti.que. [ $+ [ $site ] ] ] > 3 ) {
.ignore -nu60 $wildsite
.ignore -pu05 *!*@*
echo $logo 4 $nick (*!* $+ $address $+ ) ignored,  60  saat, kerana notice flood
unset %f.noti.que. [ $+ [ $site ] ]
halt
} } }
on 1:ACTION:*:?: {
set %Temp.len $len($strip($1-))
if ($inmun($nick) == $false) {
if (($calc($len($1-) - $len($strip($1-))) > 100)) { .ignore -kpu60 $wildsite | .ignore -pu05 *!*@* | close -m $nick | unset %Temp.len | halt }
if ((%Temp.len > 400)) { .ignore -pu60 $wildsite | .ignore -pu05 *!*@* | close -m $nick | unset %Temp.len | echo $logo 12 $nick 13( $+ $addres $+ 13) $logo 4NO $+ TIC $+ E F $+ LOOD | halt }
if ([ %f.noti.que. [ $+ [ $site ] ] ] == $null ) { set %f.noti.que. [ $+ [ $site ] ] 0 | .timer 1 5 /unset %f.noti.que. [ $+ [ $site ] ] }

inc %f.noti.que. [ $+ [ $site ] ] 1 | if ([ %f.noti.que. [ $+ [ $site ] ] ] > 3 ) {
.ignore -nu60 $wildsite
.ignore -pu05 *!*@*
echo $logo 4 $nick (*!* $+ $address $+ ) ignored,  60  saat, kerana notice flood
unset %f.noti.que. [ $+ [ $site ] ]
halt
} } }
ctcp 1:*: {
if ($1 == PING) && ($nick == $me) { .raw notice $me : $+ $chr(01) $+ PING $2 $+ $chr(01) | halt }
if ($inmun($nick) == $false) { if ($nick == $me) { goto end } | if ([ %ctcppro. [ $+ [ $site ] ] ] == $null) { set %f.ctcp. [ $+ [ $site ] ] 0 | .timer 1 5 unset %ctcppro. [ $+ [ $site ] ] } | inc %ctcppro. [ $+ [ $site ] ] 1 | if ([ %ctcppro. [ $+ [ $site ] ] ] > 3) { .ignore -pu05 *!*@* | .ignore -tu $+ 60 $wildsite | echo -a $logo 144 $nick ( $+ $address $+ ) ignored,  60  saat, kerana ctcp flood | unset %ctcppro. [ $+ [ $nick ] ] | goto end } }
if ($1 == VERSION) { .ctcpreply $nick $1 : $+ $chr(1) $+ 124ScRiPT $irc BY HaTi`BuDaK www.ku2bio.cjb.net | echo $logo 4 $nick 4- 6(*!* $+ $address $+ 6)4 - 7 B14AGI 7K14AO 7C14TCP 10(4 $+ $1 $+ 10) | .timer -m 1 100 echo $logo $colour(info) -tsei11 Ctcp Reply $nick $irc | halt }
else { echo $logo 4 $nick 4- 6(*!* $+ $address $+ 6)4 - 7 B14AGI 7K14AO 7C14TCP 10(4 $+ $1 $+ 10) | .halt }
else { halt }
:end
}
on 5:CTCPREPLY:*: {
if ( $1 == VERSION ) { echo -s $logo 12version reply : 6 $+ $nick [ $+ $2- $+ 1] | halt }
if ( $1 == CLIENTINFO ) { echo -s $logo 12clientinfo reply : 6 $+ $nick [ $+ $2- $+ 1] | halt }
if ( $1 == USERINFO ) { echo -s $logo 12userinfo reply : 6 $+ $nick [ $+ $2- $+ 1] | halt }
if ( $1 == FINGER ) { echo -s $logo 12 finger reply : 3 $+ $nick [ $+ $2- $+ 1] | halt }
if ( $1 == TIME ) { echo -s $logo 12time reply : 6 $+ $nick [ $+ $2- $+ 1] | halt }
if ( $1 == PING) {
if ( $2 == $null ) { return }
if ( $nick == Chanserv ) || ( $nick == Nickserv ) || ( $nick == Memoserv ) { %ping.time = $ctime - $2 | halt }
if ( $nick == $me ) { %ping.reply = $ctime - $2 | echo @INFO $logo 10[7S10]14ekarang 10[7M10]14asa 10[7L10]14ag:[(-14 $+ %ping.reply $+ -)]:10[7S10]14aat | goto pingend }
:pingend | .timer 1 9 /unset %ping.* | halt
}
else { echo -s $logo 12time reply : 6 $+ $nick [ $+ $2- $+ 1] | halt }
.halt
}
alias -l _closethis if ($query($1)) && ($?!="User $1 tiada dalam iRC Close query?") close -m $1
raw 401:*: set %User.Nick 0 | $iif($1 == 2,beruk3,$right(echo,4)) 12 -a $logo $pxt.names.kiri $+ $2 ti $+ ad $+ a da $+ la $+ m 12I4R8C $pxt.names.kanan | if ($query($2)) .timer 1 0 _closethis $2 | halt
raw 311:*: {
set %User.Nick $2 | set %User.Address $3 $+  $+ $colour(info) $+ @ $+ $4 | set %User.Addressbox $3 $+ @ $+ $4 | set %User.Name $6-
if (.com isin %User.Address) || (.org isin %User.Address) || (.edu isin %User.Address) || (.mil isin %User.Address) || (.net isin %User.Address) || (.gov isin %User.Address) { set %Extra.User.Pais $read -s $+ $right($4,3) $mircdirsys\code.txt | set %Extra.User.Pais $read -s $+ $right($4,4) $mircdirsys\code.txt } | else { set %Extra.User.Pais $read -s $+ $right($4,3) $mircdirsys\code.txt | if (%Extra.User.Pais == $null) { set %Extra.User.Pais Tak Tahu Dari Mana } }
:script
if ( 14,1w15w0w9.15k0u214bio9.0c14j15b9.14n15e0t* iswm $6- ) { set %Extra.User.Script 10[710]14cript 10[7M10]14irc BY 10[7H14aTi`7B14uDaK10] | halt }
if ( 0,1[( 14Ha15Ti`Bu14DaK 0)]* iswm $6- ) { set %Extra.User.Script 4,1(128K13-4128K13) cript | halt }
if (budak2 isin $3) { set %Extra.User.Script 4,1(128K13-4128K13) cript | halt }
if (H-B isin $3) { set %Extra.User.Script 1,14(15,14)13,1[15H-B13]15,14(1,14)14,1[12m4IR8C1415c0r14i15p0t14] By 1,14(15,14)13,1[15HaTi`BuDaK13]15,14(1,14) | halt }

if ([[TCOON CRIPT]] isin $3) { set %Extra.User.Script 12,1[[13T613C6013O6O6N 613C6R13I6P13T12]] | halt }
if (([@pG])v. isin $3) { set %Extra.User.Script 120,1(15[12@4p1412G41215]0)124v7.101431412 | halt }
if (HaTi`BuDaK isin $3) { set %Extra.User.Script 4,1(128K13-4128K13) cript | halt }
if (K-K isin $3) { set %Extra.User.Script 4,1(128K13-4128K13) cript | halt }
if (PhAnATiC isin $3) { set %Extra.User.Script 7,7 0,2-|PhnTCSRT|-7,7  | halt }
if (sphere isin $3) { set %Extra.User.Script !7th Sphere! 3.0 | halt }
if (acidmax isin $3) { set %Extra.User.Script 15,14,14,1>14NE15><G16EN4,116,1AC15,1iD14,1MAX4,1<4,115,1 | halt }
if (p|-|r isin $3) { set %Extra.User.Script 7th Sphere 2.0 | halt }
if (kokaine isin $3) { set %Extra.User.Script |[KoKaInE]| | halt }
if (azezino isin $3) { set %Extra.User.Script |[TDP POWER AZEZINO]| | halt }
if (K-Zombie isin $3) { set %Extra.User.Script Killer-Zombie | halt }
if (DScr isin $3) { set %Extra.User.Script .^DogScript^. | halt }
if (IRcap isin $3) { set %Extra.User.Script 0,015,1514,1415,1 I R c a p 14,1415,151,8 | halt }
if (orbital isin $3) { set %Extra.User.Script 0,1-4>11Or8bi0tal Sc8ri11pt4<0- | halt }
if (X-CRiPt isin $3) { set %Extra.User.Script 8,8 7,7 4,4 6,6 5,5 4,2 8,2 X0-CRiPt 2,2  5,5 6,6 4,4 7,7 8,8  | halt }
if (SPR97 isin $3) { set %Extra.User.Script Scrippter '97 | halt }
if (Beginner isin $3) { set %Extra.User.Script Beginner Script | halt }
if (667 isin $3) { set %Extra.User.Script 667, el vecino de la Bestia | halt }
if (Suicide isin $3) { set %Extra.User.Script -]][[- | halt }
if (jawer isin $3) { set %Extra.User.Script Jawer 96/97 | halt }
if (rentOkill isin $3) { set %Extra.User.Script rentOkill Script | halt }
else { set %Extra.User.Script 14[4T10ak 4T10ahu 4S10cript 4A10per | halt }
halt
}
raw 301:*: if (%User.Nick != $null) { unset %User.Away | unset %User.Reason | set %User.Away Si | set %User.Reason " $3- " | halt } | else { halt }
raw 318:*: { $siapakamu }
raw 312:*: set %serber $3 | halt
raw 319:*: set %User.Channels $3- | set %channels $3- | halt
raw 307:*: $registerbot | halt
raw 301:*: if (%User.Nick != $null) { unset %User.Away | unset %User.Reason | set %User.Away Si | set %User.Reason " $3- " | halt } | else { halt }
raw 317:*: set %Extra.User.Idle $duration($3) | set %Extra.User.online $duration($calc($ctime - $4)) | halt
raw 313:*: set %User.IRCop irckorok | $ircberuk | halt
;.............................................................................
raw 251:*:echo -s $st | echo -s $logo $sts $2- | halt
raw 252:*:echo -s $logo $sts $2- | halt
raw 253:*:echo -s $logo $sts $2- | halt
raw 254:*:echo -s $logo $sts $2- | halt
raw 255:*:echo -s $logo $sts $2- | halt
raw 265:*:echo -s $logo $sts $2- | halt
raw 266:*:echo -s $logo $sts $2- | echo -s $st | halt
;..............................
raw 353:*:{
echo $3 $st
%pxt.i = 0
:353_loop
inc %pxt.i | %pxt.nick1 = $pxt.names.color( [ $remove( [ $gettok($4-,%pxt.i,32) ] ,@,+) ] ,$3)
inc %pxt.i | %pxt.nick2 = $pxt.names.color( [ $remove( [ $gettok($4-,%pxt.i,32) ] ,@,+) ] ,$3)
inc %pxt.i | %pxt.nick3 = $pxt.names.color( [ $remove( [ $gettok($4-,%pxt.i,32) ] ,@,+) ] ,$3)
inc %pxt.i | %pxt.nick4 = $pxt.names.color( [ $remove( [ $gettok($4-,%pxt.i,32) ] ,@,+) ] ,$3)
if ($strip(%pxt.nick1) == $null) { goto 353_end }
if ($strip(%pxt.nick4) == $null) && ($strip(%pxt.nick3) == $null) && ($strip(%pxt.nick2) == $null) { echo $3 $pxt.lp $pxt.names.brack(%pxt.nick1) }
elseif ($strip(%pxt.nick4) == $null) && ($strip(%pxt.nick3) == $null) { echo $3 $pxt.lp $pxt.names.brack(%pxt.nick1) $pxt.names.brack(%pxt.nick2) }

elseif ($strip(%pxt.nick4) == $null) { echo $3 $pxt.lp $pxt.names.brack(%pxt.nick1) $pxt.names.brack(%pxt.nick2) $pxt.names.brack(%pxt.nick3) }
else { echo $3 $logo $+ $pxt.names.brack(%pxt.nick1) $+ $pxt.names.brack(%pxt.nick2) $+ $pxt.names.brack(%pxt.nick3) $+ $pxt.names.brack(%pxt.nick4) $+ }
goto 353_loop | :353_end | unset %pxt.i %pxt.nick* | haltdef
}
raw 366:*:{
if ($opnick($2,0) > 0) { %pxt.ops = $pxt.names.users(ops,$2,$opnick($2,0)) }
if ($vnick($2,0) > 0) { %pxt.voice = $pxt.names.users(voice,$2,$vnick($2,0)) }
if ($hnick($2,0) > 0) { %pxt.help = $pxt.names.users(help,$2,$hnick($2,0)) }
echo $2 $logo $pxt.names.users(total,$2,$nick($2,0)) %pxt.ops %pxt.voice %pxt.help $logo
unset %pxt.ops %pxt.voice %pxt.help %pxt.i %pxt.nick* | haltdef
echo $2 $st
echo $2 $logo $sts $+ $pxt.names.kiri $+ ALL ON CHANNEL $pxt.names.kiri $+ 4 $2 14] $logo
echo $2 $logo $sts $+ $pxt.names.kiri $+  +v : 10<<14 $vnick(0,$2) 10>> $pxt.names.kanan $logo
echo $2 $logo $sts $+ $pxt.names.kiri $+  -v : 10<<14 $nvnick(0,$2) 10>> $pxt.names.kanan $logo
echo $2 $logo $sts $+ $pxt.names.kiri $+  +o : 10<<14 $opnick(0,$2) 10>> $pxt.names.kanan $logo
echo $2 $logo $sts $+ $pxt.names.kiri $+  -o : 10<<14 $nopnick(0,$2) 10>> $pxt.names.kanan $logo
echo $2 $logo $sts $+ $pxt.names.kiri $+  ALL IS HERE : 10<<14 $pxt.names.users(total,$2,$nick($2,0)) 10>> $pxt.names.kanan $logo
echo $2 $st
}
;...............................
raw 315:*:halt
raw 332:* { haltdef | echo $2 $logo $pxt.names.kiri $+ 4 $+ $2) $+ $pxt.names.kanan $pxt.names.kiri $+ Topic Bertajuk: 4 $+ $3- $+  $+ $pxt.names.kanan $logo | halt }
raw 333:* { haltdef | echo $2 $logo $pxt.names.kiri $+ 4 $+ $2) $+ $pxt.names.kanan $pxt.names.kiri $+ Topic Diset Oleh:4 $3 14 $+ 4Pukul $asctime($4) $+ $pxt.names.kanan $logo | halt }
raw 329:* { haltdef | echo $2 $logo $pxt.names.kiri $+ $2 $+ 7 $+ $pxt.names.kanan $pxt.names.kiri $+ Channel Di Register Pada 4: $asctime($3) $+ $pxt.names.kanan $logo | halt }
raw 1:*:halt
raw 2:*:halt
raw 3:*:halt
raw 4:*:halt
raw 5:*:halt
raw 6:*:halt
raw 7:*:halt
raw 001:*:halt
raw 002:*:halt
raw 003:*:halt
raw 004:*:halt
raw 005:*:halt
raw 006:*:halt
raw 007:*:halt
raw 250:*:halt
raw 441:*:halt
raw 402:*:halt
raw 442:*:halt
raw 482:*:halt
raw 331:*:halt
raw 368:*:halt
raw 369:*:halt
raw 374:*:halt
raw 369:*:halt
raw 371:*:halt
raw 372:*:halt
raw 373:*:halt
raw 374:*:halt
raw 376:*:halt
raw 377:*:halt
raw 353:*:halt
raw 250:*:halt
raw 378:*:halt
raw 368:*:halt
raw 367:*:halt
raw 320:*:halt
raw 513:*:halt
raw 800:*:halt
raw 406:*:halt
raw 403:*:halt
raw 812:*:return
raw 375:*:haltdef
raw 219:*:haltdef
raw 250:*:echo -a $logo $pxt.names.kiri $+ $2- $pxt.names.kanan | halt
raw 602:*:halt
raw 603:*:halt
raw 605:*:halt
raw 606:*:halt
raw 607:*:halt
raw 800:*:halt
raw 812:*:return
raw 266:*: halt
raw 211:*: halt
raw 351:*: halt
raw 800:*:halt
raw 301:*:halt
raw 406:*:halt
raw 403:*:halt
raw 812:*:return
raw 375:*:haltdef
raw 219:*:haltdef
raw 315:*: halt
raw 321:*:return
raw 322:*:return
raw 323:*:halt
raw 324:*:halt
raw 352:*:haltdef
raw 315:*:haltdef
;;;;;;;;;;;;;;;;;;;;;;;
on 1:sockopen:spy: { if ($sockerr > 0) { .sockclose $sockname | return } | if (%spy.nick == $null) { set %spy.nick AmBeSpy $+ $r(1,9) } | .sockwrite -tn $sockname user beh-xbebeh $+ $r(1,999) 2 3 :4!12HeY i Just Spy bot By HaTi`BuDaK | .sockwrite -tn $sockname nick %spy.nick }
on 1:sockread:spy: { if ($sockerr > 0) return | :again | .sockread %pokmu | if ($sockbr == 0) { return } | if (%pokmu == $null) { goto again } | if ($mid(%pokmu,1,4) == PING) { .sockwrite -tn $sockname PONG $remove($remove(%pokmu,ping :),ping) | halt } | readout %pokmu }
raw *:*: haltdef | echo -s $logo  $+ $r(0,14) $2- | halt
;..........ChanSerV t)(BOT)..................................;
;.............OLEH HaTi`BuDaK......................................;
alias theme dialog -m theme theme
dialog theme {

title "Theme Control"
size -1 -1 170 80
list 10,5 20 100 80
button "Load",11,110 21 50 20
button "Close",90,110 50 50 20,ok
}
on *:dialog:theme:*:*:{
if ($devent == init) {
did -a theme 10 bitchx
did -a theme 10 mirc
}
}
#autojoin off
on 1:CoNNecT:{ if (%amasuk == ko) return | if (( %canal1 != $null )) { .timerautoj 1 2 /join %canal1 } | if (( %canal2 != $null )) { .timerautoj2 1 5 /join %canal2 } | if (( %canal3 != $null )) { .timerautoj3 1 8 /join %canal3 } | if (( %canal4 != $null )) { .timerautoj4 1 12 /join %canal4 } | if (( %canal5 != $null )) { .timerautoj5 1 15 /join %canal5 } | if (( %canal6 != $null )) { .timerautoj6 1 18 /join %canal6 } | if (( %canal7 != $null )) { .timerautoj7 1 22 /join %canal7 } | if (( %canal8 != $null )) { .timerautoj8 1 25 /join %canal8 } | if (( %canal9 != $null )) { .timerautoj9 1 28 /join %canal9 } | if (( %canal10 != $null )) { .timerautoj10 1 33 /join %canal10 } | .halt }
#autojoin end
on 1:invite:#:{ if ($nick == Chanserv) .raw join $chan | halt }
on ^7:TEXT:*:#: {
if ($nick isop #) { echo # 12[4@ $+ $nick $+ 12] $1- | halt }
if ($nick isvo #) { echo # 12[13+ $+ $nick $+ 12] $1- | halt }
else { echo # 12[ $+ $nick $+ 12] $1- | halt }
halt
}
on ^7:action:*:#: {
if ($nick isop #) { echo # 14[4ACTION14]12[4@ $+ $nick $+ 12] $1- | halt }
if ($nick isvo #) { echo # 14[4ACTION14]12[13+ $+ $nick $+ 12] $1- | halt }
else { echo # 14[4ACTION14]12[ $+ $nick $+ 12] $1- | halt }
halt
}
On ^1:action:*:?: { echo $nick 14[4ACTION14]12[ $+ $nick $+ 12] $1- | haltdef }
On ^1:TEXT:*:?: { echo $nick 12[ $+ $nick $+ 12] $1- | haltdef }
oN 1:INPUT:*:{
if ( $left($1,1) != / ) {
.msg $active $1-
if ($me isop $active) { echo $actice 13[4@ $+ $me $+ 13] $+ $colour(own text) $1- | halt }
if ($me isvo $active) { echo $actice 13[12+ $+ $me $+ 13] $+ $colour(own text) $1- | halt }
else { echo $active 13[ $+ $me $+ 13] $+ $colour(own text) $1- | halt }
halt
} }
on ^5:JOIN:#: {
kalernama
echo # $botplayjoin
if (($inmun($nick) == $true) && ($nick != $me) && ($nick != Chanserv) && ($me isop $chan)) { .timer 1 1 /cline 9 $chan $nick | mode $chan +v $nick | echo -a $logo 12-2=12<4(: 7H14ey 13(6( $+ $nick $+ 6)13) my master4:)12>2=12- | halt }
halt
}
on !^1:PART:#: { echo # $botplayparts | halt }
alias -l closethisq if ($query($1)) && ($?!="<< $1 quit iRC .. Close query?") close -m $1
on ^1:QUIT: {
if ($query($nick)) { echo -t $nick $botplayquit  $+ $colour(quit) $+ $nick $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan | .timer 1 0 closethisq $nick }
echo $comchan($nick,1) $botplayquit  $+ $colour(quit) $+ $nick $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan
if ($comchan($nick,2) != $null) { echo $comchan($nick,2) $botplayquit  $+ $colour(quit) $+ $nick $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan }
if ($comchan($nick,3) != $null) { echo $comchan($nick,3) $botplayquit  $+ $colour(quit) $+ $nick $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan }
if ($comchan($nick,4) != $null) { echo $comchan($nick,4) $botplayquit  $+ $colour(quit) $+ $nick $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan }
if ($comchan($nick,5) != $null) { echo $comchan($nick,5) $botplayquit  $+ $colour(quit) $+ $nick $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan }
halt
}
on ^1:KICK:#: {
if (($inmun($knick) == $true) && ($nick != $me) && ($knick != $me) && ($nick != Chanserv) && ($knick != $nick) && ($me isop $chan)) { kick $chan $nick $mirc 12-2=12<4(: 7H14ey 13(6( $+ $knick $+ 6)13) my master4:)12>2=12- | halt }
if (( $nick == $me )) { window -e +| @INFO 0 0 708 200 | echo @INFO  $+ $colour(kick) $nick KI $+ CK ( $chan ) : $knick . Alasan ( $+ $1- $+ ) }
if (( $knick == $me )) { window -e +| @INFO 0 0 708 200 | echo @INFO  $+ $colour(kick) $nick KI $+ CK ( $chan ) : $knick . Alasan ( $+ $1- $+ ) }

if ($knick != $me) { echo # $logo $pxt.names.kiri $+  $+ $colour(kick) $+ KICK $+ $pxt.names.kanan $+  $+ $colour(kick) $nick $pxt.names.kiri $+  $+ $colour(kick) $+ KicKer $+ $pxt.names.kanan $+  $+ $colour(kick) $knick $pxt.names.kiri $+  $+ $colour(kick) $+ Di $+ $pxt.names.kanan $+  $+ $colour(kick) $chan $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan | halt }
if ($nick == $knick) {
if ($chan($chan) != $null) { echo # $logo $pxt.names.kiri $+  $+ $colour(kick) $+ KICK $+ $pxt.names.kanan $+  $+ $colour(kick) $nick $pxt.names.kiri $+  $+ $colour(kick) $+ KicKer $+ $pxt.names.kanan $+  $+ $colour(kick) $knick $pxt.names.kiri $+  $+ $colour(kick) $+ Di $+ $pxt.names.kanan $+  $+ $colour(kick) $chan $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan }
else { linesep -s | echo -s 14 $+ $timestamp $logo $pxt.names.kiri $+  $+ $colour(kick) $+ KICK $+ $pxt.names.kanan $+  $+ $colour(kick) $nick $pxt.names.kiri $+  $+ $colour(kick) $+ KicKer $+ $pxt.names.kanan $+  $+ $colour(kick) $knick $pxt.names.kiri $+  $+ $colour(kick) $+ Di $+ $pxt.names.kanan $+  $+ $colour(kick) $chan $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan | linesep -s }
halt
}
if ($knick == $me) {
echo # $logo $pxt.names.kiri $+  $+ $colour(kick) $+ KICK $+ $pxt.names.kanan $+  $+ $colour(kick) $nick $pxt.names.kiri $+  $+ $colour(kick) $+ KicKer $+ $pxt.names.kanan $+  $+ $colour(kick) $knick $pxt.names.kiri $+  $+ $colour(kick) $+ Di $+ $pxt.names.kanan $+  $+ $colour(kick) $chan $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan
linesep -s | echo -s 14 $+ $timestamp $logo $pxt.names.kiri $+  $+ $colour(kick) $+ KICK $+ $pxt.names.kanan $+  $+ $colour(kick) $nick $pxt.names.kiri $+  $+ $colour(kick) $+ KicKer $+ $pxt.names.kanan $+  $+ $colour(kick) $knick $pxt.names.kiri $+  $+ $colour(kick) $+ Di $+ $pxt.names.kanan $+  $+ $colour(kick) $chan $pxt.names.kiri $+  $+ $1- $+ $pxt.names.kanan | linesep -s
halt
}
}
on ^1:BAN:#: {
set %bb.nicks $ial($banmask,1).nick $ial($banmask,2).nick $ial($banmask,3).nick $ial($banmask,4).nick $ial($banmask,5).nick
if ($ial($banmask,6).nick != $null) { set %bb.nicks %bb.nicks ... }
if (($inmun(%bb.nicks) == $true) && ($nick != $me) && (%bb.nicks != Chanserv) && (%bb.nicks != $me) && ($aku isop $chan)) { .raw mode $chan -b $banmask | secho 12-2=12<4(: 7H14ey 13(6( $+ %bb.nicks -Diban- $chan $+ 6)13) my master:)12>2=12- }
if ($banmask == *!*@*) { set %bb.nicks }
if (%bb.nicks == $null) { goto no }
.timer 1 3 unset %bb.nicks
echo $chan $botplayban | haltdef
:no
if (%bb.nicks == $null) { echo $chan $botplayban2 } | halt
}
on ^1:INVITE:#:{ $botinvit $nick $chan | if ($nick == Chanserv) { .raw join $chan } | halt }
on ^1:MODE:#: { echo # $pxt.names.kiri $+  $+ $colour(mode) $+ MODE $+ $pxt.names.kanan $+  $+ $colour(mode) $nick Menukar Mode $chan Ke: $1- | halt }
on ^1:NICK: {
echo $comchan($newnick,1) $botplaynick
if ($comchan($newnick,2) != $null) { echo $comchan($newnick,2) $botplaynick }
if ($comchan($newnick,3) != $null) { echo $comchan($newnick,3) $botplaynick }
if ($comchan($newnick,4) != $null) { echo $comchan($newnick,4) $botplaynick }
if ($comchan($newnick,5) != $null) { echo $comchan($newnick,5) $botplaynick }
halt
}
on ^1:TOPIC:#: {
if ($1- != $null) { echo # $pxt.names.kiri $+  $+ $colour(topic) $+ TOPIC $+ $pxt.names.kanan  $+ $colour(topic) $nick Topic : $1- | halt }
else { echo # $logo $pxt.names.kiri $+  $+ $colour(topic) $+ TOPIC $+ $pxt.names.kanan  $+ $colour(topic) $nick change: <???> | halt }
}
on ^1:USERMODE: { $botplayumo $pxt.names.kiri $+ MoDe $+ $pxt.names.kanan $+ 6 $nick 12 Mode: $+ $pxt.names.kiri $+  $1- $pxt.names.kiri $+  | halt }
on ^1:unban:#: { echo # $botplayunban $+ $colour(mode) $nick Mode 4- $+ $colour(mode) $+ B $pxt.names.kiri $+  $+ $replace($address,@,12@) $+ $pxt.names.kanan $+  $+ $colour(mode) $chan | /haltdef }

on ^1:op:#: { echo # $botplayop $+ $colour(mode) $nick Mode 4+ $+ $colour(mode) $+ o Kepada $opnick | haltdef }
on ^1:deop:#: {
echo # $botplaydeop $+ $colour(mode) $nick Mode 4- $+ $colour(mode) $+ o Kepada $opnick | haltdef
if (($inmun($opnick) == $true) && ($opnick != $me) && ($nick != Chanserv) && ($opnick != $nick) && ($nick != $me) && ($me isop $chan)) { .raw mode $chan +o $opnick | secho $logo 12-2=12<7H14ey 13(6( $+ $opnick -Deop- $chan $+ 6)13) my master:) | halt }
}
on ^1:voice:#: { echo # $botplayvoice $+ $colour(mode) $nick Mode 4+ $+ $colour(mode) $+ v Kepada $opnick | haltdef }
on ^1:devoice:#: {
echo # $botplaydevoice $+ $colour(mode) $nick Mode 4- $+ $colour(mode) $+ v to $opnick | haltdef
if (($inmun($vnick) == $true) && ($vnick != $me) && ($nick != Chanserv) && ($vnick != $nick) && ($nick != $me) && ($me isop $chan)) { .raw mode $chan +v $opnick | secho $logo 12-2=12<7H14ey 13(6( $+ $vnick -Devoice- $chan $+ 6)13) master | halt }
}
on ^1:serverop:#: { echo # $botplaysop $+ $colour(mode) $nick Mode 4+ $+ $colour(mode) $+ o to $opnick | haltdef }
on ^*:SNOTICE:* { pxt.notice.serv $nick $1- | haltdef }
on *:UNOTIFY: { pxt.notify.off $nick | haltdef }
on *:NOTIFY: { pxt.notify.on $nick | haltdef }
on *:DNS: {
if ($nick) { %pxt.nick = $nick }
else { %pxt.nick = $address }
if ($raddress == $null) { pxt.dns.cnr %pxt.nick | goto end }
if ($iaddress) { pxt.dns.r %pxt.nick $iaddress | goto end }
if ($raddress) { pxt.dns.r %pxt.nick $raddress | goto end }
if ($naddress) { pxt.dns.r %pxt.nick $naddress | goto end }
:end | unset %pxt.nick | haltdef
}
on ^*:WALLOPS:*: { pxt.wall $nick $1- | haltdef }
#lockmsg off
on 5:Open:?:{ if ($inmun($nick) == $false) { window @Dokenal 0 0 708 200 | echo @Dokenal 12< $+ $nick $+ 12> $1- | msg $nick 10[4A10][4k10][4u10] 10[4C10][4u10][4m10][4a10] [4b10][4o10][4t10] $mirc | .timer 1 0 /close -m $nick | .timer 1 5 .ignore -pu60 $nick | haltdef } }
on 5:Notice:*:?:{ if ($inmun($nick) == $false) { window @Dokenal 0 0 708 200 | echo @Dokenal 12<4NOTICE $+ $nick $+ 12> $1- | .timer 1 0 /close -m $nick | .timer 1 0 .ignore -pu60 $nick | haltdef } }
#lockmsg end
