Four Group System v2

Contenuto del file

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

    call "Track Spins";
    call "Determine Win";
    call "Check Progression on each Group";
    call "Determine Groups";
    call "Groups to Bet";
    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 Groups"
begin
    set flag "Ready to Bet" to True;
    call "Reset Group Count";

    put 1 to record "Last 15 Spins" layout index;

    Loop until record "Last 15 Spins" layout index > record "Last 15 Spins" Layout count
    begin
        call "Chart Group";
        add 1 to record "Last 15 Spins" layout index;
    end

    set max record "Last 15 Spins" layout index;
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 record "Last 15 Spins" layout = number 1
    or record "Last 15 Spins" layout = number 11
    or record "Last 15 Spins" layout = number 21
    or record "Last 15 Spins" layout = number 31
    begin
        add 1 to record "Group 1" data;
        return;
    end

    if record "Last 15 Spins" layout = number 2
    or record "Last 15 Spins" layout = number 12
    or record "Last 15 Spins" layout = number 22
    or record "Last 15 Spins" layout = number 32
    begin
        add 1 to record "Group 2" data;
        return;
    end

    if record "Last 15 Spins" layout = number 3
    or record "Last 15 Spins" layout = number 13
    or record "Last 15 Spins" layout = number 23
    or record "Last 15 Spins" layout = number 33
    begin
        add 1 to record "Group 3" data;
        return;
    end

    if record "Last 15 Spins" layout = number 4
    or record "Last 15 Spins" layout = number 14
    or record "Last 15 Spins" layout = number 24
    or record "Last 15 Spins" layout = number 34
    begin
        add 1 to record "Group 4" data;
        return;
    end

    if record "Last 15 Spins" layout = number 5
    or record "Last 15 Spins" layout = number 15
    or record "Last 15 Spins" layout = number 25
    or record "Last 15 Spins" layout = number 35
    begin
        add 1 to record "Group 5" data;
        return;
    end

    if record "Last 15 Spins" layout = number 6
    or record "Last 15 Spins" layout = number 16
    or record "Last 15 Spins" layout = number 26
    or record "Last 15 Spins" layout = number 36
    begin
        add 1 to record "Group 6" data;
        return;
    end


    if record "Last 15 Spins" layout = number 7
    or record "Last 15 Spins" layout = number 17
    or record "Last 15 Spins" layout = number 27
    begin
        add 1 to record "Group 7" data;
        return;
    end

    if record "Last 15 Spins" layout = number 8
    or record "Last 15 Spins" layout = number 18
    or record "Last 15 Spins" layout = number 28
    begin
        add 1 to record "Group 8" data;
        return;
    end

    if record "Last 15 Spins" layout = number 9
    or record "Last 15 Spins" layout = number 19
    or record "Last 15 Spins" layout = number 29
    begin
        add 1 to record "Group 9" data;
        return;
    end

    if record "Last 15 Spins" layout = number 0
    or record "Last 15 Spins" layout = number 10
    or record "Last 15 Spins" layout = number 20
    or record "Last 15 Spins" layout = number 30
    begin
        add 1 to record "Group 0" data;
    end
end

method "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 "Track Spins"
begin
    while record "Last 15 Spins" layout index >14
    begin
        move list up by 1 for record "Last 15 Spins" layout;
        set max to record "Last 15 Spins" layout index;
    end

    add 1 to record "Last 15 Spins" layout index;
    copy last number to record "Last 15 Spins" layout;

    while record "Spin Counter" data < 15 then
    begin
        add 1 to record "Spin Counter" data;
        exit;
    end
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;
    set flag "Use Group 1" to false;
    
    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