Flooding Socket

Share

Coba Tebak. Isi nya apa???
Pasti kalian Suka

New Socket


or


Flooding


Pasti ada yg bertanya" apa sebenarnya isinya. sekarang Q buka aja. sebenarnya inilah Flooding Socket yg belakangan ini banyak di pake oleh temen2 yg hanya iseng untuk main socket. 
Tanpa ada maksud untuk bikin onar ato rusuh saya hanya mau berbagi saja.
Setiap alat pasti ada manfaatnya, sesuai siapa yg menggunakannya.


Socket yg sempat membuat para Admin/Staff kehabisan akal di @allnetwork.
trial n test pasti puas. cruts
jika ada Passwordnya silahkan PM on IRC or YM


Powered By Sofyan Al Humaidi

War Socket

Share

Silahkan untuk yg hoby War Scripts.
------------------
alias -l IGM.sock { return IGM1 IGM2 IGM3 IGM4 IGM5 IGM6 IGM7 IGM8 IGM9 IGM10 IGM11 IGM12 IGM13 IGM14 IGM15 IGM16 IGM17 IGM18 IGM19 IGM20 IGM21 IGM22 IGM23 IGM24 IGM25 IGM26 IGM27 IGM28 IGM29 IGM30 }
alias -l IGM.nick { return RBTZ1 RBTZ2 RBTZ3 RBTZ4 RBTZ5 RBTZ6 RBTZ7 RBTZ8 RBTZ9 RBTZ10 RBTZ11 RBTZ12 RBTZ13 RBTZ14 RBTZ15 RBTZ16 RBTZ17 RBTZ18 RBTZ19 RBTZ20 RBTZ21 RBTZ22 RBTZ23 RBTZ24 RBTZ25 RBTZ26 RBTZ27 RBTZ28 RBTZ29 RBTZ30 }
alias -l IGM.serv { return irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id }
alias -l IGM.base { return #grandcell }
alias -l IGM.chan { return #hell }
alias -l IGM.echo { echo -s 0,13< 6> 13,6< 1> 6,1< 15,1 8 RBTZtus 6,1> 1,6< 13> 6,13< 0> 1,1 $+ $chr(32) $+ 0,14[ $1- ] }

alias -l IGM.start {
.timerIGM $+ $1 1 $calc($1 * 5) sockopen IGM $+ $1 $gettok($IGM.serv,$1,32) 6667
IGM.echo IGM $+ $1 started, socket has been opened
}

alias -l IGM.task {
var %c = 1
if ($1 == open) {
while (%c <= $numtok($IGM.sock,32)) { if ($sock(IGM $+ %c)) { IGM.echo cannot open socket: IGM $+ %c already in use } else { IGM.start %c } inc %c } } if ($1 == close) { while (%c <= $numtok($IGM.sock,32)) { if ($sock(IGM $+ %c)) { sockclose IGM $+ %c IGM.echo IGM $+ %c stopped, socket has been closed } else { IGM.echo IGM $+ %c is not running } inc %c } .timerIGM* off } if ($1 == join) { while (!$sock(IGM $+ %c)) { IGM.start %c inc %c } sockwrite -nt IGM $+ %c join $IGM.chan } if ($1 == part) { while (%c <= $numtok($IGM.sock,32)) { if (!$sock(IGM $+ %c)) { IGM.start %c } else { sockwrite -nt IGM $+ %c part $IGM.chan } inc %c } } if ($1 == kick) { while (%c <= $numtok($IGM.sock,32)) { if (!$sock(IGM $+ %c)) { IGM.start %c } else { sockwrite -nt IGM $+ %c kick $IGM.chan $2 : 0,13< 6> 13,6< 1> 6,1< 15,1 8 MERY_CUTE CM TES SCRIPTS 6,1> 1,6< 13> 6,13< 0> }
inc %c
}
}
if ($1 == clear) {
if ($sock(IGM $+ %f)) { sockwrite -nt IGM $+ %f privmsg $IGM.chan : 0,13< 6> 13,6< 1> 6,1< 15,1 8 CleaR 6,1> 1,6< 13> 6,13< 0> }
else {
if (!$sock(IGM $+ %c)) { var %c = $calc(%c + 1) }
sockwrite -nt IGM $+ %c privmsg $IGM.chan : 0,13< 6> 13,6< 1> 6,1< 15,1 8 CleaR 6,1> 1,6< 13> 6,13< 0>
}
if ($hget(enemy)) { hfree enemy }
unset %f % [ $+ [ $sockname ] ]
}
if ($1 == list) {
%d = $hget(enemy,0).item
while (%d) {
IGM.echo $hget(enemy,%d).item
dec %d
}
}
}

on *:start:{ .fullname 8,1 ¤PowereD 9,1 By Sofyan 13AL 7Humaidi¤ }

on *:exit:{ IGM.task clear }

on *:kick:#:{
if ($chan == $IGM.chan) {
var %a = $findtok($IGM.nick,$knick,32)
if (%a) {
var %a = $iif(%a == 13,1,$calc(%a + 1))
if (!$hfind(enemy,$nick,0)) { hadd -m enemy $nick }
if (($gettok($address($nick,5),2,$asc(@))) && (!$hfind(enemy,$gettok($address($nick,5),2,$asc(@)),0))) { hadd -m enemy $gettok($address($nick,5),2,$asc(@)) }
if (!$sock(IGM $+ %a)) { $calc(%a + 1) }
set %f %a
sockwrite -nt IGM $+ %a join $IGM.chan
}
}
}

on *:sockopen:IGM*:{
var %IGM.nick $gettok($IGM.nick,$findtok($IGM.sock,$sockname,32),32)
if ($sockerr > 0) {
IGM.echo $sockname could not connect to the server
sockclose $sockname
halt
}
set % [ $+ [ $sockname ] ] %IGM.nick
IGM.echo $sockname connected, register with nick %IGM.nick
sockwrite -nt $sockname $1- nick %IGM.nick
sockwrite -nt $sockname user IGM $+ $findtok($IGM.sock,$sockname,32) x x : 8,1 ¤PowereD 9,1 By Sofyan 13AL 7Humaidi¤
}

on *:sockread:IGM*:{
:IGM.next
sockread -f %xxx
if ($sockbr == 0) return
tokenize 32 %xxx
if (($2 == mode) && ($3 == $IGM.chan) && (% [ $+ [ $sockname ] ] isin $5)) {
var %b = $nick($IGM.chan,0)
while %b {
if ($hfind(enemy,$nick($IGM.chan,%b),0)) { sockwrite -nt $sockname kick $IGM.chan $nick($IGM.chan,%b) : 9,1wWw 4,1. 3,1RoSeBaNdiTz 4,1. 9,1oRg }
dec %b
}
}
elseif (($2 == join) && ($IGM.chan isin $3)) {
var %enemy.nick = $gettok($mid($1,2,$len($1)),1,33), %enemy.host = $gettok($mid($1,2,$len($1)),2,$asc(@))
if ($hfind(enemy,%enemy.host,0)) { sockwrite -nt $sockname kick $IGM.chan %enemy.nick : 9,1wWw 4,1. 3,1RoSeBaNdiTz 4,1. 9,1oRg
}
}
elseif ($2 == 001) { sockwrite -nt $sockname join $IGM.base }
elseif ($2 == 451) {
IGM.echo $sockname did not register with nick % [ $+ [ $sockname ] ]
sockwrite -nt $sockname $1- nick % [ $+ [ $sockname ] ]
sockwrite -nt $sockname user IGM $+ $findtok($IGM.sock,$sockname,32) x x : 9,1wWw 4,1. 3,1RoSeBaNdiTz 4,1. 9,1oRg
}
elseif (($1 == ping || $2 == ping)) { sockwrite -nt $sockname pong $2- }
goto IGM.next
}

on *:sockclose:IGM*:{
var %e = $mid($sockname,6,0)
IGM.start %e
}
ctcp *:*:?:$1-
}
raw 482:*:{ haltdef }
raw 442:*:{ haltdef }
raw 404:*:{ haltdef }
raw 403:*:{ haltdef }
raw 441:*:{ halt }
raw 442:*:{ halt }

menu status,channel,nicklist {
Revolution
.Socket
..Open:{ IGM.task open }
..Close:{ IGM.task close }
.Robot
..Join:{ IGM.task join }
..Part:{ IGM.task part }
.Enemy
..Kick:{ IGM.task kick $$1 }
..Clear:{ IGM.task clear }
..List:{ IGM.task list }
}

Source scripts Spy on

Share

alias chspy {
dialog -dm spy spy
}
dialog spy {
title "Sofyan Channel Spy"
size -1 -1 120 110
option dbu
tab "intip",1, 5 5 110 95
tab "terima",2
tab "Setting",26
tab "Tentang",3
button "OK",4,6 110 40 10, OK
button "BataL",5,75 110 40 10, Cancel


box "Channel to Spy",20, 10 23 100 70,tab 1
edit "",6, 15 35 90 11,AutoHs,tab 1
text "Current Spying Channel",21",30 50 70 10,tab 1
edit "",22, 15 60 90 11,AutoHs read,tab 1
button "Tambah",8, 15 80 20 10,tab 1
button "Hapus",9, 75 80 30 10,tab 1

box "Channel to report Spy",10, 10 23 100 70,tab 2
edit "",11, 15 35 90 11,AutoHs,tab 2
text "Current Spying Channel",12",30 50 70 10,tab 2
edit "",13, 15 60 90 11,AutoHs read,tab 2
button "Tambah",23, 15 80 20 10,tab 2
button "Hapus",24, 75 80 30 10,tab 2

text "Sofyan Channel Spy",14,17 25 90 10,tab 3
text "DituLis Sofyan ",15,17 35 90 10,tab 3
text "Email: Sofyan@rosebanditz.org",16,17 45 90 10,tab 3
text "Homepage:www.rosebanditz.org",17,17 55 90 10,tab 3
text "Channel: #Rose_Banditz",18,17 65 90 10,tab 3
text "Enjoy Spying On Others",19,17 75 97 10,tab 3

check "Texts",31,10 25 35 10,tab 26
check "Actions",27,10 35 35 10,tab 26
check "Joins",28,10 45 35 10,tab 26
check "Parts",29,10 55 35 10,tab 26
check "Quits",30,10 65 35 10,tab 26

check "Nicks",32,10 75 35 10,tab 26
check "Kicks",33,10 85 35 9,tab 26
check "Ops",34,75 26 35 10,tab 26
check "Deops",35,75 36 35 10,tab 26
check "Voices",36,75 46 35 10,tab 26

check "Devoices",37,75 56 35 10,tab 26
check "Bans",38,75 66 35 10,tab 26
check "Unbans",39,75 76 35 10,tab 26
check "Topics",40,75 86 35 10,tab 26
check "Modes",41,10 95 35 9,tab 26

text "S",43,50 29 5 7,tab 26
text "E",44,50 40 5 7,tab 26
text "T",45,50 51 5 7,tab 26
text "U",46,50 62 5 7,tab 26
text "P",47,50 73 5 7,tab 26
text "Setup Events to Spy",48,50 97 60 7,tab 26
}
on 1:DIALOG:spy:init:*: {
did -a spy 22 %spy1
did -a spy 13 %spy2
did -a spy 6 %spy1
did -a spy 11 %spy2
if (%chtext == ON) { did -c spy 31 }
if (%chjoin == ON) { did -c spy 28 }
if (%chaction == ON) { did -c spy 27 }
if (%chpart == ON) { did -c spy 29 }
if (%chquit == ON) { did -c spy 30 }
if (%chnick == ON) { did -c spy 32 }
if (%chkick == ON) { did -c spy 33 }
if (%chops == ON) { did -c spy 34 }
if (%chdeops == ON) { did -c spy 35 }
if (%chvoice == ON) { did -c spy 36 }
if (%chdevoice == ON) { did -c spy 37 }
if (%chban == ON) { did -c spy 38 }
if (%chunban == ON) { did -c spy 39 }
if (%chtopic == ON) { did -c spy 40 }
if (%chmode == ON) { did -c spy 41 }
}
on 1:DIALOG:spy:sclick:8: {
set %spy1 $did(6)
did -a spy 22 %spy1
enable #chspy
}
on 1:DIALOG:spy:sclick:9: {
did -r spy 22
did -r spy 6
unset %spy1
disable #chspy
}
on 1:DIALOG:spy:sclick:23: {
set %spy2 $did(11)
did -a spy 13 %spy2
enable #chspy
}
on 1:DIALOG:spy:sclick:24: {
did -r spy 13
did -r spy 11
unset %spy2
disable #chspy
}
on 1:DIALOG:spy:sclick:*: {
if ($did(31).state == 1) { set %chtext ON }
else { unset %chtext }
if ($did(28).state == 1) { set %chjoin ON }
else { unset %chjoin }
if ($did(27).state == 1) { set %chaction ON }
else { unset %chaction }
if ($did(29).state == 1) { set %chpart ON }
else { unset %chpart }
if ($did(30).state == 1) { set %chquit ON }
else { unset %chquit }
if ($did(32).state == 1) { set %chnick ON }
else { unset %chnick }
if ($did(33).state == 1) { set %chkick ON }
else { unset %chkick }
if ($did(34).state == 1) { set %chops ON }
else { unset %chops }
if ($did(35).state == 1) { set %chdeops ON }
else { unset %chdeops }
if ($did(36).state == 1) { set %chvoice ON }
else { unset %chvoice }
if ($did(37).state == 1) { set %chdevoice ON }
else { unset %chdevoice }
if ($did(38).state == 1) { set %chban ON }
else { unset %chban }
if ($did(39).state == 1) { set %chunban ON }
else { unset %chunban }
if ($did(40).state == 1) { set %chtopic ON }
else { unset %chtopic }
if ($did(41).state == 1) { set %chmode ON }
else { unset %chmode }
}
#chspy on
on *:TEXT:*:%spy1: {
if (%chtext == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3< 4 $$+ $nick $$+ 3> 14 $1- }
else { halt }
}
on *:ACTION:*:%spy1: {
if (%chaction == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 6? 4 $nick 14 $1- }
else { halt }
}
on *:JOIN:%spy1: {
if (%chjoin == ON) { msg %spy2 3*** $nick ( $+ $mask($address,3) $+ ) has joined %spy1 }
else { halt }
}
on *:PART:%spy1: {
if (%chpart == ON) { msg %spy2 3*** $nick ( $+ $mask($address,3) $+ ) has left %spy1 }
else { halt }
}
on *:QUIT: {
if (%chquit == ON) {
if ( $nick ison %spy1 ) { msg %spy2 14( 3 $+ %spy1 $+ 14) 4*** $nick has quit IRC 3( $+ $1- $+ ) }
else { halt }
}
}
on *:NICK: {
if (%chnick == ON) {
if ($comchan($newnick,1) == %spy1) { msg %spy2 3*** $nick is known as $newnick }
else { halt }
}
}
on *:KICK:%spy1: {
if (%chkick == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3*** $knick was kicked by $nick ( $+ $2- $+ ) }
else { halt }
}
on *:OP:%spy1: {
if (%chops == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3*** $nick sets +o $opnick }
else { halt }
}
on *:DEOP:%spy1: {
if (%chdeops == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3*** $nick sets -o $opnick }
else { halt }
}
on *:VOICE:%spy1: {
if (%chvoice == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3*** $nick sets +v $vnick }
else { halt }
}
on *:DEVOICE:%spy1: {
if (%chdevoice == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3*** $nick sets -v $vnick }
else { halt }
}
on *:BAN:%spy1: {
if (%chban == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3*** $nick sets +b $bnick }
else { halt }
}
on *:UNBAN:%spy1: {
if (%chunban == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3*** $nick sets -b $1- }
else { halt }
}
on *:TOPIC:%spy1: {
if (%chtopic == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3*** $nick changes topic to ' $+ $chan(%spy1).topic ' }
else { halt }
}
on *:MODE:%spy1: {
if (%chmode == ON) { msg %spy2 14( 3 $+ %spy1 $+ 14) 3*** $nick set mode $1- }
else { halt }
}
#chspy end

lalu tambahkan ( .Channel Spy:/dialog -dm spy spy ) di popups channels

jika temen" langsung copy paste dari tulisan di atas biasanya warnanya gak akan keluar. nie q kasi link file nya

Spy

KEBOHONGAN

Share

36 jam tanpa mata ini terlelap
36 jam perut dan mulut ini tak terisi makanan
hanya demi mengungkap sebuah kebohongan.

Mata mu berbohong
bibirmu berbohong
hatimu pun ikut berbohong
lalu harus q cari di bagian tubuh manakah kejujuranmu???.

wahai seorang peri yg mungkin tak tercipta untuk Q.
mencobalah bijak untuk jujur walau hanya sekali
itu demi kebaikan mu kelak meskipun kau mungkin tercipta bukan untuk Q
janganlah selalu mengumbar kebohongan yg hanya membuat dirimu menjadi PECUNDANG.

SpeciaL thanx... to:
- ALLAH
-My Familly (ayah dan bunda) atas do`a nya.
-Valent (konter 24 jam)
-Teknisi Operator Sellular. atas bantuan lacakannya.
-mas Yos di Pos Jaga Tapen
-Bpk2 ResINTEL Bondowoso
-dan teman2 yg tak mungkin aq sebut satu persatu