All but 4

Contenuto del file

system "All but 4"
{Play all numbers except 1, 4, 7, 10 and zero.(Single 0 Wheel) }
method "main"
begin
while starting a new session
    begin
    Set Flag "Bet Placed" to False
    put 1 on record "Bet Level" data
    put 0 on record "Bet Level 1 Placed" data
    put 0 on record "Bet Level 3 Placed" data
    put 0 on record "Bet Level 2 Placed" data
    put 0 on record "Bet Level 4 Placed" data
    put 0 on record "Bet Level 1 Won" data
    put 0 on record "Bet Level 2 Won" data
    put 0 on record "Bet Level 3 Won" data
    put 0 on record "Bet Level 4 Won" data

    put 100% bankroll on record "Lowest Bankroll" data
    put 0 on record "Downdraw" data
    put 0 on record "Spin Count" data
    end

{call "initialize"}

if Flag "Bet Placed" True
    begin
        call "Process"
    end
call "bet"

end

method "Process"

    begin
    add 1 on record "Spin Count" data
    if Bankroll < record "Lowest Bankroll" data
        begin
            put 100% bankroll on record "Lowest Bankroll" data
        end
    if Number 1 hit each or number 4 hit each or number 7 hit each or number 10 hit each or number 0 hit each
        begin
            Add 1 to record "Bet Level" data
        end
    else
        begin
            if record "Bet Level" data = 1
            begin
                add 1 to record "Bet Level 1 Won" data
            end
            if record "Bet Level" data = 2
            begin
                add 1 to record "Bet Level 2 Won" data
            end
            if record "Bet Level" data = 3
            begin
                add 1 to record "Bet Level 3 Won" data
            end
            if record "Bet Level" data = 4
            begin
                add 1 to record "Bet Level 4 Won" data
            end

            put 1 on record "Bet Level" data
            Subtract 100% of record "D1 Current Bet" data from record "D1 Bankroll" data

        end

    end {method Process}

method "bet"
    begin
        If record "Bet Level" data = 1
        begin
            put 6 on 3rd Dozen
            put 6 on 2nd Dozen
            put 1 on Split(2-5)
            put 1 on Split(8-11)
            put 1 on Split(3-6)
            put 1 on Split(9-12)    {Total bet = 16, net 2 units per win}
            add 1 to record "Bet Level 1 Placed" data
        end
        If record "Bet Level" data = 2
        begin
            put 18 on 3rd Dozen
            put 18 on 2nd Dozen
            put 3 on Split(2-5)
            put 3 on Split(8-11)
            put 3 on Split(3-6)
            put 3 on Split(9-12)    {Total bet = 48, net 6 per win}
            add 1 to record "Bet Level 2 Placed" data
        end
        If record "Bet Level" data = 3
        begin
            put 54 on 3rd Dozen
            put 54 on 2nd Dozen
            put 9 on Split(2-5)
            put 9 on Split(8-11)
            put 9 on Split(3-6)
            put 9 on Split(9-12)   {Total bet = 144, net 18 per win}
            add 1 to record "Bet Level 3 Placed" data
        end
        If record "Bet Level" data = 4
        begin
            put 162 on 3rd Dozen
            put 162 on 2nd Dozen
            put 27 on Split(2-5)
            put 27 on Split(8-11)
            put 27 on Split(3-6)
            put 27 on Split(9-12)   {Total bet = 432, net 54 per win}
            add 1 to record "Bet Level 4 Placed" data
        end
        Set Flag "Bet Placed" True
    end