API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 20th, 2017
274
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.57 KB | None | 0 0
raw download clone embed print report
  1. begin
  2. if Color.Pixel pattern can be located on screen("207,173,0,5,0,207,173,0,0,5,198,163,7,0,5,235,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0")
  3. begin
  4. Function.Execute("AntiAutoCheck")
  5. end
  6. end
  7. begin loop()
  8. Keyboard.Hold keys("{<tab>}4")
  9. Keyboard.Release keys("{<tab>}4")
  10. Function.Execute("Heal")
  11. Function.Execute("AntiAutoCheck")
  12. // RGB of the digi you want to attack
  13. if Color.At coordinate is (RGB)("178", "184", "60", "871", "51")
  14. begin loop()
  15. Keyboard.Release keys("1")
  16. Keyboard.Release keys("{<f2>}")
  17. Keyboard.Release keys("{<f1>}")
  18. Keyboard.Hold keys("4")
  19. Keyboard.Release keys("4")
  20. Function.Execute("Heal")
  21. Function.Execute("AntiAutoCheck")
  22. // Same co ordinates of the previous check
  23. if Color.At coordinate is not (RGB)("178", "184", "60", "871", "51")
  24. begin
  25. Macro.Restart("yes")
  26. end
  27. end
  28. // Pumokinmon
  29. if Color.At coordinate is (RGB)("72", "70", "79", "874", "41")
  30. begin loop()
  31. Keyboard.Release keys("1")
  32. Keyboard.Release keys("{<f2>}")
  33. Keyboard.Release keys("{<f1>}")
  34. Keyboard.Hold keys("4")
  35. Keyboard.Release keys("4")
  36. Function.Execute("Heal")
  37. Function.Execute("AntiAutoCheck")
  38. // Same co ordinates of the previous check
  39. if Color.At coordinate is not (RGB)("72", "70", "79", "874", "41")
  40. begin
  41. Macro.Restart("yes")
  42. end
  43. end
  44. // RGB of the red square of aggro monsters around the fist
  45. if Color.At coordinate is (RGB)("164", "0", "29", "410", "67")
  46. begin loop()
  47. Keyboard.Hold keys("4")
  48. Keyboard.Hold keys("{<f2>}")
  49. Keyboard.Release keys("4")
  50. Keyboard.Hold keys("1")
  51. Keyboard.Release keys("1")
  52. Function.Execute("Heal")
  53. Function.Execute("AntiAutoCheck")
  54. // Same RGB from above
  55. if Color.At coordinate is not (RGB)("164", "0", "29", "410", "67")
  56. begin
  57. Macro.Restart("yes")
  58. end
  59. end
  60. // Same RGB from above
  61. if Color.At coordinate is not (RGB)("164", "0", "29", "410", "67")
  62. begin
  63. Macro.Restart("yes")
  64. end
  65. end
  66.  
  67. function("Human Pause")
  68. begin
  69. Variable.Set random number("HumanTime", "300", "600")
  70. Macro.Pause("{HumanTime}")
  71. end
  72. function
  73.  
  74. function("Heal")
  75. // RGB of a part of digimon hp , preferable about 25% of your digimon HP , this uses Hp DISK in slot F4
  76. if Color.At coordinate is not (RGB)("216", "65", "54", "128", "128")
  77. begin
  78. Keyboard.Hold keys("{<f4>}")
  79. Keyboard.Release keys("{<f4>}")
  80. end
  81. // RGB of a part of digimon hp to use FOOD in slot F6 , preferably specify about 50% of digimon HP
  82. if Color.At coordinate is not (RGB)("216", "65", "54", "192", "128")
  83. begin
  84. Keyboard.Hold keys("{<f6>}")
  85. Function.Execute("Human Pause")
  86. Keyboard.Release keys("{<f6>}")
  87. end
  88. // RGB for Digimon DS to use DS DISK in slot F3
  89. if Color.At coordinate is not (RGB)("28", "239", "255", "127", "143")
  90. begin
  91. Keyboard.Hold keys("{<f3>}")
  92. Macro.Pause("50")
  93. Keyboard.Release keys("{<f3>}")
  94. end
  95. // RGB for TAMER DS , slot F5
  96. if Color.At coordinate is not (RGB)("15", "241", "255", "115", "68")
  97. begin
  98. Keyboard.Hold keys("{<f5>}")
  99. Macro.Pause("50")
  100. Keyboard.Release keys("{<f5>}")
  101. end
  102. function
  103. begin
  104. Function.Execute("AntiAutoCheck")
  105. end
  106.  
  107. function("AntiAutoCheck")
  108. begin
  109. if System.Process is not running("MADCATZMP")
  110. begin
  111. Function.Execute("OpenMP")
  112. end
  113. // Here is the Pixel Pattern for Yellow time Progress Bar
  114. if Color.Pixel pattern can be located on screen("207,173,0,5,0,207,173,0,0,5,198,163,7,0,5,235,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0")
  115. begin
  116. // Here is the Pixel Pattern for Yellow time Progress Bar
  117. Color.Wait for and locate pixel pattern("207,173,0,5,0,207,173,0,0,5,198,163,7,0,5,235,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7","0", "CoX", "CoY")
  118. File.Read first line("C:\GDMO\MADCATZMPID.txt", "MADCATZMPID2")
  119. Window.Restore("{MADCATZMPID2}", "no")
  120. File.Write text("C:\GDMO\Spots.txt", "no", "{CoX}")
  121. File.Write text("C:\GDMO\Spots.txt", "yes", "{CoY}")
  122. Window.Set always on top("{MADCATZMPID2}", "no", "yes")
  123. Macro.Pause("200")
  124. Window.Bring to front("{MADCATZMPID2}", "no")
  125. // Variables to Calculate
  126. Variable.Evaluate (Math)("{CoX}+8", "StartX")
  127. Variable.Evaluate (Math)("{CoY}-57", "StartY")
  128. Variable.Evaluate (Math)("{CoX}+49", "EndX")
  129. Variable.Evaluate (Math)("{CoY}-16", "EndY")
  130. Variable.Evaluate (Math)("{CoX}-3", "AllX")
  131. Variable.Evaluate (Math)("{CoY}+35", "AllY")
  132. Variable.Evaluate (Math)("{CoX}+243", "AllEndX")
  133. Variable.Evaluate (Math)("{CoY}+131", "AllEndY")
  134. // Select Mouse Coordinates to Mark Target Button
  135. Window.Bring to front("{MADCATZMPID2}", "no")
  136. Window.Get location("{MADCATZMPID2}", "no", "no", "MPX", "MPY")
  137. Variable.Evaluate (Math)("{MPX}+30", "MPX2")
  138. Variable.Evaluate (Math)("{MPY}+5", "MPY2")
  139. Mouse.Move to coordinate("{MPX2}", "{MPY2}")
  140. Mouse.Click("left")
  141. Window.Send mouse click("{MADCATZMPID2}", "no", "2", "0", "0", "Left")
  142. Macro.Pause("500")
  143. Mouse.Drag("{StartX}", "{StartY}", "{EndX}", "{EndY}", "Left")
  144. Macro.Pause("100")
  145. // Select Mouse Coordinates to Mark Area Button
  146. Window.Send mouse click("{MADCATZMPID2}", "no", "8", "0", "0", "Left")
  147. Macro.Pause("500")
  148. Mouse.Drag("{AllX}", "{AllY}", "{AllEndX}", "{AllEndY}", "Left")
  149. Macro.Pause("100")
  150. Window.Bring to front("{MADCATZMPID2}", "no")
  151. Window.Get location("{MADCATZMPID2}", "no", "no", "MPX", "MPY")
  152. Variable.Evaluate (Math)("{MPX}+30", "MPX3")
  153. Variable.Evaluate (Math)("{MPY}+7", "MPY3")
  154. Mouse.Move to coordinate("{MPX3}", "{MPY3}")
  155. Mouse.Click("left")
  156. // Here is the Pixel Pattern for Yellow time Progress Bar
  157. if Color.Pixel pattern can be located on screen("207,173,0,5,0,207,173,0,0,5,198,163,7,0,5,235,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0")
  158. begin loop()
  159. Macro.Pause("200")
  160. Keyboard.Press keys("{<f9>}")
  161. Macro.Pause("500")
  162. if Mouse.Coordinates are not equal to("{MPX3}", "{MPY3}")
  163. begin
  164. Mouse.Click("left")
  165. end
  166. // Here is the Pixel Pattern for Yellow time Progress Bar
  167. if Color.Pixel pattern can not be located on screen("207,173,0,5,0,207,173,0,0,5,198,163,7,0,5,235,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0")
  168. begin
  169. Keyboard.Press keys("{<f10>}")
  170. Window.Set always on top("{MADCATZMPID2}", "no", "no")
  171. Macro.Restart("no")
  172. end
  173. end
  174. end
  175. end
  176. function
  177.  
  178. function("OpenMP")
  179. if System.Process is not running("MADCATZMP")
  180. begin
  181. // in here the path of the Program
  182. System.Launch application("C:\GDMO\MADCATZMP.exe", "no")
  183. Window.Wait for window to appear("MadCatz MP", "no")
  184. Window.Get window id("MadCatz MP", "no", "0", "MADCATZMPID")
  185. Window.Set always on top("{MADCATZMPID}", "no", "yes")
  186. Macro.Pause("200")
  187. when Window.Is visible("{MADCATZMPID}", "no")
  188. begin
  189. Window.Bring to front("{MADCATZMPID}", "no")
  190. Window.Get location("{MADCATZMPID}", "no", "no", "MPX", "MPY")
  191. Variable.Evaluate (Math)("{MPX}+30", "MPX2")
  192. Variable.Evaluate (Math)("{MPY}+5", "MPY2")
  193. Mouse.Move to coordinate("{MPX2}", "{MPY2}")
  194. Mouse.Click("left")
  195. Macro.Pause("100")
  196. Window.Close("{MADCATZMPID}", "no")
  197. Macro.Pause("100")
  198. Window.Get window id("MadCatz MP", "no", "0", "MADCATZMPID4")
  199. Window.Bring to front("{MADCATZMPID4}", "no")
  200. Window.Get location("{MADCATZMPID4}", "no", "no", "MPX", "MPY")
  201. Macro.Pause("200")
  202. Variable.Evaluate (Math)("{MPX}+30", "MPX2")
  203. Variable.Evaluate (Math)("{MPY}+5", "MPY2")
  204. Mouse.Move to coordinate("{MPX2}", "{MPY2}")
  205. Mouse.Click("left")
  206. Window.Get text("{MADCATZMPID4}", "yes", "18", "no", "Seconds")
  207. Window.Set selected text("{MADCATZMPID4}", "Yes", "18", "{Seconds}")
  208. Window.Send press keys("{MADCATZMPID4}", "yes", "18", "0")
  209. Macro.Pause("100")
  210. Window.Get text("{MADCATZMPID4}", "yes", "20", "no", "Second")
  211. Window.Set selected text("{MADCATZMPID4}", "Yes", "20", "{Second}")
  212. Window.Send press keys("{MADCATZMPID4}", "yes", "20", "1")
  213. Macro.Pause("100")
  214. Window.Get text("{MADCATZMPID4}", "yes", "29", "no", "Percentage")
  215. Window.Set selected text("{MADCATZMPID4}", "Yes", "29", "{Percentage}")
  216. Window.Send press keys("{MADCATZMPID4}", "yes", "29", "60")
  217. end
  218. Macro.Pause("200")
  219. Function.Execute("MovingMP")
  220. end
  221. function
  222.  
  223. function("MovingMP")
  224. // this place is the icon in the title bar so it will move it the the end of the screen to not interfere with the game if macro is appeard
  225. if Window.Is visible("{MADCATZMPID4}", "no")
  226. begin
  227. Window.Get location("{MADCATZMPID4}", "no", "no", "MPX", "MPY")
  228. Variable.Evaluate (Math)("{MPX}+30", "MPX2")
  229. Variable.Evaluate (Math)("{MPY}+7", "MPY2")
  230. Mouse.Move to coordinate("{MPX2}", "{MPY2}")
  231. System.Get combined screen resolution("ResoX", "ResoY")
  232. Variable.Evaluate (Math)("{ResoX}-25", "ResX")
  233. Variable.Divide (Math)("ResoY", "2")
  234. Variable.Evaluate (Math)("{ResoY}-100", "ResY")
  235. Mouse.Hold button("left")
  236. Mouse.Move to coordinate("{ResX}", "{ResY}")
  237. Mouse.Release button("left")
  238. Mouse.Save coordinate to variable("MouseX", "MouseY")
  239. File.Write text("C:\GDMO\MADCATZMPID.txt", "No", "{MADCATZMPID4}")
  240. File.Write text("C:\GDMO\Macro.txt", "No", "{MouseX}")
  241. File.Write text("C:\GDMO\\Macro.txt", "Yes", "{MouseY}")
  242. Window.Set always on top("{MADCATZMPID4}", "no", "yes")
  243. Window.Bring to front("{MADCATZMPID4}", "no")
  244. end
  245. function
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!