+ открыть спойлер
Loop
{
PixelSearch, Px, Py, 842, 479, 969, 580, 0xFFFFFF, 0, Fast RGB
If ErrorLevel = 0
Break
}
MsgBox, X%Px% Y%Py%.
;MouseMove, %Px%, %Py%
;--- запуск цикла while
;--- при каждом повторении проверяется условие
;--- если переменная color не равна 0xF7F7F7
while color <> 0xF7F7F7
;--- то выполняются команды в фигрурных скобках
{
MouseClick, , 458, 40
Sleep, 50
PixelGetColor, color, 458, 40, BGR
Sleep, 100
}
;--- как только условие выполнилось
;--- и color равна 0xF7F7F7, цикл while останавливается
;--- и продолжается выполнение скрипта далееМне нужен код который будет, ждать цвета, при появлении цвета действие 1 раз и продолжение скрипта.
Кучу форумов перелазил, ничего так и не нашёл.
]]>блок мониторинга жизней у персонажа
Параллельно основному скрипту, блок мониторинга жизней у персонажа, если появляется пиксель (в обозначенной области) то приостанавливает предыдущий скрипт и посылает ряд клавиш... после чего возобнавляет скрипт.
Вот что у меня пока что получилось:
WinActivate название с игрой
Send, {7}
SetKeyDelay, 500
Send, {0}
SetKeyDelay, 500
Loop
{
PixelSearch, Px, Py, 479, 460, 865, 463, 0x0D0F74, 3, Fast BGR
If ErrorLevel
{
Send, {7}
SetKeyDelay, 300
Send, {0}
}
else
{
Send, {9}
}
}
return
Есть вполне работающий скрипт с UOPilot, но он затействует только мышь, а я хочу оставить мышь в покое и использовать только посыл клавиш.
wait 4s // тут просто программа ждет пока я разверну окно с игрой
kleft 798, 152 abs // это нажатия мышкой (их я заменю посылом клавиш)
wait 1000
kLeft 903, 151 abs
wait 1000
set $b 0
[b]while $a > 1 \\блок поиска пикселя
set $a findcolor (743, 432 862, 446 1 1 855924 %arr 2)
end_while
set $a 0
while $a < 1
set $a findcolor (743, 432 862, 446 1 1 855924 %arr 2)
end_while[/b]
kLeft 830, 152 abs
wait 500
kLeft 830, 152 abs
Параллельно работает второй скрипт на самолечение
if_not 645, 852 38112
pause_script 0
repeat 3
kleft 566, 137 abs
end_repeat
wait 1000
kLeft 674, 171 abs
wait 500
kLeft 721, 143 abs
resume_script 0
end_if
SendInput 50
Sleep 200на:
ControlSetText, Edit1, 50, Clip Speed / Duration1:
Send ^{vk52}
WinWait Clip Speed / Duration
SendInput 50
Sleep 200
PixelGetColor, SpeedColor, 48, 194
if (SpeedColor = 0x171717)
ControlClick, x48 y194, Clip Speed / Duration
SendInput {Enter}
return
1::
PixelGetColor, SpeedColor1, 48, 194
MouseMove, 48, 194, Clip Speed / Duration
MouseGetPos,x,y
PixelGetColor, SpeedColor2, x, y
msgbox % SpeedColor1 "`n" SpeedColor21::
CoordMode, Pixel, Window
Send ^{vk52}
WinWait Clip Speed / Duration
SendInput 50
Sleep 100
MouseMove, 48, 194, Clip Speed / Duration
MouseGetPos,x,y
PixelGetColor, SpeedColor, x, y
if (SpeedColor = 0x0)
ControlClick, x48 y194, Clip Speed / Duration
SendInput {Enter}
returnСтоит заменить
MouseMove, 48, 194, Clip Speed / Duration
MouseGetPos,x,y
PixelGetColor, SpeedColor, x, yна
PixelGetColor, SpeedColor, 48, 194- работать перестает.
В общем, можно и так оставить, но интересно, что здесь не так, как надо.
]]>