4 Spins Line Play v2

Contenuto del file

system "4 Spins Line Play Ver 2"
{
*************************************
*     Code request by gigisulivan   *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------

Look at last spin example:
1 - bet1u on line 1,2,3
5 - bet 1u on line 1,2,3 and line 4,5,6
7 - bet 1u on lines 1,2,3; 4,5,6 and 7,8,9
35 - bet 1u on above lines and 34,35,36

Thats basics now main strategy starts after 4 spins if in next spin any of the lines
hits we remove that line and the first we've bet on so if next:

1a) 8 - (win) take off 7,8,9 and 1,2,3 - we bet only4,5,6 and 34,35,36

1b) 2 - (win) take off 1,2,3 play the rest of the lines with 1u

1c) 22 - (loss) take off 1,2,3 as we always bet only on max 4 lines at a time, and bet on above plus 22.23.24

So we always exclude the fourth line and the one that hit. Any new line showing up we bet.
If zero hits we dont bet on a new line but still take off a bet from the fourth line.
}
method "main"
begin
while starting a new session
    begin
    Call "Init"
    end
if record"Increase Every"data = 0
    begin
    end else
    begin
    Call "Track"
    Call "Check unit size"
    if record"Unit Size Bet"data > record"Bet with this unit"data
        begin
        put 100% record"Unit Size Bet"data record"Bet with this unit"data
        end else
        begin
        if record"Highest Profit"data = record"Profit"data
            begin
            put 100% record"Unit Size Bet"data record"Bet with this unit"data
            end
        end
    end
put 100% record"Bet with this unit"data record "Last 4 lines" layout index
if record "Last 4 lines" layout count < 4 and record "Last Street" layout is found record
"Last 4 lines" layout and record "Last 4 lines" layout is found record "Street Layout" layout
    begin
    end else
    begin
    track last street for 4 spins to record "Last 4 lines" Layout
    end
put 100% record"Bet with this unit"data on record "Last 4 lines" layout list
if record "Last 4 lines" layout count = 4
    begin
    if record "Last Number" layout = Number 0 or record "Last Number" layout = Number 00
        begin
        move list up by 1 of the items located in Record "Last 4 lines" layout
        put 0 on all bets
        put 100% record"Bet with this unit"data unit on record "Last 4 Lines" layout list
        end
    if record "Last 4 Lines" layout won each time
        begin
        move list down by 1 of the items located in Record "Last 4 lines" layout
        if record "Last Street" layout not found record "Last 4 lines" layout
        or record "Last Number" layout = Number 0 or record "Last Number" layout = Number 00
            begin
            put 0 on all bets
            put 2 to record "Last 4 lines" layout index
            copy record "Last 4 lines" layout to record "Temp Layout" layout
            add 1 to record "Last 4 lines" layout index
            add 1 to record "Temp Layout" layout index
            copy record "Last 4 lines" layout to record "Temp Layout" layout
            add 1 to record "Last 4 lines" layout index
            add 1 to record "Temp Layout" layout index
            copy record "Last 4 lines" layout to record "Temp Layout" layout
            clear record "Last 4 lines" layout
            put 1 on record "Temp Layout" layout index
            copy record "Temp Layout" layout to record "Last 4 lines" layout
            add 1 to record "Temp Layout" layout index
            add 1 to record "Last 4 Lines" layout index
            copy record "Temp Layout" layout to record "Last 4 lines" layout
            add 1 to record "Temp Layout" layout index
            add 1 to record "Last 4 Lines" layout index
            copy record "Temp Layout" layout to record "Last 4 lines" layout
            clear record "Temp Layout" layout
            put 0 on all bets
            put 100% record"Bet with this unit"data unit on record "Last 4 lines" layout list
            exit
            end
            else begin
            put 2 on record "Last 4 lines" layout index
            if record "Last 4 lines" layout = record "Last Street" layout
                begin
                add 1 to record "Last 4 lines" layout index
                copy record "Last 4 lines" layout to record "Temp Layout" layout
                add 1 to record "Last 4 lines" layout index
                add 1 to record "Temp Layout" layout index
                copy record "Last 4 lines" layout to record "Temp Layout" layout
                clear record "Last 4 lines" layout
                put 1 on record "Temp Layout" layout index
                copy record "Temp Layout" layout to record "Last 4 lines" layout
                add 1 to record "Temp Layout" layout index
                add 1 to record "Last 4 Lines" layout index
                copy record "Temp Layout" layout to record "Last 4 lines" layout
                clear record "Temp Layout" layout
                put 0 on all bets
                put 100% record"Bet with this unit"data unit on record "Last 4 lines" layout list
                end
            add 1 to record "Last 4 lines" layout index
            if record "Last 4 lines" layout = record "Last Street" layout
                begin
                subtract 1 to record "Last 4 lines" layout index
                copy record "Last 4 lines" layout to record "Temp Layout" layout
                add 2 to record "Last 4 lines" layout index
                add 1 to record "Temp Layout" layout index
                copy record "Last 4 lines" layout to record "Temp Layout" layout
                clear record "Last 4 lines" layout
                put 1 on record "Temp Layout" layout index
                copy record "Temp Layout" layout to record "Last 4 lines" layout
                add 1 to record "Temp Layout" layout index
                add 1 to record "Last 4 Lines" layout index
                copy record "Temp Layout" layout to record "Last 4 lines" layout
                clear record "Temp Layout" layout
                put 0 on all bets
                put 100% record"Bet with this unit"data unit on record "Last 4 lines" layout list
                end
            add 1 to record "Last 4 lines" layout index
            if record "Last 4 lines" layout = record "Last Street" layout
                begin
                subtract 2 to record "Last 4 lines" layout index
                copy record "Last 4 lines" layout to record "Temp Layout" layout
                add 1 to record "Last 4 lines" layout index
                add 1 to record "Temp Layout" layout index
                copy record "Last 4 lines" layout to record "Temp Layout" layout
                clear record "Last 4 lines" layout
                put 1 on record "Temp Layout" layout index
                copy record "Temp Layout" layout to record "Last 4 lines" layout
                add 1 to record "Temp Layout" layout index
                add 1 to record "Last 4 Lines" layout index
                copy record "Temp Layout" layout to record "Last 4 lines" layout
                clear record "Temp Layout" layout
                put 0 on all bets
                put 100% record"Bet with this unit"data unit on record "Last 4 lines" layout list
                end
            end
        end
    end
end

method "Check Unit Size"
begin
put 100% bankroll record"Profit"data
subtract 100% record"Starting Bankroll"data record"Profit"data
if record"Profit"data > record"Highest Profit"data
    begin
    put 100% record"Profit"data record"Highest Profit"data
    end
put 100% record"Profit"data record"Drawdown"data
subtract 100% record"Highest Profit"data record"Drawdown"data
multiply -1 record"Drawdown"data
duplicate record"Drawdown" record"Unit Size UR"
divide 100% record"Increase Every"data record"Unit Size UR"data
Call "Round Down"
end

method "Round Down"
begin
put 0 record"Round A"data
put 1 record"Round B" data
if record"Highest Profit"data = record"Profit"data
    begin
    put 1 record"Unit Size" data
    end
loop until record"Unit Size UR"data >= record"Round A"data and record"Unit Size UR"data <= record"Round B"data
    begin
    if record"Unit Size"data = 0 or record"Unit Size UR"data < 1
        begin
        put 1 record"Unit Size"data
        end
    if record"Unit Size UR"data >= record"Round A"data and record"Unit Size UR"data <= record"Round B"data
        begin
        end else
        begin
        add 1 record"Round A"data
        add 1 record"Round B"data
        end
    duplicate record"Round A" record"Unit Size"
    end
if record"Unit Size UR"data < 1
    begin
    put 1 record"Unit Size"data
    end
duplicate record"Unit Size" record"Unit Size Bet"
if record"Unit Size UR"data < 1 and record"Unit Size"data = 1
    begin
    put 1 record"Unit Size Bet"data
    end else
    begin
    add 1 record"Unit Size Bet"data
    end
end

method "Track"
begin
track last street for 1 spins to record "Last Street" layout
track last number for 1 spins to record "Last Number" layout
end

method "Init"
begin
copy list [Street(1-3), Street(4-6), Street(7-9), Street(10-12), Street(13-15),
Street(16-18), Street(19-21), Street(22-24), Street(25-27), Street(28-30),
Street(31-33), Street(34-36)] record "Street Layout" layout
group
    begin
    display "4 Spins Line Play"
    display "-------------------------------------"
    input data "Increase bet size by 1 after every X units are lost." record"Increase Every"data
    display "(Bet size will automatically reset to 1 on a new high)."
    display "NB: Enter '0' to flat bet"
    end
put 100% bankroll record"Starting Bankroll"data
put 0 record"Highest Profit"data
put 0 record"Round A"data
put 1 record"Round B"data
put 1 record"Bet with this unit"data
end