24 Max

Contenuto del file

system "24 Max"

method "main"
begin

if starting  a new session
begin
call "init"
exit
end

copy last number to record "last number" layout

call "check win/lose"

call "get bets"
call "place bets"

end


method "init"
begin

set flag "transfer1" to false
set flag "transfer2" to false
set flag "transfer3" to false
set flag "transfer4" to false
set flag "transfer5" to false
set flag "transfer6" to false
set flag "transfer7" to false
set flag "transfer8" to false
set flag "transfer9" to false
set flag "transfer10" to false
set flag "transfer11" to false
set flag "transfer12" to false

put 100% of bankroll on record "bankroll" data
//put 100% of bankroll on record "stop" data
//subtract 200 units on record "stop" data



copy list [number 1, number 2, number 3] to record "1" layout
set list [0,0,0] on record "1" data

copy list [number 4, number 5, number 6] to record "2" layout
set list [0,0,0] on record "2" data

copy list [number 7, number 8, number 9] to record "3" layout
set list [0,0,0] on record "3" data

copy list [number 10, number 11, number 12] to record "4" layout
set list [0,0,0] on record "4" data

copy list [number 13, number 14, number 15] to record "5" layout
set list [0,0,0] on record "5" data

copy list [number 16, number 17, number 18] to record "6" layout
set list [0,0,0] on record "6" data

copy list [number 19, number 20, number 21] to record "7" layout
set list [0,0,0] on record "7" data

copy list [number 22, number 23, number 24] to record "8" layout
set list [0,0,0] on record "8" data

copy list [number 25, number 26, number 27] to record "9" layout
set list [0,0,0] on record "9" data

copy list [number 28, number 29, number 30] to record "10" layout
set list [0,0,0] on record "10" data

copy list [number 31, number 32, number 33] to record "11" layout
set list [0,0,0] on record "11" data

copy list [number 34, number 35, number 36] to record "12" layout
set list [0,0,0] on record "12" data

end

method "check win/lose"
begin



if bankroll > record "bankroll" data
//or bankroll < record "stop" data
    begin
    call "init"
    exit
    end

if win amount <= 0
begin
return
end


if record "1" layout list has not hit each time
or flag "transfer1" is true
begin
end
else
begin
set flag "transfer1" to false
put 1 unit on record "1" layout index
put 1 unit on record "1" data index
    loop until record "1" layout index > record "1" layout count
        begin
        if record "1" layout = record "last number" layout
            begin
            put 0 units on record "1" data
            end

            else
                begin

                if record "1" data = 1
                    begin
                    put 2 units on record "1" data
                    set flag "transfer1" to true
                    end
                end

        add 1 unit on record "1" layout index
        add 1 unit on record "1" data index
        end
end

if record "2" layout list has not hit each time
or flag "transfer2" is true
begin
end
else
begin
set flag "transfer2" to false
put 1 unit on record "2" layout index
put 1 unit on record "2" data index
    loop until record "2" layout index > record "2" layout count
        begin
        if record "2" layout = record "last number" layout
            begin
            put 0 units on record "2" data
            end

            else
                begin

                if record "2" data = 1
                    begin
                    put 2 units on record "2" data
                    set flag "transfer2" to true
                    end
                end

        add 1 unit on record "2" layout index
        add 1 unit on record "2" data index
        end
end

if record "3" layout list has not hit each time
or flag "transfer3" is true
begin
end
else
begin
set flag "transfer3" to false
put 1 unit on record "3" layout index
put 1 unit on record "3" data index
    loop until record "3" layout index > record "3" layout count
        begin
        if record "3" layout = record "last number" layout
            begin
            put 0 units on record "3" data
            end

            else
                begin

                if record "3" data = 1
                    begin
                    put 2 units on record "3" data
                    set flag "transfer3" to true
                    end
                end

        add 1 unit on record "3" layout index
        add 1 unit on record "3" data index
        end
end

if record "4" layout list has not hit each time
or flag "transfer4" is true
begin
end
else
begin
set flag "transfer4" to false
put 1 unit on record "4" layout index
put 1 unit on record "4" data index
    loop until record "4" layout index > record "4" layout count
        begin
        if record "4" layout = record "last number" layout
            begin
            put 0 units on record "4" data
            end

            else
                begin

                if record "4" data = 1
                    begin
                    put 2 units on record "4" data
                    set flag "transfer4" to true
                    end
                end

        add 1 unit on record "4" layout index
        add 1 unit on record "4" data index
        end
end

if record "5" layout list has not hit each time
or flag "transfer5" is true
begin
end
else
begin
set flag "transfer5" to false
put 1 unit on record "5" layout index
put 1 unit on record "5" data index
    loop until record "5" layout index > record "5" layout count
        begin
        if record "5" layout = record "last number" layout
            begin
            put 0 units on record "5" data
            end

            else
                begin

                if record "5" data = 1
                    begin
                    put 2 units on record "5" data
                    set flag "transfer5" to true
                    end
                end

        add 1 unit on record "5" layout index
        add 1 unit on record "5" data index
        end
end

if record "6" layout list has not hit each time
or flag "transfer6" is true
begin
end
else
begin
set flag "transfer6" to false
put 1 unit on record "6" layout index
put 1 unit on record "6" data index
    loop until record "6" layout index > record "6" layout count
        begin
        if record "6" layout = record "last number" layout
            begin
            put 0 units on record "6" data
            end

            else
                begin

                if record "6" data = 1
                    begin
                    put 2 units on record "6" data
                    set flag "transfer6" to true
                    end
                end

        add 1 unit on record "6" layout index
        add 1 unit on record "6" data index
        end
end

if record "7" layout list has not hit each time
or flag "transfer7" is true
begin
end
else
begin
set flag "transfer7" to false
put 1 unit on record "7" layout index
put 1 unit on record "7" data index
    loop until record "7" layout index > record "7" layout count
        begin
        if record "7" layout = record "last number" layout
            begin
            put 0 units on record "7" data
            end

            else
                begin

                if record "7" data = 1
                    begin
                    put 2 units on record "7" data
                    set flag "transfer7" to true
                    end
                end

        add 1 unit on record "7" layout index
        add 1 unit on record "7" data index
        end
end

if record "8" layout list has not hit each time
or flag "transfer8" is true
begin
end
else
begin
set flag "transfer8" to false
put 1 unit on record "8" layout index
put 1 unit on record "8" data index
    loop until record "8" layout index > record "8" layout count
        begin
        if record "8" layout = record "last number" layout
            begin
            put 0 units on record "8" data
            end

            else
                begin

                if record "8" data = 1
                    begin
                    put 2 units on record "8" data
                    set flag "transfer8" to true
                    end
                end

        add 1 unit on record "8" layout index
        add 1 unit on record "8" data index
        end
end

if record "9" layout list has not hit each time
or flag "transfer9" is true
begin
end
else
begin
set flag "transfer9" to false
put 1 unit on record "9" layout index
put 1 unit on record "9" data index
    loop until record "9" layout index > record "9" layout count
        begin
        if record "9" layout = record "last number" layout
            begin
            put 0 units on record "9" data
            end

            else
                begin

                if record "9" data = 1
                    begin
                    put 2 units on record "9" data
                    set flag "transfer9" to true
                    end
                end

        add 1 unit on record "9" layout index
        add 1 unit on record "9" data index
        end
end

if record "10" layout list has not hit each time
or flag "transfer10" is true
begin
end
else
begin
set flag "transfer10" to false
put 1 unit on record "10" layout index
put 1 unit on record "10" data index
    loop until record "10" layout index > record "10" layout count
        begin
        if record "10" layout = record "last number" layout
            begin
            put 0 units on record "10" data
            end

            else
                begin

                if record "10" data = 1
                    begin
                    put 2 units on record "10" data
                    set flag "transfer10" to true
                    end
                end

        add 1 unit on record "10" layout index
        add 1 unit on record "10" data index
        end
end

if record "11" layout list has not hit each time
or flag "transfer11" is true
begin
end
else
begin
set flag "transfer11" to false
put 1 unit on record "11" layout index
put 1 unit on record "11" data index
    loop until record "11" layout index > record "11" layout count
        begin
        if record "11" layout = record "last number" layout
            begin
            put 0 units on record "11" data
            end

            else
                begin

                if record "11" data = 1
                    begin
                    put 2 units on record "11" data
                    set flag "transfer11" to true
                    end
                end

        add 1 unit on record "11" layout index
        add 1 unit on record "11" data index
        end
end

if record "12" layout list has not hit each time
or flag "transfer12" is true
begin
end
else
begin
set flag "transfer12" to false
put 1 unit on record "12" layout index
put 1 unit on record "12" data index
    loop until record "12" layout index > record "12" layout count
        begin
        if record "12" layout = record "last number" layout
            begin
            put 0 units on record "12" data
            end

            else
                begin

                if record "12" data = 1
                    begin
                    put 2 units on record "12" data
                    set flag "transfer12" to true
                    end
                end

        add 1 unit on record "12" layout index
        add 1 unit on record "12" data index
        end
end



end


method "get bets"
begin

if record "1" layout list has not hit each time
or flag "transfer1" is true
begin
end
else
begin
set list [1,1,1] on record "1" data
    put 1 unit on record "1" layout index
    put 1 unit on record "1" data index
        loop until record "1" layout index > record "1" layout count
        begin
        if record "last number" layout = record "1" layout
            begin
            put 0 units on record "1" data
            end
            add 1 unit on record "1" layout index
            add 1 unit on record "1" data index
        end
end

if record "2" layout list has not hit each time
or flag "transfer2" is true
begin
end
else
begin
set list [1,1,1] on record "2" data
    put 1 unit on record "2" layout index
    put 1 unit on record "2" data index
        loop until record "2" layout index > record "2" layout count
        begin
        if record "last number" layout = record "2" layout
            begin
            put 0 units on record "2" data
            end
            add 1 unit on record "2" layout index
            add 1 unit on record "2" data index
        end
end

if record "3" layout list has not hit each time
or flag "transfer3" is true
begin
end
else
begin
set list [1,1,1] on record "3" data
    put 1 unit on record "3" layout index
    put 1 unit on record "3" data index
        loop until record "3" layout index > record "3" layout count
        begin
        if record "last number" layout = record "3" layout
            begin
            put 0 units on record "3" data
            end
            add 1 unit on record "3" layout index
            add 1 unit on record "3" data index
        end
end

if record "4" layout list has not hit each time
or flag "transfer4" is true
begin
end
else
begin
set list [1,1,1] on record "4" data
    put 1 unit on record "4" layout index
    put 1 unit on record "4" data index
        loop until record "4" layout index > record "4" layout count
        begin
        if record "last number" layout = record "4" layout
            begin
            put 0 units on record "4" data
            end
            add 1 unit on record "4" layout index
            add 1 unit on record "4" data index
        end
end

if record "5" layout list has not hit each time
or flag "transfer5" is true
begin
end
else
begin
set list [1,1,1] on record "5" data
    put 1 unit on record "5" layout index
    put 1 unit on record "5" data index
        loop until record "5" layout index > record "5" layout count
        begin
        if record "last number" layout = record "5" layout
            begin
            put 0 units on record "5" data
            end
            add 1 unit on record "5" layout index
            add 1 unit on record "5" data index
        end
end

if record "6" layout list has not hit each time
or flag "transfer6" is true
begin
end
else
begin
set list [1,1,1] on record "6" data
    put 1 unit on record "6" layout index
    put 1 unit on record "6" data index
        loop until record "6" layout index > record "6" layout count
        begin
        if record "last number" layout = record "6" layout
            begin
            put 0 units on record "6" data
            end
            add 1 unit on record "6" layout index
            add 1 unit on record "6" data index
        end
end

if record "7" layout list has not hit each time
or flag "transfer7" is true
begin
end
else
begin
set list [1,1,1] on record "7" data
    put 1 unit on record "7" layout index
    put 1 unit on record "7" data index
        loop until record "7" layout index > record "7" layout count
        begin
        if record "last number" layout = record "7" layout
            begin
            put 0 units on record "7" data
            end
            add 1 unit on record "7" layout index
            add 1 unit on record "7" data index
        end
end

if record "8" layout list has not hit each time
or flag "transfer8" is true
begin
end
else
begin
set list [1,1,1] on record "8" data
    put 1 unit on record "8" layout index
    put 1 unit on record "8" data index
        loop until record "8" layout index > record "8" layout count
        begin
        if record "last number" layout = record "8" layout
            begin
            put 0 units on record "8" data
            end
            add 1 unit on record "8" layout index
            add 1 unit on record "8" data index
        end
end

if record "9" layout list has not hit each time
or flag "transfer9" is true
begin
end
else
begin
set list [1,1,1] on record "9" data
    put 1 unit on record "9" layout index
    put 1 unit on record "9" data index
        loop until record "9" layout index > record "9" layout count
        begin
        if record "last number" layout = record "9" layout
            begin
            put 0 units on record "9" data
            end
            add 1 unit on record "9" layout index
            add 1 unit on record "9" data index
        end
end

if record "10" layout list has not hit each time
or flag "transfer10" is true
begin
end
else
begin
set list [1,1,1] on record "10" data
    put 1 unit on record "10" layout index
    put 1 unit on record "10" data index
        loop until record "10" layout index > record "10" layout count
        begin
        if record "last number" layout = record "10" layout
            begin
            put 0 units on record "10" data
            end
            add 1 unit on record "10" layout index
            add 1 unit on record "10" data index
        end
end

if record "11" layout list has not hit each time
or flag "transfer11" is true
begin
end
else
begin
set list [1,1,1] on record "11" data
    put 1 unit on record "11" layout index
    put 1 unit on record "11" data index
        loop until record "11" layout index > record "11" layout count
        begin
        if record "last number" layout = record "11" layout
            begin
            put 0 units on record "11" data
            end
            add 1 unit on record "11" layout index
            add 1 unit on record "11" data index
        end
end

if record "12" layout list has not hit each time
or flag "transfer12" is true
begin
end
else
begin
set list [1,1,1] on record "12" data
    put 1 unit on record "12" layout index
    put 1 unit on record "12" data index
        loop until record "12" layout index > record "12" layout count
        begin
        if record "last number" layout = record "12" layout
            begin
            put 0 units on record "12" data
            end
            add 1 unit on record "12" layout index
            add 1 unit on record "12" data index
        end
end



end



method "place bets"
begin

put 1 unit on record "1" data index
put 1 unit on record "1" layout index
loop until record "1" data index > record "1" data count
    begin
    if record "1" data > 0
        begin
        put 100% of record "1" data unit on record "1" layout
        end
    add 1 unit on record "1" data index
    add 1 unit on record "1" layout index
    end

put 1 unit on record "2" data index
put 1 unit on record "2" layout index
loop until record "2" data index > record "2" data count
    begin
    if record "2" data > 0
        begin
        put 100% of record "2" data unit on record "2" layout
        end
    add 1 unit on record "2" data index
    add 1 unit on record "2" layout index
    end

put 1 unit on record "3" data index
put 1 unit on record "3" layout index
loop until record "3" data index > record "3" data count
    begin
    if record "3" data > 0
        begin
        put 100% of record "3" data unit on record "3" layout
        end
    add 1 unit on record "3" data index
    add 1 unit on record "3" layout index
    end

put 1 unit on record "4" data index
put 1 unit on record "4" layout index
loop until record "4" data index > record "4" data count
    begin
    if record "4" data > 0
        begin
        put 100% of record "4" data unit on record "4" layout
        end
    add 1 unit on record "4" data index
    add 1 unit on record "4" layout index
    end

put 1 unit on record "5" data index
put 1 unit on record "5" layout index
loop until record "5" data index > record "5" data count
    begin
    if record "5" data > 0
        begin
        put 100% of record "5" data unit on record "5" layout
        end
    add 1 unit on record "5" data index
    add 1 unit on record "5" layout index
    end

put 1 unit on record "6" data index
put 1 unit on record "6" layout index
loop until record "6" data index > record "6" data count
    begin
    if record "6" data > 0
        begin
        put 100% of record "6" data unit on record "6" layout
        end
    add 1 unit on record "6" data index
    add 1 unit on record "6" layout index
    end

put 1 unit on record "7" data index
put 1 unit on record "7" layout index
loop until record "7" data index > record "7" data count
    begin
    if record "7" data > 0
        begin
        put 100% of record "7" data unit on record "7" layout
        end
    add 1 unit on record "7" data index
    add 1 unit on record "7" layout index
    end

put 1 unit on record "8" data index
put 1 unit on record "8" layout index
loop until record "8" data index > record "8" data count
    begin
    if record "8" data > 0
        begin
        put 100% of record "8" data unit on record "8" layout
        end
    add 1 unit on record "8" data index
    add 1 unit on record "8" layout index
    end

put 1 unit on record "9" data index
put 1 unit on record "9" layout index
loop until record "9" data index > record "9" data count
    begin
    if record "9" data > 0
        begin
        put 100% of record "9" data unit on record "9" layout
        end
    add 1 unit on record "9" data index
    add 1 unit on record "9" layout index
    end

put 1 unit on record "10" data index
put 1 unit on record "10" layout index
loop until record "10" data index > record "10" data count
    begin
    if record "10" data > 0
        begin
        put 100% of record "10" data unit on record "10" layout
        end
    add 1 unit on record "10" data index
    add 1 unit on record "10" layout index
    end

put 1 unit on record "11" data index
put 1 unit on record "11" layout index
loop until record "11" data index > record "11" data count
    begin
    if record "11" data > 0
        begin
        put 100% of record "11" data unit on record "11" layout
        end
    add 1 unit on record "11" data index
    add 1 unit on record "11" layout index
    end

put 1 unit on record "12" data index
put 1 unit on record "12" layout index
loop until record "12" data index > record "12" data count
    begin
    if record "12" data > 0
        begin
        put 100% of record "12" data unit on record "12" layout
        end
    add 1 unit on record "12" data index
    add 1 unit on record "12" layout index
    end


put 1 unit on number 0
put 1 unit on number 00






end