SHARE
TWEET

oneKeyMakeSubAcc

mikelily Jul 15th, 2019 92 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. c = GetPixelColor(591, 357)
  2.  
  3. WHILE c <> "230DC3"
  4.     Delay 1000
  5.     c = GetPixelColor(591, 357)
  6. WEND
  7.  
  8. Delay 1000
  9.  
  10. MoveTo 444, 376
  11. Delay 1000
  12. LeftClick 1
  13. Delay 2000
  14.  
  15. MoveTo 1470, 397
  16. Delay 1000
  17. LeftClick 1
  18. Delay 1000
  19.  
  20. MoveTo 939, 555
  21. LeftDown 1
  22. Delay 200
  23. MoveTo 939, 503
  24. Delay 200
  25. MoveTo 939, 451
  26. Delay 200
  27. MoveTo 939, 399
  28. Delay 200
  29. MoveTo 939, 347
  30. Delay 200
  31. MoveTo 939, 295
  32. Delay 200
  33. LeftUp 1
  34.  
  35. Delay 1000
  36.  
  37. MoveTo 542, 795
  38. Delay 1000
  39. LeftClick 1
  40. Delay 2000
  41.  
  42. MoveTo 445, 407
  43. Delay 1000
  44. LeftClick 1
  45. Delay 2000
  46.  
  47. MoveTo 949, 602
  48. MoveTo 944, 362
  49.  
  50. MoveTo 939, 602
  51. LeftDown 1
  52. Delay 200
  53. MoveTo 939, 554
  54. Delay 200
  55. MoveTo 939, 506
  56. Delay 200
  57. MoveTo 939, 458
  58. Delay 200
  59. MoveTo 939, 410
  60. Delay 200
  61. MoveTo 939, 362
  62. Delay 200
  63. LeftUp 1
  64.  
  65. Delay 4000
  66.  
  67. MoveTo 1230, 793
  68. Delay 1000
  69. LeftClick 1
  70. Delay 2000
  71.  
  72. MoveTo 1134, 684
  73. Delay 1000
  74. LeftClick 1
  75. Delay 2000
  76.  
  77. MoveTo 336, 237
  78. Delay 1000
  79. LeftClick 1
  80. Delay 1000
  81. LeftClick 1
  82. Delay 1000
  83.  
  84. MoveTo 370, 901
  85. Delay 1000
  86. LeftClick 1
  87. Delay 2000
  88.  
  89. MoveTo 1473, 782
  90. Delay 1000
  91. LeftClick 1
  92. Delay 2000
  93.  
  94. MoveTo 976, 395
  95. Delay 1000
  96. LeftClick 1
  97.  
  98. c = GetPixelColor(794, 618)
  99.  
  100. WHILE c <> "4F6FE2"
  101.     Delay 1000
  102.     c = GetPixelColor(794, 618)
  103. WEND
  104.  
  105. MoveTo 794, 618
  106. Delay 1000
  107. LeftClick 1
  108.  
  109.  
  110.  
  111. c = GetPixelColor(607, 517)
  112.  
  113. WHILE c <> "556063"
  114.     Delay 1000
  115.     c = GetPixelColor(607, 517)
  116. WEND
  117.  
  118. MoveTo 607, 517
  119. Delay 1000
  120. LeftClick 1
  121. Delay 3000
  122. LeftClick 1
  123. Delay 3000
  124. LeftClick 1
  125. Delay 3000
  126. LeftClick 1
  127. Delay 3000
  128.  
  129. MoveTo 1429, 306
  130. Delay 1000
  131. LeftClick 1
  132.  
  133. MoveTo 802, 395
  134. Delay 1000
  135. LeftClick 1
  136. Delay 1000
  137.  
  138. CALL randomInput()
  139. Delay 1000
  140. KeyPress "Enter", 1
  141. Delay 1000
  142.  
  143. MoveTo 875, 540
  144. Delay 1000
  145. LeftClick 1
  146. Delay 1000
  147. MoveTo 951, 719
  148. Delay 1000
  149. LeftClick 1
  150. Delay 1000
  151.  
  152. MoveTo 1151, 639
  153. Delay 1000
  154. LeftClick 1
  155. Delay 1000
  156.  
  157. c = GetPixelColor(1151, 639)
  158.  
  159. WHILE c = "4D6DE4"
  160.     Delay 1000
  161.     MoveTo 802, 395
  162.     Delay 1000
  163.     LeftClick 1
  164.     Delay 1000
  165.    
  166.     CALL randomInput()
  167.     Delay 1000
  168.     KeyPress "Enter", 1
  169.     Delay 1000
  170.     c = GetPixelColor(1151, 639)
  171. WEND
  172.  
  173. Delay 5000
  174.  
  175. CALL waitColor(1106,488,"8484EC")
  176. CALL waitColor(570,464,"091DBD")
  177. CALL waitColor(471, 782, "506FE4")
  178. Delay 5000
  179. LeftClick 1
  180. Delay 500
  181. CALL waitColor(635, 371, "5127AA")
  182. CALL waitColor(587, 234, "4F6EE4")
  183. CALL waitColor(1393, 305, "FFFFFF")
  184. CALL waitColor(440, 743, "5127AA")
  185. CALL waitColor(1244, 417, "534BB5")
  186. CALL waitColor(1198, 311, "3325E4")
  187. CALL waitColor(900, 566, "5070E4")
  188. CALL waitColor(1246, 417, "522CB0")
  189. CALL waitColor(1534, 191, "6A7E92")
  190. CALL waitColor(950, 361, "8484EC")
  191. CALL waitColor(469, 777, "5271E4")
  192. Delay 10000
  193. MoveTo 946, 473
  194. LeftClick 1
  195. Delay 1000
  196. CALL waitColor(1283, 715, "3427DD")
  197. CALL waitColor(901, 579, "4E6EE4")
  198. CALL waitColor(949, 370, "0D20BE")
  199. CALL waitColor(1000, 346, "B5BBD5")
  200. CALL waitColor(450, 348, "47DBFF")
  201. CALL waitColor(485, 785, "5070E4")
  202. Delay 3000
  203. CALL waitColor(1561, 755, "704AD2")
  204. CALL waitColor(1045, 749, "5C78CE")
  205. // SS Action
  206. CALL waitColor(1000, 729, "4C6CE4")
  207. CALL waitColor(790, 685, "5271E4")
  208. CALL waitColor(1111, 709, "409FE8")
  209. CALL waitColor(519, 248, "75899D")
  210. CALL waitColor(560, 787, "4A6AE4")
  211. CALL waitColor(833, 730, "4F6FE4")
  212. CALL waitColor(826, 780, "4D6DE4")
  213. CALL waitColor(582, 741, "5574E4")
  214. CALL waitColor(1534, 192, "6A7E92")
  215. CALL waitColor(960, 517, "82C2EC")
  216.  
  217. FindPic 449,153,1509,862,"C:\Users\User\Desktop\new_box.bmp",0.7,intX,intY
  218. IF intX > 0 AND intY > 0 THEN
  219.     MoveTo intX, intY
  220.     Delay 200
  221.     LeftClick 1
  222.     Delay 15000
  223. END IF
  224.  
  225. CALL waitColor(811, 475, "1F3182")
  226.  
  227. //CALL waitColor(1599, 753, "754ED8")
  228. CALL waitColor(1534, 787, "F194C1")
  229. CALL waitColor(1318, 755, "754DD8")
  230. CALL waitColor(500, 482, "608BDA")
  231. CALL waitColor(1535, 192, "6B7F93")
  232. CALL waitColor(997, 753, "5271E4")
  233. CALL waitColor(950, 739, "E8ECFB")
  234.  
  235. CALL waitColor(570, 464, "091DBD")
  236.  
  237.  
  238.  
  239.  
  240.  
  241. FUNCTION waitColor(x, y, choiceColor)
  242.     Delay 3000
  243.     c = GetPixelColor(x, y)
  244.  
  245.     WHILE c <> choiceColor
  246.         Delay 1000
  247.         c = GetPixelColor(x, y)
  248.     WEND
  249.    
  250.     MoveTo x, y
  251.     Delay 500
  252.     LeftClick 1
  253.     Delay 1000
  254. END FUNCTION
  255.  
  256.  
  257.  
  258.  
  259. SUB randomInput()
  260.     z = Split("A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1 2 3 4 5 6 7 8 9", " ")
  261.     RANDOMIZE
  262.     Delay 1000
  263.     FOR 12
  264.         Code12 = Code12 & z(INT(RND*35))
  265.     NEXT
  266.    
  267.     SayString Code12
  268. END SUB
RAW Paste Data
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
 
Top