The Golden Four

Contenuto del file

system "The Golden Four"
{
*************************************
*          System by argh           *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
We track 4 spins. If no number repeats, we bet on these 4 numbers and
then on each spin we bet on the last number appearing. We bet like this
during 5 spins following this progression 2,3,4,5,6. If there is a repeat,
we start tracking again.

If we lose, we start an "overall" progression (x2,x3,x4,...,x10)
(decreasing after each win).
-------------------------------------
}
method "main"
begin
while starting new session
    begin
    call "Init"
    exit
    end
if flag "Bet" true
    begin
    call "Place Bets"
    end else begin
    call "Track"
    end
end

method "Place Bets"
begin
if net < 0
    begin
    set max record"Last 4"layout index
    add 1 record"Last 4"layout index
    track last number for 1 spins record"Last Number"layout
    copy record"Last Number"layout record"Last 4"layout
    add 1 record"Progression"data index
    if record"Progression"data index > record"Progression"data count
        begin
        put 1 record"Progression"data index
        add 1 record"Overall Progression"data index
        set flag "Bet" false
        clear record"Last 4"layout
        if record"Overall Progression"data index > record"Overall Progression"data count
            begin
            set max record"Overall Progression"data index
            end
        exit
        end
    end
if net > 0
    begin
    put 1 record"Progression"data index
    subtract 1 record"Overall Progression"data index
    if record"Overall Progression"data index=0
        begin
        put 1 record"Overall Progression"data index
        end
    set flag "Bet" false
    clear record"Last 4"layout
    exit
    end
put 100% record"Progression"data record"Unit Size"data
multiply 100% record"Overall Progression"data record"Unit Size"data
put 100% record"Unit Size"data record"Last 4"layout list
end

method "Track"
begin
track last number for 1 spins record"Last Number"layout
if record"Last Number"layout found record"Last 4"layout
    begin
    clear record"Last 4"layout
    end else begin
    if record"Last 4"layout count < 4
        begin
        track last number for 4 spins record"Last 4"layout
        if record"Last 4"layout count = 4
            begin
            set flag "Bet" true
            call "Place Bets"
            end
        end
    end
end

method "Init"
begin
set list [1,2,3,4,5,6,7,8,9,10] record"Overall Progression"data
set list [2,3,4,5,6] record"Progression"data
end