Что нового

Езда по точкам

balooc

Новичок
Сообщения
18
Репутация
0
1)Версия Autoitv3
2)Мне нужно чтобы мне помогли или если возможно сделали езду танка по точкам то есть танк определяет своё место положения и какая точка к нему ближе всего затем он едет к ней от неё к другой и так пока танк не взорвётся. 21 карта на каждой нужно 3-4 точки поставить. Игра World of tanks желательно знание принципа игры.
3)выкладываю бот который я сделал и для которого нужно написать езду по точкам. Бот сам выбирает танк сам выходит из игры и сам едет вперёд.
Код:
Run('C:\Games\World_of_Tanks\WorldOfTanks')
WinActivate('W.o.T. Client');Делаем активным окно клиента
Opt("MouseCoordMode",2);Координаты окна для мышки
Opt("PixelCoordMode",2);Координаты для пикселя и его цвета
Sleep(25000);Ждём загрузку окна
While 1
	if PixelGetColor(460,531,1) == 0xB12316 Then ;Вход в игру
		MouseClick('left',460,531,1)
		MouseClick('left',460,531,1)
		MouseClick('left',460,531,1)
		Sleep(7000)
	EndIf

	if PixelGetColor(809,41,1) == 0xBC6004 Then ;Видит золотые монеты
		sleep(2500)
		MouseClick('left',169,635,1);Выбор 1ого танка
        MouseClick('left',169,635,1);Выбор 1ого танка
        Sleep(2500)
        if PixelGetColor(466,37,1) == 0xC32318 Then;Активно
	        Sleep(2500);
	        MouseClick('left',466,37,1);Вход в бой
            MouseClick('left',466,37,1);Вход в бой
            MouseClick('left',466,37,1);Вход в бой

EndIf
if PixelGetColor(501,35,1) == 0xADAF97 Then ;Неактивно
	Sleep(2500)
	MouseClick('left',337,641,1);Выбор 2ого танка
	MouseClick('left',337,641,1);Выбор 2ого танка
	Sleep(2500)
EndIf
if PixelGetColor(466,37,1) == 0xC32318 Then;Активно
	Sleep(2500);
	MouseClick('left',466,37,1);Вход в бой
    MouseClick('left',466,37,1);Вход в бой
    MouseClick('left',466,37,1);Вход в бой
EndIf
if PixelGetColor(520,35,1) == 0x91947E Then ;Неактивно
	Sleep(2500)
	MouseClick('left',508,630,1);Выбор 3го танка
	MouseClick('left',508,630,1);Выбор 3го танка
	Sleep(2500)
EndIf
if PixelGetColor(466,37,1) == 0xC32318 Then;Активно
	Sleep(2500);
	MouseClick('left',466,37,1);Вход в бой
    MouseClick('left',466,37,1);Вход в бой
    MouseClick('left',466,37,1);Вход в бой
EndIf
if PixelGetColor(520,35,1) == 0xADAF97 Then ;Неактивно
	Sleep(2500)
EndIf
EndIf
	if PixelGetColor(68,160,1) == 0x544F3F Then;выход через статистику
		sleep(2000)
		send('{esc}')
	EndIf
	if PixelGetColor(753,714,1) == 0xFB6400 Then; выход если взорван
		sleep(8000)
		Send('{esc}')
		Sleep(2000)
		MouseClick('left',456,359,1)
		MouseClick('left',456,359,1)
		MouseClick('left',456,359,1)
		Sleep(2000)
		MouseClick('left',456,359,1)
		MouseClick('left',456,359,1)
		MouseClick('left',456,359,1)
		Sleep(2000)
		MouseClick('left',538,427,1)
		MouseClick('left',538,427,1)
		MouseClick('left',538,427,1)
		Sleep(2000)
		MouseClick('left',538,427,1)
		MouseClick('left',538,427,1)
		MouseClick('left',538,427,1)
	EndIf
		sleep(1000)
		Send('к')
		Sleep(1000)
		Send('к')
	    sleep(1000)
		Send('к')
		Sleep(1000)
	WEnd
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
balooc
это последнее предупреждение
 
Верх