Lappa Two

Contenuto del file

system "Lappa Two"
{
*************************************
*        System by Lappa            *
*       on the VIP Lounge           *
*************************************
        Rx-ed by St0rm0r

We bet on a dozen.
Dozen selection:
Take the last number that hit (x). Count back (x) spins.
Bet the same dozen as the dozen that hit (x) spins back.
Use progression
1-1-2-2-3-5-7-11-17-25-38
or
1-2-3-4-5-8-11-18-31
}
method "main"
begin
while starting new session
    begin
    call "init"
    exit
    end

track last number for 1 time to record"last#"layout
if record"last#"layout = number 0 or record"last#"layout = number 00
    begin
    exit
    end
track last dozen for 36 times to record"last dozens"layout


if net < 0
    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


if net > 0
    begin
    put 1 record"pro"data index
    end

call "translate layout number to decimal number"
call "set dozen index to end"
subtract 100% record"numbers"layout index from record"last dozens"layout index
if record"last dozens"layout index > 0
    begin
    put 100% record"pro"data on record"last dozens"layout
    end
end

method "init"
begin
copy list [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
group
    begin
    display "LAPPA TWO SYSTEM"
    input dropdown "Use progression:
    1:= 1-1-2-2-3-5-7-11-17-25-38
    2:= 1-2-3-4-5-8-11-18-31 " to record"progression"data
    end
if record"progression"data = 1
    begin
    set list [1,1,2,2,3,5,7,11,17,25,38] to record"pro"data
    end
    else
    begin
    set list [1,2,3,4,5,8,11,18,31] to record"pro"data
    end
put 1 record"pro"data index
end

method "translate layout number to decimal number"
begin
put 1 record"numbers"layout index
loop until record"numbers"layout = record"last#"layout
    begin
    add 1 record"numbers"layout index
    end
end

method "set dozen index to end"
begin
put 1 record"last dozens"layout index
loop until record"last dozens"layout index > record"last dozens"layout count
    begin
    add 1 record"last dozens"layout index
    end
end