Graphics3D 1024, 768, 32, 2
SetBuffer BackBuffer()
camera=CreateCamera()
PositionEntity camera,0,1,-10
cone=CreateCone()
PositionEntity cone,0.2,-0.3,0
microphone=CreateListener(camera)
sound=Load3DSound("ufo.wav")
Repeat
UpdateWorld
RenderWorld
Flip
If KeyDown(30) Then TurnEntity cone,0,-1,0
If KeyDown(31) Then TurnEntity cone,0,1,0
If KeyDown(32) Then MoveEntity cone,0,0,-0.05
If KeyDown(17) Then MoveEntity cone,0,0,0.05
If KeyHit(57) Then EmitSound(sound,cone)
Until KeyHit(1)
End
АВТОМАТ опередил уже.
