Мышь и клавиатура

; разрешение экрана 1280х800
; F10 запуск / остановка кача
 
Opt("SendKeyDownDelay", 35) ; Глобальная задержка для удержания клавиши в нажатом состоянии 35мс
Opt("PixelCoordMode", 2)
Func _WinWaitActivate($title,$text,$timeout=0)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc
 
ToolTip("started, wait aa", 0, 0)
$COUNTER=0
HotKeySet("{F10}","StartOrStop") ; хоткей старта и остановки если надо более одной копии скрипта запустить используйте другие клавиши
HotKeySet("{F11}","Terminate")
Global $STOP = True
Global $AA_TITLE = "- ArcheAge " ; Название ОКНА клиента. Если используете мульти-окна переименовывайте их по-разному и в точности вписывайте название (лучше скопировать)
 
Global $hp_color = 0x
 
; В данном варианте скрипт привяжется через HWND к первому найденному окну.
_WinWaitActivate($AA_TITLE ,"")
Global $hWnd = WinActive($AA_TITLE ,"")
sleep(1000)
 
ToolTip("aa found!", 0, 0)
 
Global $BUFF1_COUNT = TimerInit()
Global $BUFF2_COUNT = TimerInit()
Global $BUFF3_COUNT = TimerInit()
Global $NeedShield = False
Global $ShieldTryCount = 0
 
Do
    Sleep(1000)
Until $STOP = False
While (1)
    Main()
WEnd
 
 
 
Func Main()
HotKeySet("{F1}","click")
$pos = MouseGetPos()
MouseClick("primary", 428, 199, 1, 0)
Sleep (1000)
MouseClick("primary", 880, 64, 1, 0)
EndFunc
 
Func StartOrStop()
    If $STOP = True Then
 
        ;On START action
        ToolTip("STARTED! Press F10 for stop", 0, 0) ; подсказка о состоянии работы скрипта в левом верхнем углу
        $STOP = False
    Else
        ;On STOP action
        ;ColorCheck()
        ToolTip("STOPPED! Press F10 for start", 0, 0)
        $STOP = True
    EndIf
 EndFunc
 
Func Terminate()
    Exit 0
EndFunc