Sequence method v2

Contenuto del file

system "Turbo's sequence method Ver2"
{
Simple - play each dozen as it's own section.

Note the numbers as they show.
Bet against an exact repeat of a sequence happening.

Progression (per dozen) marty 1,2,4,8 only when a sequence repeats.
This means the loss of the progression will happen at the same odds
of a number repeating 5 times (happens once per million spins)

Each dozen independant of the others
}
method "main"
    begin
    While Starting new Session
        begin
        Set List [1,2,4,8] Record "progression" Data
        Put 1 Record "doz 1 prog index" Data
        Put 1 Record "doz 2 prog index" Data
        Put 1 Record "doz 3 prog index" Data
        Copy List [Number 1, Number 2, Number 3, Number 4, Number 5, Number 6, Number 7, Number 8, Number 9, Number 10, Number 11, Number 12]Record "1st dozen numbers" Layout
        Copy List [Number 13, Number 14, Number 15, Number 16, Number 17, Number 18, Number 19, Number 20, Number 21, Number 22, Number 23, Number 24]Record "2nd dozen numbers" Layout
        Copy List [Number 25, Number 26, Number 27, Number 28, Number 29, Number 30, Number 31, Number 32, Number 33, Number 34, Number 35, Number 36]Record "3rd dozen numbers" Layout
        Put 500 Record "# of numbers to track" Data
        Set Flag "Bet placed doz1" False
        Set Flag "Bet placed doz2" False
        Set Flag "Bet placed doz3" False
        end



    Track last Number for 1 time Record "last number" Layout
    Track last Dozen for 1 time Record "last dozen" Layout

    if net < 0
    begin
        If Flag "Bet placed doz1" True
        begin
        Set Flag "Bet placed doz1" False
        Add 1 Record "doz 1 prog index" Data
        Put 100% Record "doz 1 prog index" Data Record "progression" Data index
            Clear Record "doz 1 numbers to bet" Layout

        If Record "progression" Data index > Record "progression" Data count
            begin
            Put 1 Record "progression" Data index
            Put 1 Record "doz 1 prog index" Data
            Clear Record "doz 1 numbers to bet" Layout
            end
        end

    If Flag "Bet placed doz2" True
        begin
        Set Flag "Bet placed doz2" False
        Add 1 Record "doz 2 prog index" Data
        Put 100% Record "doz 2 prog index" Data Record "progression" Data index
            Clear Record "doz 2 numbers to bet" Layout
        If Record "progression" Data index > Record "progression" Data count
            begin
            Put 1 Record "progression" Data index
            Put 1 Record "doz 2 prog index" Data
            Clear Record "doz 2 numbers to bet" Layout
            end
        end

    If Flag "Bet placed doz3" True
        begin
        Set Flag "Bet placed doz3" False
        Add 1 Record "doz 3 prog index" Data
        Put 100% Record "doz 3 prog index" Data Record "progression" Data index
            Clear Record "doz 3 numbers to bet" Layout
        If Record "progression" Data index > Record "progression" Data count
            begin
            Put 1 Record "progression" Data index
            Put 1 Record "doz 3 prog index" Data
            Clear Record "doz 3 numbers to bet" Layout
            end
        end
    end


    if net > 0
        begin
            If Record "last dozen" Layout = 1st Dozen
                begin
                Put 1 Record "doz 1 prog index" Data
                Clear Record "doz 1 numbers to bet" Layout
                end
            If Record "last dozen" Layout = 2nd Dozen
                begin
                Put 1 Record "doz 2 prog index" Data
                Clear Record "doz 2 numbers to bet" Layout
                end
            If Record "last dozen" Layout = 3rd Dozen
                begin
                Put 1 Record "doz 3 prog index" Data
                Clear Record "doz 3 numbers to bet" Layout
                end
        end



    If Record "last number" Layout = Number 0 Or Record "last number" Layout = Number 00
        begin
        exit
        end

    If Record "last dozen" Layout = 1st Dozen
        begin
        Copy Record "last number" Layout Record "1st dozen sequence" Layout
        If Record "1st dozen sequence" Layout count > Record "# of numbers to track" Data
            begin
            Move List Up 1 Record "1st dozen sequence" Layout
            Set Max Record "1st dozen sequence" Layout index
            end
        If Record "1st dozen sequence" Layout index = 1
            begin
            Add 1 Record "1st dozen sequence" Layout index
            exit
            end
        Put 1 Record "#" Data
        Loop Until Record "#" Data = Record "# of numbers to track" Data
            begin
            Add 1 Record "#" Data
            subtract 1 Record "1st dozen sequence" Layout index
            If Record "1st dozen sequence" Layout = Record "last number" Layout
                begin
                Put 100% Record "# of numbers to track" Data Record "#" Data
                end
            If Record "1st dozen sequence" Layout index < 1
                begin
                Put 100% Record "# of numbers to track" Data Record "#" Data
                Set Max Record "1st dozen sequence" Layout index
                Add 1 Record "1st dozen sequence" Layout index
                exit
                end
            end
        Add 1 Record "1st dozen sequence" Layout index
        copy Record "1st dozen sequence" Layout Record "doz 1 DO NOT bet this number!" Layout
        Put 1 Record "doz 1 numbers to bet" Layout index
        Put 1 Record "1st dozen numbers" Layout index
        Loop Until Record "1st dozen numbers" Layout index > Record "1st dozen numbers" Layout count
            begin
            If Record "1st dozen numbers" Layout not = Record "doz 1 DO NOT bet this number!" Layout
                begin
                Copy Record "1st dozen numbers" Layout Record "doz 1 numbers to bet" Layout
                Add 1 Record "doz 1 numbers to bet" Layout index
                end
            Add 1 Record "1st dozen numbers" Layout index
            end
        Set Max Record "1st dozen sequence" Layout index
        Add 1 Record "1st dozen sequence" Layout index
        Set Flag "Bet placed doz1" True
        end



    If Record "last dozen" Layout = 2nd Dozen
        begin
        Copy Record "last number" Layout Record "2nd dozen sequence" Layout
        If Record "2nd dozen sequence" Layout count > Record "# of numbers to track" Data
            begin
            Move List Up 1 Record "2nd dozen sequence" Layout
            Set Max Record "2nd dozen sequence" Layout index
            end
        If Record "2nd dozen sequence" Layout index = 1
            begin
            Add 1 Record "2nd dozen sequence" Layout index
            exit
            end
        Put 1 Record "#" Data
        Loop Until Record "#" Data = Record "# of numbers to track" Data
            begin
            Add 1 Record "#" Data
            Subtract 1 Record "2nd dozen sequence" Layout index
            If Record "2nd dozen sequence" Layout = Record "last number" Layout
                begin
                Put 100% Record "# of numbers to track" Data Record "#" Data
                end
            If Record "2nd dozen sequence" Layout index < 1
                begin
                Put 100% Record "# of numbers to track" Data Record "#" Data
                Set Max Record "2nd dozen sequence" Layout index
                Add 1 Record "2nd dozen sequence" Layout index
                exit
                end
            end
        Add 1 Record "2nd dozen sequence" Layout index
        copy Record "2nd dozen sequence" Layout Record "doz 2 DO NOT bet this number!" Layout
        Put 1 Record "doz 2 numbers to bet" Layout index
        Put 1 Record "2nd dozen numbers" Layout index
        Loop Until Record "2nd dozen numbers" Layout index > Record "2nd dozen numbers" Layout count
            begin
            If Record "2nd dozen numbers" Layout not = Record "doz 2 DO NOT bet this number!" Layout
                begin
                Copy Record "2nd dozen numbers" Layout Record "doz 2 numbers to bet" Layout
                Add 1 Record "doz 2 numbers to bet" Layout index
                end
            Add 1 Record "2nd dozen numbers" Layout index
            end
        Set Max Record "2nd dozen sequence" Layout index
        Add 1 Record "2nd dozen sequence" Layout index
        Set Flag "Bet placed doz2" True
        end



    If Record "last dozen" Layout = 3rd Dozen
        begin
        Copy Record "last number" Layout Record "3rd dozen sequence" Layout
        If Record "3rd dozen sequence" Layout count > Record "# of numbers to track" Data
            begin
            Move List Up 1 Record "3rd dozen sequence" Layout
            Set Max Record "3rd dozen sequence" Layout index
            end
        If Record "3rd dozen sequence" Layout index = 1
            begin
            Add 1 Record "3rd dozen sequence" Layout index
            exit
            end
        Put 1 Record "#" Data
        Loop Until Record "#" Data = Record "# of numbers to track" Data
            begin
            Add 1 Record "#" Data
            Subtract 1 Record "3rd dozen sequence" Layout index
            If Record "3rd dozen sequence" Layout = Record "last number" Layout
                begin
                Put 100% Record "# of numbers to track" Data Record "#" Data
                end
            If Record "3rd dozen sequence" Layout index < 1
                begin
                Put 100% Record "# of numbers to track" Data Record "#" Data
                Set Max Record "3rd dozen sequence" Layout index
                Add 1 Record "3rd dozen sequence" Layout index
                exit
                end
            end
        Add 1 Record "3rd dozen sequence" Layout index
        copy Record "3rd dozen sequence" Layout Record "doz 3 DO NOT bet this number!" Layout
        Put 1 Record "doz 3 numbers to bet" Layout index
        Put 1 Record "3rd dozen numbers" Layout index
        Loop Until Record "3rd dozen numbers" Layout index > Record "3rd dozen numbers" Layout count
            begin
            If Record "3rd dozen numbers" Layout not = Record "doz 3 DO NOT bet this number!" Layout
                begin
                Copy Record "3rd dozen numbers" Layout Record "doz 3 numbers to bet" Layout
                Add 1 Record "doz 3 numbers to bet" Layout index
                end
            Add 1 Record "3rd dozen numbers" Layout index
            end
        Set Max Record "3rd dozen sequence" Layout index
        Add 1 Record "3rd dozen sequence" Layout index
        Set Flag "Bet placed doz3" True
        end



    call "place bets"

    end

method "place bets"
    begin
    if Flag "Bet placed doz1" True
    begin
    Put 1 Record "doz 1 numbers to bet" Layout index
    Put 100% Record "doz 1 prog index" Data Record "progression" Data index
    Loop Until Record "doz 1 numbers to bet" Layout index > Record "doz 1 numbers to bet" Layout count
        begin
        Put 100% Record "progression" Data Record "doz 1 numbers to bet" Layout
        Add 1 Record "doz 1 numbers to bet" Layout index
        end
    exit
    end
    if Flag "Bet placed doz2" True
    begin
    Put 1 Record "doz 2 numbers to bet" Layout index
    Put 100% Record "doz 2 prog index" Data Record "progression" Data index
    Loop Until Record "doz 2 numbers to bet" Layout index > Record "doz 2 numbers to bet" Layout count
        begin
        Put 100% Record "progression" Data Record "doz 2 numbers to bet" Layout
        Add 1 Record "doz 2 numbers to bet" Layout index
        end
    exit
    end
    if Flag "Bet placed doz3" True
    begin
    Put 1 Record "doz 3 numbers to bet" Layout index
    Put 100% Record "doz 3 prog index" Data Record "progression" Data index
    Loop Until Record "doz 3 numbers to bet" Layout index > Record "doz 3 numbers to bet" Layout count
        begin
        Put 100% Record "progression" Data Record "doz 3 numbers to bet" Layout
        Add 1 Record "doz 3 numbers to bet" Layout index
        end
    end
    exit
    end