Atila Progression v1

Contenuto del file

system "Atila Progression v1"
{
*************************************
*     System request by Apache      *
*       on the VIP Lounge           *
*************************************
        Rx-ed by St0rm0r
-------------------------------------
            00-c0mpatible
-------------------------------------
We bet one unit per number.

If we lose we continue with this progression :
1......1......1......1......1......1......1......1......1
2......1......1......1......1......1......1......1......1
2......2......1......1......1......1......1......1......1
2......2......2......1......1......1......1......1......1
2......2......2......2......1......1......1......1......1
2......2......2......2......2......1......1......1......1
2......2......2......2......2......2......1......1......1
2......2......2......2......2......2......2......1......1
2......2......2......2......2......2......2......2......1
2......2......2......2......2......2......2......2......2
3......2......2......2......2......2......2......2......2
3......3......2......2......2......2......2......2......2
etc.

Only when we have a positive balance (profit) we reset:
1......1......1......1......1......1......1......1.....1
-------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    end

// section 2: do the tracking


// section 3: act on a loss
if net < 0
    begin
    call "update progression"
    end

// section 4:act on a win
if net > 0
    begin
    if bankroll > record"high"data
        begin
        call"reset"
        end
        else
        begin
        call "update progression"
        end
    end

//bet
put 1 record"pro"data index
loop until record"pro"data index > record"pro"data count
    begin
    put 100% record"pro"data index record"group"layout index
    put 100% record"pro"data record"group"layout
    add 1 record"pro"data index
    end

end

// subroutines
method "init"
begin
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
group
    begin
    display "Atila Progression v1"
    input dropdown "Wheel :
    1:= Single
    2:= Double" record"W"data
    input dropdown "Number selection:
    1:= Pick random numbers for me
    2:= I want to choose my own numbers
    3:= Use the pre-coded list" record"S"data
    end
if record"W"data = 1 begin load Single Wheel end
if record"W"data = 2 begin load Double Wheel end

if record"S"data = 3
    begin
    // CHANGE YOUR PREFERRED ATILA GROUP HERE
    //********************************************************************
    copy list [number 1,number 5,number 13,number 14,number 20,number 22,
    number 28,number 32,number 34] record"group"layout
    //********************************************************************
    put 0 record"N"data
    put 1 record"group"layout index
    loop until record"group"layout index > record"group"layout count
        begin
        add 1 record"N"data
        add 1 record"group"layout index
        end
    end
    else
    begin
        group
        begin
        display "Atila Progression v1"
        input data "How many numbers do you want in a Atila group: " record"N"data
        end
clear record"group"layout
put 1 record"go"data
loop until record"go"data > record"N"data
    begin
    if record"S"data = 2
        begin
        group
            begin
            display "selected numbers will show up on the table layout:"
            input dropdown "Choose your number:
            1:= number 00
            2:= number 0
            3:= number 1
            4:= number 2
            5:= number 3
            6:= number 4
            7:= number 5
            8:= number 6
            9:= number 7
            10:= number 8
            11:= number 9
            12:= number 10
            13:= number 11
            14:= number 12
            15:= number 13
            16:= number 14
            17:= number 15
            18:= number 16
            19:= number 17
            20:= number 18
            21:= number 19
            22:= number 20
            23:= number 21
            24:= number 22
            25:= number 23
            26:= number 24
            27:= number 25
            28:= number 26
            29:= number 27
            30:= number 28
            31:= number 29
            32:= number 30
            33:= number 31
            34:= number 32
            35:= number 33
            36:= number 34
            37:= number 35
            38:= number 36" record"number"data
            end
        end
    if record"S"data = 1
        begin
        if record"W"data = 2
            begin
            generate random number between 1&38 record"number"data
            end
            else
            begin
            generate random number between 2&38 record"number"data
            end
        end
        put 100% record"number"data record"numbers"layout index
        if record"numbers"layout not found record"group"layout
            begin
            copy record"numbers"layout record"group"layout
            add 1 record"group"layout index
            end
            else
            begin
            subtract 1 record"go"data
            end
        put 25 record"group"layout list
        add 1 record"go"data
        end
    end

copy number 00 record"test"layout
if record"test"layout is found in record"group"layout
    begin load Double Wheel end
put 25 record"group"layout list
group
    begin
    display "Atila Progression v1"
    display "CHECK YOUR NUMBERS ON THE LAYOUT"
    display "AND"
    display "LET'S START"
    end
call "reset"
end

method "reset"
begin
put 0 all bets
clear record"pro"data
put 1 record"go"data
loop until record"go"data > record"N"data
    begin
    put 1 record"pro"data
    add 1 record"pro"data index
    add 1 record"go"data
    end
put 100% bankroll record"high"data
end

method "update progression"
begin
//find lowest
put 999999 record"min"data
put 1 record"pro"data index
loop until record"pro"data index > record"pro"data count
    begin
    if record"pro"data < record"min"data
        begin
        put 100% record"pro"data record"min"data
        put 100% record"pro"data index record"here it is"data
        end
    add 1 record"pro"data index
    end
put 100% record"here it is"data record"pro"data index
add 1 record"pro"data
end