ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ

[rasnvas]

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

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")

[open_78]

Можно.

[Oraven]

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")

[rasnvas]

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

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)

[rasnvas]

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

[open_78]

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

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)

[rasnvas]

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