Здравствуйте, гость ( Вход | Регистрация )

30 страниц V « < 28 29 30  
Ответить в эту темуОткрыть новую тему
> Разработка findcolor, findimage, Pure lua
Иллидан
сообщение 6.2.2024, 9:42
Сообщение #581


**

Neophyte
Сообщений: 16
Регистрация: 22.3.2023
Группа: Пользователи
Наличность: 0
Пользователь №: 20.504
Возраст: 99



попробовал сделать так

Код
set #proce 55//75
set #otten 15//25
set #a findimage (0 0 1600 900 (Scripts\Screens/1.bmp) %arr 2 #proce -1 #otten)
set #w size (%arr) // получим число найденных картинок
msg Найдено картинок: #w
//hint Найдено картинок: #w

:metka
for #i 1 #w
    set #x %arr [#i 1]+5
    set #y %arr [#i 2]+5
    set #distaX #x //для определения разницы координат между текущей и предыдущей точкой
    set #distaY #y
    if  #distaX > #distaX+8 or #distaY > #distaY+8
        hint картинка #i в координатах: #x #y
        move_smooth #x #y     // переместить курсор на найденную картинку
    else
        set #x %arr [#i 1]+5 //координаты для сравнения
        set #y %arr [#i 2]+5
        goto metka
    end_if
end_for

end_script


но не понял как сделать сравнение координат между последними 2 точками из for, что бы при большой разнице сразу начинался переход на следующую найденную картинку, за указанными в #distaX > #distaX+8 or #distaY > #distaY+8 пределами от последней найденной картинки (IMG:style_emoticons/default/ohmy.gif)
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
nykep
сообщение 6.2.2024, 20:44
Сообщение #582


****

Apprentice
Сообщений: 233
Регистрация: 1.9.2012
Группа: Пользователи
Наличность: 1161
Пользователь №: 15.246
Возраст: 25



насчет синтаксиса не уверен, но может как то так
Код

set #x 0
set #y 0
set #k 1
:metka
for #i #k #w
    if abs(#x - %arr [#i 1]) > 8 or abs(#y - %arr [#i 2]) > 8
        set #x %arr [#i 1]
        set #y %arr [#i 2]
        move_smooth #x #y
    else
        set #k #i + 1
        goto metka
    end_if
end_for
end_script
Пользователь в онлайне!Delete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

30 страниц V « < 28 29 30
Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 28.3.2024, 20:03
Designed by Nickostyle