'Smart Craps Script Betting file 'Enter your betting subroutines below 'You can use any names you want, and reference them from the 'Betting System options page. 'The Smart Craps craps simulation object is SCState. ' 5 Count Settings (you can change these) ' ======================================= ' Determines if you want all bets working on the come out roll ' (like place bets). Generally, you want this off since the skilled ' shooter may be dice setting to hit the seven. Const BetWorkingOnComeOut = False ' The number of come bets to make, once the shooter passes the 5 count. ' This is the maximum number of come bets to make in this walkup's hand. ' Use '-1' to make a come bet every possible time, once the 5 count passes. Const NumComeBets = 0 ' The number of pass line bets to make, once the shooter passes the 5 count. ' This is the maximum number of pass bets to make in this walkup's hand. ' Use '-1' to make a pass bet every possible time, once the 5 count passes. Const NumPassBets = -1 ' The number of place bets to make, once the shooter passes the 5 count. ' This is the maximum number of place bets to make in this walkup's hand. ' Use '-1' to make a place bet every possible time, once the 5 count passes. Const NumPlaceBets = 3 ' The place point to use on the place bet. Only 6 and 8 are recommended. Const PlacePoint = 6 ' ======================================= ' DO NOT CHANGE ANYTHING BELOW THIS LINE! ' Globals ' ------- Dim CountPassed ' True if the 5 count has been passed Dim Count ' current 5 count (stops at 5) Dim SumComeBets ' current # of Come bets made in this walkup's hand Dim SumPassBets ' current # of pass line bets made Dim SumPlaceBets ' current # of place bets made Dim LastNumRolls ' last number of dice rolls made by walkup Function Check5Count if CountPassed then Exit Function end if num_rolls = SCState.WalkupNumRolls if num_rolls = LastNumRolls Then Exit Function End If sum = SCState.WalkupRollSum( num_rolls - 1 ) if Count = 0 or Count = 4 Then if sum = 4 or sum = 5 or sum = 6 or sum = 8 or sum = 9 or sum = 10 then Count = Count + 1 if Count = 5 then CountPassed = True ' SCState.AddDebugLine( "5C: Five count passed!" ) end if end if else Count = Count + 1 end if Check5Count = CountPassed End Function Sub ScriptBetFn Call Check5Count if Not CountPassed Then Exit Sub end if if ( NumPassBets <> 0 and ( NumPassBets = -1 or SumPassBets < NumPassBets ) ) then if SCState.GameStateComeOutRoll then SumPassBets = SumPassBets + 1 ' SCState.AddDebugLine( "5C: Adding pass bet" ) betid = SCState.AddBet( BET_TYPE_PASS, -1, 6, True, True ) end if end if if ( NumComeBets <> 0 and ( NumComeBets = -1 or SumComeBets < NumComeBets ) ) then if Not SCState.GameStateComeOutRoll then SumComeBets = SumComeBets + 1 ' SCState.AddDebugLine( "5C: Adding come bet" ) betid = SCState.AddBet( BET_TYPE_COME, -1, 6, True, BetWorkingOnComeOut ) end if end if if ( NumPlaceBets <> 0 and ( NumPlaceBets = -1 or SumPlaceBets < NumPlaceBets ) ) then SumPlaceBets = SumPlaceBets + 1 ' SCState.AddDebugLine( "5C: Adding place bet" ) betid = SCState.AddBet( BET_TYPE_PLACE, -1, PlacePoint, True, BetWorkingOnComeOut ) end if End Sub Sub StartWalkupFn ' SCState.AddDebugLine( "5C: walkup started" ) Count = 0 CountPassed = 0 SumComeBets = 0 SumPassBets = 0 SumPlaceBets = 0 LastNumRolls = 0 End Sub