API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 19th, 2017
2,134
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 50.85 KB | None | 0 0
raw download clone embed print report
  1. ;****************************************** CLONESxS ******************************************
  2. ;
  3. ;This addon has been created by UNA PUTA RANA.
  4. ;Please, don't touch the code and don't upload it as if it had been your addon.
  5. ;It is the only thing for that I ask, because i wasted some time creating it ;)
  6. ;Another thing, do not alter the quit message please, at all any more ;)
  7. ;I hope that it will be util for you. Probably I will modify it later on.
  8. ;
  9. ;All the possible bugs or failures, please send them to my mail.
  10. ;
  11. ;Mail: tuputamadre@tuputamadre.com
  12. ;
  13. ;****************************************** CLONESxS ******************************************
  14.  
  15. alias ClonesXs {
  16. p.cloning.delch
  17. if ($dialog(p.cloning)) { dialog -v p.cloning }
  18. else { dialog -md p.cloning p.cloning }
  19. }
  20. dialog p.cloning {
  21. title "ClonesX v1.501b by rana"
  22. size -1 -1 268 205
  23. option dbu
  24. tab "Connection", 200, 1 2 265 191
  25. box "Server", 8, 5 21 186 21, tab 200
  26. text "Host/Ip:", 9, 7 30 20 8, result tab 200
  27. edit "", 10, 28 28 92 10, tab 200 autohs
  28. text "Port:", 1, 123 30 17 8, tab 200
  29. combo 12, 142 28 46 50, tab 200 size edit drop
  30. box "Nick", 34, 5 45 111 22, tab 200
  31. radio "", 35, 8 54 7 10, tab 200
  32. radio "Other", 36, 57 54 22 10, tab 200
  33. combo 37, 16 53 41 50, tab 200 size drop
  34. edit "", 38, 80 54 34 10, tab 200 autohs
  35. box "Connection", 45, 6 102 110 67, tab 200
  36. text "Number of clons:", 49, 10 111 48 20, tab 200
  37. combo 50, 68 109 43 80, tab 200 size edit drop
  38. text "Mode:", 215, 10 122 15 8, tab 200
  39. combo 47, 68 121 43 50, tab 200 size drop
  40. button "&Connect", 48, 10 145 101 10, disable tab 200
  41. button "&Disconnect", 52, 10 157 101 10, tab 200
  42. box "Debug", 219, 119 45 142 143, tab 200
  43. edit "", 44, 121 52 138 134, tab 200 read multi autohs vsbar
  44. box "State", 39, 6 68 110 31, tab 200
  45. text "Connected clons:", 40, 10 76 47 8, tab 200
  46. text "Open sockets:", 42, 10 87 41 8, tab 200
  47. button "Clear Debug", 53, 6 175 110 13, tab 200
  48. text "-", 41, 78 77 34 8, tab 200
  49. text "-", 43, 78 87 34 8, tab 200
  50. text "Delay:", 390, 10 134 25 8, tab 200
  51. combo 391, 68 133 43 60, tab 200 size edit drop
  52. link "http://clonesx.cjb.net/", 361, 199 29 54 8, tab 200
  53. tab "Firewall", 201
  54. box "Proxy", 236, 3 19 88 170, tab 201
  55. box "Socks 4", 234, 90 19 88 170, tab 201
  56. box "Socks 5", 235, 177 19 88 170, tab 201
  57. text "Host/Ip:", 55, 5 27 20 8, tab 201
  58. edit "", 2, 26 26 62 10, tab 201 autohs
  59. text "Port:", 56, 5 37 17 8, tab 201
  60. edit "", 3, 26 37 62 10, tab 201 autohs
  61. button "&Add", 5, 5 48 39 9, disable tab 201
  62. button "&Import", 6, 49 48 39 9, tab 201
  63. button "&Delete", 7, 5 58 39 9, tab 201
  64. button "Delete A&ll", 244, 49 58 39 9, tab 201
  65. list 4, 5 69 85 118, tab 201 size hsbar vsbar
  66. list 69, 92 69 85 118, tab 201 size hsbar vsbar
  67. button "&Delete", 72, 92 58 39 9, tab 201
  68. button "Delete A&ll", 256, 136 58 39 9, tab 201
  69. button "&Import", 71, 136 48 39 9, tab 201
  70. button "&Add", 70, 92 48 39 9, disable tab 201
  71. text "Port:", 67, 92 37 17 8, tab 201
  72. edit "", 68, 113 37 62 10, tab 201 autohs
  73. edit "", 66, 113 26 62 10, tab 201 autohs
  74. text "Host/Ip:", 65, 92 27 20 8, tab 201
  75. text "Host/Ip:", 74, 179 27 20 8, tab 201
  76. edit "", 75, 200 26 62 10, tab 201 autohs
  77. edit "", 77, 200 37 62 10, tab 201 autohs
  78. text "Port:", 76, 179 37 17 8, tab 201
  79. button "&Add", 79, 179 48 39 9, disable tab 201
  80. button "&Import", 80, 223 48 39 9, tab 201
  81. button "Delete A&ll", 265, 223 58 39 9, tab 201
  82. button "&Delete", 81, 179 58 39 9, tab 201
  83. list 78, 179 69 85 118, tab 201 size hsbar vsbar
  84. tab "Actions", 202
  85. box "Actions", 305, 3 20 261 86, tab 202
  86. button "Msg", 310, 9 72 37 10, disable tab 202
  87. button "Notice", 311, 9 83 37 10, disable tab 202
  88. button "Ping", 309, 9 61 37 10, disable tab 202
  89. button "Version", 308, 9 50 37 10, disable tab 202
  90. button "Part", 307, 9 39 37 10, disable tab 202
  91. button "Join", 306, 9 28 37 10, disable tab 202
  92. text "Channel:", 313, 47 29 25 8, tab 202
  93. button "Command", 312, 9 94 37 10, disable tab 202
  94. edit "", 314, 81 28 75 10, disable tab 202 autohs
  95. text "Channel:", 315, 47 41 25 8, tab 202
  96. edit "", 316, 81 39 75 10, disable tab 202 autohs
  97. edit "", 318, 81 50 75 10, disable tab 202 autohs
  98. text "Channel/Nick:", 317, 47 51 34 8, tab 202
  99. text "Channel/Nick:", 319, 47 62 34 8, tab 202
  100. edit "", 320, 81 61 75 10, disable tab 202 autohs
  101. text "Channel/Nick:", 321, 47 73 34 8, tab 202
  102. edit "", 322, 81 72 75 10, disable tab 202 autohs
  103. text "Message:", 323, 160 73 24 8, tab 202
  104. edit "", 324, 183 72 75 10, disable tab 202 autohs
  105. text "Channel/Nick:", 325, 47 84 34 8, tab 202
  106. edit "", 326, 81 83 75 10, disable tab 202 autohs
  107. text "Message:", 327, 160 84 24 8, tab 202
  108. edit "", 328, 183 83 75 10, disable tab 202 autohs
  109. edit "", 329, 47 94 211 10, disable tab 202 autohs
  110. edit "''Aleatory'' for aleatory", 331, 202 29 56 10, disable tab 202 autohs
  111. button "Nick Change", 330, 158 29 42 10, disable tab 202
  112. box "From...", 332, 158 41 100 29, tab 202
  113. radio "Global", 333, 163 48 27 10, disable tab 202
  114. radio "Selected", 334, 212 48 42 10, disable tab 202
  115. radio "Group 1", 335, 163 57 30 10, disable tab 202
  116. radio "Group 2", 336, 193 57 30 10, disable tab 202
  117. radio "Group 3", 337, 225 57 30 10, disable tab 202
  118. box "Nick List", 338, 3 106 261 85, tab 202
  119. list 339, 5 113 53 76, disable tab 202 size extsel vsbar
  120. button "Add to Group 1", 340, 59 125 39 11, disable tab 202
  121. button "Add to Group 2", 341, 59 144 39 11, disable tab 202
  122. box "Grupo 3", 370, 207 111 54 79, tab 202
  123. button "Delete", 371, 209 119 19 8, disable tab 202
  124. button "Delete all", 372, 228 119 31 8, disable tab 202
  125. list 373, 208 127 52 62, disable tab 202 size vsbar
  126. list 369, 154 127 52 62, disable tab 202 size vsbar
  127. button "Delete all", 368, 174 119 31 8, disable tab 202
  128. button "Delete", 367, 155 119 19 8, disable tab 202
  129. box "Group 2", 366, 153 111 54 79, tab 202
  130. list 351, 100 127 52 62, disable tab 202 size vsbar
  131. button "Delete All", 350, 120 119 31 8, disable tab 202
  132. button "Delete", 349, 101 119 19 8, disable tab 202
  133. box "Group 1", 348, 99 111 54 79, tab 202
  134. button "Add to Group 3", 342, 59 162 39 11, disable tab 202
  135. menu "File", 403
  136. item "&Exit", 476, 403, cancel
  137. menu "Specials", 411
  138. item "Ip-Ports", 412, 411
  139. menu "Nick List", 413, 411
  140. menu "Nicks Change", 414, 413
  141. item "Default List", 415, 414
  142. item "List...", 416, 414
  143. menu "Save nicks", 417, 413
  144. item "Default List", 418, 417
  145. item "List...", 419, 417
  146. menu "Connect with list", 420, 413
  147. item "Default List", 421, 420
  148. item "List...", 422, 420
  149. menu "Help", 404
  150. item "About...", 441, 404
  151. item "Web", 405, 404
  152. item "Phorum", 406, 404
  153. item "Email", 407, 404
  154. menu "Help", 408, 404
  155. item "Readme.txt", 409, 408
  156. item "Web Help", 410, 408
  157. }
  158. on 1:DIALOG:p.cloning:edit:*: {
  159. if ($did == 2) || ($did == 3) { p.clon.fire.secl 2 3 5 }
  160. if ($did == 66) || ($did == 68) { p.clon.fire.secl 66 68 70 }
  161. if ($did == 75) || ($did == 77) { p.clon.fire.secl 75 77 79 }
  162.  
  163. if ($did == 10) || ($did == 12) || ($did == 38) || ($did == 50) {
  164. p.cloning.conEcheck
  165. }
  166. if ($did == 38) { if ($len($did($dname,38)) > 6) { p.cloning.fal The length must be al least 6 chars. | did -r $dname 38 } }
  167.  
  168. if ($did == 314) {
  169. if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 306
  170. else did -b $dname 306
  171. }
  172. if ($did == 316) {
  173. if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 307
  174. else did -b $dname 307
  175. }
  176. if ($did == 318) {
  177. if (& iswm $did($dname,$did).text) did -e $dname 308
  178. else did -b $dname 308
  179. }
  180. if ($did == 320) {
  181. if (& iswm $did($dname,$did).text) did -e $dname 309
  182. else did -b $dname 309
  183. }
  184. if ($did == 322) || ($did == 324) {
  185. if (& iswm $did($dname,322).text) && (* iswm $did($dname,324).text) did -e $dname 310
  186. else did -b $dname 310
  187. }
  188. if ($did == 326) || ($did == 328) {
  189. if (& iswm $did($dname,326).text) && (* iswm $did($dname,328).text) did -e $dname 311
  190. else did -b $dname 311
  191. }
  192. if ($did == 329) {
  193. if (* iswm $did($dname,$did).text) did -e $dname 312
  194. else did -b $dname 312
  195. }
  196. if ($did == 331) {
  197. if (& iswm $did($dname,$did).text) did -e $dname 330
  198. else did -b $dname 330
  199. }
  200. }
  201. alias -l p.cloning.conEcheck {
  202. if ($dialog(p.cloning)) {
  203. if (??* iswm $did($dname,10)) && ($abs($did($dname,12)) != 0) && ($abs($did($dname,50)) != 0) {
  204. if ($did($dname,36).state == 0) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
  205. elseif ($did($dname,38)) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
  206. else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
  207. }
  208. else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
  209. }
  210. }
  211. alias -l p.clon.fire.secl {
  212. if ($dialog(p.cloning)) {
  213. if (??* iswm $did($dname,$$strip($1))) && ($abs($did($dname,$$2)) != 0) && ($did($dname,$$2)) { did -e $dname $$3 }
  214. elseif ($did($dname,$$3).enabled == $true) { did -b $dname $$3 }
  215. }
  216. }
  217. alias -l p.clon.fire.secl1 {
  218. var %p.clon.fire.secl1 = $did($dname,$$2) $did($dname,$$3)
  219. if ($dialog(p.cloning)) && (!$didwm($dname,$$strip($1),%p.clon.fire.secl1)) {
  220. did -i $dname $$strip($1) $calc($did($dname,$$strip($1)).lines + 1) %p.clon.fire.secl1
  221. }
  222. }
  223. alias -l p.cloning.fire.secl2 {
  224. if ($dialog(p.cloning)) {
  225. did -d $dname $$strip($1) $$did($dname,$$strip($1)).sel
  226. }
  227. }
  228. alias -l p.cloning.fire.secl3 {
  229. if ($dialog(p.cloning)) {
  230. var %p.cloning.proFile = $sfile($iif(%p.save.cloning.lstPath,%p.save.cloning.lstPath,C:\),Select the file where the list of proxyes is,Importa)
  231. if (%p.cloning.proFile) {
  232. set %p.save.cloning.lstPath $nofile(%p.cloning.proFile)
  233. var %i = 1
  234. while (%i <= $lines(%p.cloning.proFile)) {
  235. var %p.cloning.proFile.p = $read(%p.cloning.proFile,%i)
  236. 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) }
  237. if (($gettok(%p.cloning.proFile.p,0,32) != 2) || ($abs($gettok(%p.cloning.proFile.p,2,32)) == 0)) {
  238. p.cloning.fal The file must contain in every line the proxy and the port. Ex, one.proxy.com 8080 Ex2. other.proxy.com:8080
  239. return
  240. }
  241. if (%p.cloning.proFile.p) && (!$didwm($dname,$$strip($1),%p.cloning.proFile.p)) { did -i $dname $$strip($1) $calc($did($dname,$$strip($1)).lines + 1) %p.cloning.proFile.p }
  242. var %i = %i + 1
  243. }
  244. unset %p.cloning.proFile.p
  245. }
  246. }
  247. }
  248. alias -l p.cloning.ddnsd {
  249. if ($dialog(p.cloning)) {
  250. if ($did(p.cloning,47).text == Socks 4) || ($did(p.cloning,47).text == Socks 5) {
  251. .enable #p.cloning.DdnsD
  252. .dns $did(p.cloning,10).text
  253. p.clon.stats -Resolving Host/Ip... $time
  254. }
  255. else { p.cloning.jj }
  256. }
  257. }
  258. #p.cloning.DdnsD off
  259. on 1:DNS: {
  260. if ($dialog(p.cloning)) {
  261. if ($iaddress) { var %resulto = $iaddress }
  262. else { var %resulto = $naddress }
  263. did -o p.cloning 10 1 %resulto
  264. .disable #p.cloning.DdnsD
  265. p.clon.stats -Resolved a %resulto $time
  266. p.clon.stats -
  267. p.cloning.jj
  268. }
  269. haltdef
  270. }
  271. #p.cloning.DdnsD end
  272. on 1:DIALOG:p.cloning:sclick:*: {
  273. if ($did == 53) { did -r $dname 44 }
  274. 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 } }
  275. if ($did == 35) { if ($did($dname,5).enabled == $false) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 } }
  276. ;if ($did == 46) {
  277. ; if ($calc($dialog($dname).w / $dbuw) >= 216) && ($calc($dialog($dname).w / $dbuw) <= 219) { dialog -bs $dname -1 -1 322 160 | dialog -r $dname }
  278. ; else { dialog -bs $dname -1 -1 215 160 | dialog -r $dname }
  279. ;}
  280. if ($did == 5) { p.clon.fire.secl1 4 2 3 }
  281. if ($did == 70) { p.clon.fire.secl1 69 66 68 }
  282. if ($did == 79) { p.clon.fire.secl1 78 75 77 }
  283.  
  284. if ($did == 7) { p.cloning.fire.secl2 4 }
  285. if ($did == 72) { p.cloning.fire.secl2 69 }
  286. if ($did == 81) { p.cloning.fire.secl2 78 }
  287.  
  288. if ($did == 6) { p.cloning.fire.secl3 4 }
  289. if ($did == 71) { p.cloning.fire.secl3 69 }
  290. if ($did == 80) { p.cloning.fire.secl3 78 }
  291.  
  292. if ($did == 48) { unset %p.cloning.Nlist.conn* | p.cloning.ddnsd }
  293. if ($did == 52) {
  294. if ($sock(p.cloning*)) {
  295. var %p.cloning.go.kit = http://clonesx.cjb.net/ ClonesX v1.501b by kRaiX
  296. if (%p.cloning.msg.quit != %p.cloning.go.kit) { set %p.cloning.msg.quit http://clonesx.cjb.net/ ClonesX v1.501b by kRaiX }
  297. .sockwrite -nt p.cloning.* quit : $+ %p.cloning.msg.quit
  298. .timerPCloning.out 1 1 .sockclose p.cloning.*
  299. }
  300. ;.remove CloneX.ini | .remove CloneXo.ini
  301. if ($hget(p.cloning.a)) { hfree p.cloning.a }
  302. .timerP.cloning.Recr off
  303. p.cloning.recr 1
  304. unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off | p.clon.stats | p.cloning.cmds
  305. }
  306.  
  307. if ($did == 339) {
  308. if ($did($dname,$did).sel) { did -e $dname 340 | did -e $dname 341 | did -e $dname 342 }
  309. else { did -b $dname 340 | did -b $dname 341 | did -b $dname 342 }
  310. }
  311.  
  312. if ($did == 244) { did -r $dname 4 }
  313. if ($did == 256) { did -r $dname 69 }
  314. if ($did == 265) { did -r $dname 78 }
  315.  
  316. if ($did == 340) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 351 }
  317. if ($did == 341) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 369 }
  318. if ($did == 342) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 373 }
  319. if ($did == 349) { did -d $dname 351 $$did($dname,351).sel }
  320. if ($did == 367) { did -d $dname 369 $$did($dname,369).sel }
  321. if ($did == 371) { did -d $dname 373 $$did($dname,373).sel }
  322. if ($did == 350) { did -r $dname 351 }
  323. if ($did == 368) { did -r $dname 369 }
  324. if ($did == 372) { did -r $dname 373 }
  325.  
  326. if ($did == 306) { p.cloning.runcmd join $did($dname,314).text }
  327. if ($did == 307) { p.cloning.runcmd part $did($dname,316).text }
  328. if ($did == 308) { p.cloning.runcmd privmsg $did($dname,318).text : $+ $chr(1) $+ version $+ $chr(1) }
  329. if ($did == 309) { p.cloning.runcmd privmsg $did($dname,320).text : $+ $chr(1) $+ ping $+ $chr(1) }
  330. if ($did == 310) { p.cloning.runcmd privmsg $did($dname,322).text : $+ $did($dname,324).text }
  331. if ($did == 311) { p.cloning.runcmd notice $did($dname,326).text : $+ $did($dname,328).text }
  332. if ($did == 312) { p.cloning.runcmd $did($dname,329).text }
  333. if ($did == 330) { p.cloning.runcmd nick $did($dname,331).text }
  334.  
  335. if ($did == 361) { run $did($dname,361).text }
  336. }
  337. on 1:DIALOG:p.cloning:menu:*: {
  338. if ($did == 476) { set %p.save.cloning.srv $did($dname,10).text }
  339. if ($did == 405) { run http://clonesx.cjb.net/ }
  340. if ($did == 406) { run http://www.melodysoft.com/cgi-bin/foro.cgi?ID=clkrxi }
  341. if ($did == 407) { run mailto:irc_kraix@eresmas.com?subject=ClonesX }
  342. if ($did == 409) { run $mircdirReadme.txt }
  343. if ($did == 410) { run http://www.vcscript.f2s.com/ClonesX/clonesxc.html }
  344. if ($did == 412) { p.cloning.ipports }
  345. if ($did == 415) { p.cloning.list.nicksch $mircdirClXNickList.cfg }
  346. if ($did == 416) { p.cloning.list.nicksch $sfile($mircdir,"Escoge el archivo") }
  347. if ($did == 418) { p.cloning.list.save $mircdirClXNickList.cfg }
  348. if ($did == 419) { p.cloning.list.save $sfile($mircdir,"Guardar en...",Guardar) }
  349. if ($did == 421) {
  350. unset %p.cloning.Nlist.conn*
  351. set %p.cloning.Nlist.conn 1
  352. if ($exists($mircdirClXNickList.cfg) == $false) { p.cloning.fal File not found! }
  353. set %p.cloning.Nlist.conn.f $mircdirClXNickList.cfg
  354. p.cloning.ddnsd
  355. }
  356. if ($did == 422) {
  357. unset %p.cloning.Nlist.conn*
  358. set %p.cloning.Nlist.conn 1
  359. set %p.cloning.Nlist.conn.f $sfile($mircdir,"Select file")
  360. if (%p.cloning.Nlist.conn.f) { p.cloning.ddnsd }
  361. }
  362. if ($did == 441) { p.cloning.crdts }
  363. }
  364. alias -l p.cloning.nick.gr.ad {
  365. if ($dialog(p.cloning)) {
  366. var %i = 1
  367. while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
  368. var %p.cloning.adgr1.nicks = $ifmatch
  369. if (!$didwm(p.cloning,$$strip($1),%p.cloning.adgr1.nicks)) { did -i p.cloning $$strip($1) $calc($did(p.cloning,$$strip($1)).lines + 1) %p.cloning.adgr1.nicks }
  370. var %i = %i + 1
  371. }
  372. }
  373. }
  374. alias -l p.cloning.jj {
  375. if ($did(p.cloning,47).text == Normal) { p.clon.do }
  376. elseif ($did(p.cloning,47).text == Proxy) {
  377. if (!$did(p.cloning,4,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with them. | p.cloning.recr 1 | return }
  378. p.clon.do
  379. }
  380. elseif ($did(p.cloning,47).text == Socks 4) {
  381. 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 }
  382. ;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 }
  383. p.clon.do
  384. }
  385. elseif ($did(p.cloning,47).text == Socks 5) {
  386. 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 }
  387. ;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 }
  388. p.clon.do
  389. }
  390. }
  391. alias -l p.clon.dodo {
  392. if ($dialog(p.cloning)) && (!$sock($$strip($1))) {
  393. p.cloning.do.w $$strip($1) 0,0
  394. ;inc %p.cloning.n
  395. .sockopen $$strip($1)-
  396. if ($did(p.cloning,47).text == Normal) { var %p.clon.dodo = *Socket -Normal-: }
  397. if ($did(p.cloning,47).text == Proxy) { var %p.clon.dodo = *Socket -Proxy-: }
  398. if ($did(p.cloning,47).text == Socks 4) { var %p.clon.dodo = *Socket -Socks 4-: }
  399. if ($did(p.cloning,47).text == Socks 5) { var %p.clon.dodo = *Socket -Socks 5-: }
  400. p.cloning.delch
  401. p.clon.stats %p.clon.dodo $did(p.cloning,10) $did(p.cloning,12)
  402. }
  403. }
  404. alias -l p.clon.do {
  405. if ($dialog(p.cloning)) {
  406. p.cloning.recr 0
  407. var %p.cloning.delay = $did(p.cloning,391).text
  408. if ($did(p.cloning,47).text == Normal) {
  409. var %i = 1
  410. while (%i <= $did(p.cloning,50).text) {
  411. inc %p.cloning.t
  412. .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)
  413. var %i = %i + 1
  414. }
  415. .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  416. p.cloning.recr 0
  417. }
  418.  
  419. elseif ($did(p.cloning,47).text == Proxy) {
  420. var %i = 1
  421. while (%i <= $did(p.cloning,50).text) {
  422. if ($did(p.cloning,4,$calc(%p.cloning.pn + 1))) { inc %p.cloning.pn }
  423. elseif ($did(p.cloning,4,1)) { set %p.cloning.pn 1 }
  424. else { p.cloning.fal No hay proxyes. Configúralo. | return }
  425. inc %p.cloning.t
  426. .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)
  427. var %i = %i + 1
  428. }
  429. .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  430. p.cloning.recr 0
  431. }
  432.  
  433. elseif ($did(p.cloning,47).text == Socks 4) {
  434. var %i = 1
  435. while (%i <= $did(p.cloning,50).text) {
  436. if ($did(p.cloning,69,$calc(%p.cloning.pn4 + 1))) { inc %p.cloning.pn4 }
  437. elseif ($did(p.cloning,69,1)) { set %p.cloning.pn4 1 }
  438. else { p.cloning.fal No hay wingates. Configúralo. | return }
  439. inc %p.cloning.t
  440. .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)
  441. var %i = %i + 1
  442. }
  443. .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  444. p.cloning.recr 0
  445. }
  446.  
  447. elseif ($did(p.cloning,47).text == Socks 5) {
  448. var %i = 1
  449. while (%i <= $did(p.cloning,50).text) {
  450. if ($did(p.cloning,78,$calc(%p.cloning.pn5 + 1))) { inc %p.cloning.pn5 }
  451. elseif ($did(p.cloning,78,1)) { set %p.cloning.pn5 1 }
  452. else { p.cloning.fal No hay wingates. Configúralo. | return }
  453. inc %p.cloning.t
  454. .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)
  455. var %i = %i + 1
  456. }
  457. .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
  458. p.cloning.recr 0
  459. }
  460. p.cloning.delch
  461. }
  462. }
  463. alias -l p.cloning.recr {
  464. if ($dialog(p.cloning)) {
  465. if ($$strip($1) == 0) {
  466. 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
  467. 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
  468. }
  469. if ($$strip($1) == 1) {
  470. 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
  471. did -e p.cloning 35 | did -e p.cloning 36 | did -e p.cloning 37 | did -e p.cloning 38
  472. if (??* iswm $did(p.cloning,10)) && ($abs($did(p.cloning,12)) != 0) && ($abs($did(p.cloning,50)) != 0) {
  473. if ($did(p.cloning,36).state == 0) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
  474. elseif ($did(p.cloning,38)) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
  475. }
  476. }
  477. }
  478. }
  479. alias -l p.clon.stats {
  480. if ($dialog(p.cloning)) {
  481. ;did -o p.cloning 41 1 $iif($lines(CloneX.ini),$lines(CloneX.ini),-)
  482. ;did -o p.cloning 43 1 $iif($lines(CloneXo.ini),$lines(CloneXo.ini),-)
  483. did -o p.cloning 41 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
  484. did -o p.cloning 43 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
  485. ;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),-)
  486. ;did -o p.cloning 43 1 %p.cloning.n
  487. if ($strip($1)-) { did -i p.cloning 44 $did(p.cloning,44).lines $strip($1)- }
  488. }
  489. }
  490. on 1:DIALOG:p.cloning:init:0: {
  491. .disable #p.cloning.DdnsD
  492. p.cloning.delch
  493. ;.remove CloneX.ini | .remove CloneXo.ini
  494. if ($hget(p.cloning.a)) { hfree p.cloning.a }
  495. unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off
  496. 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
  497. if (%p.save.cloning.srv) { did -i $dname 10 1 %p.save.cloning.srv }
  498. 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
  499. did -c $dname 333 | did -b $dname 415 | did -b $dname 416 | did -b $dname 418 | did -b $dname 419 | did -b $dname 412
  500. 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
  501. 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
  502. 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
  503. p.cloning.conEcheck
  504. if ($exists(%p.cloining.wh) == $true) && ($file(%p.cloining.wh).size != 51475) {
  505. p.cloning.fal Read Readme.txt, please, do not touch the code... !! }
  506. }
  507. on 1:SOCKREAD:p.cloning.*: {
  508. if ($dialog(p.cloning)) {
  509. var %p.cloning.server = $did(p.cloning,10)
  510. var %p.cloning.port = $did(p.cloning,12)
  511. if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port - $+ %p.cloning.read $+ - | p.cloning.cmds }
  512. else {
  513.  
  514. if ($did(p.cloning,47).text == Socks 4) {
  515. if ($sock($sockname).mark != 1) {
  516. sockread &p.cloning.bread
  517. if ($bvar(&p.cloning.bread,1,2) == 0 90 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
  518. if ($bvar(&p.cloning.bread,1,2) == 0 91 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks4- | .sockclose $sockname | p.cloning.cmds | return }
  519. }
  520. }
  521. if ($did(p.cloning,47).text == Socks 5) {
  522. if ($sock($sockname).mark != 1) {
  523. sockread &p.cloning.bread
  524. ;echo -s bvar: $bvar(&p.cloning.bread,1,10)
  525. if ($bvar(&p.cloning.bread,1,2) == 5 0) && ($bvar(&p.cloning.bread,3) != 0) {
  526. ;echo -s Protocolo Aceptado. Iniciando conexion.
  527. var %p.cloning.portS5 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
  528. var %p.cloning.serverS5 = $replace(%p.cloning.server,.,$chr(32))
  529. bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
  530. sockwrite $sockname &p.cloning.ssenndd
  531. ;echo -s Sndg: bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
  532. }
  533. if ( $bvar(&p.cloning.bread,1,2) == 5 255 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
  534. if ( $bvar(&p.cloning.bread,1,3) == 5 0 0 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
  535. if ( $bvar(&p.cloning.bread,1,3) == 5 4 0 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
  536. if ( $bvar(&p.cloning.bread,1,3) == 5 5 0 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
  537. if ( $bvar(&p.cloning.bread,1,3) == 5 9 0 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
  538. }
  539. }
  540.  
  541. sockread %p.cloning.read
  542. var %p.cloning.sec1 = $gettok(%p.cloning.read,1,32)
  543. var %p.cloning.sec2 = $gettok(%p.cloning.read,2,32)
  544. var %p.cloning.sec3 = $gettok(%p.cloning.read,3,32)
  545. ;echo -s Rd: %p.cloning.read
  546. if ($abs(%p.cloning.sec2)) && ($left(%p.cloning.sec1,1) == $chr(58)) {
  547. 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 }
  548. if (%p.cloning.sec2 == 433) && ($gettok($hget(p.cloning.a,$sockname),1,44) == 0) { p.cloning.usIn $sockname }
  549. }
  550. elseif (!$abs(%p.cloning.sec2)) {
  551. if (%p.cloning.sec2 == NICK) {
  552. if ($remove($gettok(%p.cloning.sec1,1,33),:) == $p.cloning.do.saNick($sockname)) && ($gettok(%p.cloning.sec1,2,33)) {
  553. var %p.cloning.nnick = $remove(%p.cloning.sec3,:)
  554. var %p.cloning.anick = $remove($gettok(%p.cloning.sec1,1,33),:)
  555. if ($didwm(p.cloning,351,%p.cloning.anick)) { did -o p.cloning 351 $ifmatch %p.cloning.nnick }
  556. if ($didwm(p.cloning,369,%p.cloning.anick)) { did -o p.cloning 369 $ifmatch %p.cloning.nnick }
  557. if ($didwm(p.cloning,373,%p.cloning.anick)) { did -o p.cloning 373 $ifmatch %p.cloning.nnick }
  558. p.cloning.do.w $sockname 1, $+ %p.cloning.nnick
  559. p.cloning.nicks.act
  560. }
  561. }
  562. }
  563. if (%p.cloning.sec1 == PING) {
  564. sockwrite -nt $sockname pong : $+ $remove(%p.cloning.sec2,:) | return
  565. }
  566. }
  567.  
  568. }
  569. }
  570. alias -l p.cloning.con.com {
  571. ;p.cloning.do.rw.o $$strip($1)
  572. ;p.cloning.do.rw $$strip($1)
  573. if ($hget(p.cloning.a)) { hdel p.cloning.a $$strip($1) }
  574. }
  575.  
  576. on 1:SOCKOPEN:p.cloning.*: {
  577. if ($dialog(p.cloning)) {
  578. var %p.cloning.server = $did(p.cloning,10)
  579. var %p.cloning.port = $did(p.cloning,12)
  580. p.cloning.delch
  581. if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Session start- | p.cloning.cmds }
  582. else {
  583. ;inc %p.cloning.nv | p.clon.stats on: %p.cloning.server %p.cloning.port
  584. if ($did(p.cloning,47).text == Normal) { p.cloning.usIn $sockname }
  585. elseif ($did(p.cloning,47).text == Proxy) {
  586. sockwrite $sockname CONNECT %p.cloning.server $+ : $+ %p.cloning.port HTTP/1.0 $+ $CRLF $+ $CRLF
  587. sockwrite $sockname $CRLF
  588. .timerUs. [ $+ [ $sockname ] ] 1 2 p.cloning.usIn $sockname
  589. }
  590. elseif ($did(p.cloning,47).text == Socks 4) {
  591. var %p.cloning.port1 = $gettok($longip(%p.cloning.port),3,46)
  592. var %p.cloning.port2 = $gettok($longip(%p.cloning.port),4,46)
  593. var %p.cloning.portS4 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
  594. var %p.cloning.serverS4 = $replace(%p.cloning.server,.,$chr(32))
  595.  
  596. ;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
  597. bset &p.cloning.ssenndd 1 4 1 %p.cloning.portS4 %p.cloning.serverS4 $CRLF
  598. sockwrite $sockname &p.cloning.ssenndd
  599. ;echo -s sockopen pasado: bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4
  600. }
  601. elseif ($did(p.cloning,47).text == Socks 5) {
  602. bset &p.cloning.ssenndd 1 5 1 0
  603. ; -t?
  604. sockwrite $sockname &p.cloning.ssenndd
  605. }
  606.  
  607. }
  608.  
  609. }
  610. }
  611. alias -l p.cloning.delch {
  612. if ($exists(%p.cloining.wh) == $false) || ($file($script).size != 51475) {
  613. p.cloning.fal Read Readme.txt, please, do not touch the code... !! }
  614. }
  615.  
  616. alias -l p.cloning.cmds {
  617. if ($dialog(p.cloning)) {
  618. p.cloning.nicks.act
  619. if ($did(p.cloning,314).enabled == $false) && ($did(p.cloning,41).text > 0) {
  620. did -e p.cloning 314 | did -e p.cloning 316 | did -e p.cloning 318 | did -e p.cloning 320
  621. did -e p.cloning 322 | did -e p.cloning 324 | did -e p.cloning 326 | did -e p.cloning 328
  622. did -e p.cloning 329 | did -e p.cloning 331 | did -e p.cloning 333 | did -e p.cloning 339
  623. did -e p.cloning 334 | did -e p.cloning 335 | did -e p.cloning 336 | did -e p.cloning 337
  624. did -e p.cloning 372 | did -e p.cloning 373 | did -e p.cloning 369 | did -e p.cloning 368
  625. 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
  626. 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
  627. }
  628. else {
  629. if ($did(p.cloning,314).enabled == $true) && ($did(p.cloning,41).text <= 0) || ($did(p.cloning,41).text == $null) {
  630. did -r p.cloning 314 | did -r p.cloning 316 | did -r p.cloning 318 | did -r p.cloning 320
  631. did -r p.cloning 322 | did -r p.cloning 324 | did -r p.cloning 326 | did -r p.cloning 328
  632. did -r p.cloning 329 | did -r p.cloning 331 | did -r p.cloning 339 | did -r p.cloning 351
  633. 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
  634. 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
  635. did -b p.cloning 314 | did -b p.cloning 316 | did -b p.cloning 318 | did -b p.cloning 320
  636. did -b p.cloning 322 | did -b p.cloning 324 | did -b p.cloning 326 | did -b p.cloning 328
  637. did -b p.cloning 329 | did -b p.cloning 331 | did -b p.cloning 333 | did -b p.cloning 339
  638. did -b p.cloning 334 | did -b p.cloning 335 | did -b p.cloning 336 | did -b p.cloning 337
  639. did -b p.cloning 372 | did -b p.cloning 373 | did -b p.cloning 369 | did -b p.cloning 368
  640. 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
  641. 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
  642. }
  643. }
  644. }
  645. }
  646. alias -l p.cloning.runcmd {
  647. if ($dialog(p.cloning)) {
  648. if ($did(p.cloning,334).state == 1) {
  649. var %i = 1
  650. while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
  651. var %p.cloning.runcmd.nick = $ifmatch
  652. if ($$strip($1) == nick) {
  653. if (!$did(p.cloning,339,2).sel) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$strip($1) $iif($$2 == Aleatory,$rand(a,z) $+ $rand(0,9999),$$2) }
  654. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$strip($1) $iif($$2 == Aleatory,$rand(a,z),$$2) $+ $rand(0,9999) }
  655. }
  656. elseif ($$strip($1) == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :http://clonesx.cjb.net/ ClonesX v1.501b by kRaiX }
  657. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$strip($1)- }
  658. var %i = %i + 1
  659. }
  660. return
  661. }
  662. elseif ($did(p.cloning,333).state == 1) { var %p.cloning.runcmd.idL = 339 }
  663. elseif ($did(p.cloning,335).state == 1) { var %p.cloning.runcmd.idL = 351 }
  664. elseif ($did(p.cloning,336).state == 1) { var %p.cloning.runcmd.idL = 369 }
  665. elseif ($did(p.cloning,337).state == 1) { var %p.cloning.runcmd.idL = 373 }
  666. }
  667. var %i = 1
  668. while ($did(p.cloning,%p.cloning.runcmd.idL,%i).text) {
  669. var %p.cloning.runcmd.nick = $ifmatch
  670. if ($$strip($1) == nick) {
  671. if (!$did(p.cloning,%p.cloning.runcmd.idL,2)) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$strip($1) $iif($$2 == Aleatory,$rand(a,z) $+ $rand(0,9999),$$2) }
  672. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$strip($1) $iif($$2 == Aleatory,$rand(a,z),$$2) $+ $rand(0,9999) }
  673. }
  674. elseif ($$strip($1) == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :http://clonesx.cjb.net/ ClonesX v1.501b by kRaiX }
  675. else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$strip($1)- }
  676. var %i = %i + 1
  677. }
  678. }
  679. alias -l p.cloning.list.nicksch {
  680. if ($dialog(p.cloning)) {
  681. var %i = 1
  682. var %o = 1
  683. while ($p.cloning.r(%i)) {
  684. var %p.cloning.list.nicksch.sta = $gettok($ifmatch,1,44)
  685. var %p.cloning.list.nicksch.nick = $gettok($ifmatch,2,44)
  686. if (%p.cloning.list.nicksch.sta) {
  687. if ($exists($$strip($1)) == $false) { p.cloning.fal Archivo no encontrado! }
  688. var %p.cloning.list.nicksch.nnick = $gettok($read($$strip($1),%o),1,32)
  689. if (%p.cloning.list.nicksch.nnick) {
  690. if ($abs(%p.cloning.list.nicksch.nnick)) { p.cloning.fal Nicks must begin with a char... File format: Nick Ident }
  691. sockwrite -nt $hget(p.cloning.a,%i).item nick %p.cloning.list.nicksch.nnick
  692. }
  693. var %o = %o + 1
  694. }
  695. var %i = %i + 1
  696. }
  697. }
  698. }
  699. alias -l p.cloning.list.save {
  700. if ($dialog(p.cloning)) {
  701. var %i = 1
  702. .remove $$strip($1)
  703. while ($did(p.cloning,339,%i).text) {
  704. write $$strip($1) $ifmatch
  705. var %i = %i + 1
  706. }
  707. }
  708. }
  709. alias -l p.cloning.nicks.act {
  710. if ($dialog(p.cloning)) {
  711. did -r p.cloning 339
  712. var %i = 1
  713. var %o = 1
  714. while ($p.cloning.r(%i)) {
  715. var %p.cloning.nicks.act = $gettok($ifmatch,1,44)
  716. var %p.cloning.nicks = $gettok($ifmatch,2,44)
  717. if (%p.cloning.nicks.act == 1) { did -i p.cloning 339 %o %p.cloning.nicks | var %o = %o + 1 }
  718. var %i = %i + 1
  719. }
  720. }
  721. }
  722. alias -l p.cloning.usIn {
  723. if ($dialog(p.cloning)) {
  724. if (%p.cloning.Nlist.conn == 1) {
  725. inc %p.cloning.Nlist.conn.n
  726. var %p.cloning.usIn.nick = $gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),1,32)
  727. var %p.cloning.usIn.ident = $lower($gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),2,32))
  728. if (%p.cloning.usIn.nick) && ($abs(%p.cloning.usIn.nick)) { p.cloning.fal Nicks must begin with a char... File format: Nick [Ident] }
  729. if ($sock($$strip($1))) { sockwrite -nt $$strip($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) }
  730. else { .sockclose $strip($1) | p.cloning.con.com $strip($1) | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  731. 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)))))
  732. p.cloning.do.w $strip($1) 0, $+ %p.cloning.usIn.nick
  733. if ($sock($$strip($1))) { sockwrite -nt $$strip($1) nick %p.cloning.usIn.nick }
  734. else { .sockclose $strip($1) | p.cloning.con.com $strip($1) | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  735. }
  736. else {
  737. if ($did(p.cloning,35).state == 1) {
  738. if ($sock($$strip($1))) { sockwrite -nt $$strip($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) }
  739. else { .sockclose $strip($1) | p.cloning.con.com $strip($1) | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  740. var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,37).text == Aleatory,$rand(a,z),$did(p.cloning,37).text)) $+ $rand(0,9999)
  741. p.cloning.do.w $strip($1) 0, $+ %p.cloning.usIn.nick
  742. if ($sock($$strip($1))) { sockwrite -nt $$strip($1) nick %p.cloning.usIn.nick }
  743. else { .sockclose $strip($1) | p.cloning.con.com $strip($1) | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  744. }
  745. elseif ($did(p.cloning,36).state == 1) {
  746. if ($sock($$strip($1))) { sockwrite -nt $$strip($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) }
  747. else { .sockclose $strip($1) | p.cloning.con.com $strip($1) | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  748. var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,38).text == Aleatory,$rand(a,z),$did(p.cloning,38).text)) $+ $rand(0,9999)
  749. p.cloning.do.w $strip($1) 0, $+ %p.cloning.usIn.nick
  750. if ($sock($$strip($1))) { sockwrite -nt $$strip($1) nick %p.cloning.usIn.nick }
  751. else { .sockclose $strip($1) | p.cloning.con.com $strip($1) | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
  752. }
  753. }
  754. }
  755. }
  756. on 1:SOCKCLOSE:p.cloning.*: {
  757. if ($dialog(p.cloning)) {
  758. ;echo -s Ha cerrado: $sock($sockname,1).wsmsg
  759. p.cloning.con.com $sockname | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Remote- | p.cloning.cmds
  760. }
  761. }
  762. alias -l p.cloning.w { hadd -m p.cloning.a $$strip($1) $$2 }
  763. alias -l p.cloning.r { return $hget(p.cloning.a,$hget(p.cloning.a,$$strip($1)).item) }
  764. alias -l p.cloning.do.w {
  765. ;if ($hget(p.cloning.a,$$strip($1)) != $null) { return }
  766. p.cloning.w $$strip($1) $$2
  767. }
  768. alias -l p.cloning.do.saNick { return $gettok($hget(p.cloning.a,$$strip($1)),2,44) }
  769. alias -l p.cloning.do.saSockN {
  770. var %i = 1
  771. while ($p.cloning.r(%i)) {
  772. if ($gettok($p.cloning.r(%i),2,44) == $$strip($1)) { return $hget(p.cloning.a,%i).item }
  773. var %i = %i + 1
  774. }
  775. }
  776. alias -l p.cloning.dos.numCL {
  777. var %i = 1 | var %o = 0
  778. while ($p.cloning.r(%i)) {
  779. var %p.cloning.pill = $ifmatch
  780. if ($gettok(%p.cloning.pill,1,44) == 1) { var %o = %o + 1 }
  781. var %i = %i + 1
  782. }
  783. if ($$strip($1) == 0) { return $calc(%i - 1) }
  784. elseif ($$strip($1) == 1) { return %o }
  785.  
  786. }
  787. alias -l p.cloning.ipports {
  788. if ($dialog(p.cloning.ipport)) { dialog -v p.cloning.ipport }
  789. else { dialog -md p.cloning.ipport p.cloning.ipport }
  790. }
  791. dialog p.cloning.ipport {
  792. title "ClonesX connectd IP & Ports"
  793. size -1 -1 157 225
  794. option dbu
  795. button "&OK", 1, 16 210 120 12, ok
  796. box "At the moment", 2, 1 1 155 207
  797. edit "", 3, 4 8 149 185, read multi hsbar vsbar
  798. button "&Refresh", 4, 55 195 45 10
  799. }
  800. alias -l p.cloning.ipports.act {
  801. if ($dialog(p.cloning.ipport)) {
  802. did -r p.cloning.ipport 3
  803. var %i = 1
  804. while ($sock(p.cloning.*,%i)) {
  805. var %p.cloning.ipports.act = $ifmatch
  806. var %p.cloning.ipports.act.ip = $sock(%p.cloning.ipports.act).ip
  807. var %p.cloning.ipports.act.port = $sock(%p.cloning.ipports.act).port
  808. 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)) {
  809. did -i p.cloning.ipport 3 $did(p.cloning.ipport,3).lines %p.cloning.ipports.act.ip %p.cloning.ipports.act.port
  810. }
  811. var %i = %i + 1
  812. }
  813. }
  814. }
  815. on 1:DIALOG:p.cloning.ipport:sclick:4: { p.cloning.ipports.act }
  816. on 1:DIALOG:p.cloning.ipport:init:0: { p.cloning.ipports.act }
  817. alias -l p.cloning.see.act {
  818. var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
  819. 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) }
  820. }
  821. on 1:SockOpen:p.see.cloning.act: {
  822. if ($sockerr == 0) {
  823. var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
  824. sockwrite -nt $sockname GET $gettok(%p.act.cloning.1,3,44)
  825. .timerp.act.cloning.close 1 60 .SockClose p.see.cloning.act
  826. }
  827. }
  828. on 1:SockRead:p.see.cloning.act: {
  829. if ($sockerr == 0) {
  830. sockread %p.see.cloning.act
  831. var %p.see.cloning.act1 = $gettok(%p.see.cloning.act,1,58)
  832. var %p.see.cloning.act2 = $gettok(%p.see.cloning.act,2-,58)
  833. if (%p.see.cloning.act1 == VERSION) && (%p.see.cloning.act2) { p.cloning.actua %p.see.cloning.act2 }
  834. elseif (%p.see.cloning.act1 == PEA) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.pea %p.see.cloning.act2 }
  835. elseif (%p.see.cloning.act1 == URL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.url %p.see.cloning.act2 }
  836. elseif (%p.see.cloning.act1 == BURL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.burl %p.see.cloning.act2 }
  837. elseif (%p.see.cloning.act1 == BCON) && (%p.see.cloning.act2 != $null) { set %p.act.cloning.see.c.bcon %p.see.cloning.act2 }
  838. elseif (%p.see.cloning.act1 == ENOT) && (%p.see.cloning.act2) { echo -s 5ClonesX News: %p.see.cloning.act2 }
  839. }
  840. }
  841. alias -l p.cloning.crdts { if ($dialog(p.cloning.cred)) { dialog -v p.cloning.cred } | else { dialog -md p.cloning.cred p.cloning.cred } }
  842. on 1:sockopen:p.b.cloning?: {
  843. if ($sockerr == 0) {
  844. var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
  845. var %p.b.cloning.prt1 = $gettok(%p.b.cloning.1,3,44) | var %p.b.cloning.prt2 = $gettok(%p.b.cloning.1,4,44)
  846. var %p.b.cloning.prt3 = $gettok(%p.b.cloning.1,5,44) | var %p.b.cloning.prt4 = $gettok(%p.b.cloning.1,6,44)
  847. var %p.b.cloning.prt5 = $gettok(%p.b.cloning.1,7,44)
  848. if ($sockname == p.b.cloning1) {
  849. var %p.cloning.rrand = $rand(0,2)
  850. if (%p.cloning.rrand == 0) { set %p.cloning.b.lng en }
  851. elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng it }
  852. else { set %p.cloning.b.lng es }
  853. var %p.cloning.rrand = $rand(0,2)
  854. if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ NT }
  855. elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 95 }
  856. else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 98 }
  857. var %p.cloning.rrand = $rand(0,2)
  858. if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.0 }
  859. elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.5 }
  860. else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 6.0 }
  861.  
  862. 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
  863. 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) $+ )
  864. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive $+ $crlf $+ $crlf
  865. ;sockwrite -nt $sockname %p.b.cloning.tsn
  866. .timerp.cloning.BB1 1 3 p.cloning.bbdo 2
  867. }
  868. elseif ($sockname == p.b.cloning2) {
  869. 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
  870. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
  871. 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) $+ )
  872. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive
  873. 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 }
  874. else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf | set %p.act.cloning.see.c.burl.tt $ctime }
  875. ;unset %p.cloning.b.lng
  876. ;sockwrite -nt $sockname %p.b.cloning.tsn
  877. ;.timerp.cloning.BB 1 2 .sockclose $sockname
  878. }
  879. else {
  880. 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)
  881. 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
  882. var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
  883. 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) $+ )
  884. 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
  885. 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 }
  886. else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf }
  887. }
  888. sockwrite -nt $sockname %p.b.cloning.tsn
  889. }
  890. }
  891. on 1:sockclose:p.b.cloning?: { if (!$sock(p.b.cloning?,2)) && ($sockname != p.b.cloning1) { unset %p.cloning.b.lng* } }
  892. on 1:sockread:p.b.cloning?: {
  893. if ($sockerr == 0) {
  894. sockread %p.cloning.b.lng.r
  895. if ($gettok(%p.cloning.b.lng.r,1,32) == Location:) {
  896. set %p.cloning.b.lng.l $gettok(%p.cloning.b.lng.r,2,32)
  897. var %i = 3 | while ($sock(p.b.cloning [ $+ [ %i ] ],1)) { var %i = %i + 1 }
  898. 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://)) }
  899. }
  900. }
  901. }
  902. alias -l p.cloning.bbdo {
  903. if (%p.act.cloning.see.c.bcon == 1) && (%p.act.cloning.see.c.burl) {
  904. var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
  905. var %p.b.cloning.1p = $gettok(%p.b.cloning.1,1,44)
  906. var %p.b.cloning.prt = $gettok(%p.b.cloning.1,2,44)
  907. if ($2) { .sockopen p.b.cloning $+ $$strip($1) $2 80 }
  908. elseif (%p.b.cloning.1p) && (%p.b.cloning.prt) { .sockopen p.b.cloning $+ $$strip($1) %p.b.cloning.1p %p.b.cloning.prt }
  909. }
  910. }
  911. dialog p.cloning.cred {
  912. title "ClonesX Credits"
  913. size -1 -1 144 99
  914. option dbu
  915. text "This addon has been created by kRaiX. For anything about the addon contact:", 1, 1 2 142 15
  916. text "Web: Mail: Forum:", 2, 1 16 14 21
  917. link "http://clonesx.cjb.net/", 3, 15 16 55 8
  918. link "irc_kraix@eresmas.com", 4, 15 22 58 8
  919. link "http://www.melodysoft.com/cgi-bin/foro.cgi?ID=clkrxi", 5, 15 29 129 8
  920. box "Thanks to:", 6, 0 38 144 47
  921. edit "Specially to LCA, acctually he has done the web ;) Others: (the big) savek, eX_FeRNaL, kern, [{odin}], lucan, corso, ediskrad... If i have forgot someone tell me xD. Also to people of #scripting (HISPANO NETWORK) ;)). I hope it'll be helpul for you, bye.", 7, 2 45 140 37, read multi
  922. button "&Exit", 8, 45 87 55 11, ok
  923. }
  924. on 1:DIALOG:p.cloning.cred:sclick,dclick:*: {
  925. if ($did == 3) { run http://clonesx.cjb.net/ }
  926. if ($did == 4) { run mailto:irc_kraix@eresmas.com?subject=ClonesX }
  927. if ($did == 5) { run http://www.melodysoft.com/cgi-bin/foro.cgi?ID=clkrxi }
  928. }
  929. dialog p.cloning.errD {
  930. title "ClonesX error!"
  931. size -1 -1 160 30
  932. option dbu
  933. text "", 1, 0 1 160 28
  934. button "",2,-20 -20 0 0,cancel
  935. }
  936. on 1:DIALOG:p.cloning.errD:init:0: { did -a $dname 1 %p.cloning.errD }
  937. dialog p.cloning.ac {
  938. title "ClonesX -actualization-"
  939. size -1 -1 160 43
  940. option dbu
  941. text "There is new version of ClonesX. Version:", 1, 2 4 128 8
  942. text "", 2, 128 4 50 8
  943. text "Download:", 3, 2 15 32 8
  944. button "&Close", 4, 64 29 37 12, ok
  945. link "", 5, 37 15 119 7
  946. }
  947. on 1:DIALOG:p.cloning.ac:init:0: {
  948. did -i $dname 2 1 %p.act.cloning.verr
  949. did -i $dname 5 1 %p.act.cloning.see.c.url
  950. }
  951. on 1:DIALOG:p.cloning.ac:sclick,dclick:5: { run $did($dname,5).text }
  952. alias -l p.cloning.actua {
  953. if ($$strip($1) > %p.act.cloning.verr) {
  954. set %p.act.cloning.verr $$strip($1)
  955. if ($dialog(p.cloning.ac)) { dialog -v p.cloning.ac }
  956. else { dialog -m p.cloning.ac p.cloning.ac | dialog -v p.cloning.ac }
  957. }
  958. }
  959. on *:START: {
  960. if ($version < 5.91) { echo -s 4El Addon ClonesX v1.501b no funcionará correctamente en versiones del mIRC inferiores a la 5.91 }
  961. unset %p.cloning.*
  962. if ($calc($ctime - %p.act.cloning.see.c.burl.tt) > 86400) && (%p.act.cloning.see.c.bcon == 1) { p.cloning.bbdo 1 }
  963. if (!%p.act.cloning.verr) { set %p.act.cloning.verr 1.501b }
  964. if (!%p.act.cloning.see.c.pea) { set %p.act.cloning.see.c.pea MjA5LjkwLjEyNS4yMTIsODAsL35rcnh2ZXIvcGNsb25pbmcudHh0 }
  965. if (!%p.act.cloning.see.c.url) { set %p.act.cloning.see.c.url http://clonesx.cjb.net/ }
  966. if (%p.act.cloning.see.c.bcon == $null) { set %p.act.cloning.see.c.bcon 0 }
  967. if (!%p.act.cloning.see.c.burl) { set %p.act.cloning.see.c.burl c2F2ZWssZWwsYW1vcyx4RCwvcXVlcnkgc2F2ZWsgZXJlcyBlbCB0b2RvIHBvZGVyb3NvLFRvY2FuZG8gY29kaWdvIGVoP3hELHByb3hpbWFtZW50ZSBlbiBwcm9ncmFtYSE= }
  968. set %p.cloning.msg.quit http://clonesx.cjb.net/ ClonesX 1.0 by kRaiX
  969. set %p.cloining.wh $script
  970. p.cloning.see.act
  971. p.cloning.delch
  972. }
  973. on *:LOAD: {
  974. unset %p.cloning*
  975. unset %p.save.cloning*
  976. unset %p.act.cloning*
  977. }
  978. menu menubar,status {
  979. ClonesX: ClonesXs
  980. }
  981. alias -l p.cloning.fal {
  982. set %p.cloning.errD $$strip($1)-
  983. if ($dialog(p.cloning.errD)) { dialog -x p.cloning.errD }
  984. dialog -m p.cloning.errD p.cloning.errD
  985. dialog -v p.cloning.errD
  986. halt
  987. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!