Чёт я не то навставляла ((
Почему то выдаёт ошибку вообще в не той строке
название
set $path "C:\Users\Пользователь\Desktop\рисунки для пилота\" // путь к картинкам
set %image [1] bashya // имя изображения
set %image [2] bashnya_c_prava // имя второго изображения
set %image [3] bashnya_v_nizy // третьего
set %image [4] bashnya_v_verxy
set %image [5] bashnya_c_leva
set %image [6] bashnya_niz_pravo
set %image [7] verx_levo_ygol
set %image [8] basnya_verx_pravo
set %image [9] EXIT2
set #size1 size(%image) - 1 // всего картинок - 1
hint Всего картинок #size
:metka
set $a 0
while $a = 0 // пока картинка не найдена
for #i 1 #size1 // будет перебирать 8 картинок, хотя в массиве их 9
set $a findimage (1147, 32 1363, 249 ($path%image[#i].bmp) %arr 2 90 20 5 )
if $a > 0
set #x %arr [1 1] + 7
set #y %arr [1 2] + 7
break
end_if
end_for
if $a = 0
goto metka1
wait 1s
end_if
end_while
while 1 = 1 // бесконечный цикл
set $p findcolor(1154, 36 1359, 242 56831 %arr 2) // PERS
if $p > 0
set #x1 %arr [1 1]
set #y1 %arr [1 2]
wait 1s
if #x1 < #x
Send_down {right}
wait 200
Send_up {right}
wait 1s
end_if
if #x1 > #x
Send_down {left}
wait 200
Send_up {left}
wait 1s
end_if
if #y1 < #y
Send_down {down}
wait 200
Send_up {down}
wait 1s
end_if
if #y1 > #y
Send_down {up}
wait 200
Send_up {up}
wait 1s
end_if
set #x2 #x - #x1 // разница координат #x и #x1
set #x2 abs(#x2) // модуль числа, чтобы разница не была отрицательной
set #y2 #y - #y1 // разница координат #y и #y1
set #y2 abs(#y2) // модуль числа
set #const 7 // подобрать нужное значение
if #x2 < #const and #y2 < #const // проверка что перс у нужной точки
break
end_if
if #x = #x1 and #y = #y1 // проверка дошёл перс до нужных координат или нет
// координаты, скорее всего, не совпадут, лучше сравнивать разницу координат с какой-то константой
break // если дошёл, выход из цикла
end_if
end_if
end_while
wait 3000 // ждать 3 секунды
goto metka
:metka1
set $a 0
while $a = 0 // пока картинка не найдена
for #i 1 #size1 // цикл для поиска картинок
set $a findimage (1154, 36 1359, 242 (%image[9].bmp) %arr 2 90 20 5)
if $a > 0
set #x %arr [1 1] + 7
set #y %arr [1 2] + 6
break
end_if
end_for
if $a = 0
left 634, 46
wait 6s
move 634, 46
wait 3s
move 641, 92
wait 3s
Send_down {down}
wait 800
Send_up {down}
wait 1500
goto metka //--------------------------------------------
end_if
end_while
while 1 = 1 // бесконечный цикл
set $p findcolor(1154, 36 1359, 242 56831 %arr 2) // PERS
if $p > 0
set #x1 %arr [1 1]
set #y1 %arr [1 2]
wait 1s
if #x1 < #x
Send_down {right}
wait 200
Send_up {right}
wait 1s
end_if
if #x1 > #x
Send_down {left}
wait 200
Send_up {left}
wait 1s
end_if
if #y1 < #y
Send_down {down}
wait 200
Send_up {down}
wait 1s
end_if
if #y1 > #y
Send_down {up}
wait 200
Send_up {up}
wait 1s
end_if
set #x2 #x - #x1 // разница координат #x и #x1
вот в этой последней пишет : 20:42:52 19 (, 153): set - (153): Символ не распознан (pos:1 '#x - 1333')
хотя до изменения вот в этом коде ошибки нет
код
set $path "C:\Users\Пользователь\Desktop\рисунки для пилота\" // путь к картинкам
set %image [1] bashya // имя изображения
set %image [2] bashnya_c_prava // имя второго изображения
set %image [3] bashnya_v_nizy // третьего
set %image [4] bashnya_v_verxy
set %image [5] bashnya_c_leva
set %image [6] bashnya_niz_pravo
set %image [7] verx_levo_ygol
set %image [8] basnya_verx_pravo
set #size size(%image) // всего картинок
hint Всего картинок #size
:metka
set $a 0
while $a = 0 // пока картинка не найдена
for #i 1 #size 1 // цикл для поиска картинок
set $a findimage (1147, 32 1363, 249 ($path%image[#i].bmp) %arr 2 90 20 5 )
if $a > 0
set #x %arr [1 1] + 7
set #y %arr [1 2] + 7
break
end_if
end_for
if $a = 0
goto metka1
wait 1s
end_if
end_while
while 1 = 1 // бесконечный цикл
set $p findcolor(1154, 36 1359, 242 56831 %arr 2) // PERS
if $p > 0
set #x1 %arr [1 1]
set #y1 %arr [1 2]
wait 1s
if #x1 < #x
Send_down {right}
wait 200
Send_up {right}
wait 1s
end_if
if #x1 > #x
Send_down {left}
wait 200
Send_up {left}
wait 1s
end_if
if #y1 < #y
Send_down {down}
wait 200
Send_up {down}
wait 1s
end_if
if #y1 > #y
Send_down {up}
wait 200
Send_up {up}
wait 1s
end_if
set #x2 #x - #x1 // разница координат #x и #x1
set #x2 abs(#x2) // модуль числа, чтобы разница не была отрицательной
set #y2 #y - #y1 // разница координат #y и #y1
set #y2 abs(#y2) // модуль числа
set #const 7 // подобрать нужное значение
if #x2 < #const and #y2 < #const // проверка что перс у нужной точки
break
end_if
if #x = #x1 and #y = #y1 // проверка дошёл перс до нужных координат или нет
// координаты, скорее всего, не совпадут, лучше сравнивать разницу координат с какой-то константой
break // если дошёл, выход из цикла
end_if
end_if
end_while
wait 3000 // ждать 3 секунды
goto metka
:metka1
set $a 0
while $a = 0 // пока картинка не найдена
for #i 1 #size 1 // цикл для поиска картинок
set $a findimage (1154, 36 1359, 242 (C:\Users\Пользователь\Desktop\рисунки для пилота\EXIT2.bmp) %arr 2 90 20 5)
if $a > 0
set #x %arr [1 1] + 7
set #y %arr [1 2] + 6
break
end_if
end_for
if $a = 0
left 634, 46
wait 6s
move 634, 46
wait 3s
move 641, 92
wait 3s
Send_down {down}
wait 800
Send_up {down}
wait 1500
goto metka //--------------------------------------------
end_if
end_while
while 1 = 1 // бесконечный цикл
set $p findcolor(1154, 36 1359, 242 56831 %arr 2) // PERS
if $p > 0
set #x1 %arr [1 1]
set #y1 %arr [1 2]
wait 1s
if #x1 < #x
Send_down {right}
wait 200
Send_up {right}
wait 1s
end_if
if #x1 > #x
Send_down {left}
wait 200
Send_up {left}
wait 1s
end_if
if #y1 < #y
Send_down {down}
wait 200
Send_up {down}
wait 1s
end_if
if #y1 > #y
Send_down {up}
wait 200
Send_up {up}
wait 1s
end_if
set #x2 #x - #x1 // разница координат #x и #x1
set #x2 abs(#x2) // модуль числа, чтобы разница не была отрицательной