2 dozen progression

Contenuto del file

system "2-dozen progression"
{
2-dozen progression
Wait for 2 unique dozens in a row then bet on them as below.
On a loss go up by 1u, then 2u, then 3u.... reset on new profit high.
On a win with no new profit high, repeat the same bet.
}
method "main"
begin
while starting a new session
begin
set list [5,10,20,35,55,80,110] on record "pro" data
copy list [1st dozen, 2nd dozen] on record "bet these" layout
put 1 on record "pro" data index
put 0 on record "spins" data
put 50 on record "highbr" data

end




if record "pro" data index >=8
begin
put 1 on record "pro" data index
put 100% bankroll on record "highbr" data
put 0 on record "spins" data
end

call "track"
call "eval"
call "bet"
end
//================================================================
method "track"
begin

if flag "ready" true
begin
call "eval"
end
else
begin
copy 1st dozen on record "temp" layout
if record "temp" layout is found on record "bet these" layout
begin
clear record "bet these" layout
copy list [2nd dozen, 3rd dozen] on record "bet these" layout
set flag "ready" true
end
else
begin
copy list [1st dozen, 2nd dozen] on record "bet these" layout
set flag "ready" true
end
end
end




method "eval"
begin

if record "currentbr" data > record "highbr" data
begin
put 100% record "currentbr" data on record "highbr" data
add 50 on record "highbr" data
put 1 on record "pro" data index
put 1 on record "spins" data
set flag "ready" false
end

if record "currentbr" data < record "highbr" data and any dozen bet won each time
begin
exit
//subtract 1 on record "pro" data index
end


if flag "ready" true and any dozen bet lost each time
begin
add 1 on record "pro" data index
end
end


method "bet"
begin
if flag "ready" true
begin
put 100% bankroll on record "currentbr" data
put 100% record "pro" data on record "bet these" layout list
end
end