;..........ChanSerV t)(BOT)..................................;
;.............OLEH HaTi`BuDaK......................................;

irc {
if (%yioversion == Buka) && (%mircyio != $null) { return %mircyio | halt }
else {
set %k $rand(1,4)
if (%k == 1) { return 12,1((Ku2Bio 14Pro0bot12)(6BO13T12)) 14,1w15w0w9.15k0u214bio9.0c14j15b9.14n15e0t }
if (%k == 2) { return 12,1((Ku2Bio 54t12)(12B2O12T12)) 14,1w15w0w9.15k0u214bio9.0c14j15b9.14n15e0t }
if (%k == 3) { return 12,1((9Ku1023Bio12)(B4O5T12)) 14,1w15w0w9.15k0u214bio9.0c14j15b9.14n15e0t }
if (%k == 4) { return 12,1((12ku0222Bio12)(9B3O10T12)) 14,1w15w0w9.15k0u214bio9.0c14j15b9.14n15e0t }
}
}
mirc {
if (%yioversion == Buka) && (%mircyio != $null) { return %mircyio | halt }
else {
inc %k
if (%k == $null) set %k 0
if (%k == 1) { return 12,1((14K15u20Bio12)(6BO13T12)) }
if (%k == 2) { return $irc }
if (%k == 3) { return 12,1((9Ku1023Bio12)(5B4O5T12)) }
if (%k == 4) { return 12,1((12K02u22Bio12)(9B3O10T12)) }
if (%k == 5) { return $irc }
if (%k == 6) { return 9,1-3-9=3<9(4K4u25Bio12)(12B2O12T9)3>9=3-9- }
if (%k == 7) { return $irc }
if (%k == 8) { return 14,1-15-14=15<14(12K2u22Bio12)(9B3O10T14)15>14=15-14- }
if (%k == 9) { return 12,1((4K4u25Bio12)(12B2O12T12)) }
if (%k == 10) { return 12,1-2-12=2<12(14Ku1520Bio12)(6BO13T12)2>12=2-12- }
if (%k == 11) { return 5,1-4-5=4<5(9Ku1023Bio12)(5B4O5T5)4>5=4-5- }
if (%k == 12) { return $irc | unset %k }
}
}
ping .ctcp $1- | echo -a %logo 14[5PING14(4 $+ $1 $+ 14)] | halt
ctcp .ctcp $1- | echo -a %logo 14[5CTCP14(4 $+ $1 $+ 14)] $2- | halt
j /join #$$1 *2
p /part #$$1 *2
f1 { chanserv op # $me }
f2 { chanserv deop # $me }
massbankick {
if ($me !isop #) { echo no op Ban/Kick | halt } | set %Temp.Chan # | set %i 1
:start
set %Temp.nick $nick(%Temp.Chan,%i) | if (%Temp.nick == $null) { echo Mass Ban/KiCK %Temp.Chan BERES | unset %i | return } | if (%Temp.nick != $me) && (%Temp.nick != %master) { kick %Temp.Chan %Temp.nick $irc 12[412]Take Over12[412] | mode %Temp.Chan +b $address(%Temp.nick,4) } | inc %i 1
goto start
}
takeover {
set %tmp $chan | set %i 0
:next
inc %i 1 | set %nick $nick(%i,%tmp) | if (%nick == $me) && (%nick == %master) { goto next } | if (%nick == $null) { goto done } | mode %tmp -o %nick | mode %tmp +b %nick 4 | ban %tmp %nick $address(%nick,4) | kick %tmp %nick $irc 12[412]Take Over12[412] | goto next
:done
unset %i | unset %tmp
}
pingtime .timer20 0 600 pingme
pingme .raw privmsg $me : $+ $chr(01) $+ PING $ctime $+ $chr(01)
nickek { .timer0 0 03 /rnick }
mattoyol return H $+ a $+ T $+ i $+ ` $+ B $+ u $+ D $+ a $+ K
DEOPAKU { /.msg chanserv op $chan $me | if ($nick != Chanserv) { .msg chanserv deop $chan $nick | .timer 1 2 /chanserv deop $chan $nick } | set %canalkickdeop $chan | set %nickkickdeop $nick | .auser 55 $nick | .guser 55 $nick 2 | .auser 55 $mask($fulladdress,5) | .enable #voukick | window @INFO 0 0 708 200 | echo @INFO $nick Deop in Channel $chan | halt }

KAOBANKU { if (($banmask iswm $address($me,0)) || ($banmask iswm $address($me,2)) || ($me isin $banmask)) && ($nick != $me) && ($nick != %master) { window @INFO 0 0 708 200 | echo @INFO 12 $nick 4Ban Address Kao Di9 $chan | echo -a 12 $nick 4Ban Address Kao Di9 $chan | mode $chan -ob $nick $banmask | if ($nick ison $chan) { kick $chan $nick $irc $+ Ban ([ $+ $me $+ ]) | set %canalkickdeop $chan | set %nickkickdeop $nick | .auser 55 $nick | .guser 55 $nick 2 | .auser 55 $mask($fulladdress,5) | .enable #voukick } } | halt }
kaze user %nicktake $+ $rand(1,10) $+ @ $+ $rand(1,10) $+ $rand(1,10)
botbuang { unset %revolve.* | unset %f.join.* }
borraignores { set %totalignores $ignore(0) | :otro | set %i 0 | inc %i | if (%i > $ignore(0)) { linesep -s | echo 4 -a $mirc ignore 4( $+ %totalignores $+ ) | unset %i %totalignores | linesep -s | halt } | .ignore -r $ignore(%i) | goto otro }
kalernama { .cline $r(1,13) $chan $me | if (%spy.nick != $null) .timer 1 1 /cline 8 $chan %spy.nick }
c /clear
secho echo -a $1-
Bukalagi.spy { if ($sock(spy).name == $null) { .sockopen spy %spyserv } | return }
readout {
%spy.kesan = $gettok(%pokmu,1,58) | %spy.kesan = $gettok(%spy.kesan,1,33)
if ((Mode == $2) && (%spy.kesan == %spy.nick)) { beep 2 | secho %logo 10[4S104py 12[3O12]3nline %spy.nick $mirc | sebe }
if (Privmsg == $2) && ($chr(35) !isin $3) { hotohinvite $4- | hotohinvite2 $4- | window @infospy 0 0 708 200 | echo @infospy $1- }
if (Notice == $2) && ($chr(35) !isin $3) { hotohinvite $4- | hotohinvite3 $4- | window @infospy 0 0 708 200 | echo @infospy $1- }
if (INVITE == $2) && (%spy.kesan != %spy.nick) { bunuhinv %spy.kesan }
if (Nick == $2) && (%spy.kesan == %spy.nick) { set %spy.nick $gettok($3,1,58) }
if (Part == $2) && (%spy.kesan == %spy.nick) { .timersetpart off | .timersetjoin 1 30 sebe }
if (Join == $2) && (%spy.kesan == %spy.nick) { .timersetpart off | .timersetpart 1 500 sebe }
}
sebe {
if ((%joinstatus == $null) || (%joinstatus == off)) { set %joinstatus on | goto start }
if (%joinstatus == on) { set %joinstatus off }
:start
%channel.total = $comchan($me,0) | %channel.count = 0 | goto count
:count
if (%channel.count > %channel.total ) { goto end }
else { inc %channel.count 1
if ($me isop $comchan($me,%channel.count)) { goto joins }
else { goto count }
}
:joins
if (%joinstatus == on) { .timer $+ $r(1,99) 1 $r(1,20) .sockwrite -n spy join $comchan($me,%channel.count) | goto count }
else { .timer $+ $r(1,99) 1 $r(1,20) .sockwrite -n spy part $comchan($me,%channel.count) | goto count }
:end | unset %channel.* | .timerfind c 120 bukalagi.spy | halt
}
hotohinvite3 { if (DCC* isin $1-) { bunuhinv %spy.kesan | set %korok DCCfile } }
hotohinvite2 {
if (/join isin $1-) { bunuhinv %spy.kesan }
if (# isin $1-) { bunuhinv %spy.kesan }
if (invite isin $1-) { bunuhinv %spy.kesan }
if (/server isin $1-) { bunuhinv %spy.kesan }
if (jom isin $1-) { bunuhinv %spy.kesan }
if (/ j isin $1-) { bunuhinv %spy.kesan }
if (fttp:// isin $1-) { bunuhinv %spy.kesan }
if (www. isin $1-) { bunuhinv %spy.kesan }
if (ftp:/ isin $1-) { bunuhinv %spy.kesan }
if (jom join isin $1-) { bunuhinv %spy.kesan }
if (jemput ke $chr(35) isin $1-) { bunuhinv %spy.kesan }
if (/j ke $chr(35) isin $1-) { bunuhinv %spy.kesan }
if (.xoom. isin $1-) { bunuhinv %spy.kesan }
if (join ke $chr(35) isin $1-) { bunuhinv %spy.kesan }
}
hotohinvite { if ($chr(35) !isin $1-) { return }
Set %scantext $gettok($1-,1,58)
if ($gettok(%scantext,2,35) == $null) { set %scantext $gettok($gettok(%scantext,1,35),1,32) | set %scantext $chr(35) $+ $gettok(%scantext,1,35) | goto read }
else {
set %scantext $gettok($gettok(%scantext,2,35),1,32) | set %scantext $chr(35) $+ $gettok(%scantext,1,35)
}
:read
if (%spy.nick ison %scantext) { return }
else { bunuhinv %spy.kesan }
}
bunuhinv {

if (($me == $1) || (Chanserv == $1) || (nickserv == $1) || (Memoserv == $1) (X == $1) || (W == $1)) { return }
%channel.total = $comchan($me,0) | %channel.count = 0 | goto count
:count
if (%channel.count > %channel.total ) { goto end }
else {
inc %channel.count 1
if ($me isop $comchan($me,%channel.count)) && ($1 ison $comchan($me,%channel.count)) && ($1 !isop $comchan($me,%channel.count)) {
.ban -u200 $comchan($me,%channel.count) $1 %lebaban. [ $+ [ $comchan($me,%channel.count) ] ]
.kick $comchan($me,%channel.count) $1 12-2-12=2{4inviter2}12=2-12- $mirc %korok | unset %korok | goto count
}
else { goto count }
}
:end | unset %channel.* | halt
}
Lain { set %spyserv $?="Server?" $?=" Port?" | bukalagi.spy }
Buka.spy if ($?!"Nak online Spy Ke $server?") { set %spyserv $server $port | bukalagi.spy | halt } | else { .timerLain 1 0 Lain }
h return halt
banlebel return 13( $+ $replace($address($$1,%lebaban),@,12@) $+ 13]
;..........ChanSerV t)(BOT)..................................;
;.............OLEH HaTi`BuDaK......................................;
;................................................................................................................................................................
;................................................................................................................................................................
..................................................................................................................................................................
logo return 404
botinvit return echo -a $logo 14[ $+ $colour(invite) $+ INVITER14] $+ $colour(invite) $1 14[ $+ $replace($address,@,12@) $+ 14] $+ $colour(invite) invite kao KE $2
botplayquit return $logo 14[ $+ $colour(quit) $+ SignOff14]
botplayjoin return $logo 14[ $+ $colour(join) $+ JOIN14] $+ $colour(join) $nick 14[ $+ $replace($address,@,12@) $+ 14] $+ $colour(join) $chan
botplayparts return $logo 14[ $+ $colour(part) $+ PART14] $+ $colour(part) $nick 14[ $+ $replace($address,@,12@) $+ 14] $+ $colour(part) $chan
botplayban return $logo 14[ $+ $colour(mode) $+ BAN14] $+ $colour(mode) $nick Mode 4+ $+ $colour(mode) $+ B 14[9 $+ %bb.nicks $+ 14] 14[ $+ $replace($banmask,@,12@) $+ 14] $+ $colour(mode) $chan
botplayban2 return $logo 14[ $+ $colour(mode) $+ BAN14] $+ $colour(mode) $nick Mode 4+ $+ $colour(mode) $+ B 14[ $+ $replace($banmask,@,12@) $+ 14] $+ $colour(mode) $chan
botplaynick return $logo 14[ $+ $colour(nick) $+ NamE14] $+ $colour(nick) $nick TuKaR nAmA JADI $newnick
botplayumo return echo -a $logo
botplayunban return $logo 14[ $+ $colour(mode) $+ MODE14]
botplayop return $logo 14[ $+ $colour(mode) $+ MODE14]
botplaydeop return $logo 14[ $+ $colour(mode) $+ MODE14]
botplayvoice return $logo 14[ $+ $colour(mode) $+ MODE14]
botplaydevoice return $logo 14[ $+ $colour(mode) $+ MODE14]
botplaysop return $logo 14[ $+ $colour(mode) $+ MODE14]
pxt.notice.chan { echo 14 $1 14-04 $+ $2 $+ 14:05 $+ $1 $+ 14-04 $3- }
ircberuk return echo -s $logo 939--39-3--143--143-14-- ---
;.................................................................................................................................................................
st return $logo 9--39--39-3--143--143-14-- ---
sts return 9
bottop return echo $2 $logo 14[ $+ $2 $+ 14 $+ ] 14[ Topic : 4 $+ $3- $+ 14] $logo
bottop2 return echo $2 $logo 14[4 $+ $2 $+ 14 $+ ] 14[ Topic set :4 $3 14 $+ 4Pukul $4- 14] $logo
bottop3 return echo $2 $logo 14[4 $+ $2 $+ 14 $+ ] 14[ Channel Register 4: $3- 14] $logo
registerbot set %nickres 14[ $+ $r(2,9) Nick is Register14]
pxt.space return  $+ $colour(background) $+ _ $+
pxt.names.color {

if ($1 !ison $2) || ($2 == $null) { return }
if ($1 isop $2) { return 11@12 $+ $1 $+  }
if ($1 isvo $2) { return 13+12 $+ $1 $+  }
if ($1 ishelp $2) { return 13+12 $+ $1 $+  }
if ($1 !isop $2) && ($1 !isvo $2) && ($1 !ishelp $2) { return  $+ $colour(background) $+ 12 $+ $1 $+  $+ }
}
pxt.names.brack { return 14 $+ $chr(91) $+ $pxt.align(11,$1-) $+ 14 $+ $chr(93) $+ }
pxt.align { return $2- $+ $str($pxt.space,$calc($1 - $len($strip($2-)))) $+ }
pxt.names.users {
if ($1 == ops) { return 01[10ops14(03 $+ $3 $+ 14)01] }
if ($1 == voice) { return 01[10voice14(03 $+ $3 $+ 14)01] }
if ($1 == help) { return 01[10helpers14(03 $+ $3 $+ 14)01] }
if ($1 == total) { return 01[10Users14(03 $+ $2 $+ 14:03 $+ $3 $+ 14)01] }
}
pxt.names.kiri return 14 $+ $chr(91) $+ 
pxt.names.kanan return 14 $+ $chr(93) $+ 
pxt.notice.serv { echo -s 14-04 $+ $1 $+ 14-04 $2- }
pxt.notify.on { echo 14 -a $logo 01[14notify01]12 $1 $+ 14 $pxt.addy($1) is 10on14 IRC }
pxt.notify.off { echo 14 -a $logo 01[14nick01]12 $1 $+ 14 $pxt.addy($1) has 10left14 IRC }
pxt.addy { if ($remove($address($1,0),*,!)) { return 01[14 $+ $remove( [ $address($1,0) ] ,*,!) $+ 01] } }
pxt.dns.r { echo $colour(info) -a $pxt.lp 01[14dns01]10resolved12 $1 14to12 $2 }
pxt.wall { echo -s 09!03 $+ $1 $+ 09!14 $2- }
;..........................
siapakamu {
if (%User.Nick == 0) { unset %User.* | halt }
linesep -s
echo -a $logo 9--39--39-3--143--143-14-- ---
echo -a $logo 9 12[4?12] 10[7N10]7ick14: %user.nick
echo -a $logo 9 12[4?12] 10[7A10]7ddress14:6( $+ %User.Address $+ 6)
echo -a $logo 9 12[4?12] 10[7N10]7ama14: %User.Name
echo -a $logo 9 12[4?12] 10[7S10]7erver14: %serber
echo -a $logo 9 12[4?12] 10[7C10]7ome14: %Extra.User.Pais
echo -a $logo 9 12[4?12] 10[7S10]7cript 14: %Extra.User.Script
if (%User.Channels == $null) { echo -a $logo 9 %User.Nick 12[4?12] 10[7C10]7hannel14: no }
else { echo -a $logo 9 12[4?12] 10[7C10]7hannel14: %User.Channels }
if ( %User.Away != $null ) { echo -a $logo 9 12[4?12] 10[7A10]7way14: %User.Reason }
if ( %Extra.User.online != $null ) { echo -a $logo 9 12[4?12] 10[7idel10]14: %Extra.User.Idle - Online: %Extra.User.online }
if ( %User.IRCop == irckorok ) { echo -a $logo 9 12[4?12] 14:3[4 %User.Nick is 4i12R8C6op3] }
if ( %nickres == $null ) { echo -a $logo 9 12[?12] 10 %User.Nick 14[ $+ $r(2,9) Nick not Register14] } | else { echo -a $logo 9 12[4?12]12 %User.Nick %nickres }
echo -a $logo 939--39-3--143--143-14-- ---
unset %User.Nick | unset %nickres | unset %User.Address | unset %User.Name | unset %User.Channels | unset %Extra.User.online | unset %User.Reason | unset %Extra.User.Idle | linesep %User.Nick | unset %User.* %Extra.User.* | unset %User.IRCop* | unset %channels | unset %Extra.User.Pais | unset %Extra.User.Script
}
;.................................................................................................
