Repeat numbers

Contenuto del file

system "Aficionados of repeat numbers by Arteinvivo"

method "main"
    begin
    While Starting new Session
        begin
        Put 5 Record "Max # of attempts" Data
        Put 5 Record "Max # of Levels" Data
        Put 100% Record "Max # of Levels" Data Record "max to track" Data
        Add 1 Record "max to track" Data
        Put 1 Record "last bunch2 without the duplicates" Layout index
        Put 1 Record "flat bet amount" Data
        call "init"
        exit
        end

    Track last Number for Record "max to track" Data times Record "last bunch of numbers" Layout
    Track last Number for 15 times Record "last bunch of numbers2" Layout
    Track last Number for 1 time Record "Last Number" Layout

    If Net > 0
        begin
        Call "init"
        end


    put 1 Record "last bunch of numbers" Layout index
    Loop Until Record "last bunch of numbers" Layout index = Record "last bunch of numbers" Layout count
        begin
            If Record "last bunch of numbers" Layout = Record "Last Number" Layout
                begin
                Put 0 Record "Attempt #" Data
                If Record "Level #" Data = Record "Max # of Levels" Data
                    begin
                    Set flag "Betting levels to be increased" False
                    end
                If Record "Level #" Data = 1
                    begin
                    Set flag "Betting levels to be increased" True
                    end
            end
        Add 1 Record "last bunch of numbers" Layout index
        end

    if Record "Attempt #" Data = 0
        begin
        If Flag "Betting levels to be increased" True
            begin
            Add 1 Record "Level #" Data
            end
        If Flag "Betting levels to be increased" False
            begin
            Subtract 1 Record "Level #" Data
            end
        end

    if Record "Attempt #" Data < Record "Max # of attempts" Data
        begin
        Add 1 Record "Attempt #" Data
            call "determine eligible betting list"
            Put 1 Record "last bunch2 without the duplicates" Layout index
            Loop Until Record "last bunch2 without the duplicates" Layout index > Record "Level #" Data
                begin
                Put  100% Record "flat bet amount" Data Record "last bunch2 without the duplicates" Layout
                Add 1 Record "last bunch2 without the duplicates" Layout index
                end
        end

    end

method "init"
    begin
    Put 100% Record "Max # of attempts" Data Record "Attempt #" Data
    Put 0 Record "Level #" Data
    Set flag "Betting levels to be increased" True
    end

method "determine eligible betting list"
    begin
    Clear Record "last bunch2 without the duplicates" Layout
    Put 1 Record "last bunch of numbers2" Layout index
    Loop Until Record "last bunch of numbers2" Layout index = Record "last bunch of numbers2" Layout count
        begin
        Add 1 Record "last bunch of numbers2" Layout index
        end
    Put 1 Record "last bunch2 without the duplicates" Layout index
    Copy Record "last bunch of numbers2" Layout Record "last bunch2 without the duplicates" Layout
    Loop Until Record "last bunch of numbers2" Layout index = 1
        begin
        set flag "this # is already here" false
        Loop Until Record "last bunch2 without the duplicates" Layout index > Record "last bunch2 without the duplicates" Layout count
            begin
            If Record "last bunch of numbers2" Layout = Record "last bunch2 without the duplicates" Layout
                begin
                set flag "this # is already here" true
                end
            Add 1 Record "last bunch2 without the duplicates" Layout index
            end
        if flag "this # is already here" False
            begin
            Copy Record "last bunch of numbers2" Layout Record "last bunch2 without the duplicates" Layout
            end
        Subtract 1 Record "last bunch of numbers2" Layout index
        Put 1 Record "last bunch2 without the duplicates" Layout index
        end
    end