@ jpsalas
I'm in the process of adding DOF to the table script and with the current setup of the chime unit there are only 2 place to put the DOF but the game did come with a 3 chimes Unit
-
With the current setup I put the DOF for the 2 Chime setup but once you Hit a 1000 points the Chime unit no longer functions (DOF part)
So what I did for the hell of it is took a section out of the UNDERWATER GAME and put it in the script and the chime unit works good but I'll let you be the judge of that since you are the expert
It may be causing other problems that I'm not a Where of
After you confirm it is OK or fix the problem then I will post a script with the DOF
-
Sub AddScore(Points)
If Tilted Then Exit Sub
Select Case Points
Case 100, 1000, 10000
Score(CurrentPlayer) = Score(CurrentPlayer) + points
UpdateScore points
' sounds
If Points = 1000 AND(Score(CurrentPlayer)MOD 10000) \ 1000 = 0 Then 'new reel 10000
PlaySound SoundFXDOF("chime_10000", 203, DOFPulse, DOFChimes)
' PlaySound "chime_10000"
ElseIf Points = 100 AND(Score(CurrentPlayer)MOD 1000) \ 100 = 0 Then 'new reel 1000
PlaySound SoundFXDOF("chime_1000", 202, DOFPulse, DOFChimes)
' PlaySound "chime_1000"
Else
PlaySound SoundFXDOF("chime_", 201, DOFPulse, DOFChimes)
' PlaySound "chime_" &Points
End If
Case 200, 300, 400, 500
Add100 = Add100 + Points \ 100
AddScore100Timer.Enabled = TRUE
Case 2000, 3000, 4000, 5000
Add1000 = Add1000 + Points \ 1000
AddScore1000Timer.Enabled = TRUE
Case 20000, 30000, 40000, 50000
Add10000 = Add10000 + Points \ 10000
AddScore10000Timer.Enabled = TRUE
End Select
' check for higher score and specials
If Score(CurrentPlayer) >= Special1 AND Special1Awarded(CurrentPlayer) = False Then
AwardSpecial
Special1Awarded(CurrentPlayer) = True
End If
If Score(CurrentPlayer) >= Special2 AND Special2Awarded(CurrentPlayer) = False Then
AwardSpecial
Special2Awarded(CurrentPlayer) = True
End IfEnd Sub