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 TVG1 System

TVG1 System

Xtreme icon TVG1_System.dgt — Xtreme, 3 KB (3927 bytes)

Contenuto del file

system "TVG1_System"
{
TVG1 - System
See VIP lounge website board for instructions
http://gambling.projectsydney.com/viewtopic.php?t=143&highlight=175+00
}
method "main"
begin
    While Starting a New Session
    begin
        Call "Initialize";
        Call "Input Data";
        Exit;
    end

    Call "Track Spins";
    Call "Determine Win/Loss";
    Call "Determine if Exceeded Progression";
    Call "Make Bet";
end

method "Make Bet"
begin
    Put 100% of record "Progression" data index to
                    record "temp" data;
                    
    Put 1 on record "Tracked Spins" Layout index;
    
    Loop until record "Tracked Spins" Layout index >
                        record "Tracked Spins" Layout count
    begin

        Put 100% of record "Progression" data on record "Tracked Spins" layout;
        Add 1 to record "Tracked Spins" layout index;
    end
end

method "Determine Win/Loss"
begin
    While Any Number Bet has won each time
    begin
        Put 1 on record "Progression" data index;
        Clear Record "Tracked Spins" Layout;
        Call "Track Spins";
        Return;
    end
    
    While Any Number Bet has lost each time
    begin
        Add 1 on Record "Progression" Data index;
    end
end

method "Determine if Exceeded Progression"
begin
    If Record "Progression" Data index > Record "Progression Index" data
    begin
        Display "Maximum Progression Exceeded. Session Ends.";
        Stop Session;
    end
end

method "Track Spins"
begin
    If record "Tracked Spins" Layout count <5
    begin
        Copy last number to record "Tracked Spins" Layout;
        Add 1 to record "Tracked Spins" Layout index;
    end
return;

    Copy last Number to the Record "Pointer to Next Spin to Track" layout;
    Add 1 on Record "Tracked Spins" Layout index;
     //Old Ref # pointer.  Uses index as pointer
    Add 1  on Record "Pointer to Next Spin to Track" data;
end

method "Initialize"
begin
    Clear Record "Starting Bankroll" data;
    Set List [5,3,2,2,1,2,2,2,3,3,3,4,5,5,6,7,8,
              10,11,13,15,17,20,23,27,31,36,42,
              49,57,66,77,89,104,120,140,162,189]
                to Record "Progression" data;
    Put 21  on Record "Progression Index" data;
    Clear Record "Tracked Spins" Layout;
    Clear Record "Total Progession Counter" data;
    Clear Record "Table Layout" data;
    Put 100% of Bankroll to record "Starting Bankroll" data;
end

method "Input Data"
begin
    Set Flag "Input Ok" to False;

    Loop Until Flag "Input Ok" is True
    begin
    Group
        begin
            Input Dropdown "What Table Layout do you want to use?

                      1:=European Layout
                      2:=American Layout" to Record "Table Layout" data;
            Input Data "Enter your starting Bankroll." to Record "Starting Bankroll" data;
            Input Data "Enter your Maximum Progression Count

                      from 1 to 38 losses." to Record "Progression Index" data;
        end

        Put 100 % of Record "Starting Bankroll" data on Bankroll;

        //=================================================================
        //Check Progression count range
        //=================================================================
        While Record "Progression Index" data = 0
        Or Record "Progression Index" data > 38
        begin
            Display "Maximum Progression Count Must be between 1 and 38";
        end
        else
        begin
            Set Flag "Input Ok" to True;
        end
    end
    
    //Setup the Table Layout
    //=================================================================
    
    While Record "Table Layout" data = 1
    begin
        Load Single Wheel;
    end
    Else
    begin
        Load Double Wheel;
    end
end