system "4 Chips Bet"
//(copyright) ignatus 2019
method "main"
begin
while starting a new session
begin
Set List[1,2,3,5,7,9,11,12,14,16,18,20,22,25,28,30,32,35,40,45,50,55,60,70,80,90,100,
110,130,150,190,230,275,350]
to Record "progression" Data
end
put 0 to Record "Highest Bankroll" Data
Copy List [Black, 1st dozen, 3rd dozen, Line(16-21)] to Record "Bet" Layout
while on each spin
begin
if total bankroll >= 3000 each time
begin
stop session
end
if total bankroll <= -1000 each time
begin
stop session
end
{If any inside bet lost each
begin
add 1 on Record "progression" Data Index
end
}
add 1 on Record "progression" Data Index
If Any inside bet won each
begin
if Bankroll > Record "Highest Bankroll" Data
begin
clear Record "Highest Bankroll" Data
put 5000% Bankroll to Record "Highest Bankroll" Data
put 1 on Record "progression" Data Index
end
end
put 100% of Record "progression" Data on Record "Bet" Layout list
If Record "progression" Data Index >
Record "progression" Data Count
Begin
Put 1 on Record "progression" Data Index
End
end
END