Guest User

AHK Soda Drinkers

a guest
Jul 1st, 2019
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
  2. ; #Warn  ; Enable warnings to assist with detecting common errors.
  3. SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
  4. SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
  5.  
  6. toggle=0
  7.  
  8. F11::
  9. If (toggle := !toggle)
  10.     SetTimer, Timer, -1
  11.     StartTime := A_TickCount
  12. return
  13.  
  14. timer:
  15. while toggle
  16. {
  17.     ElapsedTime := A_TickCount - StartTime
  18.     if (ElapsedTime < 3000) {
  19.     send, {1 down}
  20.     sleep, 10
  21.     send, {1 up}
  22.     }
  23.     if (ElapsedTime > 3000) and (ElapsedTime < 6000) {
  24.     send, {2 down}
  25.     sleep, 10
  26.     send, {2 up}
  27.     } else if (ElapsedTime > 6000) and (ElapsedTime < 9000) {
  28.     send, {3 down}
  29.     sleep, 10
  30.     send, {3 up}
  31.     } else if (ElapsedTime > 9000) and (ElapsedTime < 12000) {
  32.     send, {4 down}
  33.     sleep, 10
  34.     send, {4 up}
  35.     } else if (ElapsedTime > 12000) and (ElapsedTime < 15000) {
  36.     send, {5 down}
  37.     sleep, 10
  38.     send, {5 up}
  39.     } else if (ElapsedTime > 15000) and (ElapsedTime < 18000) {
  40.     send, {6 down}
  41.     sleep, 10
  42.     send, {6 up}
  43.     } else if (ElapsedTime > 18000) {
  44.     StartTime := A_TickCount
  45.     }
  46.  
  47.     Click, down
  48.     Click, down, right
  49.     sleep, 10
  50.     Click, up
  51.     Click, up, right
  52.     Sleep, 10
  53. }
  54. return
Advertisement
Add Comment
Please, Sign In to add comment