Questo sito fa uso di cookie, i cookie introducono una gamma di servizi che migliorano la tua fruizione del sito. Utilizzando il sito si ritiene accettato l'uso dei cookie secondo le nostre linee guida. Per maggiori informazioni clicca qui.

Home Risorse Roulette Xtreme Sistemi Xtreme Straight Ahead

Straight Ahead

(Zocker | Stormor) Giocare tutte le terzine in differenziale con progressioni indipendenti.

Xtreme icon Straight Ahead.dgt — Xtreme, 26 KB (27506 bytes)

Contenuto del file

System "Straight Ahead"
{
**************************************
* System by Zocker, posted by Perkin *
*         on the VIP Lounge          *
**************************************
          Rx-ed by St0rm0r
--------------------------------------
           00-c0mpatible
--------------------------------------
Bet on all 12 streets or apply differential betting on each of the 12 streets.
(user input)
Each street is following its own progression:
1,1,1,1,1,1,1,1,1,1,1,1,(12x1)2,2,2,2,2,2,2,2,2,2,2,2,(12x2)3,3,3... etc.
On a win, go back 12 positions in the progression.
If the progression is shorter then 18 figures, reset to 1,1,1,1,1,1,1,1,1,1,1,1,(12x1)
On a loss, go up 1 position in the progression.
If the zero hits, we cancel the first step of the progression.

Every 24 spins, the progressions are swithched:
the street with the highest progression gets the lowest progression, and so on.

Of course we do not start with 1 unit on all 12 streets at once:
Start with the first street.
Then add each time one street until all streets are covered.
--------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    end

// section 2: do the tracking
subtract 1 record"start spins"data
add 1 record"24 counter"data
if record"24 counter"data = 25
    begin
    put 1 record"24 counter"data
    if record"Sw"data = 1
        begin call "switch progressions" end
    end
track last number for 1 record"last N"layout
if record"Z"data = 1
    begin
    if record"last N"layout = number 0 or record"last N"layout = number 00
        begin
        put 100% record"pro1"data index record"hold"data
        clear record"temp"data
        put 2 record"pro1"data index
        loop until record"pro1"data index > record"pro1"data count
            begin
            put 100% record"pro1"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro1"data index
            end
        duplicate record"temp" record"pro1"
        put 100% record"hold"data record"pro1"data index
        subtract 1 record"pro1"data index
        if record"pro1"data index < 1
            begin put 1 record"pro1"data index end

        put 100% record"pro2"data index record"hold"data
        clear record"temp"data
        put 2 record"pro2"data index
        loop until record"pro2"data index > record"pro2"data count
            begin
            put 100% record"pro2"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro2"data index
            end
        duplicate record"temp" record"pro2"
        put 100% record"hold"data record"pro2"data index
        subtract 1 record"pro2"data index
        if record"pro2"data index < 1
            begin put 1 record"pro2"data index end

        put 100% record"pro3"data index record"hold"data
        clear record"temp"data
        put 2 record"pro3"data index
        loop until record"pro3"data index > record"pro3"data count
            begin
            put 100% record"pro3"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro3"data index
            end
        duplicate record"temp" record"pro3"
        put 100% record"hold"data record"pro3"data index
        subtract 1 record"pro3"data index
        if record"pro3"data index < 1
            begin put 1 record"pro3"data index end

        put 100% record"pro4"data index record"hold"data
        clear record"temp"data
        put 2 record"pro4"data index
        loop until record"pro4"data index > record"pro4"data count
            begin
            put 100% record"pro4"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro4"data index
            end
        duplicate record"temp" record"pro4"
        put 100% record"hold"data record"pro4"data index
        subtract 1 record"pro4"data index
        if record"pro4"data index < 1
            begin put 1 record"pro4"data index end

        put 100% record"pro5"data index record"hold"data
        clear record"temp"data
        put 2 record"pro5"data index
        loop until record"pro5"data index > record"pro5"data count
            begin
            put 100% record"pro5"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro5"data index
            end
        duplicate record"temp" record"pro5"
        put 100% record"hold"data record"pro5"data index
        subtract 1 record"pro5"data index
        if record"pro5"data index < 1
            begin put 1 record"pro5"data index end

        put 100% record"pro6"data index record"hold"data
        clear record"temp"data
        put 2 record"pro6"data index
        loop until record"pro6"data index > record"pro6"data count
            begin
            put 100% record"pro6"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro6"data index
            end
        duplicate record"temp" record"pro6"
        put 100% record"hold"data record"pro6"data index
        subtract 1 record"pro6"data index
        if record"pro6"data index < 1
            begin put 1 record"pro6"data index end

        put 100% record"pro7"data index record"hold"data
        clear record"temp"data
        put 2 record"pro7"data index
        loop until record"pro7"data index > record"pro7"data count
            begin
            put 100% record"pro7"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro7"data index
            end
        duplicate record"temp" record"pro7"
        put 100% record"hold"data record"pro7"data index
        subtract 1 record"pro7"data index
        if record"pro7"data index < 1
            begin put 1 record"pro7"data index end

        put 100% record"pro8"data index record"hold"data
        clear record"temp"data
        put 2 record"pro8"data index
        loop until record"pro8"data index > record"pro8"data count
            begin
            put 100% record"pro8"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro8"data index
            end
        duplicate record"temp" record"pro8"
        put 100% record"hold"data record"pro8"data index
        subtract 1 record"pro8"data index
        if record"pro8"data index < 1
            begin put 1 record"pro8"data index end

        put 100% record"pro9"data index record"hold"data
        clear record"temp"data
        put 2 record"pro9"data index
        loop until record"pro9"data index > record"pro9"data count
            begin
            put 100% record"pro9"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro9"data index
            end
        duplicate record"temp" record"pro9"
        put 100% record"hold"data record"pro9"data index
        subtract 1 record"pro9"data index
        if record"pro9"data index < 1
            begin put 1 record"pro9"data index end

        put 100% record"pro10"data index record"hold"data
        clear record"temp"data
        put 2 record"pro10"data index
        loop until record"pro10"data index > record"pro10"data count
            begin
            put 100% record"pro10"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro10"data index
            end
        duplicate record"temp" record"pro10"
        put 100% record"hold"data record"pro10"data index
        subtract 1 record"pro10"data index
        if record"pro10"data index < 1
            begin put 1 record"pro10"data index end

        put 100% record"pro11"data index record"hold"data
        clear record"temp"data
        put 2 record"pro11"data index
        loop until record"pro11"data index > record"pro11"data count
            begin
            put 100% record"pro11"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro11"data index
            end
        duplicate record"temp" record"pro11"
        put 100% record"hold"data record"pro11"data index
        subtract 1 record"pro11"data index
        if record"pro11"data index < 1
            begin put 1 record"pro11"data index end

        put 100% record"pro12"data index record"hold"data
        clear record"temp"data
        put 2 record"pro12"data index
        loop until record"pro12"data index > record"pro12"data count
            begin
            put 100% record"pro12"data record"temp"data
            add 1 record"temp"data index
            add 1 record"pro12"data index
            end
        duplicate record"temp" record"pro12"
        put 100% record"hold"data record"pro12"data index
        subtract 1 record"pro12"data index
        if record"pro12"data index < 1
            begin put 1 record"pro12"data index end
        end
    end

// section 3: act on a loss
put 1 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro1"data index
    if record"pro1"data index > record"pro1"data count
        begin
        subtract 1 record"pro1"data index
        put 100% record"pro1"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro1"data index
            put 100% record"temp"data record"pro1"data
            add 1 record"run"data
            end
        subtract 11 record"pro1"data index
        end
    put 1 record"pro"data index
    put 100% record"pro1"data record"pro"data
    end
put 2 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro2"data index
    if record"pro2"data index > record"pro2"data count
        begin
        subtract 1 record"pro2"data index
        put 100% record"pro2"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro2"data index
            put 100% record"temp"data record"pro2"data
            add 1 record"run"data
            end
        subtract 11 record"pro2"data index
        end
    put 2 record"pro"data index
    put 100% record"pro2"data record"pro"data
    end
put 3 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro3"data index
    if record"pro3"data index > record"pro3"data count
        begin
        subtract 1 record"pro3"data index
        put 100% record"pro3"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro3"data index
            put 100% record"temp"data record"pro3"data
            add 1 record"run"data
            end
        subtract 11 record"pro3"data index
        end
    put 3 record"pro"data index
    put 100% record"pro3"data record"pro"data
    end
put 4 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro4"data index
    if record"pro4"data index > record"pro4"data count
        begin
        subtract 1 record"pro4"data index
        put 100% record"pro4"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro4"data index
            put 100% record"temp"data record"pro4"data
            add 1 record"run"data
            end
        subtract 11 record"pro4"data index
        end
    put 4 record"pro"data index
    put 100% record"pro4"data record"pro"data
    end
put 5 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro5"data index
    if record"pro5"data index > record"pro5"data count
        begin
        subtract 1 record"pro5"data index
        put 100% record"pro5"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro5"data index
            put 100% record"temp"data record"pro5"data
            add 1 record"run"data
            end
        subtract 11 record"pro5"data index
        end
    put 5 record"pro"data index
    put 100% record"pro5"data record"pro"data
    end
put 6 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro6"data index
    if record"pro6"data index > record"pro6"data count
        begin
        subtract 1 record"pro6"data index
        put 100% record"pro6"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro6"data index
            put 100% record"temp"data record"pro6"data
            add 1 record"run"data
            end
        subtract 11 record"pro6"data index
        end
    put 6 record"pro"data index
    put 100% record"pro6"data record"pro"data
    end
put 7 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro7"data index
    if record"pro7"data index > record"pro7"data count
        begin
        subtract 1 record"pro7"data index
        put 100% record"pro7"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro7"data index
            put 100% record"temp"data record"pro7"data
            add 1 record"run"data
            end
        subtract 11 record"pro7"data index
        end
    put 7 record"pro"data index
    put 100% record"pro7"data record"pro"data
    end
put 8 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro8"data index
    if record"pro8"data index > record"pro8"data count
        begin
        subtract 1 record"pro8"data index
        put 100% record"pro8"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro8"data index
            put 100% record"temp"data record"pro8"data
            add 1 record"run"data
            end
        subtract 11 record"pro8"data index
        end
    put 8 record"pro"data index
    put 100% record"pro8"data record"pro"data
    end
put 9 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro9"data index
    if record"pro9"data index > record"pro9"data count
        begin
        subtract 1 record"pro9"data index
        put 100% record"pro9"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro9"data index
            put 100% record"temp"data record"pro9"data
            add 1 record"run"data
            end
        subtract 11 record"pro9"data index
        end
    put 9 record"pro"data index
    put 100% record"pro9"data record"pro"data
    end
put 10 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro10"data index
    if record"pro10"data index > record"pro10"data count
        begin
        subtract 1 record"pro10"data index
        put 100% record"pro10"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro10"data index
            put 100% record"temp"data record"pro10"data
            add 1 record"run"data
            end
        subtract 11 record"pro10"data index
        end
    put 10 record"pro"data index
    put 100% record"pro10"data record"pro"data
    end
put 11 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro11"data index
    if record"pro11"data index > record"pro11"data count
        begin
        subtract 1 record"pro11"data index
        put 100% record"pro11"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro11"data index
            put 100% record"temp"data record"pro11"data
            add 1 record"run"data
            end
        subtract 11 record"pro11"data index
        end
    put 11 record"pro"data index
    put 100% record"pro11"data record"pro"data
    end
put 12 record"streets"layout index
if record"streets"layout has not hit each time
    begin
    add 1 record"pro12"data index
    if record"pro12"data index > record"pro12"data count
        begin
        subtract 1 record"pro12"data index
        put 100% record"pro12"data record"temp"data
        add 1 record"temp"data
        put 1 record"run"data
        loop until record"run"data > 12
            begin
            add 1 record"pro12"data index
            put 100% record"temp"data record"pro12"data
            add 1 record"run"data
            end
        subtract 11 record"pro12"data index
        end
    put 12 record"pro"data index
    put 100% record"pro12"data record"pro"data
    end

// section 4:act on a win
put 1 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro1"data index
    if record"pro1"data index < 18
        begin
        clear record"pro1"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro1"data
        put 1 record"pro1"data index
        end
    put 1 record"pro"data index
    put 100% record"pro1"data record"pro"data
    end
put 2 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro2"data index
    if record"pro2"data index < 18
        begin
        clear record"pro2"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro2"data
        put 1 record"pro2"data index
        end
    put 2 record"pro"data index
    put 100% record"pro2"data record"pro"data
    end
put 3 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro3"data index
    if record"pro3"data index < 18
        begin
        clear record"pro3"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro3"data
        put 1 record"pro3"data index
        end
    put 3 record"pro"data index
    put 100% record"pro3"data record"pro"data
    end
put 4 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro4"data index
    if record"pro4"data index < 18
        begin
        clear record"pro4"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro4"data
        put 1 record"pro4"data index
        end
    put 4 record"pro"data index
    put 100% record"pro4"data record"pro"data
    end
put 5 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro5"data index
    if record"pro5"data index < 18
        begin
        clear record"pro5"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro5"data
        put 1 record"pro5"data index
        end
    put 5 record"pro"data index
    put 100% record"pro5"data record"pro"data
    end
put 6 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro6"data index
    if record"pro6"data index < 18
        begin
        clear record"pro6"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro6"data
        put 1 record"pro6"data index
        end
    put 6 record"pro"data index
    put 100% record"pro6"data record"pro"data
    end
put 7 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro7"data index
    if record"pro7"data index < 18
        begin
        clear record"pro7"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro7"data
        put 1 record"pro7"data index
        end
    put 7 record"pro"data index
    put 100% record"pro7"data record"pro"data
    end
put 8 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro8"data index
    if record"pro8"data index < 18
        begin
        clear record"pro8"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro8"data
        put 1 record"pro8"data index
        end
    put 8 record"pro"data index
    put 100% record"pro8"data record"pro"data
    end
put 9 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro9"data index
    if record"pro9"data index < 18
        begin
        clear record"pro9"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro9"data
        put 1 record"pro9"data index
        end
    put 9 record"pro"data index
    put 100% record"pro9"data record"pro"data
    end
put 10 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro10"data index
    if record"pro10"data index < 18
        begin
        clear record"pro10"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro10"data
        put 1 record"pro10"data index
        end
    put 10 record"pro"data index
    put 100% record"pro10"data record"pro"data
    end
put 11 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro11"data index
    if record"pro11"data index < 18
        begin
        clear record"pro11"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro11"data
        put 1 record"pro11"data index
        end
    put 11 record"pro"data index
    put 100% record"pro11"data record"pro"data
    end
put 12 record"streets"layout index
if record"streets"layout has hit each time
    begin
    subtract 12 record"pro12"data index
    if record"pro12"data index < 18
        begin
        clear record"pro12"data
        set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro12"data
        put 1 record"pro12"data index
        end
    put 12 record"pro"data index
    put 100% record"pro12"data record"pro"data
    end

//bet
duplicate record"pro" record"play"
if record"start spins"data > 0
    begin
    put 12 record"play"data index
    put 100% record"start spins"data record"run"data
    loop until record"run"data = 0
        begin
        put 0 record"play"data
        subtract 1 record"play"data index
        subtract 1 record"run"data
        end
    end
    else
    begin
    put 0 record"start spins"data
    end

if record"diff B"data = 1
    begin
    put 999999 record"min"data
    put 1 record"play"data index
    loop until record"play"data index > record"play"data count
        begin
        if record"play"data < record"min"data
            begin
            put 100% record"play"data record"min"data
            end
        add 1 record"play"data index
        end
    put 1 record"play"data index
    loop until record"play"data index > record"play"data count
        begin
        subtract 100% record"min"data record"play"data
        add 1 record"play"data index
        end
    put 0 record"total"data
    put 1 record"play"data index
    loop until record"play"data index > record"play"data count
        begin
        add 100% record"play"data record"total"data
        add 1 record"play"data index
        end
    if record"total"data = 0
        begin
        set list [1,1,1,1,1,1,1,1,1,1,1,0] record"play"data
        end
    end

put 1 record"play"data index
loop until record"play"data index > record"n Streets"data
    begin
    put 100% record"play"data index record"streets"layout index
    put 100% record"play"data record"streets"layout
    add 1 record"play"data index
    end
end

// subroutines
method "init"
begin
group
    begin
    display "straight Ahead by Zocker"
    display "---------------------------------"
    input data "How many Streets do you want to play: " record"n Streets"data
    input dropdown "On a zero, cancel the first step in the progression:
    1:= Yes
    2:= No " record"Z"data
    input dropdown "Switch progressions every other 24 spins:
    1:= Yes
    2:= No" record"Sw"data
    input dropdown "Apply differential betting:
    1:= Yes
    2:= No" record"diff B"data
    end
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)] to record"streets"layout
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro1"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro2"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro3"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro4"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro5"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro6"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro7"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro8"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro9"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro10"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro11"data
set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro12"data
put 12 record"start spins"data
put -1 record"24 counter"data
end

method "switch progressions"
begin
//sort
clear record"sequence"data
set list [0,0,0,0,0,0,0,0,0,0,0,0] record"sequence"data

put 1 record"run"data
loop until record"run"data = 13
    begin
    put 999999 record"min"data
    put 1 record"pro"data index
    loop until record"pro"data index > record"pro"data count
        begin
        put 100% record"pro"data index record"sequence"data index
        if record"sequence"data = 0
            begin
            if record"pro"data < record"min"data
                begin
                put 100% record"pro"data record"min"data
                end
            end
        add 1 record"pro"data index
        end
    put 1 record"pro"data index
    put 1 record"sequence"data index
    loop until record"pro"data = record"min"data and record"sequence"data = 0
        begin
        add 1 record"sequence"data index
        add 1 record"pro"data index
        end
    put 100% record"pro"data index record"sequence"data index
    put 100% record"run"data record"sequence"data
    add 1 record"run"data
    end
//switch
clear record"switch"layout
put 1 record"switch"layout index
put 12 record"go"data
loop until record"go"data = 0
    begin
    put 1 record"sequence"data index
    loop until record"sequence"data = record"go"data
        begin
        add 1 record"sequence"data index
        end
    put 100% record"sequence"data index record"streets"layout index
    copy record"streets"layout record"switch"layout
    add 1 record"switch"layout index
    subtract 1 record"go"data
    end
duplicate record"switch" record"streets"
end