Groups of 12 v1

Contenuto del file

system "Groups of 12 v1"
{
*************************************
*      System by luposlipphobia     *
*         on the VIP Lounge         *
*************************************
          Rx-ed by St0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
Do a constant check of the last 100 or so spins for a set of 12 numbers
that have zero or 1 hits during that time.
Run a progressive bet on those 12.
-------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    end

// section 2: do the tracking
track last number for record"track"data record"last100"layout
add 100% net record"loss"data
if record"loss"data > 0
    begin
    put 0 record"loss"data
    end

// section 3: act on a loss
if net < 0
    begin

    end

// section 4:act on a win
if net > 0
    begin
    set flag "qualified" false
    end

//section 5: act when not qualified
if flag "qualified" false
    begin
    if record"last100"layout count = record"track"data
        begin
        call "detemine hit frequencies"
        call "determine how many with frequency 0 or 1"
        if record"play"layout count = record"hit target"data
            begin
            set flag "qualified" true
            end
        end
    end

if record"P"data = 1
    begin
    put 1 record"pro"data
    end
    else
    begin
    //determine amount of numbers to play
    put 0 record"amount of numbers active"data
    put 1 record"play"layout index
    loop until record"play"layout index > record"play"layout count
        begin
        add 1 record"amount of numbers active"data
        add 1 record"play"layout index
        end
    //calculate bet
    put 100% record"loss"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

//section 6: act when qualified
if flag "qualified" true
    begin
    //bet
    put 100% record"pro"data record"play"layout list
    end

end

// subroutines
method "init"
begin
group
    begin
    display "Groups of 12"
    display "---------------------"
    input dropdown "Wheel type:
    1:= single wheel
    2:= double wheel" record"W"data
    input data "track last x spins: (e.g.100)" record"track"data
    display "bet qualifies when"
    input data "there are y numbers with 0 or 1 hits: (e.g.12)" record"hit target"data
    input dropdown "Progression:
    1:= flat bet
    2:= profit in next spin" record"P"data
    end
if record"W"data = 1
    begin
    load single wheel
    end
    else
    begin
    load double wheel
    end
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
call "reset"
end

method "reset"
begin
set flag "qualified" false
put 1 record"pro"data
end

method "detemine hit frequencies"
begin
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"frequency"data
put 1 record"last100"layout index
loop until record"last100"layout index > record"last100"layout count
    begin
    put 1 record"numbers"layout index
    loop until record"numbers"layout = record"last100"layout
        begin
        add 1 record"numbers"layout index
        end
    put 100% record"numbers"layout index record"frequency"data index
    add 1 record"frequency"data
    add 1 record"last100"layout index
    end
end

method "determine how many with frequency 0 or 1"
begin
clear record"play"layout
if record"W"data = 1
    begin
    put 2 record"frequency"data index
    end
    else
    begin
    put 1 record"frequency"data index
    end
loop until record"frequency"data index > record"frequency"data count
    begin
    if record"frequency"data < 2
        begin
        put 100% record"frequency"data index record"numbers"layout index
        copy record"numbers"layout record"play"layout
        add 1 record"play"layout index
        end
    add 1 record"frequency"data index
    end
end