Grinding the Single dozen

Contenuto del file

system "Grinding the Single dozen by rubixxcube Ver.2"

method "main"
    begin
    While Starting new Session
        begin
        call "init"
        exit
        end

    Track last Dozen for 1 Record "last dozen to appear" Layout

//    if Bankroll >= Record "profit target reset" Data
//        begin
//        call "init"
//        put 100% Record "bet amount" Data Record "last dozen to appear" Layout
//        exit
//        end
//    if Bankroll <= Record "stop loss reset" Data
//        begin
//        call "init"
//        put 100% Record "bet amount" Data Record "last dozen to appear" Layout
//        exit
//        end

    If Bankroll > Record "starting balance" Data
        begin
        Call "reset"
        put 100% Record "bet amount" Data Record "last dozen to appear" Layout
        exit
        end

     If Bankroll <= Record "starting balance" Data
        begin
        Add 100% Net Record "loss amount" Data
        if flag "End of betting level" true
            begin
            set flag "End of betting level" false
            add 1 Record "bet amount" Data
            put 1 Record "# repeated bets" Data
            call "determine next bet amount"
            put 100% Record "bet amount" Data Record "last dozen to appear" Layout
            exit
            end
        if flag "End of betting level" false
            begin
            add 1 Record "# repeated bets" Data
            if Record "# repeated bets" Data = Record "# of times to repeat the bet" Data
                begin
                set flag "End of betting level" true
                end
            call "determine next bet amount"
            put 100% Record "bet amount" Data Record "last dozen to appear" Layout
            exit
            end
        end

    end

method "init"
    begin
    Put 100% Bankroll Record "profit target reset" Data
    Add 100 Record "profit target reset" Data
    Put 100% Bankroll Record "stop loss reset" Data
    Subtract 100 Record "stop loss reset" Data
//  ***************************************************************************************
//  ****** Change # of times to repeat the bet before advancing the progression here ******
//  ****** Example:  put 3    will give you 111,222,333,444,etc. **************************
    put 3 Record "# of times to repeat the bet" Data
//  ***************************************************************************************
//  ***************************************************************************************
    call "reset"
    end

method "reset"
    begin
    Put 100% Bankroll Record "starting balance" Data
    Put 1 Record "bet amount" Data
    put 0 record"loss amount"data
    set flag "End of betting level" false
    put 1 Record "# repeated bets" Data
    end

method "determine next bet amount"
    begin
    Put 1 Record "Possible winnings" Data
    Subtract 100% Record "bet amount" Data Record "Possible winnings" Data
    Subtract 100% Record "bet amount" Data Record "Possible winnings" Data
    If Record "Possible winnings" Data < Record "loss amount" Data
        begin
        put 0 Record "lowest bet necessary" Data
        Put 100% Record "loss amount" Data Record "count" Data
        Loop Until Record "count" Data >= 1
            begin
            add 1 Record "lowest bet necessary" Data
            add 2 Record "count" Data
            end
        if Record "lowest bet necessary" Data < Record "bet amount" Data
            begin
            Put 100% Record "lowest bet necessary" Data Record "bet amount" Data
            set flag "End of betting level" false
            put 1 Record "# repeated bets" Data
            end
        end
    end