Goran System

Contenuto del file

system "Goran_System"

{Goran System
Start by selecting a Even Money layout to place bets
Put 2 units on the even money. Play this way 10 times. After that check result.
If You won 6 or more times reduce Your bet to 1 unit;
If You won 5 times -continue 2 unit bet on the layout; if You won 4 times or
less make  Your bet higher - 3 units.
Play this way next 10 spins (i.e. till 20th spin). Now check result again.
  If You won 55% or more (i.e. 11 times or more) then reduce Your bet for
  1 unit. If You won 45% (9 times) or less make Your bet 1 unit higher.
Otherwise, continue the same bet!
Initialize data record area and Flags
}
method "main"
begin
    While Starting a New Session
    begin
        Call "Input Layout";
        Clear Record "Even Money Layout" data;
        Clear Record "Play count" data;
        Clear Record "Number of times Even Money layout Wins" data;
        Clear Record "Bet Units" data;
        Clear Record "Win percentage result" data;
        Clear Record "Spin count" data;
        Set Flag "Pass 2 set" to false;
        Put 0  on Record "Spin count" data;
        Put 0  on Record "Play count" data;
        Put 0  on Record "Number of times Even Money layout Wins" data;
        Put 0  on Record "Win percentage result" data;
        Put 2  on Record "Bet Units" data;
        Set Flag "Pass 2 set" to False;
        call "Make Bet";
        exit;
    end
    
    //On each spin, add on number (unit) to record "Spin Count" and "Play Count"
    While On each Spin
    begin
        Add 1  on Record "Spin count" data;
        Add 1  on Record "Play count" data;
    end
    
    {If Even Money Layout wins, then add one number (unit) to
                        "number of time Even Money Layout Wins" record record}
    While Record "Even Money Layout" layout has won each time
    begin
        Add 1  on Record "Number of times Even Money layout Wins" data;
    end
    
    //When "Play count" equal 10, perform a Check results
    While Record "Play count" data = 10
    begin
        Call "Check results";
    end
    
    call "Make Bet";
end

//Determine which results to Check, the first 10 spins or after 20 spins
//Flag "Pass 2 set" is true after we check for the first 10 spins
method "Check results"
begin
    While Flag "Pass 2 set" is True
    begin
        Call "Pass 2 results";
    end
    Else
    begin
        Call "Pass 1 results";
    end
    
    Put 0  on Record "Play count" data;
end

//Pass 1 results checks to see if we won 6 or more, 5 or 4 or less and set the
// Bet units per instructions
method "Pass 1 results"
begin
    While Record "Number of times Even Money layout Wins" data = 6
    begin
        Put 1  on Record "Bet Units" data;
    end
    
    While Record "Number of times Even Money layout Wins" data = 5
    begin
        Put 2  on Record "Bet Units" data;
    end
    
    While Record "Number of times Even Money layout Wins" data = 4
    begin
        Put 3  on Record "Bet Units" data;
    end
    
    Set Flag "Pass 2 set" to True;
end

{Pass 2 results, we check the percentage and set the Bet unit per instruction
To properly perform a % calculation, we first copy Number of times Even Money
Layout Wins to Win percentage result record record then we multiply that record
by 100 (units). Then we divide the Spin count by Win percentage to get a
WHOLE number Percentage (for example 55)
}
method "Pass 2 results"
begin
    Put 100 % of Record "Number of times Even Money layout Wins" data on
                                            Record "Win percentage result" data;
    Multiply 100  on Record "Win percentage result" data;
    Divide By 100 % of Record "Spin count" data on
                                            Record "Win percentage result" data;
    
    While Record "Win percentage result" data >= 55
    begin
        Subtract 1  on Record "Bet Units" data;
    end
    
    While Record "Win percentage result" data <= 45
    begin
        Add 1  on Record "Bet Units" data;
    end
    
    While Record "Bet Units" data < 1
    begin
        Put 1  on Record "Bet Units" data;
    end
end

//This is where the Bet is place on Red.  The Bet amount comes from
//record "Bet Units"
method "Make Bet"
begin
    Put 100 % of Record "Bet Units" data on Record "Even Money Layout" layout;
end

//******************************************************************************
//Standard INPUT for Even Money Layout Selection
//Put Even Money Layout in record # 0
//******************************************************************************
method "Input Layout"
begin
    Input Dropdown "Make a Layout Selection
              
              1:=Even
              2:=Odd
              3:=Red
              4:=Black
              5:=High (19-36)
              6:=Low (1-18)" to Record "Even Money Layout" data;

    While Record "Even Money Layout" data = 1
    begin
        Copy Even to the Record "Even Money Layout" layout;
    end
    Else
    begin
        While Record "Even Money Layout" data = 2
        begin
            Copy Odd to the Record "Even Money Layout" layout;
        end
        Else
        begin
            While Record "Even Money Layout" data = 3
            begin
                Copy Red to the Record "Even Money Layout" layout;
            end
            Else
            begin
                While Record "Even Money Layout" data = 4
                begin
                    Copy Black to the Record "Even Money Layout" layout;
                end
                Else
                begin
                    While Record "Even Money Layout" data = 5
                    begin
                        Copy high to the Record "Even Money Layout" layout;
                    end
                    Else
                    begin
                        While Record "Even Money Layout" data = 6
                        begin
                            Copy low to the Record "Even Money Layout" layout;
                        end
                    end
                end
            end
        end
    end
end