Author Topic: Нужны перерывы в работе скрипта  (Read 2183 times)

0 Members and 2 Guests are viewing this topic.

Fuego47

  • Освоившийся
  • **
  • Posts: 20
    • View Profile
Нужны перерывы в работе скрипта
« on: March 09, 2019, 08:58:41 PM »
Перерывы рандомным интервалом 10-20 минут каждые 2 часа (желательно тоже рандомно например 01:00-01:17, а в след раз 03:25-03:40) Буду очень благодарен за помощь
Code: [Select]
WAIT(RND(1,7))
GETSCREEN(0, 0, 1365, 767)
IF_PICTURE_IN (0, 76, 300, 600, "001.bmp")     //Условие 1
   PRINT("Оценен")
   WAITMS(100)
   KEYPRESS(RNDFROM(#1,#1,#2,#2,#2,#3,#3,#3,#3,#3,#3))
   WAITMS(100)
ELSE
   PRINT("1 нет оценки")
   IF_PICTURE_IN (900, 280, 1160, 410, "004.bmp")     //Условие 2
      PRINT("ОП")
      WAITMS(100)
      KEYPRESS(#9)
      WAITMS(100)
   ELSE
      PRINT("2 нет ОП")
      IF_PICTURE_IN (1034, 269, 1084, 331, "005.bmp")     //Условие 3
         PRINT("Арг на пуст")
         WAITMS(100)
         LCLICK(71,247)
         WAITMS(50)
         HSET(HGET(71,247),1)
         WAITMS(50)
         KEYSTRING(TFREAD("Text2.txt", RND(1,TFCOUNT("Text2.txt"))))
         WAITMS(50)
         HSET(0,0)
         WAITMS(200)
         LCLICK(77,289)
      ELSE
         PRINT("3 не арг на пуст")
         IF_PICTURE_IN (0, 76, 192, 410, "002.bmp")     //Условие 4
            PRINT("Арг на полн")
            WAITMS(100)
            LCLICK(71,247)
            WAITMS(50)
            HSET(HGET(71,247),1)
            WAITMS(50)
            KEYSTRING(TFREAD("Text.txt", RND(1,TFCOUNT("Text.txt")))) /
            WAITMS(50)
            HSET(0,0)
            WAITMS(50)
            LCLICK(77,289)
         ELSE
            PRINT("3б не арг на полн")
            IF_PICTURE_IN (0, 76, 192, 410, "003.bmp")     //Условие 5
               PRINT("Решение по спору")
               WAITMS(100)
               KEYPRESS(RNDFROM(#9,#9,#9,#9,#9,#9,#9))
            ELSE
               PRINT("4 нет Решения по спору")
            END_IF
         END_IF
      END_IF
   END_IF
END_IF
WAITMS(200)
LCLICK(105,12)
WAITMS(100)
LCLICK(343,583)

Fuego47

  • Освоившийся
  • **
  • Posts: 20
    • View Profile
Re: Нужны перерывы в работе скрипта
« Reply #1 on: March 09, 2019, 09:50:43 PM »
Или просто подскажите как самому задать время включение и выключения и снова включения...

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Нужны перерывы в работе скрипта
« Reply #2 on: March 09, 2019, 10:12:07 PM »
Code: (clickermann) [Select]
IF($Timer_na_dva_chasa)
   IF($Timer_na_dva_chasa > $_time_t)
      // Здесь твой код
   else
      WAIT(RND (600, 1200))
      $Timer_na_dva_chasa = $_time_t+7200
   END_IF
else
   $Timer_na_dva_chasa = $_time_t+7200
END_IF
WAITMS(50)
« Last Edit: March 09, 2019, 10:15:47 PM by Hito »
Я не ду... Потому и не бу...

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Re: Нужны перерывы в работе скрипта
« Reply #3 on: March 09, 2019, 10:16:19 PM »
лучше сделать 1 внешнее условие, что бы вложенность была меньше

Code: (clickermann) [Select]
DEFINE($time, $_time_t)

IF($_time_t - $time > 7200)
   WAIT(RND(600,1200))
   $time = $_time_t
END_IF
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Нужны перерывы в работе скрипта
« Reply #4 on: March 09, 2019, 10:18:19 PM »
Code: (clickermann) [Select]
IF($start = 0)
   $Timer_na_dva_chasa = $_time_t+7200
   $start = 1
END_IF

IF($Timer_na_dva_chasa > $_time_t)
   // Здесь твой код
else
   WAIT(RND (600, 1200))
   $Timer_na_dva_chasa = $_time_t+7200
END_IF
WAITMS(50)
Я не ду... Потому и не бу...

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Нужны перерывы в работе скрипта
« Reply #5 on: March 09, 2019, 10:19:09 PM »
Выбирай
Я не ду... Потому и не бу...

Fuego47

  • Освоившийся
  • **
  • Posts: 20
    • View Profile
Re: Нужны перерывы в работе скрипта
« Reply #6 on: March 09, 2019, 11:03:06 PM »

Fuego47

  • Освоившийся
  • **
  • Posts: 20
    • View Profile
Re: Нужны перерывы в работе скрипта
« Reply #7 on: March 09, 2019, 11:03:27 PM »
Спасибо))
лучше сделать 1 внешнее условие, что бы вложенность была меньше

Code: (clickermann) [Select]
DEFINE($time, $_time_t)

IF($_time_t - $time > 7200)
   WAIT(RND(600,1200))
   $time = $_time_t
END_IF