Advertisement
Guest User

FindMatch.au3

a guest
Apr 1st, 2015
202
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.84 KB | None | 0 0
  1. ;Proudly skidded by Vampire
  2.  
  3. HotKeySet("{F11}", "SetMouseCoords1")
  4. HotKeySet("{F8}", "Start")
  5. HotKeySet("{F9}", "Stop")
  6.  
  7. $FindMatch = false
  8. $X1 = 0
  9. $Y1 = 0
  10. $X2 = 0
  11. $Y2 = 0
  12.  
  13. While 1
  14. Sleep(10)
  15. WEnd
  16.  
  17. Func SetMouseCoords1()
  18. $MousePos = MouseGetPos()
  19. $X1 = $MousePos[0]
  20. $Y1 = $MousePos[1]
  21. HotKeySet("{F11}", "SetMouseCoords2")
  22. EndFunc
  23.  
  24. Func SetMouseCoords2()
  25. $MousePos = MouseGetPos()
  26. $X2 = $MousePos[0]
  27. $Y2 = $MousePos[1]
  28. HotKeySet("{F11}", "SetMouseCoords1")
  29. EndFunc
  30.  
  31. Func Start()
  32. $FindMatch = true
  33. While($FindMatch == true)
  34. WinActivate("Counter-Strike: Global Offensive")
  35. MouseMove($X1, $Y1, 10)
  36. Sleep(20)
  37. MouseClick("left")
  38. Sleep(20)
  39. MouseMove($X2, $Y2, 10)
  40. Sleep(20)
  41. MouseClick("left")
  42. Sleep(20)
  43. Wend
  44. EndFunc
  45.  
  46. Func Stop()
  47. $FindMatch = false
  48. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement