If Initializing script Then show message "The Boender strategy begins by betting Passline, Field, and 2 inside Place bets." & cr & cr & "Initial wins on the Field and Place bets are used to make additional Place " & "bets (except when only 2 Place bets exist, Place 6 or 8 won, and the Field " & "lost then Place 6 or 8 is pressed once.) When more than 2 Place bets exist, " & "Field bets are dropped." & cr & cr & "After all point numbers are covered (5 Place bets plus Passline) " & "collecting and pressing begins. Inside Place bets alternate between " & "collecting and pressing, while 4 and 10 are pressed until greater than " & "$19 and then converted to Buy bets which are thereafter pressed on each win " & "(exception: wins on $10 Place 4/10 will be parlayed to $25 Buy 4/10)" & cr & cr & "The Passline follows a win progression of 1, 2, 3, 5, 7, 10, and 20 units " & "with Craps bets (1/7th the size of the Passline) being added after Passline " & "reaches $25." & cr & cr & "When points are established where Place/Buy bets exist then those bets are " & "moved to open Place/Buy bets(favoring 6/8 over 5/9 over 4/10). " & "In the same fashion, outside bets are moved when necessary to cover inside bets." & cr & cr & "If 'Show logged messages' is checked then messages will appear whenever bets " & "are made, moved, or removed." & cr : clear all(css) : name CS0.minbet as "Minimum bet" : "Get min bet" : CS0.minbet = input("Your initial bet should be a multiple of 5 and " & "will be considered to be one unit." & cr & cr & "How large would you like your initial bet to be?" & cr) : If CS0.minbet = 0 Or CS0.minbet mod 5 > 0 Then GoTo "Get min bet" EndIf name CS2.PasslineStep as "Passline step" : name CS5.Press5 as "Press5 0=false, -1=true" : name CS6.Press6 as "Press6 0=false, -1=true" : name CS8.Press8 as "Press8 0=false, -1=true" : name CS9.Press9 as "Press9 0=false, -1=true" : name CS11.pool as "Money avail to bet from wins" : name CS13.68SpecialPress as "68 special press 0=false, -1=true" : autohandle winning bets = "Same bet" : autohandle losing bets = "No bet" : autotake full odds = false EndIf csn0 = "" If Beginning New Hand Then CS2.PasslineStep = 1 : CS5.Press5 = false : CS6.Press6 = false : CS8.Press8 = false : CS9.Press9 = false : CS13.68SpecialPress = false : If sevenout Then csn0 = "Seven-out." & cr EndIf csn0 = csn0 & "Beginning new hand." & cr ElseIf Shooter Passes Then Add 1 to CS2.PasslineStep : csn0 = "Passline winner." & cr & "Passline step increased by 1." & cr ElseIf Shooter Misses Then csn0 = csn0 & "Passline loser." & cr If Craps last roll $ won = 0 Then CS2.PasslineStep = 1 : csn0 = "Passline step reset to 1." & cr EndIf EndIf If Craps won Then 'last roll $ won = 0 Then csn0 = csn0 & "Craps won." & cr ElseIf Craps lost Then csn0 = csn0 & "Craps lost." & cr EndIf : "MAKE BETS" : If Next Roll is a Comeout Roll Then : "PASSLINE BETS" : If CS2.PasslineStep = 1 Then Bet CS0.minbet on Passline ElseIf CS2.PasslineStep = 2 Then Bet CS0.minbet * 2 on Passline ElseIf CS2.PasslineStep = 3 Then Bet CS0.minbet * 3 on Passline ElseIf CS2.PasslineStep = 4 Then Bet CS0.minbet * 5 on Passline ElseIf CS2.PasslineStep = 5 Then Bet CS0.minbet * 7 on Passline ElseIf CS2.PasslineStep = 6 Then Bet CS0.minbet * 10 on Passline ElseIf CS2.PasslineStep = 7 Then Bet CS0.minbet * 15 on Passline ElseIf CS2.PasslineStep >= 8 Then Bet CS0.minbet * 20 on Passline EndIf csn0 = csn0 & "$" & Passline & " bet on Passline." & cr : "CRAPS BET" : If Passline >= 25 Then Bet Passline / 7 on Craps : csn0 = csn0 & "$" & Craps & " bet on Craps." & cr EndIf Else : "PLACE AND FIELD BETS" : If Place(dice total) wins Then csn0 = csn0 & "Place" & dice total & " winner." & cr ElseIf Buy(dice total) wins Then csn0 = csn0 & "Buy" & dice total & " winner." & cr EndIf If count(place bets) = 0 Then If point = 6 Then bet CS0.minbet on Place5, Place8 : csn0 = csn0 & "$" & Place5 & " bet on Place5." & cr & "$" & Place8 & " bet on Place8." & cr ElseIf point = 8 Then bet CS0.minbet on Place5, Place6 : csn0 = csn0 & "$" & Place5 & " bet on Place5." & cr & "$" & Place6 & " bet on Place6." & cr Else bet CS0.minbet on Place6, Place8 : csn0 = csn0 & "$" & Place6 & " bet on Place6." & cr & "$" & Place8 & " bet on Place8." & cr EndIf Bet CS0.minbet on Field : csn0 = csn0 & "$" & Field & " bet on Field." & cr Else 'if the point has a bet then move it to an uncovered bet If Place(point) > 0 Or Buy(point) > 0 Then csn0 = csn0 & "Point " & point & " established." & cr : If Place(point) > 0 Then csn0 = csn0 & "Place" & point Else csn0 = csn0 & "Buy" & point EndIf CS12.movebet = ((Place(point) + Buy(point)) \ CS0.minbet) * CS0.minbet ' figures bet size in units If Place6 = 0 Then Place6 = CS12.movebet : csn0 = csn0 & " moved to Place6." & cr ElseIf Place8 = 0 Then Place8 = CS12.movebet : csn0 = csn0 & " moved to Place8." & cr ElseIf Place5 = 0 Then Place5 = CS12.movebet : csn0 = csn0 & " moved to Place5." & cr ElseIf Place9 = 0 Then Place9 = CS12.movebet : csn0 = csn0 & " moved to Place9." & cr ElseIf Place4 = 0 And Buy4 = 0 Then If CS12.movebet > 20 Then Buy4 = CS12.movebet : csn0 = csn0 & " moved to Buy4." & cr Else Place4 = CS12.movebet : csn0 = csn0 & " moved to Place4." & cr EndIf ElseIf Place10 = 0 And Buy10 = 0 Then If CS12.movebet > 20 Then Buy10 = CS12.movebet : csn0 = csn0 & " moved to Buy10." & cr Else Place10 = CS12.movebet : csn0 = csn0 & " moved to Place10." & cr EndIf EndIf remove Place(point) : remove Buy(point) EndIf cs14 = 6 ' beginning ref for outer to inner : "Move outer bets to inner bets" : If Place(cs14) = 0 And point <> cs14 Then If Buy4 > 0 Then swap Place(cs14), Buy4 : csn0 = csn0 & "Buy4 moved to Place" & cs14 & "." & cr ElseIf Buy10 > 0 Then swap Place(cs14), Buy10 : csn0 = csn0 & "Buy10 moved to Place" & cs14 & "." & cr ElseIf Place4 > 0 Then swap Place(cs14), Place4 : csn0 = csn0 & "Place4 moved to Place" & cs14 & "." & cr ElseIf Place10 > 0 Then swap Place(cs14), Place10 : csn0 = csn0 & "Place10 moved to Place" & cs14 & "." & cr ElseIf Place5 > 0 And cs14 <> 5 And cs14 <> 9 Then swap Place(cs14), Place5 : csn0 = csn0 & "Place5 moved to Place" & cs14 & "." & cr ElseIf Place9 > 0 And cs14 <> 5 And cs14 <> 9 Then swap Place(cs14), Place9 : csn0 = csn0 & "Place9 moved to Place" & cs14 & "." & cr EndIf EndIf If cs14 = 6 Then cs14 = 8 : GoTo "Move outer bets to inner bets" ElseIf cs14 = 8 Then cs14 = 5 : GoTo "Move outer bets to inner bets" ElseIf cs14 = 5 Then cs14 = 9 : GoTo "Move outer bets to inner bets" EndIf If count(place bets, buy bets) < 5 Then If count(place bets) = 2 And (Place6 won Or Place8 won) And not(CS13.68SpecialPress) Then multiply by 2 on Place(dice total) : CS13.68SpecialPress = true : csn0 = csn0 & "Special press on Place" & dice total & " to $" & Place(dice total) & cr Else ' Use pool to fill in empty bets favoring inside first CS11.pool = sum(last roll $ won Place bets) + last roll $ won Field + Field + 1 : ' +1 for minor rounding If Field won Then remove Field : csn0 = csn0 & "Field bet removed." & cr EndIf If CS11.pool >= CS0.minbet And point <> 6 And Place6 = 0 Then Place6 = CS0.minbet : CS11.pool = CS11.pool - CS0.minbet : csn0 = csn0 & "$" & Place6 & " bet on Place6." & cr EndIf If CS11.pool >= CS0.minbet And point <> 8 And Place8 = 0 Then Place8 = CS0.minbet : CS11.pool = CS11.pool - CS0.minbet : csn0 = csn0 & "$" & Place8 & " bet on Place8." & cr EndIf If CS11.pool >= CS0.minbet And point <> 5 And Place5 = 0 Then Place5 = CS0.minbet : CS11.pool = CS11.pool - CS0.minbet : csn0 = csn0 & "$" & Place5 & " bet on Place5." & cr EndIf If CS11.pool >= CS0.minbet And point <> 9 And Place9 = 0 Then Place9 = CS0.minbet : CS11.pool = CS11.pool - CS0.minbet : csn0 = csn0 & "$" & Place9 & " bet on Place9." & cr EndIf If CS11.pool >= CS0.minbet And point <> 4 And Place4 = 0 And Buy4 = 0 Then If CS0.minbet < 20 Then Place4 = CS0.minbet : csn0 = csn0 & "$" & Place4 & " bet on Place4." & cr Else Buy4 = CS0.minbet : csn0 = csn0 & "$" & Buy4 & " bet on Buy4." & cr EndIf CS11.pool = CS11.pool - CS0.minbet EndIf If CS11.pool >= CS0.minbet And point <> 10 And Place10 = 0 And Buy10 = 0 Then If CS0.minbet < 20 Then Place10 = CS0.minbet : csn0 = csn0 & "$" & Place10 & " bet on Place10." & cr Else Buy10 = CS0.minbet : csn0 = csn0 & "$" & Buy10 & " bet on Buy10." & cr EndIf CS11.pool = CS11.pool - CS0.minbet EndIf EndIf If count(place bets) = 2 Then Bet CS0.minbet on Field : csn0 = csn0 & "$" & Field & " bet on Field." & cr EndIf Else ' Press and collect (all points are covered) If Place(dice total) wins Then If dice total = any(5, 6, 8, 9) Then If CS.press(dice total) Then multiply by 2 on Place(dice total) : ' Press csn0 = csn0 & "Place" & dice total & " pressed to $" & Place(dice total) & cr Else csn0 = csn0 & "Place" & dice total & " winnings collected." & cr EndIf CS.press(dice total) = not(CS.press(dice total)) ' alternates T/F Else ' 4 and 10 multiply by 2 on Place(dice total) : If Place(dice total) = 20 Then Place(dice total) = 25 EndIf csn0 = csn0 & "Place" & dice total & " pressed to $" & Place(dice total) & cr If Place(dice total) >= 25 Then Buy(dice total) = Place(dice total) : Place(dice total) = 0 : csn0 = csn0 & "Place" & dice total & " converted to Buy bet." & cr EndIf EndIf ElseIf Buy(dice total) wins Then ' 4 and 10 multiply by 2 on Buy(dice total) : csn0 = csn0 & "Buy" & dice total & " pressed to $" & Buy(dice total) & cr EndIf EndIf EndIf EndIf If csn0 <> "" Then show message csn0 EndIf