Author Topic: Помогите доработать  (Read 2020 times)

0 Members and 1 Guest are viewing this topic.

tomakim1990

  • Освоившийся
  • **
  • Posts: 37
    • View Profile
Помогите доработать
« on: December 04, 2018, 01:44:16 PM »
SUB(klik >8-1 evro) // подпрограмма
   LCLICK(1317,204) //клик по зеленому фону
   WAITMS(500)
   GETSCREEN
   IF_PICTURE_IN (1014,551,1078,576, "lost-stavka.bmp" ) //зона поиска надписи на кнопки
      LCLICK(RND(912,1059),RND(429,450)) //ставка выше 8 дилер
      WAITMS(500)
      LCLICK(RND(1340,1358),RND(430,446)) //кнопка удалить суму ставки
      WAITMS(500)
      LCLICK(RND(1094,1123),RND(432,444))  //кнопка ставка +1
      WAITMS(500)
      LCLICK(RND(1094,1355),RND(490,513))  //кнопка сделать ставку
      WAIT(15)
   ELSE
      GETSCREEN
      IF_PICTURE_IN (1014,551,1078,576, "won-stavka.bmp" ) //зона поиска надписи на кнопки
         LCLICK(RND(912,1059),RND(429,450)) //ставка выше 8 дилер
         WAITMS(500)
         LCLICK(RND(1340,1358),RND(430,446)) //кнопка удалить суму ставки
         WAITMS(500)
         LCLICK(RND(1094,1123),RND(432,444))  //кнопка ставка +1
         WAITMS(500)
         LCLICK(RND(1094,1355),RND(490,513))  //кнопка сделать ставку
         WAIT(15)
      ELSE
         LCLICK(RND(918,1069),RND(541,562)) //ставка выше 8 игрок
         WAITMS(500)
         LCLICK(RND(1340,1358),RND(430,446)) //кнопка удалить суму ставки
         WAITMS(500)
         LCLICK(RND(1094,1123),RND(432,444))  //кнопка ставка +1
         WAITMS(500)
         LCLICK(RND(1094,1355),RND(490,513))  //кнопка сделать ставку
         WAIT(15)
      END_IF
   END_IF
END_SUB




Проблема такая нужно добавить  ещё один параметр
 чтоб когда находило уже другую картинку то возвращалось к началу подпрограмы и опять начинало заново пока несработает одно из трех действий

tomakim1990

  • Освоившийся
  • **
  • Posts: 37
    • View Profile
Re: Помогите доработать
« Reply #1 on: December 04, 2018, 01:45:15 PM »
Я GOTO пробывала нехочет работать

tomakim1990

  • Освоившийся
  • **
  • Posts: 37
    • View Profile
Re: Помогите доработать
« Reply #2 on: December 04, 2018, 02:53:14 PM »
Мне нужно добавить ети параметры в подпрограму

tomakim1990

  • Освоившийся
  • **
  • Posts: 37
    • View Profile
Re: Помогите доработать
« Reply #3 on: December 04, 2018, 02:56:37 PM »
GETSCREEN
   IF_PICTURE_IN (1014,551,1078,576, "lost-stavka.bmp" ) //зона поиска картинки если нашло то чтоб работало как GOTO
 И перешло в начало подпрограмы.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Помогите доработать
« Reply #4 on: December 04, 2018, 03:31:03 PM »
Code: (clickermann) [Select]
SUB(klik >8-1 evro) // подпрограмма
   $check = 0
   WHILE($check = 0)
      LCLICK(1317,204) //клик по зеленому фону
      WAITMS(500)
      GETSCREEN
      IF_PICTURE_IN (1014,551,1078,576, "lost-stavka.bmp" ) //зона поиска надписи на кнопки
         LCLICK(RND(912,1059),RND(429,450)) //ставка выше 8 дилер
         WAITMS(500)
         LCLICK(RND(1340,1358),RND(430,446)) //кнопка удалить суму ставки
         WAITMS(500)
         LCLICK(RND(1094,1123),RND(432,444))  //кнопка ставка +1
         WAITMS(500)
         LCLICK(RND(1094,1355),RND(490,513))  //кнопка сделать ставку
         WAIT(15)
      ELSE
         GETSCREEN
         IF_PICTURE_IN (1014,551,1078,576, "won-stavka.bmp" ) //зона поиска надписи на кнопки
            LCLICK(RND(912,1059),RND(429,450)) //ставка выше 8 дилер
            WAITMS(500)
            LCLICK(RND(1340,1358),RND(430,446)) //кнопка удалить суму ставки
            WAITMS(500)
            LCLICK(RND(1094,1123),RND(432,444))  //кнопка ставка +1
            WAITMS(500)
            LCLICK(RND(1094,1355),RND(490,513))  //кнопка сделать ставку
            WAIT(15)
            $check = 1 // выход из цикла
         ELSE
            LCLICK(RND(918,1069),RND(541,562)) //ставка выше 8 игрок
            WAITMS(500)
            LCLICK(RND(1340,1358),RND(430,446)) //кнопка удалить суму ставки
            WAITMS(500)
            LCLICK(RND(1094,1123),RND(432,444))  //кнопка ставка +1
            WAITMS(500)
            LCLICK(RND(1094,1355),RND(490,513))  //кнопка сделать ставку
            WAIT(15)
            $check = 1 // выход из цикла
         END_IF
      END_IF
   END_CYC
END_SUB

tomakim1990

  • Освоившийся
  • **
  • Posts: 37
    • View Profile
Re: Помогите доработать
« Reply #5 on: December 04, 2018, 03:58:28 PM »
Спасибо за помощь.а можно еще один вопрос
Вот чта означает 0 и 1 в $check = 0
И какие еще бывают цыфры и что они значат.

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Помогите доработать
« Reply #6 on: December 04, 2018, 04:41:39 PM »
Спасибо за помощь.а можно еще один вопрос
Вот чта означает 0 и 1 в $check = 0
И какие еще бывают цыфры и что они значат.
О, цифры бывают разные.
В десятичной системе ещё есть 2, 3, 4, 5, 6, 7, 8, 9

А в шестнадцатиричной ещё A, B, C, D, E, F

А переменная $check используется как флаг. В ней мы запоминаем состояние. Цифры могут быть любыми. В данном примере если состояние равно 0, то продолжаем цикл WHILE.
Когда мы нашли что нужно и цикл хотим прервать задаём состояние 1 (здесь можем любое НЕ 0)


Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Помогите доработать
« Reply #7 on: December 04, 2018, 04:43:35 PM »
Спасибо за помощь.а можно еще один вопрос
Вот чта означает 0 и 1 в $check = 0
И какие еще бывают цыфры и что они значат.

Имя переменной может быть любым, значения могут быть любыми.
Code: (clickermann) [Select]
$check = 0 // здесь мы присваиваем переменной $check значение 0
WHILE($check = 0) // тут цикл проверяет перед выполнением условие, если оно верно (то есть $check равна нулю) выполняет свое тело.
   
   IF_...............
      $check = 1 // в какой то момент по условию мы изменим значение, и теперь когда цикл дойдет до конца и начнет проверку условия, это условие будет не верным, и цикл прекратит свое выполнение.
     
   END_IF
END_CYC

tomakim1990

  • Освоившийся
  • **
  • Posts: 37
    • View Profile
Re: Помогите доработать
« Reply #8 on: December 04, 2018, 05:45:58 PM »
Спасибо