#IfWinActive  ahk_class Turbine Device Class
SendMode Play

f::
SendMode Play
i=0
speed := 1.50/1.55
delay=500                                            
monkrecall=1                                        
np=0
k=0
n=0  
m=0                                                                                    ;часть переменных можно удалить, это всё отладочные какахи, но мне впадлу
ahk_class = Turbine Device Class
WinGetPos, , , wx, wy, A


start:

imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\recall.bmp                       
j=0
mouseclick, left, x, y                                                  
sleep 100
mouseclick, left, x, y
sleep 100      
              
send !{1}
sleep 300 
MouseClick, left, 796, 625	                                ;Yes BUTTON

imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\meridia.bmp                  ;
while (errorlevel=1 and j<=200)

{
	sleep 100
        imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\meridia.bmp
        j:=j+1
}

imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\meridia.bmp 
if errorlevel=0                                                         

        {
    sleep 200
    send {s down}     
           sleep, 500*speed                                                       
        	Send {s up}    
    sleep 50

    click, down, right                                                              
        	sleep 50
    MouseMove, 900, 0, 100, R
    click, up, right
    sleep 50
    click, up, right
    
        }
	
              
        while errorlevel=0               
        {
    
                send {q}                   
                sleep 50
                send {e}
                sleep delay                
                imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\theshroud.bmp
                j=0
                while (errorlevel=1 and j<=delay)                                       
                {
                        sleep 100
                        imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\theshroud.bmp
                        j:=j+100
                }
 
                if j>=delay                                                             
                {
                        imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\meridia.bmp
                        continue                                                        
                }
 
                imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\reset.bmp                
                if errorlevel=0
                {
                        mouseclick, left, x, y                                          ;reset button
                        sleep 50
                        mouseclick, left, x, y
                        sleep 50
                        MouseClick, left, (wx/2-48), (wy/2+60)                          ;Yes BUTTON
                        sleep 50
                        MouseClick, left, (wx/2-48), (wy/2+60)                         
                        sleep 50
                        send {q}
                        sleep 50
                        send {e}
                        sleep delay                                                     
                        j=0
                        imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\theshroud.bmp
                        while (errorlevel=1 and j<=delay)
                        {
                                sleep 100
                                imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\theshroud.bmp
                                j:=j+100
                        }
                        if j>=delay                                                     
                        {
                                imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\meridia.bmp
                                continue 
                        }
                }
 
                imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\elite.bmp  
                if errorlevel=0
                {
                        mouseclick, left, x, y                                          ;жмем элиту
                        sleep 50
                        mouseclick, left, x, y
                        sleep 50
                }
 

                imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\enter.bmp                ;ищем и жмем вход
                if errorlevel=0
                {
                        mouseclick, left, x, y
                        sleep 50
                        mouseclick, left, x, y
                        sleep 50
                }
       
                imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\meridia.bmp                



        }
 
        imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\quest.bmp                       ;смотрим вошли ли мы в квест



       while errorlevel=1
       {
               sleep 50
               imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\quest.bmp

        }
 
	send {w down}
	sleep, 2300*speed    	     
	send {w up}
	sleep 100
                    	
	Send {q}                                                                        
        sleep, 50
        Send {e}
	sleep 500
	
	j=0
        
	imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp                 
        while (errorlevel=1 and j<=2000)                                               ;ждем %delay% пока не начнется разговор, если не начинается - реколимся
        {
                sleep 100
                j:=j+100
                imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp 
        }
        
	
	if j>2000
       
	{

    goto start
        	
	}

	

	while errorlevel=0                                                              ;жамкаем Ф1 пока стрелка не пропадет
        {
                sleep 200
    send ^{F1}
                sleep 50
                imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
    sleep 300                
        }

	send !{2}

return

f8::
pause
return