24 replies to this topic

[Bluesky2095]

To add knocker sounds for SSF, replace    'SolCallback(2) =   "Solknocker "               'knocker        with         SolCallback(6) = "vpmSolSound ""fx_knocker"","

 

Thank you ta2686 for the dip switch update. That also fixes the credits not showing!

[Bluesky2095]

Any idea why the ball rolling sounds do not function with this table? No amount of adjusting Csng settings will bring up the sound?

Did you ever get this fixed?

[Bluesky2095]

Any idea why the ball rolling sounds do not function with this table? No amount of adjusting Csng settings will bring up the sound?

Try replacing the "JP's rolling sounds" with this: 

 

 

Const tnob = 5 ' total number of balls

ReDim rolling(tnob)

InitRolling

 

Sub InitRolling

    Dim i

    For i = 0 to tnob

        rolling(i) = False

    Next

End Sub

 

Sub RollingTimer_Timer()

    Dim BOT, b

    BOT = GetBalls

 

' stop the sound of deleted balls

    For b = UBound(BOT) + 1 to tnob

        rolling(b) = False

        StopSound("fx_ballrolling" & b)

    Next

 

' exit the sub if no balls on the table

    If UBound(BOT) = -1 Then Exit Sub

 

' play the rolling sound for each ball

    For b = 0 to UBound(BOT)

        If BallVel(BOT(b) ) > 1 AND BOT(b).z < 30 Then

            rolling(b) = True

            PlaySound("fx_ballrolling" & b), -1, Vol(BOT(b) ), Pan(BOT(b) ), 0, Pitch(BOT(b) ), 1, 0

        Else

            If rolling(b) = True Then

                StopSound("fx_ballrolling" & b)

                rolling(b) = False

            End If

        End If

    Next

End Sub

Edited by Bluesky2095, 17 September 2022 - 04:54 PM.

[Outhere]

 

Any idea why the ball rolling sounds do not function with this table? No amount of adjusting Csng settings will bring up the sound?

Try replacing the "JP's rolling sounds" with this: 

 

When posting large items like a LOG or ini files And Code

After you paste - highlight it, Then click on this symbol above <> then post

[Bluesky2095]

 

 

Any idea why the ball rolling sounds do not function with this table? No amount of adjusting Csng settings will bring up the sound?

Try replacing the "JP's rolling sounds" with this: 

 

When posting large items like a LOG or ini files And Code

After you paste - highlight it, Then click on this symbol above <> then post

 

Will do in the future. Thanks.

To add knocker sounds for SSF, replace    'SolCallback(2) =   "Solknocker "               'knocker        with         SolCallback(6) = "vpmSolSound ""fx_knocker"","

 

Thank you ta2686 for the dip switch update. That also fixes the credits not showing!

Const tnob = 5 ' total number of balls
ReDim rolling(tnob)
InitRolling


Sub InitRolling
    Dim i
    For i = 0 to tnob
        rolling(i) = False
    Next
End Sub


Sub RollingTimer_Timer()
    Dim BOT, b
    BOT = GetBalls


' stop the sound of deleted balls
    For b = UBound(BOT) + 1 to tnob
        rolling(b) = False
        StopSound("fx_ballrolling" & b)
    Next


' exit the sub if no balls on the table
    If UBound(BOT) = -1 Then Exit Sub


' play the rolling sound for each ball
    For b = 0 to UBound(BOT)
        If BallVel(BOT(b) ) > 1 AND BOT(b).z < 30 Then
            rolling(b) = True
            PlaySound("fx_ballrolling" & b), -1, Vol(BOT(b) ), Pan(BOT(b) ), 0, Pitch(BOT(b) ), 1, 0
        Else
            If rolling(b) = True Then
                StopSound("fx_ballrolling" & b)
                rolling(b) = False
            End If
        End If
    Next
End Sub

Thanks.