Positional System

Contenuto del file

system "Positional_System"
{
    This system is similiar to the one developed by Jack Kennedy.
    
    System is based on the fact that you play 4 positions either clockwise or
    counter clockwise to the number which last hit and the same color.

    If we choose to bet from counter clockwise and 17 black hits, we to play 4 positions
    counter clockwise which would be Black number of 2,4,15,26.

    If we choose to bet from clockwise and 25 red hits, we to play 4 positions
    clockwise which would be Red numbers of 34,27,36,30.
    
    This system uses a Flat bet of 1 unit on each number.
}
method "main"
begin
    //initialize some stuff when a NEW session starts
    while starting a new session
    begin
        clear record "Last spin" layout;
        put 1 on record "Wheel position" data;
        put 1 on record "Progression" data;
        put 0 on record "Total spin count" data;
        set flag "Ready to bet" to false;
        
        //put all data input onto one form.
        group
        begin
            display "Positional System";
            //ask for which direction?
            input dropdown "Direction to place bets from?

                            1:=Clockwise
                            2:=Counter clockwise" to record "Direction" data;
            input dropdown "Table type

                            1:=Single Zero
                            2:=Double Zero" to record "table index" data;
        end

        if record "table index" data = 1 then
        begin
            load single wheel;
        end
        else
        begin
            load double wheel;
        end

        exit; //exit here and wait for the next spin
    end

    if Any Inside Bet has won each time
    begin
        set flag "Ready to bet" to false;//we WON so, get a new last number
        put 0 on record "Total spin count" data;
        put 1 on record "Progression" data;
    end

    if flag "Ready to bet" is false
    begin
        //get the last number that came up
        copy last number to record "Last spin" layout;
        set flag "Ready to bet" to true;

        //get 4 numbers to bet from wheel
        if record "Direction" data = 2 then
        begin
            call "Get numbers counter clockwise";
        end
        else
        begin
            call "Get numbers clockwise";
        end
    end
    
    if flag "Ready to bet" to true
    begin
        //if no hits after 20 spins, increase progression bet
        if record "Total spin count" data > 20 spins
        begin
            add 1 to record "Progression" data;
            
            if record "Progression" data > 27
            or record "Total spin count" data > 57 spins
            begin
                put 27 on record "Progression" data;//set maximum of 27
            end
        end
        
        call "Place bets";
        add 1 to record "Total spin count" data;
    end
end

//loop routine to place bets that are located in data record "Numbers to bet"
method "Place bets"
begin
    put 1 on record "Numbers to bet" layout index;

    Loop Until record "Numbers to bet" layout index > 4
    begin
        put 100% of record "Progression" data to record "Numbers to bet" layout;
        add 1 to record "Numbers to bet" layout index;
    end
end

{loop routine to move counter clockwise around the wheel
 and store each other number (same color) to a data record
 called "Numbers to bet".  These numbers will be used later to place
 bets.
}
method "Get numbers counter clockwise"
begin
    put 7 on record "Position Max" data;
    put 1 on record "Numbers to bet" layout index;
    put 1 on record "Wheel position" data;

    Loop Until record "Wheel position" data > record "Position Max" data
    begin
        Locate Number Left of Record "Wheel position" data from the
                               Record "Last spin" Layout to
                               Record "Numbers to bet" Layout;

        //Adjust position if around the 0 to get the correct color.
        if record "Numbers to bet" layout = Number 0
        or record "Numbers to bet" layout = Number 26
        begin
            if record "Position Max" data not = 8
            begin
                put 8 on record "Position Max" data;
                add 1 to record "Wheel position" data;
                Locate Number Left of Record "Wheel position" data from the
                                       Record "Last spin" Layout to
                                       Record "Numbers to bet" Layout;
            end
        end
        add 2 to record "Wheel position" data;
        add 1 to record "Numbers to bet" layout index;//move pointer
    end
end

{loop routine to move clockwise around the wheel
 and store each other number (same color) to a data record
 called "Numbers to bet".  These numbers will be used later to place
 bets.
}
method "Get numbers clockwise"
begin
    put 7 on record "Position Max" data;
    put 1 on record "Numbers to bet" layout index;
    put 1 on record "Wheel position" data;

    Loop Until record "Wheel position" data > record "Position Max" data
    begin
        Locate Number Right of Record "Wheel position" data from the
                               Record "Last spin" Layout to
                               Record "Numbers to bet" Layout;

        //Adjust position if around the 0 to get the correct color.
        if record "Numbers to bet" layout = Number 0
        or record "Numbers to bet" layout = Number 32
        begin
            if record "Position Max" data not = 8
            begin
                put 8 on record "Position Max" data;
                add 1 to record "Wheel position" data;
                Locate Number Right of Record "Wheel position" data from the
                                       Record "Last spin" Layout to
                                       Record "Numbers to bet" Layout;
            end
        end
        
        add 2 to record "Wheel position" data;
        add 1 to record "Numbers to bet" layout index;//move pointer
    end
end