Advertisement
EnduringGuerila

Untitled

Sep 1st, 2017
125
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.23 KB | None | 0 0
  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. #MaxThreadsPerHotkey 2
  7. #SingleInstance, force
  8.  
  9. ;Delete this line if you want the script to run even when PUBG isnt active (if you want it to work for another game)
  10. #IfWinActive, PLAYERUNKNOWN'S BATTLEGROUNDS
  11.  
  12.  
  13. global KeyDownQ = false
  14. global KeyDownE = false
  15.  
  16. $q::
  17. KeyDownQ := !KeyDownQ
  18. If KeyDownQ {
  19. SendInput {q down}
  20. If KeyDownE { ;
  21. KeyDownE := !KeyDownE
  22. SendInput {e up}
  23. }
  24. }
  25. Else
  26. SendInput {q up}
  27. Return
  28.  
  29. $e::
  30. OutputDebug entered e
  31. KeyDownE := !KeyDownE
  32. If KeyDownE {
  33. SendInput {e down}
  34. If KeyDownQ {
  35. KeyDownQ := !KeyDownQ
  36. SendInput {q up}
  37. }
  38. }
  39. Else
  40. SendInput {e up}
  41. Return
  42.  
  43.  
  44. $l::
  45. Loop
  46. {
  47. GetKeyState, ShiftKey, Shift
  48. GetKeyState, DoubleU, W
  49. If (ShiftKey = "D" and DoubleU = "D")
  50. {
  51. If KeyDownQ {
  52. KeyDownQ := !KeyDownQ
  53. SendInput {q up}
  54. }
  55. else If KeyDownE {
  56. KeyDownE := !KeyDownE
  57. SendInput {e up}
  58. }
  59. }
  60. }
  61. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement