RWD Hot Number

Contenuto del file

system "Roy Ward Dickson Type Roulette Hot Number Strategy v1"
{
*************************************
*         Testing RWD types         *
*         on the VIP Lounge         *
*************************************
          Rx-ed by St0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
Bet on a number if it:
a) appears 3 times within 20 (or 19) spins after not appearing for 30 spins or more
and...
b) the difference in the gap between the 1st & 2nd (A) and
the 2nd & 3rd appearances(B) is 6 spins or less
unless...
c) the number has appeared 3 times in succession.

Options:
Appear within X spins (19 or 20 spins)

Bet selection:
A or B <= 6
(A-B) <= 6
A and B <= 6
(A+B)/2 <= 6

Bet for X spins (9 or 5)

Progressions:
flat bet
9,9,9,10,10,10,12,12,12
1,1,1,1,1,1,2,2,2
profit on next spin
-------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    exit
    end

// section 2: do the tracking
add 100% net record"profit"data
if record"profit"data > 0
    begin
    put 0 record"profit"data
    end

track last number for 1 time record"last N"layout
call "update hit frequencies"
call "update ready for qualification"
call "update appearances"

// section 3: act on a loss
if net < 0
    begin
    if record"P"data = 2 or record"P"data = 3
        begin
        add 1 record"pro"data index
        if record"pro"data index > record"pro"data count
            begin
            put 1 record"pro"data index
            end
        end
    end

// section 4:act on a win
if net > 0
    begin
    if record"P"data = 2 or record"P"data = 3
        begin
        put 1 record"pro"data index
        end
    put 1 record"numbers"layout index
    loop until  record"numbers"layout = record"last N"layout
        begin
        add 1 record"numbers"layout index
        end
    put 100% record"numbers"layout index in
    record"1st appearance counter"data index
    put 100% record"numbers"layout index in
    record"2nd appearance"data index
    put 100% record"numbers"layout index in
    record"3rd appearance"data index
    put 100% record"numbers"layout index in
    record"start qualification"data index
    put 100% record"numbers"layout index in
    record"bet"data index
    call "no go"
    end

//section 5: bet
if record"P"data = 1
    begin
    put 1 record"pro"data
    end
if record"P"data = 4
    begin
    call "calculate bet"
    end

put 1 record"bet"data index
loop until record"bet"data index > record"bet"data count
    begin
    put 100% record"bet"data index record"numbers"layout index
    if record"bet"data > 0
        begin
        put 100% record"pro"data record"numbers"layout
        add 1 record"bet"data
        if record"bet"data > record"Y"data
            begin
            put 1 record"pro"data index
            put 100% record"bet"data index in
            record"1st appearance counter"data index
            put 100% record"bet"data index in
            record"2nd appearance"data index
            put 100% record"bet"data index in
            record"3rd appearance"data index
            put 100% record"bet"data index in
            record"start qualification"data index
            call "no go"
            end
        end
    add 1 record"bet"data index
    end
end

// subroutines
method "init"
begin
group
    begin
    display "RWD Type Test"
    display "---------------------------"
    display "after not appearing for 30 spins or more"
    input data "a number appears 3 times within X spins e.g.19 or 20:"
    record"X"data
    input dropdown "Bet selection: a number qualifies if
    1:= A or B <= 6
    2:= (A-B) <= 6
    3:= A and B <= 6
    4:= (A+B)/2 <= 6" record"selection"data
    input data "Bet for Y spins (e.g. 9):" record"Y"data
    input dropdown "Progression:
    1:= flat bet
    2:= 9,9,9,10,10,10,12,12,12
    3:= 1,1,1,1,1,1,2,2,2
    4:= profit on next spin" record"P"data
    end
if record"P"data = 2
    begin
    set list [9,9,9,10,10,10,12,12,12] record"pro"data
    end
if record"P"data = 3
    begin
    set list [1,1,1,1,1,1,2,2,2] record"pro"data
    end
put 1 record"pro"data index
copy list [number 00, number 0, number 1, number 2, number 3,number 4,number 5,
number 6,number 7,number 8,number 9,number 10,number 11,number 12,number 13,
number 14,number 15,number 16,number 17,number 18,number 19,number 20,
number 21,number 22,number 23,number 24,number 25,number 26,number 27,
number 28,number 29,number 30,number 31,number 32,number 33,number 34,
number 35,number 36] to record"numbers"layout
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0] record"not hit since"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0] record"start qualification"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0] record"1st appearance counter"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0] record"2nd appearance"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0] record"3rd appearance"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0] record"bet"data
call "reset"
end

method "reset"
begin
set flag "qualified" false
end

method "update hit frequencies"
begin
put 1 record"numbers"layout index
loop until record"numbers"layout index > record"numbers"layout count
    begin
    put 100% record"numbers"layout index record"not hit since"data index
    if record"numbers"layout = record"last N"layout
        begin
        put 0 record"not hit since"data
        end
        else
        begin
        add 1 record"not hit since"data
        end
    add 1 record"numbers"layout index
    end
end

method "update ready for qualification"
begin
put 1 record"not hit since"data index
loop until record"not hit since"data index > record"not hit since"data count
    begin
    put 100% record"not hit since"data index in
    record"start qualification"data index
    if record"not hit since"data = 30
        begin
        put 1 record"start qualification"data
        end
    add 1 record"not hit since"data index
    end
end

method "update appearances"
begin
put 1 record"start qualification"data index
loop until record"start qualification"data index >
record"start qualification"data count
    begin
    put 100% record"start qualification"data index in
    record"1st appearance counter"data index
    put 100% record"start qualification"data index in
    record"2nd appearance"data index
    put 100% record"start qualification"data index in
    record"3rd appearance"data index
    put 100% record"start qualification"data index in
    record"numbers"layout index
    put 100% record"start qualification"data index in
    record"bet"data index
    if record"start qualification"data = 1
        begin
        if record"numbers"layout = record"last N"layout
            begin
            if record"1st appearance counter"data = 0
                begin
                add 1 record"1st appearance counter"data
                end
                else
                begin
                if record"2nd appearance"data = 0
                    begin
                    put 100% record"1st appearance counter"data in
                    record"2nd appearance"data
                    add 1 record"1st appearance counter"data
                    end
                    else
                    begin
                    if record"3rd appearance"data = 0
                        begin
                        put 100% record"1st appearance counter"data in
                        record"3rd appearance"data
                        add 1 record"1st appearance counter"data
                        //check if qualified,
                        put 100% record"3rd appearance"data record"diff"data
                        subtract 100% record"2nd appearance"data from
                        record"diff"data
                        if record"selection"data = 1
                            begin
                            if record"2nd appearance"data < 7 or
                            record"diff"data < 7
                                begin
                                if record"2nd appearance"data > 1 or
                                record"diff"data > 1
                                    begin
                                    //bet
                                    put 1 record"bet"data
                                    //act
                                    put 2 record"start qualification"data
                                    end
                                end
                                else
                                begin
                                call "no go"
                                end
                            end
                        if record"selection"data = 2
                            begin
                            if record"2nd appearance"data > record"diff"data
                                begin
                                put 100% record"2nd appearance"data in record"temp"data
                                subtract 100% record"diff"data record"temp"data
                                end
                                else
                                begin
                                put 100% record"diff"data in record"temp"data
                                subtract 100% record"2nd appearance"data record"temp"data
                                end
                            if record"temp"data < 7
                                begin
                                if record"2nd appearance"data > 1 or
                                record"diff"data > 1
                                    begin
                                    //bet
                                    put 1 record"bet"data
                                    //act
                                    put 2 record"start qualification"data
                                    end
                                end
                                else
                                begin
                                call "no go"
                                end
                            end
                       if record"selection"data = 3
                            begin
                            if record"2nd appearance"data < 7 and
                            record"diff"data < 7
                                begin
                                if record"2nd appearance"data > 1 or
                                record"diff"data > 1
                                    begin
                                    //bet
                                    put 1 record"bet"data
                                    //act
                                    put 2 record"start qualification"data
                                    end
                                end
                                else
                                begin
                                call "no go"
                                end
                            end
                       if record"selection"data = 4
                            begin
                            put 100% record"2nd appearance"data in record"temp"data
                            add 100% record"diff"data record"temp"data
                            divide by 2 on record"temp"data
                            if record"temp"data < 7
                                begin
                                if record"2nd appearance"data > 1 or
                                record"diff"data > 1
                                    begin
                                    //bet
                                    put 1 record"bet"data
                                    //act
                                    put 2 record"start qualification"data
                                    end
                                end
                                else
                                begin
                                call "no go"
                                end
                            end
                        end
                    end
                end
            end
            else
            begin
            if record"1st appearance counter"data > 0
                begin
                add 1 record"1st appearance counter"data
                if record"1st appearance counter"data > record"X"data
                    begin
                    call "no go"
                    end
                end
            end
        end
    add 1 record"start qualification"data index
    end
end

method "no go"
begin
put 0 record"start qualification"data
put 0 record"1st appearance counter"data
put 0 record"2nd appearance"data
put 0 record"3rd appearance"data
put 0 record"bet"data
end

method "calculate bet"
begin
//determine amount of numbers to play
put 0 record"amount of numbers active"data
put 1 record"bet"data index
loop until record"bet"data index > record"bet"data count
    begin
    if record"bet"data > 0
        begin
        add 1 record"amount of numbers active"data
        end
    add 1 record"bet"data index
    end
//calculate bet
put 100% record"profit"data record"count"data
put 0 record"pro"data
loop until record"count"data > 0
    begin
    subtract 100% record"amount of numbers active"data record"count"data
    add 36 record"count"data
    add 1 record"pro"data
    end
end