Advertisement
Guest User

Untitled

a guest
Oct 21st, 2019
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.18 KB | None | 0 0
  1. ;======= Script Settings =======
  2.  
  3. F11::Reload
  4. #SingleInstance, Force
  5. #IfWinActive, ahk_exe archeage.exe
  6. SendMode, Input
  7.  
  8. ; ======= Functions =======
  9.  
  10. WaitRandom(a, b)
  11. {
  12. Random, amount, a, b
  13. Sleep, amount
  14. return
  15. }
  16.  
  17. Press(key)
  18. {
  19. Send, {Blind}{%key% down}
  20. WaitRandom(15,30)
  21. Send, {Blind}{%key% up}
  22. return
  23. }
  24.  
  25. ClickNear(x, y)
  26. {
  27. Random, shiftX, -5, 5
  28. Random, shiftY, -5, 5
  29. MouseMove, x+shiftX, y+shiftY, 100
  30. WaitRandom(100, 250)
  31. Press("LButton")
  32. return
  33. }
  34.  
  35. ToggleCapsLock()
  36. {
  37. if GetKeyState("CapsLock", "T") = 1
  38. {
  39. SetCapsLockState, off
  40. }
  41. else
  42. {
  43. SetCapsLockState, on
  44. }
  45. return
  46. }
  47.  
  48. ; ======= Routines =======
  49.  
  50. OpenHiram()
  51. {
  52. ClickNear(865, 400)
  53. WaitRandom(300, 600)
  54. ClickNear(925, 805)
  55. WaitRandom(300, 600)
  56. ClickNear(920, 585)
  57. return
  58. }
  59.  
  60.  
  61. ; ======= Keybinds =======
  62.  
  63. F1::OpenHiram()
  64. LWin::Send, {Numpad6}
  65. *CapsLock::
  66. Send, {Home}
  67. Send, {Blind}{Insert}
  68. ; ~*Home::Press("Insert")
  69.  
  70.  
  71. ; ======= Space =======
  72.  
  73. enable = false
  74.  
  75. F8::
  76. if (enable := !enable)
  77. setTimer, routine, -1
  78. return
  79.  
  80. routine:
  81. while enable
  82. {
  83. Press("Space")
  84. ; Press("LButton")
  85. WaitRandom(420000, 840000)
  86.  
  87. }
  88. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement