Too Good To be true

Contenuto del file

system "2good2btrue v1"
{
*************************************
*         System by Pooter          *
*        on the VIP Lounge          *
*************************************
          Rx-ed by St0rm0r

Bet 1 unit on the numbers that show.
On a win, remove the number that won and add +1 to the other numbers played.
Bet max 3 units on a number.
Sesson ends at 50 units profit
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    exit
    end

// section 2: do the tracking
track last number for 1 time record"last#"layout

// section 4:act on a win
if net > 0
    begin
    if bankroll > record"profit"data
        begin
        display "end of session"
        call "reset"
        end
    end

put 1 record"numbers"layout index
loop until record"numbers"layout = record"last#"layout
    begin
    add 1 record"numbers"layout index
    end
put 100% record"numbers"layout index record"history"data index
if record"history"data = 0 //not bet upon before
    begin
    add 1 record"history"data
    end
    else
    begin //bet upon before, therefore we had a win
    put 0 record"history"data
    put 1 record"history"data index
    loop until record"history"data index > record"history"data count
        begin
        if record"history"data > 0
            begin
            add 1 record"history"data
            if record"history"data > 3
                begin
                put 3 record"history"data
                end
            end
        add 1 record"history"data index
        end
    end

// section 5:bet
put 1 record"history"data index
loop until record"history"data index > record"history"data count
    begin
    if record"history"data > 0
        begin
        put 100% record"history"data index record"numbers"layout index
        put 100% record"history"data record"numbers"layout
        end
    add 1 record"history"data index
    end

end

// subroutines
method "init"
begin
load single wheel
group
    begin
    display "2good2btrue v1"
    display"--------------------------"
    input data "Win target for one session: " record"target"data
    end
copy list [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
call "reset"
end

method "reset"
begin
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] record"history"data
put 100% bankroll record"profit"data
add 100% record"target"data record"profit"data
end