Another Repeater v2

Contenuto del file

system "Turbo's Another Repeater Method Ver 2"
{
*************************************
*       System by Turbo Genius      *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
          not 00-c0mpatible
-------------------------------------
For system instructions please visit:

http://www.freewebs.com/turbogenius/anotherrepeatermethod.htm
-------------------------------------
}
method "main"
begin
while starting new session
    begin
    load single wheel
    put 1 record"Unit Size"data
    put 100% bankroll record"Master High"data
    group
        begin
        display "Turbo's Another Repeater Method"
        display "-----------------------------------------------------------"
        input dropdown "Progression:
        1:=Increase By 1 Unit Until New High
        2:=Increase on Win Decrease on Loss" record"Progression"data
        end
    call "Init"
    exit
    end
add 1 record"Master Count"data
if flag "Bet" true
    begin
    call "Bet"
    end else begin
    call "Track"
    end
end

method "Get Unit Size"
begin
if record"Progression"data = 1
    begin
    if bankroll >= record"Master High"data
        begin
        put 100% bankroll record"Master High"data
        put 1 unit record"Unit Size"data
        end else begin
        add 1 record"Unit Size"data
        end
    end
if record"Progression"data = 2
    begin
    if bankroll >= record"Master High"data
        begin
        put 100% bankroll record"Master High"data
        put 1 unit record"Unit Size"data
        end else begin
        if bankroll >= record"Session Start BR"data
            begin
            subtract 1 record"Unit Size"data
            if record"Unit Size"data < 1
                begin
                put 1 record"Unit Size"data
                end
            end else begin
            add 1 record"Unit Size"data
            end
        end
    end
end

method "Bet"
begin
if net > 0 and record"Net"data not = 1
    begin
    put 1 record"Net"data
    call "Reset"
    end
put 0 record"Net"data
if flag "Bet Red" true
    begin
    duplicate record"Reds" record"Bet this"
    end else begin
    duplicate record"Blacks" record"Bet this"
    end
track last number for 1 spins record"Last Number"layout
if record"Last Number"layout found record"Red Layout"layout and flag "Bet Red" true
    begin
    set max record"Bet this"layout index
    add 1 record"Bet this"layout index
    copy record"Last Number"layout record"Bet this"layout
    end
if record"Last Number"layout found record"Black Layout"layout and flag "Bet Black" true
    begin
    set max record"Bet this"layout index
    add 1 record"Bet this"layout index
    copy record"Last Number"layout record"Bet this"layout
    end
put 100% record"Unit Size"data record"Bet this"layout list
duplicate record"Bet this" record"Reds"
duplicate record"Bet this" record"Blacks"
end

method "Track"
begin
loop until flag "Stop" true
    begin
    locate number backward record"This number"data spins from last
    number record"Backward number"layout
    if record"Backward number"layout found record"Red Layout"layout
        begin
        if flag "Red finished" false
            begin
            set flag "Red" true
            if record"Backward number"layout found record"Reds"layout
                begin
                set flag "Red finished" true
                copy record"Backward number"layout record"Red Repeater"layout
                end else begin
                copy record"Backward number"layout record"Reds"layout
                add 1 record"Reds"layout index
                end
            end
        end
    if record"Backward number"layout found record"Black Layout"layout
        begin
        if flag "Black finished" false
            begin
            set flag "Black" true
            if record"Backward number"layout found record"Blacks"layout
                begin
                set flag "Black finished" true
                copy record"Backward number"layout record"Black Repeater"layout
                end else begin
                copy record"Backward number"layout record"Blacks"layout
                add 1 record"Blacks"layout index
                end
            end
        end
    add 1 record"This number"data
            if record"Master Count"data < 100
        begin
        if record"This number"data >= record"Master Count"data
            begin
            set flag "Stop" true
            put 0 record"This number"data
            end
        end else begin
        if record"This number"data >= 100
            begin
            set flag "Stop" true
            put 0 record"This number"data
            end
        end
    end
set flag "Stop" false
if flag "Red finished" false
    begin
    clear record"Reds"layout
    end
if flag "Black finished" false
    begin
    clear record"Blacks"layout
    end
if flag "Red Finished" true and flag "Black Finished" true
    begin
    loop until flag "Stop" true
        begin
        locate number backward record"This number"data spins from last
        number record"Backward number"layout
        if flag "Black Count Complete" false
            begin
            add 1 record"Black Line Count"data
            end
        if flag "Red Count Complete" false
            begin
            add 1 record"Red Line Count"data
            end
        if record"Backward number"layout found record"Black Layout"layout and
        flag "Black Count Complete" false
            begin
            if record"Backward number"layout = record"Black Repeater"layout
                begin
                add 1 record"Black Repeater"data
                if record"Black Repeater"data = 2
                    begin
                    set flag "Black Count Complete" true
                    end
                end
            end
        if record"Backward number"layout found record"Red Layout"layout and
        flag "Red Count Complete"false
            begin
            if record"Backward number"layout = record"Red Repeater"layout
                begin
                add 1 record"Red Repeater"data
                if record"Red Repeater"data = 2
                    begin
                    set flag "Red Count Complete" true
                    end
                end
            end
        add 1 record"This number"data
        if record"Master Count"data < 100
        begin
        if record"This number"data >= record"Master Count"data
            begin
            set flag "Stop" true
            put 0 record"This number"data
            end
        end else begin
        if record"This number"data >= 100
            begin
            set flag "Stop" true
            put 0 record"This number"data
            end
        end
 //       if record"Black Repeater"layout found record"Black Layout"layout
 //       and record"Red Repeater"layout found record"Red Layout"layout
 //           begin
 //           set flag "Stop" true
 //           put 0 record"This number"data
 //           end
        end
    set flag "Stop" false
    end
if flag "Black Count Complete" true and flag "Red Count Complete" true
    begin
    if record"Black Line Count"data = record"Red Line Count"data
        begin
        call "Reset"
        end
    if record"Black Line Count"data > record"Red Line Count"data
        begin
        set flag "Bet Black" true
        end else begin
        set flag "Bet Red" true
        end
    set flag "Bet" true
    put 100% bankroll record"Session Start BR"data
    call "Bet"
    end
end

method "Reset"
begin
    call "Get Unit Size"
    clear record"This number"layout
    clear record"Backward Number"layout
    clear record"Reds"layout
    clear record"Blacks"layout
    clear record"Red Repeater"layout
    clear record"Red Repeater"data
    clear record"Black Repeater"layout
    clear record"Black Repeater"data
    clear record"Black Line Count"data
    clear record"Red Line Count"data
    clear record"Bet this"layout
    clear record"Last Number"layout
    reset all flags false
    call "Init"
    call "Track"
    exit
end

method "Init"
begin
copy list [1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36] record"Red Layout"layout
copy list [2,4,6,8,10,11,13,15,17,20,22,24,26,28,29,31,33,35] record"Black Layout"layout
put 0 record"This number"data
end