I just added some more parameters to PlaySound:
PlaySound "name",loopcount,volume,pan,randompitch,pitch,useexisting,restart
pitch can be positive or negative and directly adds onto the standard sample frequency
useexisting is 0 or 1 (if no existing/playing copy of the sound is found, then a new one is created)
restart is 0 or 1 (only useful if useexisting is 1, then the sample is played from the beginning)
The reason behind this was that i wanted to have a slightly less complicated and cooler ball rolling functionality.
I tweaked Centaur for a quick test with this code instead of the code in the rolling function, in case somebody wants to try (width should be set to the specific table width):
B = 2
If BallStatus(b) = 0 Then Exit Sub
BRVeloY(b) = Cint(CurrentBall(b).VelY)
BRVeloX(b) = Cint(CurrentBall(b).VelX)
Dim width
width = 1100
Dim pitch
pitch = BRVeloY(b)*BRVeloY(b)+BRVeloX(b)*BRVeloX(b) 'derive pitch from velocity, magic
Dim pan
pan = CurrentBall(b).x*2/width-1
If pan > 0 Then
pan = pan ^ 10 '10 = magic
Else
pan = -((-pan) ^ 10) '10 = magic
End If
If pitch > 10 Then 'ball is rolling?
PlaySound "JF_roll2",-1,1,pan,0,pitch*20,1,0 '*20 = magic
Else
StopSound "JF_roll2"
End If
This way the sample is pitched up if the ball runs faster, and it pans according to the position on the table. It also loops automatically and is stopped if the velocity gets too small. The magic factors in there are just coder-art, so please come up with something better. 
Top
Contributor
are all trademarks of VPFORUMS.