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 D'Alambert progression

D'Alambert progression

La progressione D'Alambert

Xtreme icon DAlembert_System.dgt — Xtreme, 2 KB (2660 bytes)

Contenuto del file

system "D'Alembert_System"

{D'Alembert System
 is one of the oldest money management plans there are, for "even chances"
 betting, all having in common that you add and subtract a fixed
 amount to your bet, after a loss or win.
}
method "main"
begin
    While Starting a New Session
    begin
        Clear All Records;
        Clear Record "Initial Bet" data;
        Clear Record "Current Layout to Bet" data;
        Put 5 on Record "Initial Bet" data;
        Call "Setup Layout";
        call "Make Bets";
        Exit;
    end

    While Record "Current Layout to Bet" layout has lost each time
    begin
        Add 1 on Record "Initial Bet" data;
    end
    
    While Record "Current Layout to Bet" layout has won each time
    begin
        Subtract 1 on Record "Initial Bet" data;
    end
    
    While Record "Initial Bet" data = 0
    begin
        Put 1 on Record "Initial Bet" data;
    end

    call "Make Bets";
end

method "Make Bets"
begin
    Put 100 % of Record "Initial Bet" data on Record "Current Layout to Bet" layout;
end

method "Setup Layout"
begin
    Input Dropdown "Make a Layout Selection

              1:=Even
              2:=Odd
              3:=Red
              4:=Black
              5:=High (19-36)
              6:=Low (0-18)" to Record "Layout Selection" data;

    While Record "Layout Selection" data = 1
    begin
        Copy Even to the Record "Current Layout to Bet" layout;
    end
    Else
    begin
        While Record "Layout Selection" data = 2
        begin
            Copy Odd to the Record "Current Layout to Bet" layout;
        end
        Else
        begin
            While Record "Layout Selection" data = 3
            begin
                Copy Red to the Record "Current Layout to Bet" layout;
            end
            Else
            begin
                While Record "Layout Selection" data = 4
                begin
                    Copy Black to the Record "Current Layout to Bet" layout;
                end
                Else
                begin
                    While Record "Layout Selection" data = 5
                    begin
                        Copy high to the Record "Current Layout to Bet" layout;
                    end
                    Else
                    begin
                        While Record "Layout Selection" data = 6
                        begin
                            Copy low to the Record "Current Layout to Bet" layout;
                        end
                    end
                end
            end
        end
    end
end