10869 $ repeat strategy v2

Contenuto del file

system "10869$ repeat strategy by arteinvivo"
{
http://gambling.projectsydney.com/viewtopic.php?t=3929&start=0&postdays=0&postorder=asc&highlight=

RX'd by bunjow
}
method "main"
    begin
    While Starting new Session
        begin
        Put 18 Record "MAX dist back to first occurance" Data
        Put 5 Record "MAX # of attempts per repeat" Data
        copy list [number 00, number 0, number 1, number 2, number 3,number 4,number 5,number 6,
        number 7,number 8,number 9,number 10,number 11,number 12,number 13,number 14,
        number 15,number 16,number 17,number 18,number 19,number 20,number 21,number 22,
        number 23,number 24,number 25,number 26,number 27,number 28,number 29,number 30,
        number 31,number 32,number 33,number 34,number 35,number 36] to record"numbers"layout
        set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"last spin this # appeared"data
        set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"how far back"data
        Put 0 Record "spin #" Data
        Put 0 Record "last spin # that had a repeat" Data
        Put 0 Record "len to show" Data
        Put 0 Bankroll
        call "init"
        exit
        end

    Put 0 All Bets
    Put 100% Bankroll Record "running total profit/loss" Data
    Add 1 Record "spin #" Data
    Track last Number for 1 time Record "Last Number" Layout
    Track last Number for 35 times Record "Last 35 Numbers" Layout
    call "calculate how far back since first occurance"
    call "calculate the length in spins since the last repeated number"

    If Record "spin #" Data < Record "MAX dist back to first occurance" Data
        begin
        exit
        end

    If Net > 0
        begin
        Call "init"
        exit
        end

    If Record "len to show" Data = Record "how far back" Data And Record "how far back" Data > 0
        begin
        Put 1 Record "Attempt #" Data
        Add 1 Record "number of bets" Data
        call "place bet(s)"
        Set Flag "betting in progress" True
        exit
        end

    If Record "how far back" Data > 0 And Flag "betting in progress" True
        begin
        Put 1 Record "Attempt #" Data
        call "place bet(s)"
        exit
        end

    If Net < 0
        begin
        Add 1 Record "Attempt #" Data
        If Record "Attempt #" Data <= Record "MAX # of attempts per repeat" Data
            begin
            call "place bet(s)"
            exit
            end
            else
            begin
            Put 0 Record "Attempt #" Data
            exit
            end
        end

    end

method "init"
    begin
    Clear Record "number(s) to bet" Layout
    Set Flag "betting in progress" False
    Put 0 Record "number of bets" Data
    end

method "calculate how far back since first occurance"
    begin
    Put 1 Record "numbers" Layout index
    Put 1 Record "last spin this # appeared" Data index
    Put 1 Record "how far back" Data index
    Loop Until Record "numbers" Layout = Record "Last Number" Layout
        begin
        Add 1 Record "numbers" Layout index
        Add 1 Record "last spin this # appeared" Data index
        Add 1 Record "how far back" Data index
        end
    If Record "last spin this # appeared" Data = 0
        begin
        end
        else
        begin
        Put 100% Record "spin #" Data Record "calculate spins" Data
        Subtract 100% Record "last spin this # appeared" Data Record "calculate spins" Data
        If Record "calculate spins" Data <= Record "MAX dist back to first occurance" Data
            begin
            Put 100% Record "calculate spins" Data Record "how far back" Data
            end
            else
            begin
            Put 0 Record "how far back" Data
            end
        end
    Put 100% Record "spin #" Data Record "last spin this # appeared" Data
    end

Method "calculate the length in spins since the last repeated number"
    begin
    If Record "how far back" Data > 0
        begin
        If Record "last spin # that had a repeat" Data = 0
            begin
            Put 100% Record "spin #" Data Record "last spin # that had a repeat" Data
            end
            else
            begin
            Put 0 Record "len to show" Data
            Loop Until Record "last spin # that had a repeat" Data = Record "spin #" Data
                begin
                Add 1 Record "last spin # that had a repeat" Data
                Add 1 Record "len to show" Data
                end
            end
        end
    end

Method "place bet(s)"
    begin
    If Record "running total profit/loss" Data < 0
        begin
        Subtract 200% Record "running total profit/loss" Data Record "running total profit/loss" Data
        end
    Put 0 Record "temp" Data
    Loop Until Record "temp" Data = Record "number of bets" Data
        begin
        add 1 Record "temp" Data
        Put 2% Record "running total profit/loss" Data Record "Last 35 Numbers" Layout
        Add 1 Record "Last 35 Numbers" Layout index
        Copy Record "Last 35 Numbers" Layout Record "bet already placed" Layout
        Subtract 1 Record "Last 35 Numbers" Layout index
        If Record "Last 35 Numbers" Layout = Record "bet already placed" Layout
            begin
            Add 2% Record "running total profit/loss" Data Record "Last 35 Numbers" Layout
            end
        Subtract 1 Record "Last 35 Numbers" Layout index
        end
    Set Max Record "Last 35 Numbers" Layout index
        If Total Inside Bets count < 1
            begin
            Put 0 Record "temp" Data
            Loop Until Record "temp" Data = Record "number of bets" Data
                begin
                add 1 Record "temp" Data
                Put 1 Record "Last 35 Numbers" Layout
                Add 1 Record "Last 35 Numbers" Layout index
                Copy Record "Last 35 Numbers" Layout Record "bet already placed" Layout
                Subtract 1 Record "Last 35 Numbers" Layout index
                If Record "Last 35 Numbers" Layout = Record "bet already placed" Layout
                    begin
                    Add 1 Record "Last 35 Numbers" Layout
                    end
                Subtract 1 Record "Last 35 Numbers" Layout index
                end
            end
    Set Max Record "Last 35 Numbers" Layout index
    end