system "Two_Lines_by_marenis"
{
if win on 81-81, restart the progression with all values multiplied by 5.  We are betting the next hit will be earlier in the progression.

I see 3 last spins and if i see lines 1-4 and 2-5 by example, i bet in lines 3-6 with progresion to win.

I bet it with progresion to the other lines. Its very easy. The system depend of limits of table. My progresion is 1-1, 1-1, 1-1, 2-2, 3-3, 5-5, 7-7, 11-11, 16-16, 24-24, 36-36, 54-54, 81-81, 122-122, 183-183, 274-274.

LINES 1-4   1,2,3,4,5,6,19,20,21,22,23,24
LINES 2-5   7,8,9,10,11,12,25,26,27,28,29,30
LINES 3-6   13,14,15,16,17,18,31,32,33,34,35,36
}

method "main"
begin
    while Starting a new Session
    begin
        set flag "bet placed" to false
        set flag "5X" False
        clear record "numbers" layout
        put 0 on record "bet count" data
        set list [1,1,1,2,3,5,7,11,16,24,36,54,81,122,183,274] to record "progression" data
        copy list [number 1,number 2,number 3,number 4,number 5,
                   number 6,number 19,number 20,number 21,number 22,
                   number 23,number 24] to record "lines 1-4" layout
        copy list [number 7,number 8,number 9,number 10,number 11,
                   number 12,number 25,number 26,number 27,number 28,
                   number 29,number 30] to record "lines 2-5" layout
        copy list [number 13,number 14,number 15,number 16,number 17,
                   number 18,number 31,number 32,number 33,
                   number 34,number 35,number 36] to record "lines 3-6" layout

        group
        begin
            display "Ajust TABLE LIMITS in Betting Options
                     screen.  Options/Betting Options"

            input dropdown "Enter the MAXIMUM Progession
                            1:=1
                            2:=1
                            3:=1
                            4:=2
                            5:=3
                            6:=5
                            7:=7
                            8:=11
                            9:=16
                            10:=24
                            11:=36
                            12:=54
                            13:=81
                            14:=122
                            15:=183
                            16:=274" to record "maximum" data

        end

        exit
    end

    if any inside bet has won each time
    begin
        if record "progression" data index >=13
           begin
             Set Flag "5X" True
           end
        else
          begin
            Set Flag "5X" False
          end
        put 1 on record "progression" data index
        set flag "bet placed" to false
    end

    if record "progression" data index > record "progression" data count
    begin
        set flag "bet placed" to false
        put 1 on record "progression" data index
        set Flag "5X" false
    end

    if number 0 has not hit each time
    or number 00 has not hit each time
    begin
        track last number for 3 times to record "numbers" layout
    end

    if record "numbers" layout count = 3
    begin
        if flag "bet placed" is false
        begin
            put 0 on record "lines 1-4" data
            put 0 on record "lines 2-5" data
            put 0 on record "lines 3-6" data
            put 1 on record "numbers" layout index
            call "check lines"
            put 2 on record "numbers" layout index
            call "check lines"
            put 3 on record "numbers" layout index
            call "check lines"
            call "determine two lines"
        end

        if record "bet count" data = 1 then
        begin
            call "place bet"
        end
    end

end

method "determine two lines"
begin
    put 0 on record "bet count" data

    if record "lines 1-4" data = 0
    begin
        add 1 to record "bet count" data
    end

    if record "lines 2-5" data = 0
    begin
        add 1 to record "bet count" data
    end

    if record "lines 3-6" data = 0
    begin
        add 1 to record "bet count" data
    end
end

method "check lines"
begin
    if record "numbers" layout is found in record "lines 1-4" layout
    begin
        put 1 on record "lines 1-4" data
    end

    if record "numbers" layout is found in record "lines 2-5" layout
    begin
        put 1 on record "lines 2-5" data
    end

    if record "numbers" layout is found in record "lines 3-6" layout
    begin
        put 1 on record "lines 3-6" data
    end
end

method "place bet"
begin
    set flag "bet placed" to false
    if flag "5X" true
      begin
        Put 100% record "progression" data on record "Bet" data
        Multiply 5 record "Bet" data
      end
    else
      begin
        Duplicate record "progression" record "Bet"
      end

    if record "lines 1-4" data = 0
    begin
        put 100% of record "Bet" data to List[Line(1-6),Line(19-24)]
        set flag "bet placed" to true
    end

    if record "lines 2-5" data = 0
    begin
        put 100% of record "Bet" data to List[Line(7-12),Line(25-30)]
        set flag "bet placed" to true
    end

    if record "lines 3-6" data = 0
    begin
        put 100% of record "Bet" data to List[Line(13-18),Line(31-36)]
        set flag "bet placed" to true
    end

    if flag "bet placed" is true
    begin
        add 1 to record "progression" data index

        if record "progression" data index > record "maximum" data
        or record "progression" data index > record "progression" data count
        begin
            put 1 on record "progression" data index
        end
    end
end