Voila meets Papi v2

Contenuto del file

system "Voila meets Papi v2.0"
{
*************************************
* System by Papi presented by Voila *
*         on the VIP Lounge         *
*************************************
          Rx-ed by St0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
Track 12 spins and put them like this:
BBR
BRR
BRB
RRB
Starting from the 13th spin:play the chance that IN THE VERTICAL COLUMN is more present.
1st colum 3B,1R:play B
2nd column1B,3R:play R
3rd colum 2R 2B:no bet(same number of B and R)

We assume that the next three spins are BBB.
You must cancel the first horizontal line(BBR),
look at the remaining 12 spins(with BBB added at the bottom) and start again.
And so on.

Progression:10 dollars for instance,until you have lost 20 bets.
Then 15 dollars until you have lost 20 additional bets
Then 20 dollars...................................
Start over as soon as you have won 1 unit.
-------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    exit
    end

// section 2: do the tracking
track last number for 1 record"last N"layout
if record"last N"layout not = number 0 and record"last N"layout not = number 00
    begin
    track last red-black for 12 record"last RB"layout
    track last even-odd for 12 record"last EO"layout
    track last high-low for 12 record"last HL"layout
    end

// section 3: act on a loss
if any red-black bet has lost each
    begin
    subtract 100% record"proRB"data record"highRB"data
    subtract 100% record"proRB"data record"highTotal"data
    add 1 record"proRB"data index
    if record"proRB"data index > record"proRB"data count
        begin
        put 1 record"proRB"data index
        put 0 record"highRB"data
        put 0 record"highTotal"data
        end
    end

if any even-odd bet has lost each
    begin
    subtract 100% record"proEO"data record"highEO"data
    subtract 100% record"proEO"data record"highTotal"data
    add 1 record"proEO"data index
    if record"proEO"data index > record"proEO"data count
        begin
        put 1 record"proEO"data index
        put 0 record"highEO"data
        put 0 record"highTotal"data
        end
    end

if any high-low bet has lost each
    begin
    subtract 100% record"proHL"data record"highHL"data
    subtract 100% record"proHL"data record"highTotal"data
    add 1 record"proHL"data index
    if record"proHL"data index > record"proHL"data count
        begin
        put 1 record"proHL"data index
        put 0 record"highHL"data
        put 0 record"highTotal"data
        end
    end

if record"last N"layout = number 0 or record"last N"layout = number 00
    begin
    exit
    end

// section 4:act on a win
if any red-black bet has won each
    begin
    add 100% record"proRB"data record"highRB"data
    add 100% record"proRB"data record"highTotal"data
    if record"reset type"data = 2
        begin
        if record"highRB"data > 0
            begin
            put 1 record"proRB"data index
            put 0 record"highRB"data
            if record"session end"data = 2
                begin
                clear record"last RB"layout
                end
            end
        end
    end

if any even-odd bet has won each
    begin
    add 100% record"proEO"data record"highEO"data
    add 100% record"proEO"data record"highTotal"data
    if record"reset type"data = 2
        begin
        if record"highEO"data > 0
            begin
            put 1 record"proEO"data index
            put 0 record"highEO"data
            if record"session end"data = 2
                begin
                clear record"last EO"layout
                end
            end
        end
    end

if any high-low bet has won each
    begin
    add 100% record"proHL"data record"highHL"data
    add 100% record"proHL"data record"highTotal"data
    if record"reset type"data = 2
        begin
        if record"highHL"data > 0
            begin
            put 1 record"proHL"data index
            put 0 record"highHL"data
            if record"session end"data = 2
                begin
                clear record"last HL"layout
                end
            end
        end
    end

if record"reset type"data = 1
    begin
    if record"highTotal"data > 0
        begin
        put 1 record"proRB"data index
        put 1 record"proEO"data index
        put 1 record"proHL"data index
        put 0 record"highRB"data
        put 0 record"highEO"data
        put 0 record"highHL"data
        put 0 record"highTotal"data
        if record"session end"data = 2
            begin
            clear record"last RB"layout
            clear record"last EO"layout
            clear record"last HL"layout
            end
        set flag "qualifiedRB" false
        set flag "qualifiedEO" false
        set flag "qualifiedHL" false
        end
    end

// section 5:act when not qualified
if flag "qualified" false
    begin

    end

call "bet selection"

// section 6:act when  qualified
if flag "qualifiedRB" true and flag "Play RB" true
    begin
    put 100% record"proRB"data record"playRB"layout
    multiply by 100% record"base"data record"playRB"layout
    end
if flag "qualifiedEO" true and flag "Play EO" true
    begin
    put 100% record"proEO"data record"playEO"layout
    multiply by 100% record"base"data record"playEO"layout
    end
if flag "qualifiedHL" true and flag "Play HL" true
    begin
    put 100% record"proHL"data record"playHL"layout
    multiply by 100% record"base"data record"playHL"layout
    end
end

// subroutines
method "init"
begin
group
    begin
    display "Papi System by Voila"
    display "-----------------------------"
    input checkbox "Play red-black" to flag "Play RB"
    input checkbox "Play even-odd" to flag "Play EO"
    input checkbox "Play high-low" to flag "Play HL"
    input data "Base bet unit" record"base"data
    input dropdown "Reset:
    1:= all when reaching an overall new high
    2:= individual even money bets when reaching an individual new high" record"reset type"data
    input dropdown "After ending a session
    1:= continue right away
    2:= track for 12 new spins" record"session end"data
    input dropdown "Bet selection:
    1:= play the one that showed the most
    2:= play the one that showed the least" record"selection"data
    end
set list [2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4] record"proRB"data
set list [2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4] record"proEO"data
set list [2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4] record"proHL"data
call "reset"
end

method "reset"
begin
set flag "qualifiedRB" false
set flag "qualifiedEO" false
set flag "qualifiedHL" false
put 0 record"highRB"data
put 0 record"highEO"data
put 0 record"highHL"data
put 0 record"highTotal"data
end

method "bet selection"
begin
if record"session end"data = 1 or record"last RB"layout count >= 12
begin
put 0 record"1"data
put 0 record"2"data
put 1 record"last RB"layout index
loop until record"last RB"layout index > record"last RB"layout count
    begin
    if record"last RB"layout = red begin add 1 record"1"data end
    if record"last RB"layout = black begin add 1 record"2"data end
    add 3 record"last RB"layout index
    end
if record"1"data > record"2"data
    begin
    if record"selection"data = 1
        begin copy red record"playRB"layout end
        else begin copy black record"playRB"layout end
    set flag "qualifiedRB" true
    end
if record"1"data < record"2"data
    begin
    if record"selection"data = 1
        begin copy black record"playRB"layout end
        else begin copy red record"playRB"layout end
    set flag "qualifiedRB" true
    end
if record"1"data = record"2"data
    begin set flag "qualifiedRB" false end
end
else
begin
set flag "qualifiedRB" false
end

if record"session end"data = 1 or record"last EO"layout count >= 12
begin
put 0 record"1"data
put 0 record"2"data
put 1 record"last EO"layout index
loop until record"last EO"layout index > record"last EO"layout count
    begin
    if record"last EO"layout = even begin add 1 record"1"data end
    if record"last EO"layout = odd begin add 1 record"2"data end
    add 3 record"last EO"layout index
    end
if record"1"data > record"2"data
    begin
    if record"selection"data = 1
        begin copy even record"playEO"layout end
        else begin copy odd record"playEO"layout end
    set flag "qualifiedEO" true
    end
if record"1"data < record"2"data
    begin
    if record"selection"data = 1
        begin copy odd record"playEO"layout end
        else begin copy even record"playEO"layout end
    set flag "qualifiedEO" true
    end
if record"1"data = record"2"data
    begin set flag "qualifiedEO" false end
end
else
begin
set flag "qualifiedEO" false
end

if record"session end"data = 1 or record"last HL"layout count >= 12
begin
put 0 record"1"data
put 0 record"2"data
put 1 record"last HL"layout index
loop until record"last HL"layout index > record"last HL"layout count
    begin
    if record"last HL"layout = high begin add 1 record"1"data end
    if record"last HL"layout = low begin add 1 record"2"data end
    add 3 record"last HL"layout index
    end
if record"1"data > record"2"data
    begin
    if record"selection"data = 1
        begin copy high record"playHL"layout end
        else begin copy low record"playHL"layout end
    set flag "qualifiedHL" true
    end
if record"1"data < record"2"data
    begin
    if record"selection"data = 1
        begin copy low record"playHL"layout end
        else begin copy high record"playHL"layout end
    set flag "qualifiedHL" true
    end
if record"1"data = record"2"data
    begin set flag "qualifiedHL" false end
end
else
begin
set flag "qualifiedHL" false
end
end