system "World's Best and Safest Roulette system Ver 2"
{
*************************************
*         System by Zac2170         *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
Bet on Low and 3rd Dozen simultaneously with the following progression:

3/2, 9/6, 33/22, 74/36, 240/160, 600/400

On a loss, move up one in progression AND switch betting layout to
opposite of current layout. (If Low and 3rd Dozen, change to High and 1st Dozen.)

On a win, switch layouts back to original. If at 3/2, start again from scratch.
If at 9/6, wait for 2 wins in a row before starting again from scratch.
If at 33/22, again wait for 2 wins in a row before starting from scratch.
If at 74/36, wait for 3 wins in a row before starting from scratch.
If at 240/160, wait for 3 wins in a row before starting from scratch.
If at 600/400, wait for 3 wins in a row before starting from scratch.
-------------------------------------
}
method "main"
begin
while starting new session
    begin
    call "Init"
    end
if net > 0
    begin
    copy list [low] record"Even"layout
    copy list [3rd dozen] record"Dozen"layout
    if record"Even"data index = 2 or record"Even"data index = 3
        begin
        add 1 record"Loss Progression"data
        if record"Loss Progression"data = 2
            begin
            put 0 record"Loss Progression"data
            put 1 record"Even"data index
            put 1 record"Dozen"data index
            end
        end
    if record"Even"data index = 4 or record"Even"data index = 5
    or record"Even"data index = 6
        begin
        add 1 record"Loss Progression"data
        if record"Loss Progression"data = 3
            begin
            put 0 record"Loss Progression"data
            put 1 record"Even"data index
            put 1 record"Dozen"data index
            end
        end
    end
if net < 0
    begin
    put 0 record"Loss Progression"data
    add 1 record"Even"data index
    add 1 record"Dozen"data index
    call "Switch Layouts"
    if record"Even"data index > record"Even"data count
        begin
        put 1 record"Even"data index
        put 1 record"Dozen"data index
        copy list [low] record"Even"layout
        copy list [3rd dozen] record"Dozen"layout
        end
    end
call "Place Bets"
end

method "Place Bets"
begin
put 100% record"Even"data record"Even"layout
put 100% record"Dozen"data record"Dozen"layout
end

method "Switch Layouts"
begin
if list [low] pattern match record"Even"layout
    begin
    copy list [high] record"Even"layout
    copy list [1st Dozen] record"Dozen"layout
    end
    else
    begin
    copy list [low] record"Even"layout
    copy list [3rd dozen] record"Dozen"layout
    end
end

method "Init"
begin
copy list [low] record"Even"layout
copy list [3rd dozen] record"Dozen"layout
group
    begin
    display "World's Best and Safest Roulette System"
    display "------------------------------------------------------------------------------"
    input dropdown "Progression
    1:=4 Step
    2:=5 Step
    3:=6 Step" record"Progression Step"data
    end
if record"Progression Step"data = 1
    begin
    set list [3,9,33,74] record"Even"data
    set list [2,6,22,36] record"Dozen"data
    put 1 record"Even"data index
    put 1 record"Dozen"data index
    end
if record"Progression Step"data = 2
    begin
    set list [3,9,33,74,240] record"Even"data
    set list [2,6,22,36,160] record"Dozen"data
    put 1 record"Even"data index
    put 1 record"Dozen"data index
    end
if record"Progression Step"data = 3
    begin
    set list [3,9,33,74,240,600] record"Even"data
    set list [2,6,22,36,160,400] record"Dozen"data
    put 1 record"Even"data index
    put 1 record"Dozen"data index
    end
end