hi spin
can you change the progression on this please so the progression keeps going up until it makes a new high total the next time a number hits please ?
I know it means the proggy will probably go out of control on real money but I would love to try it.
If you can help many thanks.
Dave.
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 > 8 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
