Что нового

Переход к нужной строчке? вопрос дополнен графикой

balooc

Новичок
Сообщения
18
Репутация
0
Я создаю бот подскажите команду которая позволит после выполнения действия через If перейти к строчке которая находится ниже или выше !
Код:
Run ('C:\Games\World_of_Tanks\WorldOfTanks');Запуск игры
WinActivate('W.o.T. Client');Делаем активным окно клиента
Opt("MouseCoordMode",2);Координаты окна для мышки
Opt("PixelCoordMode",2);Координаты для пикселя и его цвета
Sleep(25000);Ждём загрузку окна
MouseClick('left',467,537,1);Вход в игру
MouseClick('left',467,537,1);Вход в игру
MouseClick('left',467,537,1);Вход в игру Как отсюда
Sleep(7000);Ждать 7 сек
While 1
if PixelGetColor(809,41,1) == 0xBC6004 then ;Видит золотые монеты
	sleep(1000)
	While 3
		MouseClick('left',169,635,1);Выбор 1ого танка
        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ого танка
	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го танка
	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(501,35,1) == 0xADAF97 Then ;Неактивно
	Sleep(2500)
EndIf
WEnd
EndIf


if PixelGetColor(506,23,1) == 0x3E1511 Then перейти сюда ????????
	sleep(1000)
	While 2
	Send('к')
	sleep(1000)
Send('к')
sleep(1000)
Send('к')
sleep(1000)
Send('к')
sleep(1000)
Send('к')
sleep(1000)
Send('к')
sleep(1000)
Send('к')
sleep(1000)
Send('к')
sleep(1000)
WEnd
EndIf
WEnd
 
Автор
B

balooc

Новичок
Сообщения
18
Репутация
0
как перейти к функции while 1 ?????
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
balooc [?]
как перейти к функции while 1
huh.gif
??
Код:
Global $bOut = True

While 1
	If $bOut Then 
		_While()
	Else
		ExitLoop
	EndIf
	Sleep(250)
WEnd

Func _While()
	
	Local $i = 10
	
	While $i
		ConsoleWrite($i & @CRLF)
		Sleep(1000)
		$i -= 1
	WEnd
	$bOut = False
EndFunc ;==>_While
 
Автор
B

balooc

Новичок
Сообщения
18
Репутация
0
мне бы пояснения что к чему так хрен поймешь(
И можно сделать что то типо??
While
функция(вернутся к while)
функция(вернутся к while)
функция(вернутся к while)
 

kaster

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