Yeah, I can hear it in other players. I also tried loading it as regular sound file and it will play. But when I try loading it as a 3DSound, I just get silence.
Sorry about the source code. I tried to put it into my last post, but something went wrong.
Sync On
Sync Rate 30
Hide Mouse
Backdrop On
Set Camera Range 1,5000
Fog On
Fog Distance 4000
Fog Color RGB(128,128,128)
Color Backdrop RGB(128,128,128)
Rem Make gun
Make Object Cylinder 1,2
XRotate Object 1,90
Fix Object Pivot 1
Scale Object 1,100,100,500
Position Object 1,0,-7,15
Lock Object On 1
Rem Make bullet
Make Object Sphere 2,2
Hide Object 2
Load Sound "crickets.wav",1
Loop Sound 1
Load 3DSound "fireball2.wav",2
Rem Make matrix
Make Matrix 1,10000,10000,20,20
Rem Texture Matrix
Load Image "grass09.bmp",1
Prepare Matrix Texture 1,1,1,1
Fill Matrix 1,0,1
Rem Randomize matrix
Randomize Matrix 1,125
X#=5000
Z#=5000
Rem Main loop
Do
OldCAY#=CAY#
OldCAX#=CAX#
CAY#=Wrapvalue(CAY#+MousemoveX()*0.2)
CAX#=Wrapvalue(CAX#+MousemoveY()*0.2)
Rem Control input for camera
If Upkey()=1
XTest#=Newxvalue(X#,CAY#,10)
ZTest#=Newzvalue(Z#,CAY#,10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
If Downkey()=1
XTest#=Newxvalue(X#,Wrapvalue(CAY#-180),10)
ZTest#=Newzvalue(Z#,Wrapvalue(CAY#-180),10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
If Leftkey()=1
XTest# = Newxvalue(X#,Wrapvalue(CAY#-90),10)
ZTest# = Newzvalue(Z#,Wrapvalue(CAY#-90),10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
If Rightkey()=1
XTest#=Newxvalue(X#,Wrapvalue(CAY#+90),10)
ZTest#=Newzvalue(Z#,Wrapvalue(CAY#+90),10)
If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
X#=XTest#
Z#=ZTest#
Endif
Endif
Rem Rotate camera
If CAX#>270
If CAX#-270>90 Then CAX#=270
Else
If CAX#>90 and CAX#-270<270 Then CAX#=90
Endif
YRotate Camera CurveAngle(CAY#,OldCAY#,24)
XRotate Camera CurveAngle(CAX#,OldCAX#,24)
Rem Position Listener
Position Listener X#,Y#+50,Z#
Rotate Listener 0,CAY#,0
Y#=Get Ground Height(1,X#,Z#)
Position Camera X#,Y#+50,Z#
Rem Shoot Bullet
If Mouseclick()=1 and BLife=0
Position Object 2,X#,Y#+43,Z#
Show Object 2
BLife=25
Set Object To Camera Orientation 2
Loop Sound 2
Endif
Rem Move bullet
If BLife>0
Dec BLife
Move Object 2,20
bX#=Object Position X(2)
bY#=Object Position Y(2)
bZ#=Object Position Z(2)
Position Sound 2,bX#,bY#,bZ#
If BLife=0
Hide Object 2
Stop Sound 2
Endif
Endif
Rem Refresh Screen
Sync
Loop"Reality is merely an illusion. Albeit a very persistant one." -Albert Einstein
