Double Streets Stepladder
(n.d. | n.d.) Giocare la sestina più frequente in 6 boules con una progressione a salire in perdita e scendere in vincita (scalare).
Double_Streets_Stepladder.dgt
—
Xtreme,
10 KB (10848 bytes)
Contenuto del file
system "Double_Streets_Stepladder"
{Stepladder - the example here is played on the double streets (line bet)
Bets start at 1u and gradually increase to a maximum of 20u
You go up the ladder on a loss and down on a win - the aim being to get back to
step 1 ASAP.
=================================================================
Note: If any Zeros come up, we skip them since they do not have any nearest areas to bet
=================================================================
Track the last six (6) spins and find a dominant Double Street before betting.
After a win, find a new dominant Double Street
=================================================================
}
method "main"
begin
While Starting a New Session
begin
Call "Initialize";
call "Input Data";
exit;
end
Call "Track Spins";
Call "Find Double Streets";
While Flag "1" is True
And Any Inside Bet has lost each time
begin
Add 1 to Record "Progression" Data index;
end
While Flag "1" is True
And Any Inside Bet has won each time
And Record "Progression" Data index > 1
begin
Subtract 6 on Record "Progression" Data index;
Set Flag "1" to False;
end
While Record "Progression" Data index > 35
Or Record "Progression" Data index < 1
begin
Put 1 on Record "Progression" Data index;
end
{=================================================================
Check if Flag is False, then get New Dominant Street
=================================================================
}
While Flag "1" is False
begin
Call "Find Double Streets";
end
Call "Make Bet";
end
method "Make Bet"
begin
Put 100 % of Record "Progression" data on Record "Last Spin Number" layout;
end
//==================================================================
//Section below is Added to Find a Dominant Street from the last 6 spins
//==================================================================
method "Find Dominant Double Street"
begin
Set Max Record "Line (Double Street) Layout" Layout index;
put 100% Record "Line (Double Street) Layout" Layout index to
Record "Line (Double Street) Layout" Data index;
Put 0 on Record "temp data" data;
Loop until Record "Line (Double Street) Layout" Data index = 0
begin
While Record "Line (Double Street) Layout" data >= Record "temp data" data
begin
Copy Record "Line (Double Street) Layout" layout to the Record "Last Spin Number" layout;
Put 100 % of Record "Line (Double Street) Layout" data on Record "temp data" data;
end
Subtract 1 to Record "Line (Double Street) Layout" Layout index;
Subtract 1 to Record "Line (Double Street) Layout" Data index;
end
Set Max to Record "Line (Double Street) Layout" Layout index;
end
method "Find Double Streets"
begin
While Record "Tracked Spins" Layout index < 6
begin
Exit;
end
While Flag "1" is True
begin
Return;
end
Clear Record "Line (Double Street) Layout" data;
put 1 to Record "Tracked Spins" Layout index;
Loop until Record "Tracked Spins" Layout index > Record "Tracked Spins" Layout count
begin
Call "Calculate Double Street from Tracked Spins";
Add 1 to Record "Tracked Spins" Layout index;
end
Set Max to Record "Tracked Spins" Layout index;
Call "Find Dominant Double Street";
Set Flag "1" to True;
end
method "Calculate Double Street from Tracked Spins"
begin
While Record "Tracked Spins" layout = Number 1
Or Record "Tracked Spins" layout = Number 2
Or Record "Tracked Spins" layout = Number 3
begin
put 1 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 4
Or Record "Tracked Spins" layout = Number 5
Or Record "Tracked Spins" layout = Number 6
begin
put 1 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 2 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 7
Or Record "Tracked Spins" layout = Number 8
Or Record "Tracked Spins" layout = Number 9
begin
put 2 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 3 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 10
Or Record "Tracked Spins" layout = Number 11
Or Record "Tracked Spins" layout = Number 12
begin
put 3 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 4 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 13
Or Record "Tracked Spins" layout = Number 14
Or Record "Tracked Spins" layout = Number 15
begin
put 4 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 5 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 16
Or Record "Tracked Spins" layout = Number 17
Or Record "Tracked Spins" layout = Number 18
begin
put 5 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 6 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 19
Or Record "Tracked Spins" layout = Number 20
Or Record "Tracked Spins" layout = Number 21
begin
put 6 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 7 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 22
Or Record "Tracked Spins" layout = Number 23
Or Record "Tracked Spins" layout = Number 24
begin
put 7 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 8 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 25
Or Record "Tracked Spins" layout = Number 26
Or Record "Tracked Spins" layout = Number 27
begin
put 8 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 9 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 28
Or Record "Tracked Spins" layout = Number 29
Or Record "Tracked Spins" layout = Number 30
begin
put 9 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 10 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 31
Or Record "Tracked Spins" layout = Number 32
Or Record "Tracked Spins" layout = Number 33
begin
put 10 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
put 11 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
While Record "Tracked Spins" layout = Number 34
Or Record "Tracked Spins" layout = Number 35
Or Record "Tracked Spins" layout = Number 36
begin
put 11 to Record "Line (Double Street) Layout" Data index;
Add 1 to Record "Line (Double Street) Layout" data;
end
end
method "Track Spins"
begin
While Number 0 has hit each time
Or Number 00 has hit each time
begin
Return;
end
Else
begin
add 1 to Record "Tracked Spins" Layout index;
Copy last Number to Record "Tracked Spins" layout;
Add 1 on Record "Total Tracked Spins" data;
if Record "Tracked Spins" Layout index>6 then
begin
Move List Up by 1 to Record "Tracked Spins" Layout;
Set Max Record "Tracked Spins" Layout index;
end
end
end
method "Initialize"
begin
Clear All Records;
set list [1,1,1,1,1,2,2,2,2,3,3,3,4,4,4,
5,5,6,6,7,7,8,8,9,10,10,11,12,
13,14,15,16,17,18,19,20] of Record "Progression" data;
Copy list [Line(1-6),Line(4-9), Line(7-12),
Line(10-15),Line(13-18),Line(16-21),
Line(19-24),Line(22-27),Line(25-30),
Line(28-33),Line(31-36)] to Record "Line (Double Street) Layout" layout;
Clear Record "Tracked Spins" layout;
Put 1 on Record "Current step in progression" data;
Clear Record "Current step in progression" data;
Clear Record "Starting Bankroll" data;
Clear Record "Last Spin Number" data;
Clear Record "Straight-up Number that we will target" data;
Clear Record "Table Layout (1=European, 2=American)" data;
Set Flag "1" to False;
Put 1 to Record "Spins to track" data;
Clear Record "Total Tracked Spins" data;
Return;
end
method "Input Data"
begin
Group
begin
Input Dropdown "What Table Layout do you want to use?
1:=European Layout
2:=American Layout" to Record "Table Layout (1=European, 2=American)" data;
Input Data "Enter your starting Bankroll." to Record "Starting Bankroll" data;
end
Put 100 % of Record "Starting Bankroll" data on Bankroll;
While Record "Table Layout (1=European, 2=American)" data = 1
begin
Load Single Wheel;
end
Else
begin
Load Double Wheel;
end
end
