system "System_12"

{System Twelves - created from System 12 (http://swapmet.net)
Original author "Rod Grant"
System Twelves is based on numbers following certain numbers
  on consecutive spins significantly more ofter than others.

This system starts with a flat bet of 1 unit on 12 numbers that are made to a
  group of significant numbers that correspond to the last number that came up.

This system is designed to work with Single Zero wheel only
}
method "main"
begin
    While Starting a New Session
    begin
        Call "Initialize";
        Exit;
    end
    
    Copy last Number to the Record "Last Spin" layout;
    Call "Determine Next Numbers to Bet";
    Call "Place Bets";
end

method "Place Bets"
begin
    Put 1 on record "Numbers to Bet" layout index;
    
    Loop Until record "Numbers to Bet" layout index > record "Numbers to Bet" layout count
    begin
        Put 1 on record "Numbers to Bet" layout;
        Add 1 on record "Numbers to Bet" layout index;
    end
end

method "Determine Next Numbers to Bet"
begin
    While Record "Last Spin" layout = Number 0
    begin
        Duplicate record "Single 0 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 1
    begin
        Duplicate record "Number 1 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 2
    begin
        Duplicate record "Number 2 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 3
    begin
        Duplicate record "Number 3 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 4
    begin
        Duplicate record "Number 4 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 5
    begin
        Duplicate record "Number 5 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 6
    begin
        Duplicate record "Number 6 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 7
    begin
        Duplicate record "Number 7 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 8
    begin
        Duplicate record "Number 8 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 9
    begin
        Duplicate record "Number 9 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 10
    begin
        Duplicate record "Number 10 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 11
    begin
        Duplicate record "Number 11 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 12
    begin
        Duplicate record "Number 12 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 13
    begin
        Duplicate record "Number 13 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 14
    begin
        Duplicate record "Number 14 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 15
    begin
        Duplicate record "Number 15 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 16
    begin
        Duplicate record "Number 16 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 17
    begin
        Duplicate record "Number 17 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 18
    begin
        Duplicate record "Number 18 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 19
    begin
        Duplicate record "Number 19 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 20
    begin
        Duplicate record "Number 20 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 21
    begin
        Duplicate record "Number 21 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 22
    begin
        Duplicate record "Number 22 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 23
    begin
        Duplicate record "Number 23 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 24
    begin
        Duplicate record "Number 24 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 25
    begin
        Duplicate record "Number 25 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 26
    begin
        Duplicate record "Number 26 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 27
    begin
        Duplicate record "Number 27 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 28
    begin
        Duplicate record "Number 28 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 29
    begin
        Duplicate record "Number 29 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 30
    begin
        Duplicate record "Number 30 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 31
    begin
        Duplicate record "Number 31 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 32
    begin
        Duplicate record "Number 32 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 33
    begin
        Duplicate record "Number 33 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 34
    begin
        Duplicate record "Number 34 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 35
    begin
        Duplicate record "Number 35 - 12 numbers" to record "Numbers to Bet";
        Return;
    end
    
    While Record "Last Spin" layout = Number 36
    begin
        Duplicate record "Number 36 - 12 numbers" to record "Numbers to Bet";
    end
end

method "Initialize"
begin
    Load Single Wheel;
    Clear Record "Ptr to Next Twelve Numbers to Bet" data;
    Clear Record "Last Spin" data;

    Copy List [Number 14,Number 9, Number 22,Number 18,
               Number 29,Number 30,Number 8, Number 23,
               Number 10,Number 5, Number 15,Number 36]
                                                 to Record "Single 0 - 12 numbers" layout;

    Copy List [Number 23,Number 8, Number 30,Number 1,
               Number 33,Number 16,Number 7, Number 11,
               Number 13,Number 15,Number 28,Number 29]
                                                 to Record "Number 1 - 12 numbers" layout;

    Copy List [Number 26,Number 3, Number 35,Number 8,
               Number 23,Number 10,Number 1, Number 33,
               Number 16,Number 5, Number 9, Number 22]
                                                 to Record "Number 2 - 12 numbers" layout;

    Copy List [Number 10,Number 5, Number 24,Number 34,
               Number 17,Number 25,Number 2, Number 12,
               Number 15,Number 6, Number 21,Number 36]
                                                 to Record "Number 3 - 12 numbers" layout;


    Copy List [Number 23,Number 8, Number 30,Number 22,
               Number 18,Number 29,Number 1, Number 20,
               Number 14,Number 5, Number 9, Number 26]
                                                 to Record "Number 4 - 12 numbers" layout;


    Copy List [Number 0, Number 26,Number 3, Number 7,
               Number 8, Number 14,Number 18,Number 21,
               Number 29,Number 31,Number 32,Number 36]
                                                 to Record "Number 5 - 12 numbers" layout;


    Copy List [Number 34,Number 6, Number 27,Number 24,
               Number 16,Number 33,Number 2, Number 8,
               Number 10,Number 11,Number 30,Number 31]
                                                 to Record "Number 6 - 12 numbers" layout;

    Copy List [Number 10,Number 5, Number 24,Number 1,
               Number 20,Number 14,Number 2, Number 11,
               Number 16,Number 17,Number 32,Number 33]
                                                 to Record "Number 7 - 12 numbers" layout;

    Copy List [Number 10,Number 5, Number 24,Number 15,
               Number 32,Number 0, Number 1, Number 4,
               Number 16,Number 20,Number 34,Number 36]
                                                 to Record "Number 8 - 12 numbers" layout;

    Copy List [Number 16,Number 33,Number 1, Number 0,
               Number 2, Number 4, Number 5, Number 10,
               Number 21,Number 24,Number 26,Number 32]
                                                 to Record "Number 9 - 12 numbers" layout;

    Copy List [Number 27,Number 13,Number 36,Number 11,
               Number 30,Number 2, Number 4, Number 12,
               Number 19,Number 21,Number 25,Number 26]
                                                to Record "Number 10 - 12 numbers" layout;

    Copy List [Number 12,Number 28,Number 7, Number 29,
               Number 18,Number 8, Number 9, Number 10,
               Number 14,Number 15,Number 23,Number 31]
                                                to Record "Number 11 - 12 numbers" layout;

    Copy List [Number 0, Number 26,Number 3, Number 35,
               Number 12,Number 8, Number 11,Number 15,
               Number 17,Number 23,Number 30,Number 36]
                                                to Record "Number 12 - 12 numbers" layout;

    Copy List [Number 1, Number 20,Number 14,Number 30,
               Number 11,Number 36,Number 13,Number 27,
               Number 9, Number 16,Number 31,Number 33]
                                                to Record "Number 13 - 12 numbers" layout;

    Copy List [Number 10,Number 5, Number 24,Number 16,
               Number 33,Number 1, Number 8, Number 11,
               Number 13,Number 23,Number 27,Number 36]
                                                to Record "Number 14 - 12 numbers" layout;

    Copy List [Number 16,Number 33,Number 1, Number 20,
               Number 14,Number 3, Number 8, Number 10,
               Number 23,Number 24,Number 26,Number 35]
                                                to Record "Number 15 - 12 numbers" layout;

    Copy List [Number 23,Number 8, Number 30,Number 16,
               Number 33,Number 1, Number 5, Number 6,
               Number 10,Number 14,Number 20,Number 24]
                                                to Record "Number 16 - 12 numbers" layout;

    Copy List [Number 28,Number 7, Number 29,Number 19,
               Number 15,Number 32,Number 0, Number 3,
               Number 12,Number 18,Number 26,Number 35]
                                                to Record "Number 17 - 12 numbers" layout;

    Copy List [Number 21,Number 4, Number 19,Number 10,
               Number 5, Number 24,Number 16,Number 33,
               Number 1, Number 2, Number 20,Number 23]
                                                to Record "Number 18 - 12 numbers" layout;

    Copy List [Number 32,Number 0, Number 26,Number 3,
               Number 35,Number 1, Number 8, Number 14,
               Number 16,Number 18,Number 20,Number 33]
                                                to Record "Number 19 - 12 numbers" layout;

    Copy List [Number 28,Number 7, Number 29,Number 23,
               Number 8, Number 30,Number 4, Number 11,
               Number 12,Number 13,Number 18,Number 36]
                                                to Record "Number 20 - 12 numbers" layout;

    Copy List [Number 10,Number 5, Number 24,Number 31,
               Number 9, Number 22,Number 3, Number 8,
               Number 16,Number 18,Number 20,Number 33]
                                                to Record "Number 21 - 12 numbers" layout;

    Copy List [Number 3, Number 26,Number 0, Number 32,
               Number 15,Number 2, Number 4, Number 5,
               Number 19,Number 21,Number 25,Number 33]
                                                to Record "Number 22 - 12 numbers" layout;

    Copy List [Number 21,Number 2, Number 25,Number 4,
               Number 19,Number 28,Number 12,Number 35,
               Number 3, Number 5, Number 32,Number 36]
                                                to Record "Number 23 - 12 numbers" layout;

    Copy List [Number 18,Number 29,Number 7,Number 8,
               Number 30,Number 11,Number 15,Number 32,
               Number 0, Number 1, Number 33,Number 16]
                                                to Record "Number 24 - 12 numbers" layout;

    Copy List [Number 31,Number 9, Number 22,Number 18,
               Number 29,Number 3, Number 7, Number 12,
               Number 15,Number 23,Number 28,Number 33]
                                                to Record "Number 25 - 12 numbers" layout;

    Copy List [Number 0, Number 32,Number 15,Number 19,
               Number 4, Number 27,Number 13,Number 36,
               Number 11,Number 5, Number 17,Number 22]
                                                to Record "Number 26 - 12 numbers" layout;

    Copy List [Number 21,Number 2, Number 25,Number 8,
               Number 30,Number 11,Number 6, Number 13,
               Number 16,Number 20,Number 24,Number 36]
                                                to Record "Number 27 - 12 numbers" layout;

    Copy List [Number 6, Number 17,Number 21,Number 2,
               Number 25,Number 4, Number 19,Number 1,
               Number 3, Number 5, Number 14,Number 20]
                                                to Record "Number 28 - 12 numbers" layout;

    Copy List [Number 4, Number 19,Number 15,Number 32,
               Number 0, Number 26,Number 3, Number 5,
               Number 16,Number 24,Number 27,Number 35]
                                                to Record "Number 29 - 12 numbers" layout;

    Copy List [Number 20,Number 14,Number 31,Number 9,
               Number 22,Number 5, Number 7, Number 10,
               Number 16,Number 24,Number 27,Number 32]
                                                to Record "Number 30 - 12 numbers" layout;

    Copy List [Number 23,Number 10,Number 5, Number 24,
               Number 1, Number 8, Number 11,Number 16,
               Number 30,Number 33,Number 34,Number 36]
                                                to Record "Number 31 - 12 numbers" layout;

    Copy List [Number 23,Number 8, Number 30,Number 3,
               Number 35,Number 12,Number 5, Number 7,
               Number 10,Number 24,Number 28,Number 29]
                                                to Record "Number 32 - 12 numbers" layout;

    Copy List [Number 20,Number 1, Number 14,Number 28,
               Number 7, Number 29,Number 27,Number 13,
               Number 36,Number 33,Number 16,Number 24]
                                                to Record "Number 33 - 12 numbers" layout;

    Copy List [Number 23,Number 8, Number 30,Number 9,
               Number 31,Number 14,Number 6, Number 7,
               Number 11,Number 15,Number 16,Number 20]
                                                to Record "Number 34 - 12 numbers" layout;

    Copy List [Number 6, Number 34,Number 17,Number 25,
               Number 2, Number 0, Number 3, Number 5,
               Number 15,Number 19,Number 26,Number 32]
                                                to Record "Number 35 - 12 numbers" layout;

    Copy List [Number 23,Number 8, Number 30,Number 20,
               Number 14,Number 31,Number 19,Number 15,
               Number 32,Number 7, Number 16,Number 36]
                                                to Record "Number 36 - 12 numbers" layout;
end