'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