system "Cycle_Roulette.dgn"

{Cycle Roulette
Based from the book "Your Best Bet by Mike Goodman"

All Bets are expressed in Units.
Normal betting progression is 4,8,20,40,60 units
When in a Cycle the progression is: 100,200,300 units

A typical example: Normal betting units are $1.00/unit
A typical cycle units are $5.00/unit

The combinations are setup as Group A-C as follows:

  Group A: 1st Dozen
  Group B: 2nd Dozen
  Group C: 3rd Dozen
}
method "main"
begin
    While Starting a New Session
    begin
        Call "Initialize";
        Call "Input data";
        Call "Setup Dozen Layout";
        call "Make Bet";
        Exit;
    end
    
    if record "Layout in use"  layout has not hit each time
    begin
        if Flag "In Cycle" is False
        begin
            Call "Determine Normal Progression";
        end
        Else
        begin
            Call "Determine Cycle Progression";
        end
    end
    Else
    begin
        Put 1 on record "Progression" data index; //reset progression data index
        
        if Flag "In Cycle" is True
        begin
            Call "Cycle Win";
        end
        Else
        begin
            Call "Figure Cycle Count";
        end
    end
    
    Call "Make Bet";
end

method "Cycle Win"
begin
    Subtract 1 unit on record "Number of Cycles" data;
    Set Flag "In Cycle" to False;
end

method "Figure Cycle Count"
begin
    While record "Number of Cycles" data not = 0
    begin
        Set Flag "In Cycle" to True;

        //move progession data index to start of Cycle bet
        Put 6 on record "Progression" data index;
    end
end

method "Setup Dozen Layout"
begin
    if record "Dozen Indicator" data = 1
    begin
        Copy 1st Dozen to the record "Layout in use" layout;
    end
    Else
    begin
        if record "Dozen Indicator" data = 2
        begin
            Copy 2nd Dozen to the record "Layout in use" layout;
        end
        Else
        begin
            if record "Dozen Indicator" data = 3
            begin
                Copy 3rd Dozen to the record "Layout in use" layout;
            end
        end
    end
end

method "Determine Normal Progression"
begin
    Add 1 unit on record "Progression" data index; //bump progression data index
    
    //if progression data index > 5 then we are in a Cycle
    //Add on Cycle and reset progression to start of first bet.
    if record "Progression" data index > 5
    begin
        Add 1 on record "Number of Cycles" data;
        Put 1 on record "Progression" data index; //reset Progression data index
    end
end

method "Determine Cycle Progression"
begin
    Add 1 unit on record "Progression" data index; //bump progression
    
    //if progression data index > 8, then we are in another Cycle
    //Add on Cycle and reset progression to start of first bet.
    if record "Progression" data index > 8
    begin
        Add 1 unit on record "Number of Cycles" data;
        Set Flag "In Cycle" to False;
        Put 1 unit on record "Progression" data index; //reset Progression
    end
end

method "Dozen 1 Layout - Progression 1"
begin
    Put 100 % of record "Progression" data on Corner(1:5);
    Put 100 % of record "Progression" data on Corner(2:6);
    Put 100 % of record "Progression" data on Corner(8:12);
    Put 100 % of record "Progression" data on Corner(7:11);
end

method "Dozen 1 Layout - Progression 2"
begin
    Put 100 % of record "Progression" data on Split(2-3);
    Put 100 % of record "Progression" data on Split(5-6);
    Put 100 % of record "Progression" data on Split(8-9);
    Put 100 % of record "Progression" data on Split(11-12);
    Put 100 % of record "Progression" data on Split(1-2);
    Put 100 % of record "Progression" data on Split(4-5);
    Put 100 % of record "Progression" data on Split(7-8);
    Put 100 % of record "Progression" data on Split(10-11);
end

method "Dozen 1 Layout - Progression 3-5"
begin
    Put 100 % of record "Progression" data on Number 3;
    Put 100 % of record "Progression" data on Split(2-3);
    Put 100 % of record "Progression" data on Corner(2:6);
    Put 100 % of record "Progression" data on Split(5-6);
    Put 100 % of record "Progression" data on Corner(5:9);
    Put 100 % of record "Progression" data on Split(6-9);
    Put 100 % of record "Progression" data on Split(8-9);
    Put 100 % of record "Progression" data on Corner(8:12);
    Put 100 % of record "Progression" data on Split(11-12);
    Put 100 % of record "Progression" data on Number 12;
    Put 100 % of record "Progression" data on Number 1;
    Put 100 % of record "Progression" data on Split(1-2);
    Put 100 % of record "Progression" data on Corner(1:5);
    Put 100 % of record "Progression" data on Split(4-5);
    Put 100 % of record "Progression" data on Corner(4:8);
    Put 100 % of record "Progression" data on Split(4-7);
    Put 100 % of record "Progression" data on Split(7-8);
    Put 100 % of record "Progression" data on Corner(7:11);
    Put 100 % of record "Progression" data on Split(10-11);
    Put 100 % of record "Progression" data on Number 10;
end

method "Dozen 2 Layout - Progression 1"
begin
    Put 100 % of record "Progression" data on Corner(14:18);
    Put 100 % of record "Progression" data on Corner(13:17);
    Put 100 % of record "Progression" data on Corner(20:24);
    Put 100 % of record "Progression" data on Corner(19:23);
end

method "Dozen 2 Layout - Progression 2"
begin
    Put 100 % of record "Progression" data on Split(14-15);
    Put 100 % of record "Progression" data on Split(17-18);
    Put 100 % of record "Progression" data on Split(20-21);
    Put 100 % of record "Progression" data on Split(23-24);
    Put 100 % of record "Progression" data on Split(13-14);
    Put 100 % of record "Progression" data on Split(16-17);
    Put 100 % of record "Progression" data on Split(19-20);
    Put 100 % of record "Progression" data on Split(22-23);
end

method "Dozen 2 Layout - Progression 3-5"
begin
    Put 100 % of record "Progression" data on Number 15;
    Put 100 % of record "Progression" data on Split(14-15);
    Put 100 % of record "Progression" data on Corner(14:18);
    Put 100 % of record "Progression" data on Split(17-18);
    Put 100 % of record "Progression" data on Corner(17:21);
    Put 100 % of record "Progression" data on Split(18-21);
    Put 100 % of record "Progression" data on Split(20-21);
    Put 100 % of record "Progression" data on Corner(20:24);
    Put 100 % of record "Progression" data on Split(23-24);
    Put 100 % of record "Progression" data on Number 24;
    Put 100 % of record "Progression" data on Number 13;
    Put 100 % of record "Progression" data on Split(13-14);
    Put 100 % of record "Progression" data on Corner(13:17);
    Put 100 % of record "Progression" data on Split(16-17);
    Put 100 % of record "Progression" data on Corner(16:20);
    Put 100 % of record "Progression" data on Split(16-19);
    Put 100 % of record "Progression" data on Split(19-20);
    Put 100 % of record "Progression" data on Corner(19:23);
    Put 100 % of record "Progression" data on Split(22-23);
    Put 100 % of record "Progression" data on Number 22;
end

method "Dozen 3 Layout - Progression 1"
begin
    Put 100 % of record "Progression" data on Corner(26:30);
    Put 100 % of record "Progression" data on Corner(25:29);
    Put 100 % of record "Progression" data on Corner(32:36);
    Put 100 % of record "Progression" data on Corner(31:35);
end

method "Dozen 3 Layout - Progression 2"
begin
    Put 100 % of record "Progression" data on Split(26-27);
    Put 100 % of record "Progression" data on Split(29-30);
    Put 100 % of record "Progression" data on Split(32-33);
    Put 100 % of record "Progression" data on Split(35-36);
    Put 100 % of record "Progression" data on Split(25-26);
    Put 100 % of record "Progression" data on Split(28-29);
    Put 100 % of record "Progression" data on Split(31-32);
    Put 100 % of record "Progression" data on Split(34-35);
end

method "Dozen 3 Layout - Progression 3-5"
begin
    Put 100 % of record "Progression" data on Number 27;
    Put 100 % of record "Progression" data on Number 25;
    Put 100 % of record "Progression" data on Number 36;
    Put 100 % of record "Progression" data on Number 34;
    Put 100 % of record "Progression" data on Corner(26:30);
    Put 100 % of record "Progression" data on Corner(25:29);
    Put 100 % of record "Progression" data on Corner(32:36);
    Put 100 % of record "Progression" data on Corner(31:35);
    Put 100 % of record "Progression" data on Corner(28:32);
    Put 100 % of record "Progression" data on Corner(29:33);
    Put 100 % of record "Progression" data on Split(26-27);
    Put 100 % of record "Progression" data on Split(29-30);
    Put 100 % of record "Progression" data on Split(32-33);
    Put 100 % of record "Progression" data on Split(35-36);
    Put 100 % of record "Progression" data on Split(25-26);
    Put 100 % of record "Progression" data on Split(28-29);
    Put 100 % of record "Progression" data on Split(31-32);
    Put 100 % of record "Progression" data on Split(34-35);
    Put 100 % of record "Progression" data on Split(28-31);
    Put 100 % of record "Progression" data on Split(30-33);
end

method "Make Bet"
begin
    if record "Dozen Indicator" data = 1
    begin
        //1st Dozen selected
        
        if record "Progression" data index = 1
        begin
            Call "Dozen 1 Layout - Progression 1";
        end
        
        if record "Progression" data index = 2
        begin
            Call "Dozen 1 Layout - Progression 2";
        end
        
        if record "Progression" data index > 2
        begin
            Call "Dozen 1 Layout - Progression 3-5";
        end
    end
    Else
    begin
        if record "Dozen Indicator" data = 2
        begin
            //2nd Dozen selected
            
            if record "Progression" data index = 1
            begin
                Call "Dozen 2 Layout - Progression 1";
            end
            
            if record "Progression" data index = 2
            begin
                Call "Dozen 2 Layout - Progression 2";
            end
            
            if record "Progression" data index > 2
            begin
                Call "Dozen 2 Layout - Progression 3-5";
            end
        end
        Else
        begin
            if record "Dozen Indicator" data = 3
            begin
                //3rd Dozen selected
                
                if record "Progression" data index = 1
                begin
                    Call "Dozen 3 Layout - Progression 1";
                end
                
                if record "Progression" data index = 2
                begin
                    Call "Dozen 3 Layout - Progression 2";
                end
                
                if record "Progression" data index > 2
                begin
                    Call "Dozen 3 Layout - Progression 3-5";
                end
            end
        end
    end
end

method "Initialize"
begin
    //Progression list for Normal and Cycle bets
    Set List of [1,1,1,2,3,5,10,15] to record "Progression" data;
    Set Flag "In Cycle" to False;
end

method "Input data"
begin
    Input Dropdown "Enter starting Dozen
              
                    1:= 1st Dozen
                    2:= 2nd Dozen
                    3:= 3rd Dozen" to record "Dozen Indicator" data;
end