system "magic_mat's dozens v1"
{
*************************************
*        System by magic_mat        *
*         on the VIP Lounge         *
*************************************
          Rx-ed by St0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
First you do 1 spin, if 0 comes up you do another spin untill a number comes up.
Bet the 2 dozens and columns that didn't show last.
Individual progression on dozens & columns: 1,3,9,27,81
-------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    exit
    end

// section 2: do the tracking
track last number for 1 record"N"layout
track last dozen for 1 record"D"layout
track last column for 1 record"C"layout

// section 3: act on a loss
if any dozen bet has lost each
    begin
    add 1 record"proD"data index
    if record"proD"data index > record"proD"data count
        begin
        put 1 record"proD"data index
        end
    end
if any column bet has lost each
    begin
    add 1 record"proC"data index
    if record"proC"data index > record"proC"data count
        begin
        put 1 record"proC"data index
        end
    end
if record"N"layout is not found in record"play"layout and flag "bet" true
    begin
    add 1 record"pro"data index
    if record"pro"data index > record"pro"data count
        begin
        put 1 record"pro"data index
        end
    end
// section 4:act on a win
if any dozen bet has won each
    begin
    put 1 record"proD"data index
    end
if any column bet has won each
    begin
    put 1 record"proC"data index
    end
if record"N"layout is found in record"play"layout and flag "bet" true
    begin
    put 1 record"pro"data index
    end

//section 6: bet
if record"F"data = 1
    begin
    put 1 record"proC"data
    put 1 record"proD"data
    put 1 record"pro"data
    end
if record"D"layout not = red
    begin
    if record"P"data=1
        begin
        put 1 record"Do"layout index
        loop until record"Do"layout index > record"Do"layout count
            begin
            if record"Do"layout not = record"D"layout
                begin
                put 100% record"proD"data record"Do"layout
                end
            add 1 record"Do"layout index
            end
        put 1 record"Co"layout index
        loop until record"Co"layout index > record"Co"layout count
            begin
            if record"Co"layout not = record"C"layout
                begin
                put 100% record"proC"data record"Co"layout
                end
            add 1 record"Co"layout index
            end
        end
     if record"P"data=2
        begin
        if record"D"layout = 1st dozen and record"C"layout = column A
            begin
            copy list [number 14,number 15,number 17,number 18,number 20,number 21,
            number 23,number 24,number 26,number 27,number 29,number 30,
            number 32,number 33,number 35,number 36] record"play"layout
            end
        if record"D"layout = 1st dozen and record"C"layout = column B
            begin
            copy list [number 13,number 15,number 16,number 18,number 19,number 21,
            number 22,number 24,number 25,number 27,number 28,number 30,
            number 31,number 33,number 34,number 36] record"play"layout
            end
        if record"D"layout = 1st dozen and record"C"layout = column C
            begin
            copy list [number 13,number 14,number 16,number 17,number 19,number 20,
            number 22,number 23,number 25,number 26,number 28,number 29,
            number 31,number 32,number 34,number 35] record"play"layout
            end
        if record"D"layout = 2nd dozen and record"C"layout = column A
            begin
            copy list [number 2,number 3,number 5,number 6,number 8,number 9,
            number 11,number 12,number 26,number 27,number 29,number 30,
            number 32,number 33,number 35,number 36] record"play"layout
            end
        if record"D"layout = 2nd dozen and record"C"layout = column B
            begin
            copy list [number 1,number 3,number 4,number 6,number 7,number 9,
            number 10,number 12,number 25,number 27,number 28,number 30,
            number 31,number 33,number 34,number 36] record"play"layout
            end
        if record"D"layout = 2nd dozen and record"C"layout = column C
            begin
            copy list [number 1,number 2,number 4,number 5,number 7,number 8,
            number 10,number 11,number 25,number 26,number 28,number 29,
            number 31,number 32,number 34,number 35] record"play"layout
            end
         if record"D"layout = 3rd dozen and record"C"layout = column A
            begin
            copy list [number 2,number 3,number 5,number 6,number 8,number 9,
            number 11,number 12,number 14,number 15,number 17,number 18,
            number 20,number 21,number 23,number 24] record"play"layout
            end
        if record"D"layout = 3rd dozen and record"C"layout = column B
            begin
            copy list [number 1,number 3,number 4,number 6,number 7,number 9,
            number 10,number 12,number 13,number 15,number 16,number 18,
            number 19,number 21,number 22,number 24] record"play"layout
            end
        if record"D"layout = 3rd dozen and record"C"layout = column C
            begin
            copy list [number 1,number 2,number 4,number 5,number 7,number 8,
            number 10,number 11,number 13,number 14,number 16,number 17,
            number 19,number 20,number 22,number 23] record"play"layout
            end
        put 100% record"pro"data record"play"layout list
        set flag "bet" true
        end
    end

end

// subroutines
method "init"
begin
group
    begin
    display "magic_mat's dozens"
    display "-------------------------------"
    input dropdown "Play
    1:= dozens & columns
    2:= numbers in dozens & columns" record"P"data
    input dropdown "Progression
    1:= flat bet
    2:= progression" record"F"data
    end
copy list [1st dozen, 2nd dozen, 3rd dozen] record"Do"layout
copy list [column A, column B, column C] record"Co"layout
copy red record"D"layout
copy red record"C"layout
if record"P"data = 1
    begin
    set list [1,3,9,27,81] record"proD"data
    set list [1,3,9,27,81] record"proC"data
    end
if record"P"data = 2
    begin
    set list [1,2,3,6,11,20,36] record"pro"data
    end
call "reset"
end

method "reset"
begin
set flag "qualified" false
set flag "bet" false
end