' BDalt system ' Plays multiple sessions ' Something to think about: make odds work on come-out roll If initializing script Then clear all(checkstacks) : csn1 = "Flat bet amount" : csn2 = "Initial win (non-zero = shooter won established passline or come, odds go to 5x & add 2nd Come bet)" : csn3 = "Buy-in" : csn4 = "Loss limit" : csn5 = "Loss limit that triggers 75% loss recovery goal" : csn6 = "75% loss recovery goal (0 = goal not triggered)" : csn7 = "Stop on next shooter who delivers a net loss (0 = false)" : csn8 = "Limit reached: 1 = loss limit reached, 2 = 75% recovery reached, 3 = win goal reached" : ' run sim then check Sessions Log and observe CheckStack #8 to see which limit ended each session show message "The BDalt system starts with a Passline bet and a single Come bet with 10x odds on both. " & cr & cr & "Once one of these initial bets wins, a second Come bet is added and all current and future " & "bets (for the current shooter) are regressed to 5x odds." & cr & cr & "A win goal of 15% or more of buy-in is reached when a shooter causes you to lose more money than " & "you won during his hold of the dice." & cr & cr & "A loss limit is set to half your buy-in or 10x the most amount bet at one time whichever is less. " & "The most amount bet would be 2 flat bets with 10x odds which works out to 22 x the flat bet. " & "So for example, for $5 flat bets the max amount bet at one time will be $110 and therefore your " & "loss limit will be $1100 and bankroll should be $2200 or more (recommended to be twice the loss limit.)" & cr & cr & "A 75% loss recovery goal is established when bankroll reaches 80% of loss limit." & cr & cr & "Please ensure the table is configured for 10x odds and uncheck the notice 'Actions not allowed' " & "to prevent nuisance notices from appearing." : "Get flat bet amount" : cs1.flatbet = input( "How much would you like to flat bet?" & cr) : If cs1.flatbet <= 0 Then show message "Flat bet amount must be positive" GoTo "Get flat bet amount" EndIf cs3.buyin = input( "How much would you like to buy-in for?" & cr & cr & "Based on your flat bet amount of $" & cs1.flatbet & cr & "recommended bankroll is $" & cs1.flatbet * 440 & cr) : 'Leaving a loser: ' Set loss limit equal to 10 x the most amount of money that will be on the table at any one time. ' Since, max will be two flat bets each with 10x odds then loss limit = flat bet x 22 cs4.losslimit = smallest(cs1.flatbet * 220, cs3.buyin / 2) : ' If you come "close to" your loss limit but your luck turns around and you recoup 75% of your losses, then ' leave when a shooter costs you more than you won on his roll. ' You'll still be down from what you started with but it's better than losing the full amount. ' So what does "close to" mean? Here, 80% of loss limit is defined as "close to" cs5.lossrecouptrigger = cs4.losslimit * 0.8 : ' 80% of loss limit 'Leaving a winner: ' If you're up a substantial amount (ie several hundred dollars or more), leave with your winnings the first time ' a shooter causes you to lose more money than you won during his hold of the dice. ' If the table is choppy(non - streaky), leave when you're up 15% over your buy-in. autotake full odds = false : autohandle winning bets = "take bet and winnings" : autohandle losing bets = "no bet / take remainder" EndIf If beginning new session Then cs2.initialwin = 0 : cs6.lossrecoup75 = 0 : cs7.stoponnetlossshooter = false : cs8.limitreached = 0 : beginning bankroll = cs3.buyin EndIf : "Check Loss Limit" : If cs7.stoponnetlossshooter = true Then If sum(last shooter last hand total $ net bets) < 0 Then show message "Session finished, net loss last shooter." : start new session(preserve checkstacks) EndIf EndIf If bankroll <= cs3.buyin - cs4.losslimit Then show message "Session finished, loss limit reached!" : cs8.limitreached = 1 : start new session(preserve checkstacks) EndIf If cs6.lossrecoup75 = 0 Then If bankroll <= cs3.buyin - cs5.lossrecouptrigger Then cs6.lossrecoup75 = bankroll + (cs3.buyin - bankroll) * 0.75 : show message "75% loss recovery goal triggered." & cr & cr & "Current bankroll = " & bankroll & cr & "Amount lost = " & cs3.buyin - bankroll & cr & "Bankroll goal is now current bankroll + 75% of amount lost = " & cs6.lossrecoup75 : cs7.stoponnetlossshooter = false : EndIf Else If bankroll >= cs6.lossrecoup75 And cs7.stoponnetlossshooter = false Then show message "75% loss recovery goal reached." & cr & cr & "Betting will stop on next shooter that delivers a net loss." : cs7.stoponnetlossshooter = true : cs8.limitreached = 2 EndIf EndIf : "Check Win Goal" : If bankroll >= cs3.buyin * 1.15 And cs7.stoponnetlossshooter = false Then show message "Win goal triggered." & cr & cr & "Betting will stop on next shooter that delivers a net loss." : cs7.stoponnetlossshooter = true : cs8.limitreached = 3 EndIf : "Wins and Losses" : If (passline wins And last roll was not a comeout roll) Or any(come bets win) Then add 1 on cs2.initialwin ElseIf (passline loses And last roll was not a comeout roll) Or any(come bets lose) Then cs2.initialwin = 0 EndIf : "Make bets" : If next roll is a comeout roll Then bet cs1.flatbet on passline ElseIf a point is established Then If cs2.initialwin = 0 Then If count(come bets) < 1 Then bet cs1.flatbet on come EndIf Else If count(come bets) < 2 Then bet cs1.flatbet on come EndIf EndIf EndIf If cs2.initialwin = 0 Then bet cs1.flatbet * 10 on passlineodds : bet cs1.flatbet * 10 on all(comeodds bets) Else bet cs1.flatbet * 5 on passlineodds : bet cs1.flatbet * 5 on all(comeodds bets) EndIf