View difference between Paste ID: xDzNcfvC and Fmn6pnV2

 #IfWinActive  ahk_class Turbine Device Class
 
 F1::
 MouseGetPos, xbag, ybag
 return
 
 F2::
 MouseGetPos, xcbag, ycbag
 return
 
 F3::
 MouseGetPos, xshared, yshared
 return
 
 F4::
 MouseGetPos, xcrunch, ycrunch
 return
 
 F5::
 MouseGetPos, xcard, ycard
 return
 
 
 F10::
 
 SendMode Event
 
 i=0
 coun=7
 j=0
 xbagoffset=35
 xcrunchoffset=-130
 ycrunchoffset=-80
 ycardoffset=40
 ahk_class = Turbine Device Class
 
 while (i=0 and j<coun)
 {
 
 pixelgetcolor, crunch, xcrunch, ycrunch
 while (crunch!=0x000000 and i=0)
 {
 MouseClick, left, Xcbag, Ycbag
 sleep 100
 MouseClick, left, Xcbag, Ycbag
 sleep 3000
 
 send {q}
 sleep 100
 send {e}
 sleep 300
 WinGetPos, , , x, y, A
 mousemove, (x/2), (y/2-40)
 sleep 300
 send ^{F1}
 sleep 3000
 
 MouseClick, left, (xcbag+xbagoffset), ycbag
 sleep 100
 MouseClick, left, (xcbag+xbagoffset), ycbag
 sleep 100
 MouseClick, left, (xcbag+xbagoffset), ycbag
 sleep 300
 
 MouseClickDrag, left, xcard, ycard, (xcrunch+xcrunchoffset), (ycrunch+ycrunchoffset)
 sleep 300
 MouseClickDrag, left, xcard, (ycard+ycardoffset), (xcrunch+xcrunchoffset), (ycrunch+ycrunchoffset)
 sleep 300
 pixelgetcolor, crunch, xcrunch, ycrunch
 }
 
 while (crunch=0x000000 and i=0 and j<coun)
 {
 MouseClick, left, (xcbag+xbagoffset), ycbag
 sleep 100
 MouseClick, left, (xcbag+xbagoffset), ycbag
 sleep 100
 MouseClick, left, (xcbag+xbagoffset), ycbag
 sleep 300
 
 Run, wmic path win32_networkadapter where NetConnectionID="1" call disable, , hide
 sleep 500
 MouseClickDrag, left, (xcbag+xbagoffset), ycbag, xshared, yshared
 sleep 300
 j:=j+1
 MouseClick, left, (xcrunch+xcrunchoffset), ycrunch
 sleep 4500
 Run, wmic path win32_networkadapter where NetConnectionID="1" call enable, , hide
 sleep 300
 
 pixelgetcolor, color, xshared, yshared
 while (color<0x111111 and i=0)
 {
 sleep 100
 pixelgetcolor, color, xshared, yshared
 }
 
 MouseClickDrag, left, (xcbag+xbagoffset), ycbag, xbag, ybag
 sleep 300
 MouseClick, left, xshared, yshared
 sleep 100
 MouseClick, left, xshared, yshared
 sleep 100
 MouseClick, left, xshared, yshared
 sleep 300
 
 pixelgetcolor, color, xshared, yshared
 while (color>0x111111 and i=0)
 {
 sleep 100
 pixelgetcolor, color, xshared, yshared
 }
 
 pixelgetcolor, crunch, xcrunch, ycrunch
 }
 
 }
 return
 
 
 F8::
 pause
 return
 
 
 
 
 F9::
 SendMode Play
 i=0
 speed=1     							                	;ебашь сюда 150/твоя_скорость епт
-delay=1000										;ожидание в миллисекундах открытия всех окон
+delay=1000										;ожидание в миллисекундах открытия всех окон, в случае проблем со входом в крусиблю раскомментить две строки где то дальше
 monkrecall=1										;использование монкорекола 0=выкл, 1=вкл
 np=0											;поворот перед крусиблом, настоятельно рекомендуется держать выключенным, 0=выкл, 1=вкл
 ahk_class = Turbine Device Class
-errorlevel=0
+
 
 While i = 0
 {
 	imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\ruins.bmp
 	if errorlevel=0
 	{
 		Send {s down}								;бежим взад
 		sleep 2600*speed
 		Send {s up}
 		sleep 100
 	}
 
 	if np=1
 	{
 		mousemove, (wx/2), (wy/2)
 		click, down, right
 		sleep 50
-;		sleep delay
+		click, down, right
 		sleep 300
 		MouseMove, 1100, 0, 100, R
 		sleep 50
 		click, up, right
 		sleep 50
 		click, up, right
 		sleep 50
 	}
 
 	while errorlevel=0								;цикл который будет работать пока не войдем в квест
 	{
 		send {q}								;открываем меню
-			continue 2							;возвращаемся к мэйну и бежим еще раз взад, мало ли
+
 		send {e}
 ;		sleep delay								;раскомментить в случае проблем
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\menu.bmp
 		j=0
 		while (errorlevel=1 and j<=delay)					;ждем 1 сек как откроется меню
 		{
 			sleep 100
 			imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\menu.bmp
 			j:=j+100
 		}
 
 		if j>=delay 								;если меню за 1 сек не открылось повторяем цикл с самого начала
 		{
 			npi:=2-np
 			imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\ruins.bmp
 			continue %npi%							;возвращение в самый первый цикл
-;			sleep delay
+
 
 		imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\reset.bmp		;смотрим нужно ли ресетить квест и ресетим
 		if errorlevel=0
 		{
 			mouseclick, left, x, y						;reset button
 			sleep 100
 			mouseclick, left, x, y
 			sleep 100
 			MouseClick, left, (wx/2-48), (wy/2+60)        			;Yes BUTTON
 			sleep 100
 			MouseClick, left, (wx/2-48), (wy/2+60)
 			sleep 100
 			send {q}
 			sleep 100
 			send {e}
 ;			sleep delay							;раскомментить в случае проблем
 			j=0
 			imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\menu.bmp
 			while (errorlevel=1 and j<=delay)
 			{
 				sleep 100
 				imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\menu.bmp
 				j:=j+100
 			}
 			if j>=delay 							;если меню за 1 сек не открылось повторяем цикл с самого начала
 			{
 				imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\ruins.bmp
 				continue 2
 			}
 		}
 
 		imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\elite.bmp		;ищем кнопку с элитной сложностью
 		if errorlevel=0
 		{
 			mouseclick, left, x, y						;жмем элиту
 			sleep 100
 			mouseclick, left, x, y
 			sleep 100
 		}
 
 		imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\enter.bmp		;ищем и жмем вход
 		if errorlevel=0
 		{
 			mouseclick, left, x, y
 			sleep 100
 			mouseclick, left, x, y
 			sleep 100
 		}
 
 		imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\ruins.bmp		;смотрим находимся ли мы еще в руинах
 	}
 
 	imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\crucible.bmp			;смотрим вошли ли мы в крусибл
 	while errorlevel=1
 	{
 		sleep 100
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\crucible.bmp
 	}
 
 	mousemove, (wx/2), (wy/2)							;двигаем мышь в центр дабы ПКМ могли нажать
 	click, down, right								;зажимаем ПКМ
 	sleep 50
 	click, down, right
 
 	Send {w down}
 	sleep 5100*speed								;бежим до бочки
 	Send {Space}									;прыгаем над бочком
 	sleep 50
 	MouseMove, -30, 0, 100, R							;поворачиваем чуть налево
 	Sleep 4000*speed
 	send {space}									;прыгаем меж шкафом и гоблином
 	sleep 850*speed
 	MouseMove, 120, 0, 100, R							;поворачиваем к гиганту
 	Sleep 650*speed
 	Send {w up}
 	sleep 100
 	MouseMove, 1090, 0, 100, R							;разворачиваемся на ~180 ибо триггер сработал
 	sleep 100
 	Send {w down}
 	sleep 1900*speed								;бежим к первому
 	Send {w up}
 	MouseMove, 400, 0, 100, R							;разворачиваемся к первому
 	sleep 100
 
 	Send {q}      									;говорим с первым
 	sleep, 100
 	Send {e}
 	j=0
 	imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	while (errorlevel=1 and j<=delay)						;ждем %delay% пока не начнется разговор, если не начинается - реколимся
 	{
 		sleep 100
 		j:=j+100
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	}
 	if j>=delay
 		gosub recall
 	while errorlevel=0								;жамкаем Ф1 пока трелка не пропадет
 	{
 		send ^{F1}
 		sleep 50
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	}
 	MouseMove, -400, 0, 100, R							;разворачиваемся от первого
 	sleep 100
 
 	Send {w down}
 	sleep 2200*speed								;бежим ко второму
 	Send {w up}
 	MouseMove, 400, 0, 100, R							;разворачиваемся ко второму
 	sleep 100
 
 	Send {q}									;говорим со вторым
 	sleep, 100
 	Send {e}
 	j=0
 	imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	while (errorlevel=1 and j<=delay)
 	{
 		sleep 100
 		j:=j+100
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	}
 	if j>=delay
 		gosub recall
 	while errorlevel=0
 	{
 		send ^{F1}
 		sleep 50
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	}
 	MouseMove, 650, 0, 100, R							;разворачиваемся от второго
 	sleep 100
 
 	Send {w down}
 	sleep 2000*speed								;бежим к третьему
 	MouseMove, 300, 0, 100, R							;первый поворот направо
 	sleep 2150*speed
 	MouseMove, -390, 0, 100, R							;второй поворот налево
 	sleep 900*speed
 	Send {w up}
 	sleep, 100
 
 	Send {q}									;говорим с третьим
 	sleep, 100
 	Send {e}
 	j=0
 	imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	while (errorlevel=1 and j<=delay)
 	{
 		sleep 100
 		j:=j+100
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	}
 	if j>=delay
 		gosub recall
 	while errorlevel=0
 	{
 		send ^{F1}
 		sleep 50
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	}
 	MouseMove, 1050, 0, 100, R							;разворачиваемся от третьего
 	sleep 100
 
 	Send {w down}
 	sleep 1000*speed								;бежим к третьему
 	MouseMove, 300, 0, 100, R							;поворот направо
 	sleep 2150*speed
 	MouseMove, -200, 0, 100, R							;поворот налево
 	sleep 1900*speed
 	Send {w up}
 	sleep, 100
 
 	Send {q}									;говорим с четвертым
 	sleep, 100
 	Send {e}
 	j=0
 	imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	while (errorlevel=1 and j<=delay)
 	{
 		sleep 100
 		j:=j+100
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	}
 	if j>=delay
 		gosub recall
 	while errorlevel=0
 	{
 		send ^{F1}
 		sleep 50
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\arrow.bmp
 	}
 
 
 	recall:										;метка рекола
 
 	sleep 300									;отжимаем ПКМ
 	click, up, right
 	sleep 300
 
 	imagesearch, x, y, 0, 0, wx, wy, %a_scriptdir%\recall.bmp			;ищем кнопку рекол, делаем это вне цикла дабы, если ддошка лагнет и будем грузиться дольше 20 секунд, не жамкать на рекол в гиантхолде
 	while i=0									;цикл будем крутить пока не среколимся
 	{
 		sleep 50
 		click, up, right
 		j=0
 		mouseclick, left, x, y							;жмем рекол
 		sleep 100
 		mouseclick, left, x, y
 		sleep 100
 
 		if monkrecall=1								;жмем первую или вторую стоку
 		{
 			Send ^{1}
 			monkrecall=2
 		}
 		else if monkrecall=2
 		{
 			send ^{3}
 			monkrecall=1
 		}
 		sleep, 230
 
 		MouseClick, left, (wx/2-48), (wy/2+100)        				;Yes BUTTON
 
 		imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\ruins.bmp			;ждем 20 секунд или пока не среколимся
 		while (errorlevel=1 and j<=200)
 		{
 			sleep 100
 			imagesearch, , , 0, 0, wx, wy, %a_scriptdir%\ruins.bmp
 			j:=j+1
 
 		}
 		if errorlevel=0								;если наконец в руинах - прекращаем
 			break
 	}
 }
 return
 
 F11::
 Sendmode Play
 i=0
 ahk_class = Turbine Device Class
 while i=0
 {
 MouseMove, -200, 0, 100, R
 sleep 500
 MouseMove, 200, 0, 100, R
 sleep 500
 }
 return
 
 
 F12::
 if i = 1
 {
 Run, wmic path win32_networkadapter where NetConnectionID="1" call enable, , hide
 i=0
 }
 else
 {
 Run, wmic path win32_networkadapter where NetConnectionID="1" call disable, , hide
 i = 1
 }
 return
 
 F6::
 ahk_class = Turbine Device Class
 i=0
 j=0
 window=6PEBHO
 WinGet, PID, PID, %window%
 HWND := DllCall("OpenProcess", "Uint", 0x1F0FFF, "int", 0, "int", PID)
 gui new
 Gui +LastFound +AlwaysOnTop -Caption +ToolWindow
 Gui, Add, text, vMyText,xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 WinSet, TransColor, 000000 150
 Gui, Show, x10 y460 NoActivate
 while i=0
 {
 	dllcall("ReadProcessMemory", "Uint", HWND, "Uint", 0x017F2270, "Float*", x, "Uint", 4, "Uint *", 0)
 	dllcall("ReadProcessMemory", "Uint", HWND, "Uint", 0x017F2274, "Float*", y, "Uint", 4, "Uint *", 0)
 	dllcall("ReadProcessMemory", "Uint", HWND, "Uint", 0x017F2278, "Float*", z, "Uint", 4, "Uint *", 0)
 	dllcall("ReadProcessMemory", "Uint", HWND, "Uint", 0x017EE34C, "Uint*", hpointer, "Uint", 4, "Uint *", 0)
 	dllcall("ReadProcessMemory", "Uint", HWND, "Uint", hpointer+0x667D0, "Float*", h, "Uint", 4, "Uint *", 0)
 ;	msgbox x:%x%     y:%y%     z:%z%    h:%h%
 	GuiControl,, MyText, x:%x%     y:%y%     z:%z%    h:%h%
 	sleep 500
 }
 return