Advertisement
Guest User

Untitled

a guest
Feb 24th, 2020
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.83 KB | None | 0 0
  1. begin
  2. while Color.At coordinate is not (RGB)("0", "186", "255", "573", "156")
  3. begin
  4. Function.Execute with timeout("Mod", "1500")
  5. end
  6. if Color.At coordinate is (RGB)("0", "186", "255", "573", "156")
  7. begin
  8. while Color.Pixel pattern can not be located on screen("231,186,49,9,0,198,36,123,-3,-31,239,239,239", "0")
  9. begin
  10. Mouse.Click at coordinate("806", "144", "left")
  11. Macro.Pause("100")
  12. end
  13. Color.Find pixel pattern("231,186,49,9,0,198,36,123,-3,-31,239,239,239", "0", "yes", "varX", "varY")
  14. Macro.Pause("100")
  15. Mouse.Drag("{varX}", "{varY}", "506", "300", "left")
  16. Macro.Pause("100")
  17. Mouse.Click at coordinate("588", "483", "left")
  18. Color.Wait for color at coordinate to be (RGB)("1", "1", "1", "665", "290")
  19. Mouse.Click at coordinate("453", "386", "left")
  20. Macro.Pause("300")
  21. Color.Find pixel pattern("0,4,74,8,-29,206,203,206,3,27,255,247,123", "0", "yes", "varMEX", "varMEY")
  22. Macro.Pause("100")
  23. Mouse.Drag("{varMEX}", "{varMEY}", "506", "300", "left")
  24. Macro.Pause("100")
  25. end
  26. end
  27.  
  28. function("Mod")
  29. begin
  30. Mouse.Click at coordinate("588", "483", "left")
  31. Macro.Pause("500")
  32. Color.Wait for color at coordinate to be within (RGB range)("187", "187", "185", "20", "670", "285")
  33. Mouse.Click at coordinate("453", "386", "left")
  34. // Color.Wait for color at coordinate not to be within (RGB range)("58", "40", "0", "10", "420", "489")
  35. Color.Wait for color at coordinate not to be (RGB)("61", "40", "0", "423", "489")
  36. end
  37. function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement