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 456 turbo street

456 turbo street

(Turbogenius | n.d.) .

Xtreme icon 456_Turbo_Street.dgt — Xtreme, 4 KB (4430 bytes)

Contenuto del file

system "456 Turbo Street"
{
Designed by TurboGenius

For instructions, go to this url:
http://gambling.projectsydney.com/viewtopic.php?t=598&postdays=0&postorder=asc&start=0
}
method "main"
begin
    while starting a new session
    begin
        //initialize
        put 100% of bankroll to record "High Bankroll" data;
        clear record "Last street" layout;
        clear record "Track streets" layout;
        clear record "Streets to bet" layout;
        put 1 on record "Progression" data;
        set flag "Repeat" to false;
        set flag "Found" to false;
        exit;
    end

    if flag "Repeat" is true
    begin
        //check win or loss
        call "Check win/loss";
    end

    //track the streets
    call "Track street";

    if flag "Repeat" is true
    begin
        //place the bets
        call "Place bets";
    end
end

//Track streets and look for a repeat
method "Track street"
begin
    copy last street to record "Last street" layout;

    //this section looks for a repeat.  If one is found, then move
    //the streets between the repeat to Streets to bet record
    call "Check for repeat";
    if  flag "Found" is true
    and flag "Repeat" is false
    begin
        call "Remove streets";

        set flag "Repeat" to true;
        clear record "Streets to bet" layout;

        set max to record "Track streets" layout index;

        copy last street to record "Streets to bet" layout;
        put 2 on record "Streets to bet" layout index;

        loop until record "Last street" layout = record "Track streets" layout
        begin
            copy record "Track streets" layout to record "Streets to bet" layout;
            add 1 to record "Streets to bet" layout index;
            subtract 1 from record "Track streets" layout index;
        end
    end

    //Track streets
    set max to record "Track streets" layout index;
    add 1 to record "Track streets" layout index;
    copy last street to record "Track streets" layout;
end

//Do to a bug in version 2.0.12, this method is needed.
//it will be removed in the next version 2.0.13.
//Bug: if record "Last street" layout is found in record "Track streets" layout
//this loop until routine along with a flag "Found" is used instead
method "Check for repeat"
begin
    set flag "Found" to false;
    put 1 on record "Track streets" layout index;

    loop until record "Track streets" layout index > record "Track streets" layout count
    begin
        if record "Last street" layout = record "Track streets" layout then
        begin
            set flag "Found" to true;
            return;
        end

        add 1 to record "Track streets" layout index;
    end
end


//Place bets from the Street to bet record
//use the Progression record to determine how much to bet
method "Place bets"
begin
    put 1 on record "Streets to bet" layout index;

    loop until record "Streets to bet" layout index > record "Streets to bet" layout count
    begin
        put 100% of record "Progression" data to record "Streets to bet" layout;
        add 1 to record "Streets to bet" layout index;
    end
end

//test for a Win or Loss.
//If a loss, add the street to the Street to bet record.
method "Check win/loss"
begin
    if Any Street Bet has won each time
    begin
        call "Check bankroll";
        set flag "Repeat" to false;
    end
    else
    begin
        set max to record "Streets to bet" layout index;
        add 1 to record "Streets to bet" layout index;
        copy last street to record "Streets to bet" layout;
    end
end

//check the bankroll against the High bankroll.
method "Check bankroll"
begin
    if bankroll < record "High Bankroll" data then
    begin
        add 1 to record "Progression" data;
    end
    else
    begin
        //leave this commented out to keep progression at a minimum
        put 100% of bankroll to record "High Bankroll" data;
        put 1 on record "Progression" data;
    end
end

//this performs house-keeping on the Track streets record to keep the
//list manageable.
method "Remove streets"
begin
    put 1 on record "Track streets" layout index;

    loop until record "Last street" layout = record "Track streets" layout
    begin
       move list up by 1 to record "Track streets" layout;
    end
end