X number slow progression system v1

Contenuto del file

system "X number slow progression system v.1"
{
************************************
* by TurboGenius on The VIP Lounge *
************************************
Posted: Sun Feb 13, 2005 3:16 am
Post subject: 4# slow progression system
         RX-ed by St0rm0r
------------------------------------
          00-c0mpatible
------------------------------------
rules :
We wait out X spins.

To qualify :
No number can repeat during those X spins.. and...
No number can be the same as any number from last group
that qualified.
If no qualification - run off X more numbers

Once qualified :
Play all X numbers on spin #1 at 1 unit each.
From this point on, increase 1 unit per number,
one number at a time until all bets are at 2 units each.
Then begin with 3 units in the same manner

Addition #1 by vikingo
Posted: Sun Feb 13, 2005 12:57 pm
"when I get a hit, I reduce by 1 all the bets, unless there are numbers
with 1 chip"
2 2 2 1, you leave the bets as is, but if you have
3 3 3 2, yo go back to
2 2 2 1, so in this way you keep things under control....

If the hit put my winnings on positive, I reset to the beginning of the progression:
1 1 1 1

Addition #2 by St0rm0r
Stop loss at 4 4 4 4... 4
multiply base progression by 4 after reaching a stop loss.
}
method "main"
begin
while starting a new session
    begin
    call "init"
    exit
    end

if net < 0
    begin
    call "calculate slow progression"
    end
if net > 0
    begin
    // after loss multiplier
    put 1 in record"multiplier"data
    if record"C"data = 1 begin display"win" end
    call "restart after win"
    end

if flag "qualified" is false
begin
call "try to qualify"
end
if flag "qualified" is true
begin
call "bet"
end

end

method "init"
begin
group
    begin
    display "X number slow progression system v.1"
    input dropdown "Wheel:
    1:= Single
    2:= Double" record"W"data
    input data "Bet groups of X numbers: (e.g.4)" record"X"data
    input dropdown "Comments:
    1:= on
    2:= off" record"C"data
    end
if record"W"data = 1 begin Load Single Wheel end
if record"W"data = 2 begin Load double Wheel end
clear record"last qualified group"layout
put 1 record"go"data
loop until record"go"data > record"X"data
    begin
    copy red record"last qualified group"layout
    add 1 record"last qualified group"layout index
    add 1 record"go"data
    end
put 100% of bankroll in record"reference bankroll"data
call "reset"
// after loss multiplier
put 1 in record"multiplier"data
end

method "reset"
begin
clear record"last X numbers"layout
set flag "qualified" to false
clear record"betting progression"data
put 1 record"go"data
loop until record"go"data > record"X"data
    begin
    put 1 record"betting progression"data
    add 1 record"betting progression"data index
    add 1 record"go"data
    end
put 0 in record"betting progression"data index
// *** THIS LIST DETERMINES YOUR PROGRESSION ***
set list [2,3,4] to record"progression"data
put 1 in record"progression"data index
end

method "restart after win"
begin
if bankroll > record"reference bankroll"data
    begin
    put 100% of bankroll in record"reference bankroll"data
    call "reset"
    EXIT
    end
put 1 in record"search for"data
if record"search for"data is not found in record"betting progression"data
    begin
    put 0 in record"i"data
    loop until record"i"data = record"betting progression"data count
        begin
        add 1 to record"i"data
        put 100% of record"i"data in record"betting progression"data index
        subtract 1 from record"betting progression"data
        end
    end
clear record"last X numbers"layout
set flag "qualified" to false
put 0 in record"betting progression"data index //if not it will be a downhill roller coaster
put 1 in record"progression"data index
end


method "try to qualify"
begin
track last number for record"X"data times in record"last X numbers"layout
if record"last X numbers"layout count = record"X"data
begin
// check that no numbers repeat in the X last spins
set flag "qualified" to true
put 1 in record"i"data
loop until record"i"data > record"X"data
    begin
    put 100% of record"i"data in record"last X numbers"layout index
    copy record"last X numbers"layout to record"reference number"layout
    put 100% of record"i"data in record"j"data
    add 1 to record"j"data
    loop until record"j"data > record"X"data
        begin
        put 100% of record"j"data in record"last X numbers"layout index
        if record"last X numbers"layout = record"reference number"layout
        begin
        set flag "qualified" to false
        end
        add 1 to record"j"data
        end
    add 1 to record"i"data
    end

// check that no numbers are the same as any number from last group that qualified
put 1 in record"i"data
loop until record"i"data > record"X"data
    begin
    put 100% of record"i"data in record"last 4 numbers"layout index
    copy record"last X numbers"layout to record"reference number"layout
    put 1 in record"j"data
    loop until record"j"data > record"X"data
        begin
        put 100% of record"j"data in record"last qualified group"layout index
        if record"last qualified group"layout = record"reference number"layout
        begin
        set flag "qualified" to false
        end
        add 1 to record"j"data
        end
    add 1 to record"i"data
    end

// if the group qualifies: make it the 'last qualifying group' for later reference
if flag "qualified" is true
    begin
    put 1 in record"i"data
    loop until record"i"data > record"X"data
        begin
        put 100% of record"i"data in record"last X numbers"layout index
        put 100% of record"i"data in record"last qualified group"layout index
        copy record"last X numbers"layout to record"last qualified group"layout
        add 1 to record"i"data
        end
    end
end
end

method "calculate slow progression"
begin
add 1 to record"betting progression"data index
if record"betting progression"data index > record"betting progression"data count
    begin
    add 1 to record"progression"data index
    // stop loss at end of progression
    if record"progression"data index > record"progression"data count
        begin
        if record"C"data = 1 begin display"stop loss point reached" end
        call "reset"
        // after loss multiplier
        multiply by 4 to record"multiplier"data
        if record"multiplier"data > 16
        begin
        if record"C"data = 1 begin display "getting too dangerous" end
        put 2 in record"multiplier"data
        end
        exit
        end
    put 1 to record"betting progression"data index
    end
put 100% of record"progression"data to record"betting progression"data
end

method "bet"
begin
put 1 in record"i"data
loop until record"i"data > record"X"data
    begin
    put 100% of record"betting progression"data index in record"temp"data
    put 100% of record"i"data in record"last X numbers"layout index
    put 100% of record"i"data in record"betting progression"data index
    put 100% of record"betting progression"data on record"last X numbers"layout
    // after loss multiplier
    multiply by 100% of record"multiplier"data on record"last X numbers"layout
    add 1 to record"i"data
    put 100% of record"temp"data back into record"betting progression"data index
    end
end