system "Play it Again Sam"
{
*************************************
*         System by trojan          *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
We wait for a number to repeat itself. We then wait x number
of spins for a number not to appear twice in a row.
We then start betting on the last number with a progression
for x amount of spins.

Progression: We bet just enough to be in profit.
-------------------------------------
}
method "main"
begin
while starting new session
    begin
    call "Init"
    group
        begin
        display "Play it again Sam"
        display "--------------------------------------------------------------"
        display ""
        input data "Wait x no. of spins" record"Wait"data
        input data "Bet for x no. of spins" record"Bet"data
        end
    exit
    end
if flag "Bet" true
    begin
    call "Bet"
    end else begin
    call "Track"
    end
end

method "Bet"
begin
if net > 0
    begin
    call "Init"
    reset all flags false
    set flag "Qualified" true
    put 0 record"Count"data
    exit
    end
track last number for 1 spins record"Last Number"layout
call "Calc Unit"
add 1 record"Count"data
if record"Bet"data < record"Count"data
    begin
    reset all flags false
    set flag "Qualified" true
    put 0 record"Count"data
    exit
    end
put 100% record"Unit Size"data record"Last Number"layout
end

method "Calc Unit"
begin
put 35 record"Multiply Factor"data
if bankroll >= record"Starting Bankroll"data
    begin
    put 1 record"Unit Size"data
    end else begin
    put 100% bankroll record"Current Bankroll"data
    duplicate record"Starting Bankroll" record"Loss"
    subtract 100% record"Current Bankroll"data record"Loss"data
    put 35 record"Gain"data
    loop until flag "Stop" true
        begin
        if record"Loss"data > record"Gain"data
            begin
            add 35 record"Gain"data
            end else begin
            duplicate record"Gain" record"Unit Size"
            divide 100% record"Multiply Factor"data record"Unit Size"data
            set flag "Stop" true
            end
        end
    set flag "Stop" false
    end
end

method "Track"
begin
if flag "Qualified" true
    begin
    track last number for 1 spins record"Last Number (a)"layout
    if record"Last Number (a)"layout = record"Last Number (b)"layout
        begin
        clear record"Count"data
        end else begin
        add 1 record"Count"data
        if record"Count"data = record"Wait"data
            begin
            set flag "Bet" true
            put 0 record"Count"data
            call "Bet"
            end
        end
    track last number for 1 spins record"Last Number (b)"layout
    exit
    end
track last number for 1 spins record"Last Number (a)"layout
if record"Last Number (a)"layout = record"Last Number (b)"layout
    begin
    set flag "Qualified" true
    end
track last number for 1 spins record"Last Number (b)"layout
end

method "Init"
begin
put 100% bankroll record"Starting Bankroll"data
end