4 number slow progression v2

Contenuto del file

system "4 number slow progression system v.2"
{
Idea posted by TurboGenius on The VIP Lounge
Posted: Sun Feb 13, 2005 3:16 am    Post subject: 4# slow progression system
RX-ed by St0rm0r on Feb 13th, 2005

rules :
We wait out 4 spins.

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

Once qualified :
Play all 4 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
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
    display"win"
    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
Load Single Wheel
copy list [number 00,number 00,number 00,number 00] to record"last qualified group"layout
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 4 numbers"layout
set flag "qualified" to false
set list [1,1,1,1] to record"betting progression"data
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 4 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 4 times in record"last 4 numbers"layout
if record"last 4 numbers"layout count = 4
begin
// check that no numbers repeat in the 4 last spins
set flag "qualified" to true
put 1 in record"i"data
loop until record"i"data = 5
    begin
    put 100% of record"i"data in record"last 4 numbers"layout index
    copy record"last 4 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 = 5
        begin
        put 100% of record"j"data in record"last 4 numbers"layout index
        if record"last 4 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 = 5
    begin
    put 100% of record"i"data in record"last 4 numbers"layout index
    copy record"last 4 numbers"layout to record"reference number"layout
    put 1 in record"j"data
    loop until record"j"data = 5
        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 = 5
        begin
        put 100% of record"i"data in record"last 4 numbers"layout index
        put 100% of record"i"data in record"last qualified group"layout index
        copy record"last 4 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
        display"stop loss point reached"
        call "reset"
        // after loss multiplier
        multiply by 4 to record"multiplier"data
        if record"multiplier"data > 16
        begin
        display "getting too dangerous"
        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 = 5
    begin
    put 100% of record"betting progression"data index in record"temp"data
    put 100% of record"i"data in record"last 4 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 4 numbers"layout
    // after loss multiplier
    multiply by 100% of record"multiplier"data on record"last 4 numbers"layout
    add 1 to record"i"data
    put 100% of record"temp"data back into record"betting progression"data index
    end
end