Author Topic: can you change this one please spin ?  (Read 2275 times)

0 Members and 1 Guest are viewing this topic.

D1

• New
• Posts: 2
can you change this one please spin ?
« on: August 28, 2015, 10:35:02 PM »
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";
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
end
else
begin
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

Sp1N-D1zZy

• Moderator
• New
• Posts: 75
• Thanked: 1 times
• Gender:
Re: can you change this one please spin ?
« Reply #1 on: August 29, 2015, 01:29:44 PM »

I've modified it so that it will bet just enough units so that if there is a win then your bank will be at a new high.

Happy experimenting,
Spin.

system "Positional_System ver 2"
{
*************************************
*      System by Jack Kennedy       *
*          Modified by D1           *
*           on roulette30           *
*************************************
Rx-ed by UX Software
Modified by Sp1N-D1zZy
-------------------------------------
00-c0mpatible
-------------------------------------
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 bets enough units to make a new high on a win.
}
method "main"
begin
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;
group
begin
display "Positional System";
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
end else begin
end
exit
end
if Any Inside Bet has won each time
begin
put 100% bankroll record"Start Bank"data
set flag "Ready to bet" to false
put 0 on record "Total spin count" data;
put 1 on record "Progression" data;
end
if flag "Ready to bet" is false
begin
copy last number to record "Last spin" layout;
set flag "Ready to bet" to true;
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
put 100% record"Start Bank"data record"Bank Loss"data
subtract 100% bankroll record"Bank Loss"data
put 100% record"Bank Loss"data record"Unit"data
divide 32 record"Unit"data
put 0 record"First Number"data
put 1 record"Second Number"data
loop until flag "Truncated" true
begin
if record"Unit"data <= record"Second Number"data and
record"Unit"data >= record"First Number"data
begin
put 100% record"Second Number"data record"Bet Unit"data
set flag "Truncated" true
end
end
set flag "Truncated" false
call "Place bets";
add 1 to record "Total spin count" data;
end
end

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 "Bet Unit" data to record "Numbers to bet" layout;
add 1 to record "Numbers to bet" layout index;
end
end

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;
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
end
end

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;
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
end
end

D1

• New
• Posts: 2
Re: can you change this one please spin ?
« Reply #2 on: August 29, 2015, 01:59:39 PM »
Thanks spin

Trilobite

• Mature Member
• Posts: 349
• Thanked: 131 times
Re: can you change this one please spin ?
« Reply #3 on: September 06, 2015, 01:46:19 AM »
You need to add a realistic table limit and reset for this one when using the progression.

Otherwise it will just win and win and win forever, Disneyland style.
« Last Edit: September 06, 2015, 01:49:32 AM by Trilobite »