system "Four Group System"
{
Only for European Wheel (Single Zero)
See documentation
}
method "main"
begin
    while starting a new session then
    begin
        call "Initialize";
        exit;
    end

    set flag "Use Group 0" to true;
    set flag "Use Group 3" to true;
    set flag "Use Group 5" to true;

    call "Determine Win";
    call "Chart Group";
    call "Determine if Chart complete";
    call "Check Progression on each Group";
    call "Bet Group 0";
    call "Bet Group 1";
    call "Bet Group 2";
    call "Bet Group 3";
    call "Bet Group 4";
    call "Bet Group 5";
    call "Bet Group 6";
end

method "Determine if Chart complete"
begin
    add 1 to record "Chart Counter" data;

    if record "Chart Counter" data = 10
    begin
        set flag "Ready to Bet" to True;
        put 0 on record "Chart Counter" data;
        call "Reset Group Flags";
        call "Determine Groups to Bet";
        call "Reset Group Count";
    end
end

method "Bet Group 0"
begin
    if flag "Use Group 0" is true then
    begin
        put 100% record "Next Bet for Group 0" data to
                 record "Progression" data index;

        put 100% record "Progression" data to number 0;
        put 100% record "Progression" data to number 10;
        put 100% record "Progression" data to number 20;
        put 100% record "Progression" data to number 30;

        add 1 to record "Next Bet for Group 0" data;
    end
end

method "Bet Group 1"
begin
    if flag "Use Group 1" is true then
    begin
        put 100% record "Next Bet for Group 1" data to
                 record "Progression" data index;
        
        put 100% record "Progression" data to number 1;
        put 100% record "Progression" data to number 11;
        put 100% record "Progression" data to number 21;
        put 100% record "Progression" data to number 31;
        
        add 1 to record "Next Bet for Group 1" data;
    end
end

method "Bet Group 2"
begin

    if flag "Use Group 2" is true then
    begin
        put 100% record "Next Bet for Group 2" data to
                 record "Progression" data index;

        put 100% record "Progression" data to number 2;
        put 100% record "Progression" data to number 12;
        put 100% record "Progression" data to number 22;
        put 100% record "Progression" data to number 32;

        add 1 to record "Next Bet for Group 2" data;
    end

end

method "Bet Group 3"
begin
    if flag "Use Group 3" is true then
    begin
        put 100% record "Next Bet for Group 3" data to
                 record "Progression" data index;

        put 100% record "Progression" data to number 3;
        put 100% record "Progression" data to number 13;
        put 100% record "Progression" data to number 23;
        put 100% record "Progression" data to number 33;

        add 1 to record "Next Bet for Group 3" data;
    end
end

method "Bet Group 4"
begin
    if flag "Use Group 4" is true then
    begin
        put 100% record "Next Bet for Group 4" data to
                 record "Progression" data index;

        put 100% record "Progression" data to number 4;
        put 100% record "Progression" data to number 14;
        put 100% record "Progression" data to number 24;
        put 100% record "Progression" data to number 34;

        add 1 to record "Next Bet for Group 4" data;
    end
end

method "Bet Group 5"
begin
    if flag "Use Group 5" is true then
    begin
        put 100% record "Next Bet for Group 5" data to
                 record "Progression" data index;

        put 100% record "Progression" data to number 5;
        put 100% record "Progression" data to number 15;
        put 100% record "Progression" data to number 25;
        put 100% record "Progression" data to number 35;

        add 1 to record "Next Bet for Group 5" data;
    end
end

method "Bet Group 6"
begin
    if flag "Use Group 6" is true then
    begin
        put 100% record "Next Bet for Group 6" data to
                 record "Progression" data index;

        put 100% record "Progression" data to number 6;
        put 100% record "Progression" data to number 16;
        put 100% record "Progression" data to number 26;
        put 100% record "Progression" data to number 36;

        add 1 to record "Next Bet for Group 6" data;
    end
end

method "Check Progression on each Group"
begin
    if  flag "Use Group 1" is true
    and record "Next Bet for Group 1" data > 10 then
    begin
        set flag "Use Group 1" to false;
        put 1 to record "Next Bet for Group 1" data;
    end

    if  flag "Use Group 2" is true
    and record "Next Bet for Group 2" data > 10 then
    begin
        set flag "Use Group 2" to false;
        put 1 to record "Next Bet for Group 2" data;
    end

    if  flag "Use Group 3" is true
    and record "Next Bet for Group 3" data > 10 then
    begin
        set flag "Use Group 3" to false;
        put 1 to record "Next Bet for Group 3" data;
    end

    if  flag "Use Group 4" is true
    and record "Next Bet for Group 4" data > 10 then
    begin
        set flag "Use Group 4" to false;
        put 1 to record "Next Bet for Group 4" data;
    end

    if  flag "Use Group 5" is true
    and record "Next Bet for Group 5" data > 10 then
    begin
        set flag "Use Group 5" to false;
        put 1 to record "Next Bet for Group 5" data;
    end

    if  flag "Use Group 6" is true
    and record "Next Bet for Group 6" data > 10 then
    begin
        set flag "Use Group 6" to false;
        put 1 to record "Next Bet for Group 6" data;
    end

    if  flag "Use Group 0" is true
    and record "Next Bet for Group 0" data > 10 then
    begin
        set flag "Use Group 0" to false;
        put 1 to record "Next Bet for Group 0" data;
    end
end

method "Chart Group"
begin
    if number 1 hit each time
    or Number 11 hit each time
    or Number 21 hit each time
    or Number 31 hit each time
    begin
        add 1 to record "Group 1" data;
        return;
    end

    if number 2 hit each time
    or Number 12 hit each time
    or Number 22 hit each time
    or Number 32 hit each time
    begin
        add 1 to record "Group 2" data;
        return;
    end

    if number 3 hit each time
    or Number 13 hit each time
    or Number 23 hit each time
    or Number 33 hit each time
    begin
        add 1 to record "Group 3" data;
        return;
    end

    if number 4 hit each time
    or Number 14 hit each time
    or Number 24 hit each time
    or Number 34 hit each time
    begin
        add 1 to record "Group 4" data;
        return;
    end

    if number 5 hit each time
    or Number 15 hit each time
    or Number 25 hit each time
    or Number 35 hit each time
    begin
        add 1 to record "Group 5" data;
        return;
    end

    if number 6 hit each time
    or Number 16 hit each time
    or Number 26 hit each time
    or Number 36 hit each time
    begin
        add 1 to record "Group 6" data;
        return;
    end

    if number 7 hit each time
    or Number 17 hit each time
    or Number 27 hit each time
    begin
        add 1 to record "Group 7" data;
        return;
    end

    if number 8 hit each time
    or Number 18 hit each time
    or Number 28 hit each time
    begin
        add 1 to record "Group 8" data;
        return;
    end

    if number 9 hit each time
    or Number 19 hit each time
    or Number 29 hit each time
    begin
        add 1 to record "Group 9" data;
        return;
    end

    if number 0 hit each time
    or Number 10 hit each time
    or Number 20 hit each time
    or Number 30 hit each time
    begin
        add 1 to record "Group 0" data;
    end
end

method "Determine Groups to Bet"
begin
    if record "Group 0" data = 0 then
    begin
        set flag "Use Group 0" to true;
    end

    if record "Group 1" data = 0 then
    begin
        set flag "Use Group 1" to true;
    end

    if record "Group 2" data = 0 then
    begin
        set flag "Use Group 2" to true;
    end

    if record "Group 3" data = 0 then
    begin
        set flag "Use Group 3" to true;
    end

    if record "Group 4" data = 0 then
    begin
        set flag "Use Group 4" to true;
    end

    if record "Group 5" data = 0 then
    begin
        set flag "Use Group 5" to true;
    end

    if record "Group 6" data = 0 then
    begin
        set flag "Use Group 6" to true;
    end
end

method "Determine Win"
begin
    if flag "Ready to Bet" is true
    begin
        while number 1 has won each time
        or    number 11 has won each time
        or    number 21 has won each time
        or    number 31 has won each time
        begin
            put 0  to record "Group 1" data;
            put 1  to record "Next Bet for Group 1" data;
            set flag "Use Group 1" to false;
        end

        while number 2 has won each time
        or    number 12 has won each time
        or    number 22 has won each time
        or    number 32 has won each time
        begin
            put 0  to record "Group 2" data;
            put 1  to record "Next Bet for Group 2" data;
            set flag "Use Group 2" to false;
        end

        while number 3 has won each time
        or    number 13 has won each time
        or    number 23 has won each time
        or    number 33 has won each time
        begin
            put 0  to record "Group 3" data;
            put 1  to record "Next Bet for Group 3" data;
            set flag "Use Group 3" to false;
        end

        while number 4 has won each time
        or    number 14 has won each time
        or    number 24 has won each time
        or    number 34 has won each time
        begin
            put 0  to record "Group 4" data;
            put 1  to record "Next Bet for Group 4" data;
            set flag "Use Group 4" to false;
        end

        while number 5 has won each time
        or    number 15 has won each time
        or    number 25 has won each time
        or    number 35 has won each time
        begin
            put 0  to record "Group 5" data;
            put 1  to record "Next Bet for Group 5" data;
            set flag "Use Group 5" to false;
        end

        while number 6 has won each time
        or    number 16 has won each time
        or    number 26 has won each time
        or    number 36 has won each time
        begin
            put 0  to record "Group 6" data;
            put 1  to record "Next Bet for Group 6" data;
            set flag "Use Group 6" to false;
        end

        while number 0 has won each time
        or    number 10 has won each time
        or    number 20 has won each time
        or    number 30 has won each time
        begin
            put 0  to record "Group 0" data;
            put 1  to record "Next Bet for Group 0" data;
            set flag "Use Group 0" to false;
        end
    end
end

method "Reset Group Flags"
begin
    set flag "Use Group 1" to false;
    set flag "Use Group 2" to false;
    set flag "Use Group 3" to false;
    set flag "Use Group 4" to false;
    set flag "Use Group 5" to false;
    set flag "Use Group 6" to false;
    set flag "Use Group 0" to false;
end

method "Reset Group Count"
begin
    put 0 to record "Group 0" data;
    put 0 to record "Group 1" data;
    put 0 to record "Group 2" data;
    put 0 to record "Group 3" data;
    put 0 to record "Group 4" data;
    put 0 to record "Group 5" data;
    put 0 to record "Group 6" data;
    put 0 to record "Group 7" data;
    put 0 to record "Group 8" data;
    put 0 to record "Group 9" data;
end

method "Initialize"
begin
    Load Single Wheel;
    set flag "Ready to Bet" to false;
    call "Reset Group Flags";
    
    put 0 to record "Last 15 Spins" layout index;
    set list of [10,10,11,11,11,11,12,12,12,13] to record "Progression" data;

    put 1 to record "Spin Counter" data;
    put 1 to record "Next Bet for Group 0" data;
    put 1 to record "Next Bet for Group 1" data;
    put 1 to record "Next Bet for Group 2" data;
    put 1 to record "Next Bet for Group 3" data;
    put 1 to record "Next Bet for Group 4" data;
    put 1 to record "Next Bet for Group 5" data;
    put 1 to record "Next Bet for Group 6" data;
    call "Reset Group Count";
end