Advertisement
Guest User

aa

a guest
Sep 19th, 2014
263
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.80 KB | None | 0 0
  1. #RequireAdmin
  2.  
  3. HotKeySet("{F10}", "_toggle_tooltip")
  4. HotKeySet("{F11}", "_exit")
  5. AdlibRegister("_Send_key",30000)
  6.  
  7. Global $tooltip = True
  8.  
  9.  
  10. $timer = TimerInit()
  11. While 1
  12. $timer_diff = TimerDiff($timer)
  13. If $timer_diff > 1000 And $tooltip = True Then
  14. _tooltip()
  15. $timer = TimerInit()
  16. ElseIf $tooltip = False Then
  17. ToolTip("",0,0)
  18. EndIf
  19. WEnd
  20.  
  21. Func _Send_key()
  22. $title = WinGetTitle("[CLASS:ArcheAge]", "")
  23. ControlSend($title, "", "", "{space down}")
  24. Sleep(120)
  25. ControlSend($title, "", "", "{space up}")
  26. EndFunc
  27.  
  28. Func _toggle_tooltip()
  29. $tooltip = Not $tooltip
  30. EndFunc
  31.  
  32. Func _tooltip()
  33. ToolTip("F10: Toggle Tooltip" & @CRLF & "F11: Quit Anti-AFK" & @CRLF & "© Paraly",0,0,"Archeage Anti-AFK")
  34. EndFunc
  35.  
  36. Func _exit()
  37. Exit
  38. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement