Help me add a stop to this code

[romano0327]

Hello guys,

I am new at programing on RX, I have here a code for a system, and I would like you guys to please help me stop and restart the system once one of the numbers from the bet selection hits for the first time...

Basically the system bets any numbers that repeat 3 times in a 37 spins cycle and adds a progression if neccesary to be in profit ...But he system continues to bet the same numbers even if they hit, it continues betting until spin 37 and it resets, I would like the system to stop and reset after the first hit before the 37 spins. Thanks, here is the code:

system "untitled"
method "main"
begin
while starting new session
begin
load double wheel
call "Init"
exit
end
track last number for 37 spins record"Last 37"layout
add 1 record"Master Count"data
if flag "Bet" true
begin
call "Bet"
end
call "Track"
end

method "Bet"
begin
if record"Master Count"data = 37
begin
set flag "Bet" false
put 0 record"Master Count"data
clear record"Bet this"layout
clear record"Last 37"layout
exit
end
call "Calc Unit"
put 100% record"Unit Size"data record"Bet this"layout list
end

method "Calc Unit"
begin
if bankroll >= record"Starting Bankroll"data
begin
put 1 record"Unit Size"data
put 100% bankroll record"Starting Bankroll"data
end else begin
put 100% record"Starting Bankroll"data record"Loss"data
subtract 100% bankroll record"Loss"data
put 37 record"Win Amount"data
subtract 100% record"Bet this"layout index record"Win amount"data
put 0 record"Temp"data
put 1 record"Unit Size"data         {Introduce here unit size for the initial bet}
loop until record"Temp"data >= record"Loss"data
begin
add 1 record"Unit Size"data    {Introduce here how many units you would like to add  to the initial bet after each loss}
add 100% record"Win amount"data record"Temp"data
end
end
end

method "Track"
begin
if record"Master Count"data = 37   {Introduce here at how many spins youu would like the system to stop betting and restart}
begin
set flag "Bet" false
put 0 record"Master Count"data
clear record"Bet this"layout
clear record"Last 37"layout
exit
end
if record"Last 37"layout count > 0  {Introduce here at how many spins you would like the system to start betting}
begin
clear record"Number Count"data
put 1 record"Double Wheel"layout index
put 1 record"Last 37"layout index
put 1 record"Number Count"data index
loop until record"Double Wheel"layout index > record"Double Wheel"layout count
begin
loop until record"Last 37"layout index > record"Last 37"layout count
begin
if record"Last 37"layout = record"Double Wheel"layout
begin
add 1 record"Number Count"data
end
add 1 record"Last 37"layout index
end
put 1 record"Last 37"layout index
add 1 record"Double Wheel"layout index
add 1 record"Number Count"data index
end
end
put 1 record"Number Count"data index
put 1 record"Double Wheel"layout index
loop until record"Number Count"data index > record"Number Count"data count
begin
if record"Number Count"data = 3  {Introduce here when the system will start betting, 1x numbers, 2x numbers, 3x numbers, 4x numbers...}
begin
if record"Double Wheel"layout found record"Bet this"layout
begin end else begin
copy record"Double Wheel"layout record"Bet this"layout
add 1 record"Bet this"layout index
end
set flag "Bet" true
end
add 1 record"Number count"data index
add 1 record"Double Wheel"layout index
end
if flag "Bet" true
begin
call "Bet"
end
end

method "Init"
begin
copy list [00,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,
27,28,29,30,31,32,33,34,35,36] record"Double Wheel"layout
put 100% bankroll record"Starting Bankroll"data
end

[drenek]

Hello,
I added a gain control every turn.
I added the method "Reset"
As soon as there is a number that wins, it will reset and resume at 0
Below the modified code:

**********************************************************************
system "untitled"
method "main"
begin
while starting new session
begin
load double wheel
call "Init"
exit
end
While on each spin {We check each turn if a number wins
                    If yes then we do a reset}
Begin
    if  any inside bet has won each time
    Begin
        Call "reset"
    End
End
track last number for 37 spins record"Last 37"layout
add 1 record"Master Count"data
if flag "Bet" true
begin
call "Bet"
end
call "Track"
end

method "Bet"
begin
if record"Master Count"data = 37
begin
set flag "Bet" false
put 0 record"Master Count"data
clear record"Bet this"layout
clear record"Last 37"layout
exit
end
call "Calc Unit"
put 100% record"Unit Size"data record"Bet this"layout list
end

method "Calc Unit"
begin
if bankroll >= record"Starting Bankroll"data
begin
put 1 record"Unit Size"data
put 100% bankroll record"Starting Bankroll"data
end else begin
put 100% record"Starting Bankroll"data record"Loss"data
subtract 100% bankroll record"Loss"data
put 37 record"Win Amount"data
subtract 100% record"Bet this"layout index record"Win amount"data
put 0 record"Temp"data
put 1 record"Unit Size"data         {Introduce here unit size for the initial bet}
loop until record"Temp"data >= record"Loss"data
begin
add 1 record"Unit Size"data    {Introduce here how many units you would like to add  to the initial bet after each loss}
add 100% record"Win amount"data record"Temp"data
end
end
end

method "Track"
begin
if record"Master Count"data = 37   {Introduce here at how many spins youu would like the system to stop betting and restart}
begin
set flag "Bet" false
put 0 record"Master Count"data
clear record"Bet this"layout
clear record"Last 37"layout
exit
end
if record"Last 37"layout count > 0  {Introduce here at how many spins you would like the system to start betting}
begin
clear record"Number Count"data
put 1 record"Double Wheel"layout index
put 1 record"Last 37"layout index
put 1 record"Number Count"data index
loop until record"Double Wheel"layout index > record"Double Wheel"layout count
begin
loop until record"Last 37"layout index > record"Last 37"layout count
begin
if record"Last 37"layout = record"Double Wheel"layout
begin
add 1 record"Number Count"data
end
add 1 record"Last 37"layout index
end
put 1 record"Last 37"layout index
add 1 record"Double Wheel"layout index
add 1 record"Number Count"data index
end
end
put 1 record"Number Count"data index
put 1 record"Double Wheel"layout index
loop until record"Number Count"data index > record"Number Count"data count
begin
if record"Number Count"data = 3  {Introduce here when the system will start betting, 1x numbers, 2x numbers, 3x numbers, 4x numbers...}
begin
if record"Double Wheel"layout found record"Bet this"layout
begin end else begin
copy record"Double Wheel"layout record"Bet this"layout
add 1 record"Bet this"layout index
end
set flag "Bet" true
end
add 1 record"Number count"data index
add 1 record"Double Wheel"layout index
end
if flag "Bet" true
begin
call "Bet"
end
end

method "Init"
begin
copy list [00,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,
27,28,29,30,31,32,33,34,35,36] record"Double Wheel"layout
put 100% bankroll record"Starting Bankroll"data
end

method "Reset"
Begin
    set flag "Bet" false
    put 0 record"Master Count"data
    clear record"Bet this"layout
    clear record"Last 37"layout
End

********************************************************************************