system "STRETCHED DŽALEMBERT PROGRESSION FOR EVEN MONEY CHANCES v3"
{coded by Chicko73}

method "main"
begin

    Load Single Wheel;

    while Starting a new Session //initialize a new session
    begin
        set list of [1,1,1,1,1,1,1,1,1,1,
                     2,2,2,2,2,2,2,2,2,2,
                     3,3,3,3,3,3,3,3,3,3,
                     4,4,4,4,4,4,4,4,4,4,
                     5,5,5,5,5,5,5,5,5,5,
                     6,6,6,6,6,6,6,6,6,6,
                     7,7,7,7,7,7,7,7,7,7,
                     8,8,8,8,8,8,8,8,8,8,
                     9,9,9,9,9,9,9,9,9,9,
                     10,10,10,10,10,10,10,10,10,10] to record "progression" data;

        exit;
    end

    Copy Last Red-Black to the Record "color reference" Layout;
    Put 100% of record "progression" data on Record "color reference" Layout;

    while Record "color reference" Layout has won each time
    begin
        subtract 5 from record "progression" data index;
        Put 100% of record "progression" data on Record "color reference" Layout;

    end
    else
    begin
        add 3 to record "progression" data index;
        Put 100% of record "progression" data on Record "color reference" Layout;

    end

    if record "progression" data index < 1
    begin
        Put 1 on Record "progression" data index;
        Put 100% of record "progression" data on Record "color reference" Layout;

    end
end