Не могу зациклить скрипт

[Otlichnii_paren]

Добрый вечер, у меня возникла проблема с зацикливанием скрипта.

$var=1
$varz=5
$a=1
FOR($a=0,$a<5, -1)
$stav=2,5
FOR($var ,$var=1, 0)
     GETSCREEN
      COLORMODE(3)
      IF_PICTURE_IN (843, 867, 1091,959, "chernoe.bmp", -1, 100)
         WAITMS(50)
          $var=0
      else
         $stav=$stav*2
         RDown(953,992)
         waitms(105 + $S_CORR)
         RUp(953,992)
         KEYSTRING (StrConcat( "Рулетка" )  )
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(5)
         KEYSTRING (StrConcat( $stav , " на чёрное " )  )
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(5)
         KEYSTRING (StrConcat( "Крутить" )  )
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(1)
                  IF($varz < $stav )
                      WAITMS(1000)
            $varz=$stav
            print($varz)
            else
          END_IF
         WAIT(rnd(20 , 30))
      END_IF
   END_CYC
      $var=1
   $stav=2,5
      FOR($var ,$var=1, 0)
         GETSCREEN
      COLORMODE(3)
      IF_PICTURE_IN (843, 867, 1091,959, "krasnoe.bmp", -1, 100)
         WAITMS(50)
         $var=0
      else
         $stav=$stav*2
         RDown(953,992)
         waitms(105 + $S_CORR)
         RUp(953,992)
         KEYSTRING (StrConcat( "Рулетка" )  )
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(5)
         KEYSTRING (StrConcat( $stav , " на красное " )  )
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(5)
         
         KEYSTRING (StrConcat( "Крутить" )  )
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(1)
                  IF($varz < $stav )
           WAITMS(1000)
            $varz=$stav
            print($varz)
            else
         END_IF
         WAIT(rnd(20 , 30))
      END_IF
   END_CYC
 end_cyc

halt
что я делаю не так. Почему не получается просто зациклить на мертво скрипт?

[Иван_Васильевич]

Code: (clickermann) [Select]

// 04.07.2022
#name "Мартингейл"

LOGSHOW (1, 100,100)// показать окно лога в координатах 100,100

$varz= 40   // потолок, максимальная ставка
$stav1= 5   // начальная ставка


FOR($a=0,$a<5)
   LOGWRITE ("сыграно заходов",$a)
   
   $stav=$stav1
   $var=1
   WHILE($var=1)
      GETSCREEN(843,867,1091,959)
      COLORMODE(3,843,867,1091,959)
      IF_PICTURE_IN (843,867,1091,959, "chernoe.bmp",-1,100)
         LOGWRITE ("сыграло чёрное !")
         WAITMS(50)
         $var=0
         $var33=0
      else
         LOGWRITE ($stav, " красное ",$var33)
         RDown(953,992)
         waitms(105)
         RUp(953,992)
         KEYSTRING ("Рулетка")
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(5)
         KEYSTRING (StrConcat( $stav ," на чёрное "))
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(5)
         KEYSTRING("Крутить")
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(2)
         INC($var33,1)
         $stav=$stav*2
         IF($varz< $stav)
            $stav=$varz
            LOGWRITE ("достигнут потолок ",$varz)
         END_IF
         WAIT(rnd(20 ,30))
         WAITMS(rnd(2,950))         
      END_IF
   END_CYC
   
   $var=1
   $stav=$stav1
   WHILE($var=1)
      GETSCREEN(843,867,1091,959)
      COLORMODE(3,843,867,1091,959)
      IF_PICTURE_IN (843,867,1091,959, "krasnoe.bmp",-1,100)
         LOGWRITE ("сыграло  красное !")
         WAITMS(50)
         $var=0
         $var33=0
      else
         INC($var33,1)
         $stav=$stav*2
         LOGWRITE ($stav, " чёрное ",$var33)
         RDown(953,992)
         waitms(105)
         RUp(953,992)
         KEYSTRING ("Рулетка")
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(5)
         KEYSTRING (StrConcat( $stav ," на красное "))
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(5)
         KEYSTRING("Крутить")
         WAIT(1)
         KEYPRESS(#ENTER)
         WAIT(1)
         INC($var33,1)
         $stav=$stav*2
         IF($varz< $stav)
            $stav=$varz
            LOGWRITE ("достигнут потолок ",$varz)
         END_IF
         WAIT(rnd(20 , 30))
         WAITMS(rnd(2,950))
      END_IF
   END_CYC
end_cyc
LOGWRITE ("Стоп")
halt


[Otlichnii_paren]

Спасибо, я внедрил максимальную ставку не много иначе но почему в моем скрипте не работает первый цикл, он же зациклен сам в себя, должен бесконечно крутить, но почему то после первого же круга останавливается . Или как вообще реализовать цикл в цикле если внутри второго цикла if. Как я понял из-за этого не хочет нормально работать