Автокликер Clickermann :: Форум
Основной раздел => Общие вопросы => Topic started by: Otlichnii_paren on July 04, 2022, 07:16:35 PM
-
Добрый вечер, у меня возникла проблема с зацикливанием скрипта.
$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
что я делаю не так. Почему не получается просто зациклить на мертво скрипт?
-
// 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
-
Спасибо, я внедрил максимальную ставку не много иначе но почему в моем скрипте не работает первый цикл, он же зациклен сам в себя, должен бесконечно крутить, но почему то после первого же круга останавливается . Или как вообще реализовать цикл в цикле если внутри второго цикла if. Как я понял из-за этого не хочет нормально работать