Quick Profit System v1

Contenuto del file

system "Quick_Profit_System_v1"
{
 Quick_Profit_System_v1 (Designed and coded by Chicko73)

 This system is based on pattern repetition.
 In this case we track back i.e. 41 spins and then we
 look back x number of spins i.e. 15 to see if the number (15 spins ago) was a repeat or not.
 A repeat is marked as "+", not a repeat is marked as "-".
 A sample sequence of spins could look:

 start >>  ......++++++-++++(+)+--++-++++-++(+)......  >> end
                            15  <--------    0

 So, we look back 15 spins in the sequence and if we have
 a "+" we place a 1 unit bet on all the currunt sleepers (usually 10 - 13 numbers).
 We bet that the next number will be a "-", or in other words we'll hit a sleeper.
 If when we look back 15 spins there is a "-" or "--" or longer then we simply
 wait until there is a "+" to place our bets, as simple as that!
 I follow a betting progression (1,1,2,3,4,6,9,14) that recovers the losses most of
 the time, however, feel free to experiment with different progressions.
 To modify the progression look on the bottom in the Method "Initialize",
 there you can modify the following line:
 set list of [1,1,2,3,4,6,9,14] to record "Betting Progression" data;
 You can put any legth of numbers you like.

}
method "main"
begin

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

    Call "Check When To Bet"
    Call "Bankroll Check"
    Call "Bet"
end

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

Method "Check When To Bet"
begin
    Copy Last Number to Record "last number" layout

    //Keep track of the last 'x' spins and record win (1) or loss (0)
    If Record "spin list" layout count > Record "x Spins To Look Back" data then
    begin
        Move List Down by 1 of the items located in Record "spin list" layout
        Put 0 on Record "spin list" layout index
    end

    If Record "last number" layout is Found within Record "last N numbers" layout
    And Record "last N numbers" layout index >= Record "# Of Spins To Track" data
    begin
        Copy Number 1 to Record "spin list" layout
    end
    else
    begin
        Copy Number 0 to Record "spin list" layout
    end

    Add 100% of Record "x Spins To Look Back" data on Record "spin list" layout index
    if Record "spin list" layout = Number 1
    begin
        Set Flag "Ready to Bet" to True
    end
    else
    begin
        Set Flag "Ready to Bet" to False
    end
    Track last Number for Record "# Of Spins To Track" data spins to
                                            Record "last N numbers" layout
end


Method "Place Bets"
begin
    Add 1 to Record "Betting Progression" data index
    Put 100% of Record "Betting Progression" data on Record "Single wheel" layout list
    Put 0 units on Record "last N numbers" layout list

end

Method "Bet"
begin
    If Record "Betting Progression" data index >
                    Record "Betting Progression" data count
    begin
        Stop Session;
    end
    If Any Inside Bet has won each time
    begin
        Put 0 on Record "Betting Progression" data index
    end

    If Flag "Ready to Bet" is True
    begin
        Call "Place Bets"
    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 "Input Data"
begin
    Group
    begin
        display "Quick Profit System v1"
        display "------------------------------------"
        Input Data "Enter your starting Bankroll:" to Record "Starting Bankroll" data;
        Input Data "Enter your Win Goal Units (i.e.400)?" to Record "Win Goal" data;
        Input Data "Enter your Loss Goal Units(i.e.200)?" to Record "Loss Goal" data;
        Input Data "Enter # Of Spins To Track (i.e. 39):" to Record "# Of Spins To Track" data;
        Input Data "Enter 'X' # Of Spins To Look Back (i.e. 15):"
                                        to Record "x Spins To Look Back" 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;

    set list of [1,1,2,3,4,6,9,14] to record "Betting Progression" data;

    Put 0 on Record "Betting Progression" data index

    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