Поломка антимакроса.
Экран должен быть открыт. Версия пилота посвежее.
Применяется как модуль к другим скриптам.
set $Path C:\
set $exp .bmp
set #acc 80
set #step 300
set #p 0
:begin
set #n 0
set $name ams
set #startX 0
set #startY 0
set #endX 640
set #endY 480
return
:find
wait #step
set $c findimage (#startX #startY #endX #endY ($Path$name$exp) %crds 2 #acc 1 0 abs)
if $c > 0
pause_script 0
set #x %crds[1 1]
set #y %crds[1 2]
set $name c
:findfor
if #p = 1 and #startX = 0
set #p 0
set #startX #x
set #startY #y + 34
set #endX #x + 128
set #endY #y + 88
end_if
if #p = 0 and #startX = 0
set #p 1
set #startX #x - 63
set #startY #y + 34
set #endX #x + 3
set #endY #y + 86
end_if
return
For #n 1 8 1
wait #step
set $c findimage (#startX #startY #endX #endY ($Path$name#n$exp) %crds 2 #acc 1 0 abs)
if $c > 0
set #startX #x - 63
set #startY #y + 105
set #endX #x + 132
set #endY #y + 210
wait #step
set $c findimage (#startX #startY #endX #endY ($Path$name#n$exp) %crds 2 #acc 1 0 abs)
set #x %crds[1 1]
set #y %crds[1 2]
wait #step
move #x #y
wait #step
left #x #y
if #p = 0
goto findfor
else
goto begin
end_if
end_if
end_for
else
goto find
end_if
resume_script 0
goto begin
Ссылка на картинки, надо распаковывать на диск C:
[Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]