Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: rasnvas on May 12, 2017, 07:45:07 PM

Title: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
Post by: rasnvas on May 12, 2017, 07:45:07 PM

Можно ли переделать или упростить?

Code: (clickermann) [Select]

ancor:     
GETSCREEN
if_picture_in(567,488, 895,515,"lose1.bmp")
   KEYPRESS(#L)
   WAITMS(1500)
   $an=$an+1
   IF($an>1) 
      GOTO(con)
   END_IF  //
   GOTO(ancor)
END_IF //
con:   
SOUND("EGoingUp.wav")

Title: Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
Post by: open_78 on May 12, 2017, 08:11:01 PM

Можно. :)

Title: Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
Post by: Oraven on May 12, 2017, 08:47:33 PM

Code: (clickermann) [Select]

$check = 0
WHILE($check < 2)
   GETSCREEN
   IF_PICTURE_IN (567,488, 895,515,"lose1.bmp")
      KEYPRESS(#L)
      WAITMS(1500)
      INC($check,1)
   ELSE
      $check = 2
   END_IF
END_CYC
SOUND("EGoingUp.wav")

Title: Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
Post by: rasnvas on May 19, 2017, 08:05:30 PM

Все работает нормально но думаю что та не так можно ли попроще сделать?

Code: (clickermann) [Select]

$check=0
ancor://  метка повторной проверки
GETSCREEN
if_picture_in(567,488, 895,515,"lose1.bmp")// если есть рисунок Ждите
   ancor2://   метка повтора
   KEYPRESS(#L)
   WAITMS(2000)//  ждем 2с
   
   GETSCREEN
   if_picture_in(567,488, 895,515,"win1.bmp")// если есть рисунок
      $check=0
      GOTO(ancor2)//  переход на повтор
   END_IF
   
   INC($check)
   LOGWRITE ("Сообщение",$check)
   IF($check>30) // если кол проверок превысило 30
      GOTO(con) // выходим из цикла проверок
   END_IF  //
   
   GOTO(ancor)//  переход на начало проверки Ждите
END_IF //
con://   метка выхода
SOUND("EGoingUp.wav")// звук выхода
WAIT(2)

Title: Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
Post by: rasnvas on May 21, 2017, 02:16:47 PM

И в ответ тишина . :)

Title: Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
Post by: open_78 on May 21, 2017, 04:07:37 PM

Как понял - так и написал.

Code: (clickermann) [Select]

$check=0
WHILE($check<30)
   GETSCREEN
   IF_PICTURE_IN(567,488, 895,515,"lose1.bmp")// если есть рисунок Ждите
      $check2=0
      WHILE($check2=0)
         KEYPRESS(#L)
         WAITMS(2000)//  ждем 2с
         GETSCREEN
         IF_PICTURE_IN(567,488, 895,515,"win1.bmp")// если есть рисунок
            $check=0
         ELSE
            $check2=1
            INC($check,1)
            LOGWRITE ("Проверок ",$check)
         END_IF
      END_CYC
   ELSE
      WAITMS(50)
   END_IF
END_CYC
SOUND("EGoingUp.wav")// звук выхода
WAITMS(2000)

Title: Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
Post by: rasnvas on May 21, 2017, 07:51:21 PM

спасибо работает как надо  :)