AI and Sounds - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|716\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> AI and Sounds
Thu, 22 Nov 2007, 00:23
Toaster	Okay I am working on some nice AI and right now i am working on the sound part here's my code: AppTitle "AI Sound Test 01" Graphics3D 1024,768,32,1 SetBuffer BackBuffer() Type footstep Field mesh,X#,Y#,Z#,XS#,YS#,ZS#,Alpha#,time End Type ;setup keys Global Key_Forward=17 ;17=W Global Key_Backwards=31 ;31=S Global Key_Right=32 ;32=D Global Key_Left=30 ;30=W Global Key_Speed=42 ;42=Left Shift Global Key_Jump=57 ;57=Space Shift Global SW=GraphicsWidth(),SH=GraphicsHeight() ; Set collision type values Global type_ground=1,type_character=2,type_scenery=3,type_bad=4,type_sounds ;delta time vars Global dt#,NewTime%,OldTime%,TotalTime% NewTime = MilliSecs() OldTime = NewTime ;Setup tweening stuff Const GameUPS=60 ; Updates per second Local Period=1000/GameUPS Local FrameTime=MilliSecs()-Period Local Tween#, Ticks,i,Remaining,StartTime,Elapsed ;Setup Camera Global campiv = CreatePivot() PositionEntity campiv,0,5,0 EntityRadius campiv,1 EntityType campiv,type_character Global Camera=CreateCamera (campiv) PositionEntity Camera,0,.6,0 ;SetCameraFOV(Camera, 120) CameraRange Camera,0.2,10000 ; mouse sensitivity Global mlook_spd# = 10.0 ;speed Global mlook_dmp# = 15.0 ;damper ;Mouse Movement vars Global mlook_yaw#,mlook_yaw2#,mlook_pitch#,mlook_pitch2# Global yVel#=0 ;Create the scene ;Create the ground Global ground = CreatePlane() EntityType ground,type_ground,1 Global box = CreateCube() PositionEntity box,0,1,0 EntityColor box,255,0,0 EntityType box,type_bad ;Setup collisions Collisions type_character,type_ground,2,3 Collisions type_sounds,type_bad,2,3 Global crosshairs=LoadSprite("target.png",1+8,Camera) EntityFX crosshairs,1+4+8+32 MoveEntity crosshairs,0,0,25 EntityOrder crosshairs,-2 HidePointer Global sounds=0 While Not KeyHit(1) Delta_Time() StartTime = MilliSecs() UpdateCamera(Camera) Repeat Elapsed=MilliSecs()-FrameTime Until Elapsed Ticks=Elapsed / Period Tween=Float(Elapsed Mod Period)/Float(Period) For i=1 To Ticks FrameTime=FrameTime+Period If i=Ticks Then CaptureWorld End If UpdateGame() UpdateWorld Next RenderWorld Tween Remaining = Period - (MilliSecs() - StartTime) If Remaining > 1 Then Delay (Remaining-1) ; Free some CPU time End If ;Draw 2D stuff updateHUD() Text 0,0,"Sounds"+sounds Flip Wend End Function CreateQuad(XSize#=1,ZSize#=1,Brush=0) Local Surf Local Mesh=CreateMesh() If Brush>0 Then Surf=CreateSurface(Mesh,Brush) Else Surf=CreateSurface(Mesh) End If Local t=AddVertex (Surf,0,0,0,0,1) AddVertex (Surf,0,0,ZSize,0,0) AddVertex (Surf,XSize,0,ZSize,1,0) AddVertex (Surf,XSize,0,0,1,1) AddTriangle Surf,t,t+2,t+3 AddTriangle Surf,t,t+1,t+2 Return Mesh End Function Function UpdateGame() updatefootstep() If KeyHit(33) Then newfootstep() ; ... End Function Function SetCameraFOV(Camera, FOV#) ; Author: sswift ; Description: Sets the field of view of the camera with degrees instead of a seemingly incomprehensible "zoom" value. CameraZoom Camera, 1.0 / Tan(FOV#/2.0) End Function Function UpdateCamera(cam) ;mouselook mxspd# = MouseXSpeed() / mlook_spd myspd# = MouseYSpeed() / mlook_spd If mxspd <> 0 Or myspd <> 0 Then MoveMouse SW/2,SH/2 mlook_yaw# = mlook_yaw - mxspd mlook_pitch# = mlook_pitch + myspd If mlook_pitch => 89 Then mlook_pitch = 89 If mlook_pitch =< -89 Then mlook_pitch = -89 mlook_yaw2# = mlook_yaw2# + ((mlook_yaw# - mlook_yaw2#) * mlook_dmp#) * dt mlook_pitch2# = mlook_pitch2# + ((mlook_pitch# - mlook_pitch2#) * mlook_dmp#) * dt RotateEntity campiv,0,mlook_yaw2,0 RotateEntity cam,mlook_pitch2,0,0 MoveMouse SW/2,SH/2 If KeyDown(Key_Forward) And KeyDown(Key_Speed) Then sounds=sounds+1 If sounds=>60 Then sounds=0 newfootstep() EndIf MoveEntity campiv,0,0,5dt ElseIf KeyDown(Key_Forward) sounds=sounds+1 If sounds=>60 Then sounds=0 newfootstep() EndIf MoveEntity campiv,0,0,3dt EndIf If KeyDown(Key_Backwards) Then sounds=sounds+1 If sounds=>60 Then sounds=0 newfootstep() EndIf MoveEntity campiv,0,0,-3dt EndIf If KeyDown(Key_Left) Then sounds=sounds+1 If sounds=>60 Then sounds=0 newfootstep() EndIf MoveEntity campiv,-3dt,0,0 EndIf If KeyDown(Key_Right) Then sounds=sounds+1 If sounds=>60 Then sounds=0 newfootstep() EndIf MoveEntity campiv,3*dt,0,0 EndIf ;jumping For i=0 To CountCollisions(campiv) If i>0 If CollisionEntity(campiv,i)=ground ; check if you hit the ground yVel = 0 If KeyHit(Key_Jump) Then yVel=.08 newfootstep() EndIf EndIf EndIf Next TranslateEntity campiv,0,yVel,0 yVel = yVel - .001 End Function Function updateHUD() ;2D Crosshair End Function Function Delta_Time() NewTime = MilliSecs() dt = Float (NewTime - OldTime)/1000 OldTime = NewTime TotalTime = TotalTime + dt End Function Function newfootstep() foot.footstep = New footstep foot\mesh = CreateSphere(6) EntityType foot\mesh,type_sounds EntityColor foot\mesh,0,0,255 EntityFX foot\mesh,16 foot\X = EntityX(campiv) foot\Y = EntityY(campiv) foot\Z = EntityZ(campiv) foot\XS = .1 foot\YS = .1 foot\ZS = .1 foot\alpha=.2 foot\time=0 PositionEntity foot\mesh,foot\X,foot\Y,foot\Z ScaleEntity foot\mesh,foot\XS,foot\YS,foot\ZS EntityAlpha foot\mesh,foot\alpha End Function Function updatefootstep() For foot.footstep = Each footstep ;Scale the sound foot\XS = foot\XS +.1 foot\YS = foot\YS +.1 foot\ZS = foot\ZS +.1 ;change the radius for collisions ScaleEntity foot\mesh,foot\XS,foot\YS,foot\ZS ;Check to see if bad guys hear? For i=0 To CountCollisions(foot\mesh) If i>0 If CollisionEntity(foot\mesh,i)=box ; check if the sound has hit the badguy? WaitKey EndIf EndIf Next ;Is it time to delete the sound? foot\time=foot\time+1 If foot\time=200 Then FreeEntity foot\mesh Delete foot EndIf Next End Function --v As you can see I use a simple sphere to make the sounds.. its actually really easy the only thing is when the sound sphere collides with the box nothing happens. -Toaster
Thu, 22 Nov 2007, 21:50
Toaster	So apparently you cant scale an entity once you've started collisions even updating the collisions every loop doesnt work as well. Anyone have any ideas on how I can do this? I dont want to use entity distance since I wouldnt be able to see the sound waves..
Fri, 23 Nov 2007, 12:12
Paul	Don't really know what you want to do, but maybe EntityBox or EntityRadius would help?
Fri, 23 Nov 2007, 14:58
Scherererer	Yeah if you scale an entity you will also have to change entitybox or entityradius. -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus
Mon, 26 Nov 2007, 08:34
Toaster	hmm I tired entity radius doesn't help I am looking at a DLL for collisions its suppose to do dynamic collision with out any problems.
Mon, 26 Nov 2007, 08:53
Forklift_Fred	Still not 100% sure what you're trying to do but I just started to look over your code again and you haven't given type_sounds a value so no collisions are being detected! I set it to 5 and when the sphere hit the box everything stopped. I'm guessing that's better than nothing happening at all... -=-=- Come rain or shine...
Mon, 26 Nov 2007, 09:15
Forklift_Fred	I see it's the WaitKey() in updatefootstep() that is stopping everything. I replaced it with a global variable increment to count the 'hits' rather than stopping everything and it seems to be going up by 6 or 7 each time and doesn't coincide with the sphere hitting the box at all??? \|edit\| This is because not all sounds have spheres, only every 60th does \|edit\| I also noticed that the spheres aren't being generated from your actual position but along one straight line (presumable along either the x or z axis but I see no reason for this!) -=-=- Come rain or shine...
Tue, 27 Nov 2007, 04:07
Toaster	hmm well the spheres are suppose to be created with the user but if its all because I forgot to put a value for the type_sounds I'll be mad. I always forget little things like that.. -Toaster
Tue, 27 Nov 2007, 12:37
Forklift_Fred	You're not alone, I make annoyingly stupid spelling mistakes and spend ages trying to work out why something suddenly stops working. The other classic for me is forgetting to set a variable as global. That had me going for well over an hour this week -=-=- Come rain or shine...