Plus Minus progression tester

Contenuto del file

system "Plus / Minus progression tester"

{
It's based on playing a straight up number.
We note the balance after a win
If the balance is more than what it was after the last win,
we simply remove "X" units from the bet amount.
If the balance is less than what it was after the last win,
we simply add "X" units to the bet amount.
If the balance is identical to what it was after the last win,
we keep the unit size as it is.
We reset the betting amount to the min (1) on any new high balance.
User inputs the amount to add and subtract}

method "main"
begin
while starting a new session begin
put 1 on record "bet" data
put 100% of bankroll on record "high" data
put 100% of bankroll on record "lastwin" data
input data "Amount to increase" to record "plus" data
input data "Amount to decrease" to record "minus" data
end

// number wins (what to do) :
if number 0 hit each time begin
// we gained since last win so drop bet amount by 1 :
if bankroll > record "lastwin" data begin
subtract 100% of record "minus" data from record "bet" data
if record "bet" data <1 begin
put 1 on record "bet" data end end
// we lost since last win so increase bet by 3 :
if bankroll < record "lastwin" data begin
add 100% of record "plus" data to record "bet" data end
// we are even since last win so do nothing :
if bankroll = record "lastwin" data begin end
// check for a new high balance to reset bet amount :
if bankroll > record "high" data begin
put 1 on record "bet" data
put 100% of bankroll on record "high" data
put 100% of bankroll on record "lastwin" data end
// reset the last win amount to the current amount :
put 100% of bankroll on record "lastwin" data
end

// place bet :
put 100% of record "bet" data on number 0

// finished :
end