D'Alambert progression

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