Turbos' 35 unit modification

Contenuto del file

system "Modification_of_Turbos_35_unit_method_v.1"
{
    Modification of Turbo's "35 unit" method v.1
    Record 37 spins and make a list of all the sleepers.
    Continue without bets until a sleeper from the list is hit, then place
    1 unit on it, continue until another sleeper is hit, then place 1 unit on it, etc.
    If a sleeper is hit again it should now have 2 units placed on it, if it's hit 3 times
    3 units on it, etc...
    Continue for another 37-45 spins or so and see if in profit.
    Longer sessions become dangerous because the weight of units placed
    on the table become very big.

    (Coded by Chicko73)
}
method "main"
begin

    while Starting a new Session //initialize a new session
    begin
        Call "Initialize";
        Call "Input Data";
        exit;
    end

    Call "Track Spins"
    While Flag "Ready to Bet" is False
    begin
        Call "Find Numbers that did not hit"
    end

    Call "Bankroll Check"
    Call "Bet"

end


//--------------------------( Method Declarations: )------------------------------


Method "Bet"
begin
    If Flag "Ready to Bet" is True
    begin
        Copy last Number to the Record "Last Number" layout
        Put 1 on record "Numbers with No Hits" layout index
        Loop until Record "Numbers with No Hits" Layout Index >
                        Record "Numbers with No Hits" Layout count
        begin
            If Record "Numbers with No Hits" layout has hit each time
            begin
                Copy last Number to the Record "Numbers With Bets" layout
                Put 1 on record "Numbers With Bets" layout index
                Loop until Record "Numbers With Bets" Layout Index >
                                    Record "Numbers With Bets" Layout count
                begin
                    Add 1 to Record "Numbers with Bets" layout index
                end
            end
            Add 1 to Record "Numbers with No Hits" layout index
        end
        Subtract 1 from Record "Numbers with Bets" layout list
        Add 1 to Record "Numbers with Bets" layout list
    end
end


method "Bankroll Check"
begin

    While Bankroll >= Record "Win Goal total Bankroll" data
    begin
        Display "Your Win Goal of has been reached.
                  The Session will End.";
        Stop Session;
    end

    While Bankroll < Record "Loss Limit total Bankroll" data
    begin
        Display "Your Loss Goal has been reached.
                  The Session will End.";
        Stop Session;
    end
end


method "Find Numbers that did not hit"
begin
    Clear record "Numbers with No Hits" layout;
    put 1 on record "Numbers with No Hits" layout index;
    Put 1 on record "Single wheel" layout index;

    Loop until record "Single wheel" Layout Index >
                record "Single wheel" Layout count
    begin
        Call "Find a match in wheel";
        Add 1 on Record "Single wheel" layout index;
    end
end

//Performs a comparison and finds a match
method "Find a match in wheel"
begin
    Put 1 on record "Tracked Spins" Layout index;

    Loop until record "Tracked Spins" Layout Index >
                record "Tracked Spins" Layout count
    begin
        If Record "Single wheel" layout = Record "Tracked Spins" layout
        begin
            Return;
        end

        Add 1  on Record "Tracked Spins" layout index;
    end

   //No match, then move the Number that did not hit to the No Hits list
    Copy record "Single wheel" layout to record "Numbers with No Hits" layout;
    Add 1 to record "Numbers with No Hits" layout index;
end

method "Track Spins"
begin
    Set Max to record "Tracked Spins" Layout index;
    Add 1  on Record "Tracked Spins" Layout index;
    Copy last Number to the Record "Tracked Spins" layout;

    if record "Tracked Spins" Layout index > 37 then
    begin
        Move List Up by 1 on record "Tracked Spins" Layout;
        Set Max to record "Tracked Spins" Layout index;
        Set Flag "Ready to Bet" to True
    end
end



method "Input Data"
begin
    Group
    begin
        Input Data "Enter your starting Bankroll:" to Record "Starting Bankroll" data;
        Input Data "Enter your Win Goal Units?" to Record "Win Goal" data;
        Input Data "Enter your Loss Goal Units?" to Record "Loss Goal" data;
    end

    Put 100 % of Record "Starting Bankroll" data on Bankroll;
    Put 100 % of Bankroll on Record "Loss Limit total Bankroll" data;
    Put 100 % of Bankroll on Record "Win Goal total Bankroll" data;
    Add 100 % of Record "Win Goal" data on Record "Win Goal total Bankroll" data;
    Subtract 100 % of Record "Loss Goal" data on Record "Loss Limit total Bankroll" data;
end



method "Initialize"
begin
    Load Single Wheel;

    Clear Record "Tracked Spins" data;
    Clear Record "Numbers with No Hits" layout;
    Clear Record "Numbers With Bets" layout;
    Set Flag "Ready to Bet" to False

    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 "Single wheel" layout;
end