Xyberviri

harvest.au3

Feb 25th, 2020
1,131
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; hold middle mouse button to left click
  2. ; Shift+pause to terminate the script, pause key to pause it... no more RIP LMB
  3. Global $Paused
  4. HotKeySet("{PAUSE}", "TogglePause")
  5. HotKeySet("+{PAUSE}", "Terminate")
  6.  
  7. #Include <Misc.au3>
  8. While 1
  9. $end = 1
  10.  
  11. while _IsPressed(04)
  12. ;swing the whatever
  13. mousedown("left")
  14. mouseup("left")
  15. sleep(100)
  16. ;throw a bomb
  17. mousedown("right")
  18. mouseup("right")
  19. sleep(100)
  20. tooltip("clicking",0,0)
  21.     wend
  22.   tooltip("",0,0)
  23. WEnd
  24.  
  25. Func TogglePause()
  26.   $Paused = NOT $Paused
  27.   While $Paused
  28.     sleep(100)
  29.     ToolTip('Script is "Paused"',0,0)
  30.   WEnd
  31.   ToolTip("")
  32. EndFunc
  33.  
  34. Func Terminate()
  35.     Exit 0
  36. EndFunc
RAW Paste Data