Dual Squares system

Contenuto del file

system "dual_squares"
{
** IMPORTANT ** VERSION 2.0.13 OR BETTER

  see documentation for explanation
}
method "main"
begin
    while Starting a new Session
    begin
        call "initialize"
        call "reset"
        call "input"
        exit
    end

    copy last number to record "number" layout
    call "mark square"
    call "count squares"
    
    if  record "square count" data < 2
    and flag "ready to bet" is false
    begin
        call "reset"
        set flag "ready to bet" to false
        exit
    end

    call "determine count"
    
    if flag "ready to bet" is true
    begin
        if  flag "1st bet placed" is true
        begin
            if Any Inside Bet has won each time
            begin
                set flag "double street" to false
                set flag "ready to bet" to false
                clear record "squares to bet" layout
                put 0 on record "squares to bet" layout index

                call "determine count"
            end
            else
            begin
                if flag "double street" is false
                begin
                    add 1 to record "progression" data index

                    if record "progression" data index > record "progression" data count
                    begin
                        set flag "ready to bet" to false
                        set flag "double street" to false
                        put 1 on record "progression" data index
                        call "reset"
                    end
                end
                else
                begin
                    add 1 to record "double street prog." data index

                    if record "double street prog." data index > record "double street prog." data count
                    begin
                        put 1 on record "double street prog." data index
                        set flag "ready to bet" to false
                        set flag "double street" to false
                        call "reset"
                    end
                end
            end
        end

        if flag "ready to bet" is true
        begin
            if flag "double street" is false
            begin
                put 100% of record "progression" data to record "squares to bet" layout list
                set flag "1st bet placed" to true
            end
            else
            begin
                put 100% of record "double street prog." data to record "double street" layout
                set flag "1st bet placed" to true
            end
        end
    end
end

method "determine count"
begin
    if  record "square count" data = 2
    and flag "ready to bet" is false
    begin
        call "check neighbor square"

        if flag "neighbor found" is false
        begin
            set flag "ready to bet" to true
            call "setup squares"
            call "reset"
        end
        else
        begin
            if record "adjacent type" data = 1
            begin
                call "reset"
                set flag "ready to bet" to false
                set flag "double street" to false
            end

            if record "adjacent type" data = 2
            begin
                set flag "ready to bet" to true
                call "setup squares"
                call "reset"
            end

            if record "adjacent type" data = 3
            begin
                set flag "double street" to true
                put 1 on record "double street prog." data index
                set flag "ready to bet" to true
                call "reset"
            end
        end
    end
end

method "setup squares"
begin
    clear record "squares to bet" layout
    put 0 on record "squares to bet" layout index
    
    if record "square 1" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(1:5) to record "squares to bet" layout
    end

    if record "square 2" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(2:6) to record "squares to bet" layout
    end

    if record "square 3" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(7:11) to record "squares to bet" layout
    end

    if record "square 4" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(8:12) to record "squares to bet" layout
    end

    if record "square 5" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(13:17) to record "squares to bet" layout
    end

    if record "square 6" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(14:18) to record "squares to bet" layout
    end

    if record "square 7" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(19:23) to record "squares to bet" layout
    end

    if record "square 8" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(20:24) to record "squares to bet" layout
    end

    if record "square 9" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(25:29) to record "squares to bet" layout
    end

    if record "square 10" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(26:30) to record "squares to bet" layout
    end

    if record "square 11" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(31:35) to record "squares to bet" layout
    end

    if record "square 12" data = 0
    begin
        add 1 to record "squares to bet" layout index
        copy Corner(32:36) to record "squares to bet" layout
    end
end

method "mark square"
begin
    if record "number" layout is found in record "square 1" layout
    begin
        put 1 on record "square 1" data
    end

    if record "number" layout is found in record "square 2" layout
    begin
        put 1 on record "square 2" data
    end
    if record "number" layout is found in record "square 3" layout
    begin
        put 1 on record "square 3" data
    end
    if record "number" layout is found in record "square 4" layout
    begin
        put 1 on record "square 4" data
    end
    if record "number" layout is found in record "square 5" layout
    begin
        put 1 on record "square 5" data
    end
    if record "number" layout is found in record "square 6" layout
    begin
        put 1 on record "square 6" data
    end
    if record "number" layout is found in record "square 7" layout
    begin
        put 1 on record "square 7" data
    end
    if record "number" layout is found in record "square 8" layout
    begin
        put 1 on record "square 8" data
    end
    if record "number" layout is found in record "square 9" layout
    begin
        put 1 on record "square 9" data
    end
    if record "number" layout is found in record "square 10" layout
    begin
        put 1 on record "square 10" data
    end
    if record "number" layout is found in record "square 11" layout
    begin
        put 1 on record "square 11" data
    end
    if record "number" layout is found in record "square 12" layout
    begin
        put 1 on record "square 12" data
    end
end

method "count squares"
begin
    put 0 on record "square count" data
    
    if record "square 1" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 2" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 3" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 4" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 5" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 6" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 7" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 8" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 9" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 10" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 11" data = 0
    begin
        add 1 on record "square count" data
    end

    if record "square 12" data = 0
    begin
        add 1 on record "square count" data
    end
end

method "check neighbor square"
begin
    set flag "neighbor found" to false
    clear record "double street" layout
    
    if  record "square 1" data = 0
    and record "square 2" data = 0
    begin
        set flag "neighbor found" to true
        copy Line(1-6) to record "double street" layout
        return
    end

    if record "square 3" data = 0
    and record "square 4" data = 0
    begin
        set flag "neighbor found" to true
        copy Line(7-12) to record "double street" layout
        return
    end

    if record "square 5" data = 0
    and record "square 6" data = 0
    begin
        set flag "neighbor found" to true
        copy Line(13-18) to record "double street" layout
        return
    end
    
    if record "square 7" data = 0
    and record "square 8" data = 0
    begin
        set flag "neighbor found" to true
        copy Line(19-24) to record "double street" layout
        return
    end
    
    if record "square 9" data = 0
    and record "square 10" data = 0
    begin
        set flag "neighbor found" to true
        copy Line(25-30) to record "double street" layout
        return
    end
    
    if record "square 11" data = 0
    and record "square 12" data = 0
    begin
        set flag "neighbor found" to true
        copy Line(31-36) to record "double street" layout
        return
    end
end

method "reset"
begin
    set flag "1st bet placed" to false
    put 0 on record "square 1" data
    put 0 on record "square 2" data
    put 0 on record "square 3" data
    put 0 on record "square 4" data
    put 0 on record "square 5" data
    put 0 on record "square 6" data
    put 0 on record "square 7" data
    put 0 on record "square 8" data
    put 0 on record "square 9" data
    put 0 on record "square 10" data
    put 0 on record "square 11" data
    put 0 on record "square 12" data
    put 1 on record "progression" data index
    put 1 on record "double street prog." data index
end

method "initialize"
begin
    set flag "ready to bet" to false
    set flag "double street" to false
    clear record "number" layout
    clear record "squares to bet" layout
    clear record "double street" layout

    set list [1,1,1,1,2,2,3,4,5,6,8,10,14,18] to record "progression" data
    set list [1,1,1,1,1,2,3,3,4,4,5,6,8,10] to record "double street prog." data
    copy list [number 1,number 2,number 4,number 5] to record "square 1" layout
    copy list [number 2,number 3,number 5,number 6] to record "square 2" layout
    copy list [number 7,number 8,number 10,number 11] to record "square 3" layout
    copy list [number 8,number 9,number 11,number 12] to record "square 4" layout
    copy list [number 13,number 14,number 16,number 17] to record "square 5" layout
    copy list [number 14,number 15,number 17,number 18] to record "square 6" layout
    copy list [number 19,number 20,number 22,number 23] to record "square 7" layout
    copy list [number 20,number 21,number 23,number 24] to record "square 8" layout
    copy list [number 25,number 26,number 28,number 29] to record "square 9" layout
    copy list [number 26,number 27,number 29,number 30] to record "square 10" layout
    copy list [number 31,number 32,number 34,number 35] to record "square 11" layout
    copy list [number 32,number 33,number 35,number 36] to record "square 12" layout
end

method "input"
begin
    group
    begin
        display "Dual Squares System"
        input dropdown "When two ADJACENT sets of 4 numbers
                        have no hit, perform the following:
                        
                        1:=Rechart spins
                        2:=Continue to bet
                        3:=Bet using Double Street"
                            to record "adjacent type" data
    end
end