Giant Chimpanzees

Contenuto del file

system "GiantChimpanzees"
{
*************************************
*    System request by splichma     *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
- track 12 spins until you get a cycle with exactly 4 sleeper streets (if it's more or less continue tracking spins on a rolling basis until last 12 spins are such that you have 4 sleeper streets)

- bet on each individual numbers from those streets as they wake up

- bet according to the following mild progression:

- start at 1 unit per number
- if balance hits -15, bet 2 units per number
- if balance hits -55, bet 3 units per number

- Stop and reset when
- balance is positive; or
- loss hits -150 units

-------------------------------------
}
method "main"
begin


while starting a new session
begin
put 0 on record "Spin Count" data
put 0 on record "The 4 sleepers" layout index

exit
end


Call "Bet Amount"
Call "Place Bets"
Call "Check Balance and Reset"
Call "Qualify"
end


Method "Check Balance and Reset"
begin
    if record "profit" data > 0 begin
    clear all records
    put 0 on record "Spin Count" data
    put 0 on record "The 4 sleepers" layout index
    set flag "Table Qualified" to false
    put 0 on all bets
    exit
    end

    if record "profit" data <= -150 begin
    clear all records
    put 0 on record "Spin Count" data
    put 0 on record "The 4 sleepers" layout index
    set flag "Table Qualified" to false
    put 0 units on all bets
    exit
    end

end

Method "Place Bets"
begin
if flag "Table Qualified" is true begin

    copy last number to record "Last Number" layout

    if record "Last Number" Layout = number 1 begin
        if record "S1" layout is found in record "The 4 Sleepers" layout begin
        copy number 1 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 2 begin
        if record "S1" layout is found in record "The 4 Sleepers" layout begin
        copy number 2 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

     if record "Last Number" Layout = number 3 begin
        if record "S1" layout is found in record "The 4 Sleepers" layout begin
        copy number 3 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 4 begin
        if record "S4" layout is found in record "The 4 Sleepers" layout begin
        copy number 4 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 5 begin
        if record "S4" layout is found in record "The 4 Sleepers" layout begin
        copy number 5 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 6 begin
        if record "S4" layout is found in record "The 4 Sleepers" layout begin
        copy number 6 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 7 begin
        if record "S7" layout is found in record "The 4 Sleepers" layout begin
        copy number 7 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 8 begin
        if record "S7" layout is found in record "The 4 Sleepers" layout begin
        copy number 8 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 9 begin
        if record "S7" layout is found in record "The 4 Sleepers" layout begin
        copy number 9 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 10 begin
        if record "S10" layout is found in record "The 4 Sleepers" layout begin
        copy number 10 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 11 begin
        if record "S10" layout is found in record "The 4 Sleepers" layout begin
        copy number 11 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 12 begin
        if record "S10" layout is found in record "The 4 Sleepers" layout begin
        copy number 12 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 13 begin
        if record "S13" layout is found in record "The 4 Sleepers" layout begin
        copy number 13 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 14 begin
        if record "S13" layout is found in record "The 4 Sleepers" layout begin
        copy number 14 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 15 begin
        if record "S13" layout is found in record "The 4 Sleepers" layout begin
        copy number 15 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 16 begin
        if record "S16" layout is found in record "The 4 Sleepers" layout begin
        copy number 16 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 17 begin
        if record "S16" layout is found in record "The 4 Sleepers" layout begin
        copy number 17 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 18 begin
        if record "S16" layout is found in record "The 4 Sleepers" layout begin
        copy number 18 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 19 begin
        if record "S19" layout is found in record "The 4 Sleepers" layout begin
        copy number 19 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 20 begin
        if record "S19" layout is found in record "The 4 Sleepers" layout begin
        copy number 20 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 21 begin
        if record "S19" layout is found in record "The 4 Sleepers" layout begin
        copy number 21 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 22 begin
        if record "S22" layout is found in record "The 4 Sleepers" layout begin
        copy number 22 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 23 begin
        if record "S22" layout is found in record "The 4 Sleepers" layout begin
        copy number 23 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 24 begin
        if record "S22" layout is found in record "The 4 Sleepers" layout begin
        copy number 24 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 25 begin
        if record "S25" layout is found in record "The 4 Sleepers" layout begin
        copy number 25 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 26 begin
        if record "S25" layout is found in record "The 4 Sleepers" layout begin
        copy number 26 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 27 begin
        if record "S25" layout is found in record "The 4 Sleepers" layout begin
        copy number 27 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 28 begin
        if record "S28" layout is found in record "The 4 Sleepers" layout begin
        copy number 28 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 29 begin
        if record "S28" layout is found in record "The 4 Sleepers" layout begin
        copy number 29 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 30 begin
        if record "S28" layout is found in record "The 4 Sleepers" layout begin
        copy number 30 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 31 begin
        if record "S31" layout is found in record "The 4 Sleepers" layout begin
        copy number 31 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 32 begin
        if record "S31" layout is found in record "The 4 Sleepers" layout begin
        copy number 32 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 33 begin
        if record "S31" layout is found in record "The 4 Sleepers" layout begin
        copy number 33 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 34 begin
        if record "S34" layout is found in record "The 4 Sleepers" layout begin
        copy number 34 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 35 begin
        if record "S34" layout is found in record "The 4 Sleepers" layout begin
        copy number 35 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

    if record "Last Number" Layout = number 36 begin
        if record "S34" layout is found in record "The 4 Sleepers" layout begin
        copy number 36 to record "Bet These Numbers" layout
        add 1 to record "Bet These Numbers" layout index
        end
    end

put 100% record "Unit Bet Size" data on record "Bet These Numbers" layout list
end
end

Method "Bet Amount"
begin

if flag "Table Qualified" is true begin
put 100% bankroll to record "Profit" data
put 100% record "Starting Bankroll" data to record "Starting Bankroll Minus" data
multiply -1 to record "Starting Bankroll Minus" data
add 100% record "Starting Bankroll Minus" data to record "Profit" data

    if record "Profit" data > -15 begin put 1 on record "Unit Bet Size" data end
    if record "Profit" data <= -15 begin put 2 on record "Unit Bet Size" data end
    if record "Profit" data <= -55 begin put 3 on record "Unit Bet Size" data end

end
end

Method "Qualify"
begin
    if flag "Table Qualified" false begin
    copy last street to record "last street" layout
    add 1 unit to record "Spin Count" data
    track last street for 12 spins to record "Last 12" layout

        if record "Last 12" layout count < 12
        begin
        exit
        end
        else
        begin

        copy Street(1-3) on record "S1" layout
        copy Street(4-6) on record "S4" layout
        copy Street(7-9) on record "S7" layout
        copy Street(10-12) on record "S10" layout
        copy Street(13-15) on record "S13" layout
        copy Street(16-18) on record "S16" layout
        copy Street(19-21) on record "S19" layout
        copy Street(22-24) on record "S22" layout
        copy Street(25-27) on record "S25" layout
        copy Street(28-30) on record "S28" layout
        copy Street(31-33) on record "S31" layout
        copy Street(34-36) on record "S34" layout

        if record "S1" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S4" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S7" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S10" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S13" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S16" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S19" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S22" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S25" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S28" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S31" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end
        if record "S34" layout is not found in record "Last 12" layout begin
        add 1 to record "Sleepers in last 12" data
        end

            if record "Sleepers in last 12" data = 4 begin
            set flag "Table Qualified" to true
            put 100% of bankroll on record "Starting Bankroll" data

                if record "S1" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(1-3) on record "The 4 sleepers" layout
                end

                if record "S4" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(4-6) on record "The 4 sleepers" layout
                end

                if record "S7" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(7-9) on record "The 4 sleepers" layout
                end

                if record "S10" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(10-12) on record "The 4 sleepers" layout
                end

                if record "S13" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(13-15) on record "The 4 sleepers" layout
                end

                if record "S16" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(16-18) on record "The 4 sleepers" layout
                end

                if record "S19" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(19-21) on record "The 4 sleepers" layout
                end

                if record "S22" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(22-24) on record "The 4 sleepers" layout
                end

                if record "S25" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(25-27) on record "The 4 sleepers" layout
                end

                if record "S28" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(28-30) on record "The 4 sleepers" layout
                end

                if record "S31" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(31-33) on record "The 4 sleepers" layout
                end

                if record "S34" layout is not found in record "Last 12" layout begin
                add 1 to record "The 4 sleepers" layout index
                copy Street(34-36) on record "The 4 sleepers" layout
                end

            put 0 on record "Sleepers in last 12" data
            end
            else
            begin
            put 0 on record "Sleepers in last 12" data
            end
        end
    end
end