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

 
Ответить в эту темуОткрыть новую тему
> Repeat
Vitol
сообщение 4.4.2019, 14:11
Сообщение #1


***

Novice
Сообщений: 51
Регистрация: 8.9.2018
Группа: Пользователи
Наличность: 0
Пользователь №: 19.031
Возраст: 22



Как сделать так, что бы проигрыватель запускался, только если Reapeat сделался два раза, а не сразу же после того как while(цвета) пропадет ? Или я что-то не понимаю (IMG:style_emoticons/default/sad.gif)

Repeat 2
set #timeout timer + 95000 // 3 минуты 438, 258 -20 +48

// ждать пока есть хотя бы один из цветов и не вышло время
while (1075, 761 9155021 or 637, 670 16777215 or 637, 648 14672871) and timer < #timeout
wait 1
end_while
if timer >= #timeout // если вышло время
send M
wait 750 + random(50)
wheel_down 300 300 ^ 3
wait 1550 + random(50)
set #d findcolor (206, 6 631, 620 1 1 (12646388 ) %arr 2 -1 2) //ищем цвет зведочки(12908532 старый, если что вместо того, который сейчас)
if #d > 0 // если найден нужный цвет, то делаем двойной левый клик мышкой в первой найденной точке
set #x %arr [1 1] - 20 //в сторону от координаты звезды по X
set #y %arr [1 2] + 48 //в сторону от координаты звезды по Y
wait 1000 + random(50)
left #x #y
wait 650 + random(100)
left 764, 422
wait 5500 + random(500)
end_if
send {Esc}
wait 500
left 814, 332
left 814, 332
wait 250
send_down R
wait 5 + random(5)
send_down D
wait 750 + random(5)
send_up D
wait 22500 + random(50)
send_up R
end_if
end_if
end_repeat
Exec C:\Program Files (x86)\Windows Media Player\wmplayer.exe
wait 4500 + random(50)
kleft 1331, 399 abs
end_script
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
cirus
сообщение 4.4.2019, 14:13
Сообщение #2


**********

Elder
Сообщений: 3.480
Регистрация: 18.8.2014
Группа: Пользователи
Наличность: 26576
Пользователь №: 16.971
Возраст: 29



В скрипте лишний end_if. Скрипт --> форматировать.
Пользователь в онлайне!Delete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Vitol
сообщение 4.4.2019, 14:26
Сообщение #3


***

Novice
Сообщений: 51
Регистрация: 8.9.2018
Группа: Пользователи
Наличность: 0
Пользователь №: 19.031
Возраст: 22



Спасибо, точно, получилось.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Vitol
сообщение 4.4.2019, 14:59
Сообщение #4


***

Novice
Сообщений: 51
Регистрация: 8.9.2018
Группа: Пользователи
Наличность: 0
Пользователь №: 19.031
Возраст: 22



Хотя нет, не получилось
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
FREEON
сообщение 4.4.2019, 17:10
Сообщение #5


*****

Journeyman
Сообщений: 365
Регистрация: 14.2.2017
Группа: Пользователи
Наличность: 1320
Пользователь №: 18.346
Возраст: 25



Код
Repeat 2
    set #timeout timer + 180000 // 3 минуты
    // ждать пока есть хотя бы один из цветов и не вышло время
    while  timer < #timeout
        if_not 1075 761 9155021 or 637 670 16777215 or 637 648 14672871
            break
        end_if
        wait 1s
        log ждем...
    end_while
    if  timer >= #timeout // если вышло время
        send M
        wait 750 + random(50)
        wheel_down 300 300 ^ 3
        wait 1550 + random(50)
        set #d findcolor (206, 6 631, 620 1 1 (12646388 ) %arr 2 -1 2) //ищем цвет зведочки(12908532 старый, если что вместо того, который сейчас)
        if  #d > 0 // если найден нужный цвет, то делаем двойной левый клик мышкой в первой найденной точке
            set #x %arr [1 1] - 20 //в сторону от координаты звезды по X
            set #y %arr [1 2] + 48 //в сторону от координаты звезды по Y
            wait 1000 + random(50)
            left #x #y
            wait 650 + random(100)
            left 764, 422
            wait 5500 + random(500)
        end_if
        send {Esc}
        wait 500
        left 814, 332
        left 814, 332
        wait 250
        send_down R
        wait 5 + random(5)
        send_down D
        wait 750 + random(5)
        send_up D
        wait 22500 + random(50)
        send_up R
    end_if
end_repeat
Exec C:\Program Files (x86)\Windows Media Player\wmplayer.exe
wait 4500 + random(50)
kleft 1331, 399 abs
end_script
Пользователь в онлайне!Delete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

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