Roulette xtreme question

[Robbert]

Hi!

Can anyone tell me how i code something like 1 unit on 26 and 1 unit first doz.

If lose,

1 unit 26 2 units first doz.

Lose again?

1 unit 26 , 3 units first dozen.

If win any or 26 hits restart.

If lose 3 steps reset.

Thanks in advance!

[Normy2000]

Here Robbert 

[reveal]
system "Robbert26"
// Coded by nOeMy2o0o

method "main"
begin
while starting a new session
    begin
        call "Init"
    end
    call "win/loss"
    call "place bets"
end
//***********************************************************************
method "win/loss"
begin
    if record "dummy" data = 0
    begin
        put 1 to record "dummy" data
        return
    end
    if net > 0
    begin       // "Won"
        put 1 to record "Progression" data index
    end
    else        // "Lost"
    begin
        if record "Progression" data index < record "Progression" data count
        begin
            add 1 to record "Progression" data index;
        end
        else
        begin
            put 1 to record "Progression" data index;
        end
    end
end
//***********************************************************************
method "place bets"
begin
    put 100% of record "Progression" data on 1st dozen
    put 1 on number 26
end
//***********************************************************************
method "Init"
begin
    put 0 to record "dummy" data
    put 1 to record "Progression" data index
    set list of [1,2,3] to record "Progression" data
end
[/reveal]

[Robbert]

Thanks!

Can you please code 1 more thing for me?
I do really appreciate it.

Alright,

So, 4 steps.

- 1 unit on 26, 1 unit black.
- 1 unit on 26, 3 units black
- 1 unit 26, 7 units black
-1 unit 26, 15 units black

If you win any of those steps you begin at step 1, so if black hits you break even, if 26 hits you are in profit.
If you lose those 4 steps, just curse at the table and begin again.


So, anyone want to code it?

[Normy2000]

Here 

[reveal]
system "Robbert26"
// Coded by nOeMy2o0o

method "main"
begin
while starting a new session
    begin
        call "Init"
    end
    call "win/loss"
    call "place bets"
end
//***********************************************************************
method "win/loss"
begin
    if record "dummy" data = 0
    begin
        put 1 to record "dummy" data
        return
    end
    if net > 0
    begin       // "Won"
        put 1 to record "Progression" data index
    end
    else        // "Lost"
    begin
        if record "Progression" data index < record "Progression" data count
        begin
            add 1 to record "Progression" data index;
        end
        else
        begin
            put 1 to record "Progression" data index;
        end
    end
end
//***********************************************************************
method "place bets"
begin
    put 100% of record "Progression" data on black
    put 1 on number 26
end
//***********************************************************************
method "Init"
begin
    put 0 to record "dummy" data
    put 1 to record "Progression" data index
    set list of [1,3,7,15] to record "Progression" data
end
[/reveal]

[Robbert]

Normy, you are the best. Many thanks.

When testing the code.

When 1 unit on black for the first step.
And you win on black, you dont stay on the 1 unit. But you go to the 3 units on black.

Is that possible to fix in the code?

Many thanks again!

[Normy2000]

Hello,

Line 21, replace if net > 0 by if net >= 0, it should work. 

[ice789]

system "easytiger dozens"

method "main"
begin
while starting a new session
begin
set list [1,1,1,1,2,3,5,8,13,20,70,45,70,105,155,240,60,540] to record "prog" data
put 1 to record "prog" data index
end

while on each spin
begin
call "place bets"
call "results"
end
end

method "place bets"
begin
    if 1st dozen not hit more 6
        begin
        put 100% record "prog" data to 1st dozen
        end
    if 2nd dozen not hit more 6
        begin
        put 100% record "prog" data to 2nd dozen
        end
    if 3rd dozen not hit more 6
        begin
        put 100% record "prog" data to 3rd dozen
        end
end

method "results"
begin
    if any dozen bet won each or record "prog" data index > 6
        begin
        put 1 to record "prog" data index
        end
    if any dozen bet lost each
        begin
        add 1 to record "prog" data index
        end
end


pls hlp me


i want bet after **virtual win