Questo sito fa uso di cookie, i cookie introducono una gamma di servizi che migliorano la tua fruizione del sito. Utilizzando il sito si ritiene accettato l'uso dei cookie secondo le nostre linee guida. Per maggiori informazioni clicca qui.

Home Risorse Roulette Xtreme Sistemi Xtreme Against all odds

Against all odds

(Turbogenius | n.d.) .

Xtreme icon Against_all_odds_system.dgt — Xtreme, 9 KB (9977 bytes)

Contenuto del file

system "Against all odds"
{
  Created by TurboGenisu
  
  for documentation visit: http://gambling.projectsydney.com/viewtopic.php?t=478
}
method "main"
begin
    while starting a new session
    begin
        call "initialize";
        call "input";
        call "reset";
        exit;
    end

    if Any Inside Bet has won each time
    or Any Outside Bet has won each time
    begin
        call "reset";
        call "check profit";
    end
    
    if flag "location set" is false
    begin
        call "move to next location";
    end
    
    if record "location index" data = 1 //even
    begin
        call "do even bet";
    end

    if record "location index" data = 2 //dozen
    begin
        call "do dozen bet";
    end

    if record "location index" data = 3 //line (lanes)
    begin
        call "do line bet";
    end

    if record "location index" data = 4 //corner (squares)
    begin
        call "do corner bet";
    end

    if record "location index" data = 5 //street
    begin
        call "do street bet";
    end

    if record "location index" data = 6 //splits
    begin
        call "do split bet";
    end

    if record "location index" data = record "max location index" data //straight
    begin
        call "do straight bet";
    end

    //check if we exceeded max location index
    if  record "location index" data > record "max location index" data
    begin
        call "reset";
        //start at the beginning.
        put 100% Bankroll to record "current bankroll" data;
        put 0 on record "location index" data;
        call "move to next location";
        call "do even bet";
    end
end

method "check profit"
begin
    put 100% of Bankroll to record "profit" data;
    subtract 100% of record "current bankroll" data to record "profit" data;

    if record "profit" data > 0 then
    begin
        put 0 on record "location index" data;
    end
    else
    begin
        subtract 2 to record "location index" data;
        
        if record "location index" data < 0 then
        begin
            put 0 on record "location index" data;
        end
    end
end

method "move to next location"
begin
    set flag "location set" to false;
    
    if number 0 has hit each time
    or number 00 has hit each time
    begin
        exit;
    end

    copy last number to record "last spin" layout;
    add 1 to record "location index" data;
    set flag "location set" to true;
end

method "do straight bet" //straight up
begin
    if record "straight bet" data index > record "straight bet" data count
    begin
        add 1 to record "location index" data;
        return;
    end

    put 100% of record "straight bet" data to record "last spin" layout;
    add 1 to record "straight bet" data index;
    exit;
end

method "do split bet" //splits
begin
    if record "split bet" data index > record "split bet" data count
    begin
        call "move to next location";
        return;
    end

    put 100% of record "split bet" data to Split nearest of record "last spin" layout;
    add 1 to record "split bet" data index;
    exit;
end

method "do street bet" //lanes
begin
    if record "street bet" data index > record "street bet" data count
    begin
        call "move to next location";
        return;
    end

    put 100% of record "street bet" data to Street nearest of record "last spin" layout;
    add 1 to record "street bet" data index;
    exit;
end

method "do corner bet" //lanes
begin
    if record "corner bet" data index > record "corner bet" data count
    begin
        call "move to next location";
        return;
    end

    put 100% of record "corner bet" data to Corner nearest of record "last spin" layout;
    add 1 to record "corner bet" data index;
    exit;
end

method "do line bet" //lanes
begin
    if record "line bet" data index > record "line bet" data count
    begin
        call "move to next location";
        return;
    end

    put 100% of record "line bet" data to Line nearest of record "last spin" layout;
    add 1 to record "line bet" data index;
    exit;
end

method "do dozen bet"
begin
    if record "dozen bet" data index > record "dozen bet" data count
    begin
        call "move to next location";
        return;
    end

    put 100% of record "dozen bet" data to Dozen nearest of record "last spin" layout;
    add 1 to record "dozen bet" data index;
    exit;
end

method "do even bet"
begin
    if record "even bet" data index > record "even bet" data count
    begin
        call "move to next location";
        return;
    end

    if record "last spin" layout is found in record "low" layout
    begin
        copy Low to record "even money" layout;
    end
    else
    begin
        if record "last spin" layout is found in record "even" layout
        begin
            copy Even to record "even money" layout;
        end
        else
        begin
            if record "last spin" layout is found in record "red" layout
            begin
                copy Red to record "even money" layout;
            end
            else
            begin
                if record "last spin" layout is found in record "black" layout
                begin
                    copy Black to record "even money" layout;
                end
                else
                begin
                    if record "last spin" layout is found in record "odd" layout
                    begin
                        copy Odd to record "even money" layout;
                    end
                    else
                    begin
                        if record "last spin" layout is found in record "high" layout
                        begin
                            copy High to record "even money" layout;
                        end
                    end
                end
            end
        end
    end
    
    put 100% of record "even bet" data to record "even money" layout;
    add 1 to record "even bet" data index;
    exit;
end

method "input"
begin
    group
    begin
        display "Turbo's Against All Odds system";
        input data "Enter starting Bankroll" to record "current bankroll" data;
        input dropdown "Table type

                        1:=Single Zero
                        2:=Double Zero" to record "table index" data;
        input dropdown "Bet progression mode
        
                        1:=Conservative
                        2:=Aggressive" to record "prog. index" data;
    end
    
    call "set bet progression";
    
    put 100% of record "current bankroll" data to Bankroll;
    
    if record "table index" data = 1 then
    begin
        load single wheel;
    end
    else
    begin
        load double wheel;
    end
end

method "initialize"
begin
    set flag "previous location" to false;
    clear record "last spin" layout;
    clear record "even money" layout;
    put 0 on record "location index" data;

    put 100% of bankroll to record "current bankroll" data;
    put 0 to record "profit" data;
    copy list [number 1, number 3, number 5, number 7, number 9, number 11]
                                to record "low" layout;
    copy list [Number 2, Number 4, Number 6, Number 8, Number 10, Number 12]
                                to record "even" layout;
    copy list [Number 14, Number 16, Number 18, Number 19, Number 21, Number 23]
                                to record "red" layout;
    copy list [Number 13, Number 15, Number 17, Number 20, Number 22, Number 24]
                                to record "black" layout;
    copy list [Number 25, Number 27, Number 29, Number 31, Number 33, Number 35]
                                to record "odd" layout;
    copy list [Number 26, Number 28, Number 30, Number 32, Number 34, Number 36]
                                to record "high" layout;

    set list [1,3,6,12,21,33,52,90] to record "index" data;
end

method "reset"
begin
    put 1 on record "even bet" data index;
    put 1 on record "dozen bet" data index;
    put 1 on record "line bet" data index;
    put 1 on record "corner bet" data index;
    put 1 on record "street bet" data index;
    put 1 on record "split bet" data index;
    put 1 on record "street bet" data index;
    put 1 on record "straight bet" data index;
    set flag "location set" to false;
end

method "set bet progression"
begin
    //conservative mode
    if record "prog. index" data = 1 then
    begin
        put 7 on record "max location index" data;
        set list [1,2] to record "even bet" data;
        set list [1,2,3] to record "dozen bet" data;
        set list [1,2,3,4,5,6] to record "line bet" data;
        set list [1,2,3,4,5,6,7,8,9] to record "corner bet" data;
        set list [1,2,3,4,5,6,7,8,9,10,11,12] to record "street bet" data;
        set list [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,
                  17,18,19] to record "split bet" data;
        set list [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,
                  17,18,19,20,21,22,23,24,25,26,27,28,29,
                  30,31,32,33,34,35,36,37,38] to record "straight bet" data;
    end
    else
    //aggressive mode
    begin
        put 6 on record "max location index" data;
        set list [1,2] to record "even bet" data;
        set list [2,3,5] to record "dozen bet" data;
        set list [3,4,5,6,7,8] to record "line bet" data;
        set list [6,7,8,9,10,11,13,14,16] to record "corner bet" data;
        set list [13,14,16,17,19,20,22,24,26,29,31,34] to record "street bet" data;
        set list [24,26,27,29,31,32,34,36,38,41,43,46,48,
                  51,54,57,61,64,68] to record "split bet" data;
    end
end