Advertisement
Guest User

Untitled

a guest
Jan 22nd, 2018
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.39 KB | None | 0 0
  1. #include <imageSearch.au3>
  2. #include <Misc.au3>
  3.  
  4. HotKeySet ("{^}","startstop")
  5. HotKeySet ("{F6}","start")
  6. HotKeySet ("{F7}","pause")
  7. HotKeySet ("{F8}","stop")
  8. $x = 0
  9. $y = 0
  10. $z = 0
  11.  
  12. While 1
  13. Sleep (1000)
  14. WEnd
  15.  
  16. Func startstop()
  17. If $z = 0 Then
  18. Call ("start")
  19. Else
  20. call ("pause")
  21. EndIf
  22. EndFunc
  23.  
  24. Func start()
  25. $z = 1
  26. While 1
  27. $res1 = _ImageSearchArea( "fury\1.png", 1, 260, 740, 340, 810, $x, $y, 70 )
  28. if $res1 = 1 Then
  29. Send ("{NUMPAD1}")
  30. EndIf
  31. $res2 = _ImageSearchArea( "fury\2.png", 1, 260, 740, 340, 810, $x, $y, 70 )
  32. if $res2 = 1 Then
  33. Send ("{NUMPAD2}")
  34. EndIf
  35. $res3 = _ImageSearchArea( "fury\3.png", 1, 260, 740, 340, 810, $x, $y, 70 )
  36. if $res3 = 1 Then
  37. Send ("{NUMPAD3}")
  38. EndIf
  39. $res4 = _ImageSearchArea( "fury\4.png", 1, 260, 740, 340, 810, $x, $y, 70 )
  40. if $res4 = 1 Then
  41. Send ("{NUMPAD4}")
  42. EndIf
  43. $res5 = _ImageSearchArea( "fury\5.png", 1, 260, 740, 340, 810, $x, $y, 70 )
  44. if $res5 = 1 Then
  45. Send ("{NUMPAD5}")
  46. EndIf
  47. $res6 = _ImageSearchArea( "fury\6.png", 1, 260, 740, 340, 810, $x, $y, 70 )
  48. if $res6 = 1 Then
  49. Send ("{NUMPAD6}")
  50. EndIf
  51. $res7 = _ImageSearchArea( "fury\7.png", 1, 260, 740, 340, 810, $x, $y, 70 )
  52. if $res7 = 1 Then
  53. Send ("{NUMPAD7}")
  54. EndIf
  55. WEnd
  56. EndFunc
  57.  
  58. func pause()
  59. $z = 0
  60. While 1
  61. Sleep(1000)
  62. WEnd
  63. EndFunc
  64.  
  65. func stop ()
  66. Exit
  67. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement