Need help changing this code?

[abydos]

Hello everyone

I am French I write to you with an online translator a thousand excuses if there are spelling mistakes.

  I can not change this code I would like from 5 consecutive losses (gap 5) started to placed 9 numbers with a progression 111223457 because this method seems to work well.
it would be nice if you can help me.

thank you in advance.


system "Hot groups with Atila progression Modifier"

//
// Hot Group Sistem with slow progression.
//

method "main"
begin
    while starting a new session
    begin
        call "Input";
        call "initialize";
        exit
    end

    call "Check Wins";
    call "Track Spins";
    call "Bet";
end

//
// Main Program Methods
//

method "Check Wins"
begin
    if flag "Atila Group" is true then
    begin
        call "Check Atila Group Wins";
    end
end

method "Track Spins"
begin
    if flag "Atila Group" is true then
    begin
        call "Track Atila Group";
    end
end

method "Bet"
begin
    call "Clear All Bets";

    if flag "Atila Group" is true then
    begin
        call "Bet Atila Group";
    end
end

method "Clear all Bets"
begin
    put 0 units on record "Group 1" layout list;
    put 0 units on record "Group 2" layout list;
    put 0 units on record "Group 3" layout list;
    put 0 units on record "Group 4" layout list;
end

//
// Main Input Area
//

method "Input"
begin
    put 250 to record "Starting Bankroll" data;
    put 200 to record "Win Goal" data;
    put 0 to record "Loss Goal" data;

    group
    begin
        input data "Starting Bankroll" to record "Starting Bankroll" data;
        input data "Win Goal" to record "Win Goal" data;
        input data "Loss Goal" to record "Loss Goal" data;
        input data "Spins to Track" to record "Track List Number" data;
//        input checkbox "Atila Group" to flag "Atila Group";
    end
    set flag "Atila Group" to true;
end

//
// Main Initialization Area
//

method "Initialize"
begin
    put 100% of record "Starting Bankroll" data to bankroll;
    put 100% of record "Starting Bankroll" data to record "Bankroll Win Goal" data;
    add 100% of record "Win Goal" data to record "Bankroll Win Goal" data;
    put 100% of record "Starting Bankroll" data to record "Bankroll Loss Goal" data;
    subtract 100% of record "Loss Goal" data to record "Bankroll Loss Goal" data;

    if flag "Atila Group" is true then
    begin
        call "Init Atila Group";
    end
end

method "Update Bankroll"
begin
    put 100% of bankroll to record "New Win Goal" data;
    add 100% of record "Win Goal" data to record "New Win Goal" data;
    put 100% of bankroll to record "New Loss Goal" data;
    subtract 100% of record "Loss Goal" data to record "New Loss Goal" data;
end

//--------------------------------- End Main -------------------------------//

//
// Sistema Atila Group
//

method "Check Atila Group Wins"
begin
    if flag "Bet Atila Group" is true then
    begin
        if flag "Bet Group 1" is true then
        begin
            if record "Group 1" layout list has lost each time then
            begin
                call "Update Progression";
            end
            else
            begin
                call "Update Wins";
            end
        end

        if flag "Bet Group 2" is true then
        begin
            if record "Group 2" layout list has lost each time then
            begin
                call "Update Progression";
            end
            else
            begin
                call "Update Wins";
            end
        end

        if flag "Bet Group 3" is true then
        begin
            if record "Group 3" layout list has lost each time then
            begin
                call "Update Progression";
            end
            else
            begin
                call "Update Wins";
            end
        end

        if flag "Bet Group 4" is true then
        begin
            if record "Group 4" layout list has lost each time then
            begin
                call "Update Progression";
            end
            else
            begin
                call "Update Wins";
            end
        end
    end
end

method "Update Progression"
begin
    add 1 to record "Atila Group Progression" data;
    add 1 to record "Atila Group Progression" data index;
    if record "Atila Group Progression" data index > 9 then
    begin
        put 1 to record "Atila Group Progression" data index;
    end
end

method "Update Wins"
begin
    if any inside bet has won each time then
    begin
        put 100% of record "Atila Group Progression" data index to record "Progression Pointer" data;
        put 9 to record "Atila Group Progression" data index;
        if record "Atila Group Progression" data > 1 then
        begin
            put 1 to record "Atila Group Progression" data index;
            loop until record "Atila Group Progression" data index > 9
            begin
                subtract 1 from record "Atila Group Progression" data;
                add 1 to record "Atila Group Progression" data index;
            end
        end
        put 100% of record "Progression Pointer" data to record "Atila Group Progression" data index;

        call "Reset Atila Group";
        call "Reset Bet Group Flags";
        if bankroll >= record "Bankroll" data then
        begin
            call "Reset Progression";
            call "Reset Atila Group";
            call "Reset Bet Group Flags";
            if bankroll >= record "New Win Goal" data then
            begin
                put 100% of bankroll to record "Bankroll" data;
                call "Update Bankroll";
                add 1 to record "Sessions Won" data;
//                display "Your Win Goal Has Reached, Session Will Stop."
//                stop session;
            end
            else
            begin
                put 100% of bankroll to record "Bankroll" data;
            end
        end
    end
end

method "Track Atila Group"
begin
    track last number for record "Track List Number" data spins
            to record "Track List" layout;
    if record "Track List" layout index >=
       record "Track List Number" data then
    begin
        if flag "Bet Atila Group" is false then
        begin
            Duplicate record "Track List" to record "Temp Track List";
            call "Reset Atila Group";
            call "Check Pivot Group";
        end
    end
end

method "Check Pivot Group"
begin
    put 1 to record "Temp Track List" layout index;
    loop until record "Temp Track List" layout index > record "Track List Number" data then
    begin
        if record "Temp Track List" layout is found on
           record "Group 1" layout then
        begin
           add 1 to record "Track Group 1" data;
        end

        if record "Temp Track List" layout is found on
           record "Group 2" layout then
        begin
           add 1 to record "Track Group 2" data;
        end

        if record "Temp Track List" layout is found on
           record "Group 3" layout then
        begin
           add 1 to record "Track Group 3" data;
        end

        if record "Temp Track List" layout is found on
           record "Group 4" layout then
        begin
           add 1 to record "Track Group 4" data;
        end

        add 1 to record "Temp Track List" layout index;
    end

    call "Reset Bet Group Flags";
    call "Check Group 1 & 2";
    call "Check Group 3 & 4";

    if flag "Bet Group 1" is true and flag "Bet Group 4" is true then
    begin
        call "Check Group 1 & 4";
    end

    if flag "Bet Group 1" is true and flag "Bet Group 3" is true then
    begin
        call "Check Group 1 & 3";
    end

    if flag "Bet Group 2" is true and flag "Bet Group 3" is true then
    begin
        call "Check Group 2 & 3";
    end

    if flag "Bet Group 2" is true and flag "Bet Group 4" is true then
    begin
        call "Check Group 2 & 4";
    end
end

method "Check Group 1 & 2"
begin
    if record "Track Group 1" data > record "Track Group 2" data then
    begin
        set flag "Bet Group 1" to true;
    end
    else
    begin
        set flag "Bet Group 2" to true;
    end
end

method "Check Group 3 & 4"
begin
    if record "Track Group 3" data > record "Track Group 4" data then
    begin
        set flag "Bet Group 3" to true;
    end
    else
    begin
        set flag "Bet Group 4" to true;
    end
end

method "Check Group 1 & 4"
begin
    if record "Track Group 1" data > record "Track Group 4" data then
    begin
        call "Reset Bet Group Flags";
        if record "Track Group 1" data is >= record "Min" data and
           record "Track Group 1" data is <= record "Max" data then
        begin
            set flag "Bet Group 1" to true;
            set flag "Bet Atila Group" to true;
        end
    end
    else
    begin
        call "Reset Bet Group Flags";
        if record "Track Group 4" data is >= record "Min" data and
           record "Track Group 4" data is <= record "Max" data then
        begin
            set flag "Bet Group 4" to true;
            set flag "Bet Atila Group" to true;
        end
    end
end

method "Check Group 1 & 3"
begin
    if record "Track Group 1" data > record "Track Group 3" data then
    begin
        call "Reset Bet Group Flags";
        if record "Track Group 1" data is >= record "Min" data and
           record "Track Group 1" data is <= record "Max" data then
        begin
            set flag "Bet Group 1" to true;
            set flag "Bet Atila Group" to true;
        end
    end
    else
    begin
        call "Reset Bet Group Flags";
        if record "Track Group 3" data is >= record "Min" data and
           record "Track Group 3" data is <= record "Max" data then
        begin
            set flag "Bet Group 3" to true;
            set flag "Bet Atila Group" to true;
        end
    end
end

method "Check Group 2 & 3"
begin
    if record "Track Group 2" data > record "Track Group 3" data then
    begin
        call "Reset Bet Group Flags";
        if record "Track Group 2" data is >= record "Min" data and
           record "Track Group 2" data is <= record "Max" data then
        begin
            set flag "Bet Group 2" to true;
            set flag "Bet Atila Group" to true;
        end
    end
    else
    begin
        call "Reset Bet Group Flags";
        if record "Track Group 3" data is >= record "Min" data and
           record "Track Group 3" data is <= record "Max" data then
        begin
            set flag "Bet Group 3" to true;
            set flag "Bet Atila Group" to true;
        end
    end
end

method "Check Group 2 & 4"
begin
    if record "Track Group 2" data > record "Track Group 4" data then
    begin
        call "Reset Bet Group Flags";
        if record "Track Group 2" data is >= record "Min" data and
           record "Track Group 2" data is <= record "Max" data then
        begin
            set flag "Bet Group 2" to true;
            set flag "Bet Atila Group" to true;
        end
    end
    else
    begin
        call "Reset Bet Group Flags";
        if record "Track Group 4" data is >= record "Min" data and
           record "Track Group 4" data is <= record "Max" data then
        begin
            set flag "Bet Group 4" to true;
            set flag "Bet Atila Group" to true;
        end
    end
end

method "Bet Atila Group"
begin
    if flag "Bet Atila Group" is true then
    begin
        if flag "Bet Group 1" is true then
        begin
            put 100% of record "Atila Group Progression" data index record "Progression Pointer" data;
            put 1 to record "Atila Group Progression" data index;
            put 1 to record "Group 1" layout index;

            loop until record "Atila Group Progression" data index > 9 then
            begin
                put 100% of record "Atila Group Progression" data to record "Group 1" layout;
                add 1 to record "Atila Group Progression" data index;
                add 1 to record "Group 1" layout index;
            end
            put 100% of record "Progression Pointer" data to record "Atila Group Progression" data index;
        end

        if flag "Bet Group 2" is true then
        begin
            put 100% of record "Atila Group Progression" data index record "Progression Pointer" data;
            put 1 to record "Atila Group Progression" data index;
            put 1 to record "Group 2" layout index;

            loop until record "Atila Group Progression" data index > 9 then
            begin
                put 100% of record "Atila Group Progression" data to record "Group 2" layout;
                add 1 to record "Atila Group Progression" data index;
                add 1 to record "Group 2" layout index;
            end
            put 100% of record "Progression Pointer" data to record "Atila Group Progression" data index;
        end

        if flag "Bet Group 3" is true then
        begin
            put 100% of record "Atila Group Progression" data index record "Progression Pointer" data;
            put 1 to record "Atila Group Progression" data index;
            put 1 to record "Group 3" layout index;

            loop until record "Atila Group Progression" data index > 9 then
            begin
                put 100% of record "Atila Group Progression" data to record "Group 3" layout;
                add 1 to record "Atila Group Progression" data index;
                add 1 to record "Group 3" layout index;
            end
            put 100% of record "Progression Pointer" data to record "Atila Group Progression" data index;
        end

        if flag "Bet Group 4" is true then
        begin
            put 100% of record "Atila Group Progression" data index record "Progression Pointer" data;
            put 1 to record "Atila Group Progression" data index;
            put 1 to record "Group 4" layout index;

            loop until record "Atila Group Progression" data index > 9 then
            begin
                put 100% of record "Atila Group Progression" data to record "Group 4" layout;
                add 1 to record "Atila Group Progression" data index;
                add 1 to record "Group 4" layout index;
            end
            put 100% of record "Progression Pointer" data to record "Atila Group Progression" data index;
        end

    end
end

method "Init Atila Group"
begin
    copy list [number 1,  number 2,  number 3,  number 4,  number 5,  number 6,
               number 7,  number 8,  number 9]  to record "Group 1" layout;
    copy list [number 10, number 11, number 12, number 13, number 14, number 15,
               number 16, number 17, number 18] to record "Group 2" layout;
    copy list [number 19, number 20, number 21, number 22, number 23, number 24,
               number 25, number 26, number 27] to record "Group 3" layout;
    copy list [number 28, number 29, number 30, number 31, number 32, number 33,
               number 34, number 35, number 36] to record "Group 4" layout;

    put 8 to record "Min" data;
    put 9 to record "Max" data;
    call "Reset Progression";
    call "Reset Atila Group";
    call "Reset Bet Group Flags";
end

method "Reset Atila Group"
begin
    clear record "Progression Pointer" data;
    clear record "Track Group 1" data;
    clear record "Track Group 2" data;
    clear record "Track Group 3" data;
    clear record "Track Group 4" data;
    set flag "Bet Atila Group" to false;
end

method "Reset Progression"
begin
    set list [1,1,1,1,1,1,1,1,1] to record "Atila Group Progression" data;
    put 1 to record "Atila Group Progression" data index;
end

method "Reset Bet Group Flags"
begin
    set flag "Bet Group 1" to false;
    set flag "Bet Group 2" to false;
    set flag "Bet Group 3" to false;
    set flag "Bet Group 4" to false;
end

//------------------------ End Hot group system -------------------------//



//
// Template
//

{
method "Check xxx Wins"
begin

end

method "Track xxx"
begin

end

method "Bet xxx"
begin

end

method "Init xxx"
begin

end
}

//------------------------------ End Template ------------------------------//

[abydos]

-