sync up audio with collision ? - GameCreators Forum

Author

Message

trogdor

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: Portsmouth, VA, USA

Posted: 1st Jul 2008 07:16 Edited at: 1st Jul 2008 07:34

Link

I'm stacking up barrels and would like to play "bang" sounds as they fall and collide with each other and the floor.

First, dynamic meshes dont work so I'm using dynamic boxes for now till it gets fixed.

+ Code Snippet

col = phy get collision data()
   if col=1
      a = phy get collision object a()
      b = phy get collision object b()
      soundNumb=rnd(3)+20
      play sound soundNumb
      POSITION SOUND soundNumb,OBJECT POSITION X(a),OBJECT POSITION Y(a),OBJECT POSITION Z(a)
      position listener camx#,camy#,camz#
      rotate listener camrx#,camrx#,camrz#
     
   endif

I used phy get collision data() and that gave me tons of collisions. I want to know what can I set to get less collisions reported.

What I mean is when two barrels are stacked ontop of each other I dont want to get a continuous sound because of the tiny collision happening between the two.

I tried messing with friction, momentum, and angular velocity to adjust the collision threshold but no luck.

any suggestions?

If you give someone a program, you will frustrate them for a day; if you teach them how to program, you will frustrate them for a lifetime.

Back to top

Profile PM Email Website

chunks chunks

17

Years of Service

User Offline

Joined: 2nd Jan 2007

Location: ackworth uk

Posted: 2nd Jul 2008 00:09 Edited at: 2nd Jul 2008 00:11

Link

try this it`s what i did for my demo .

+ Code Snippet

while phy get collision data ( )
   a = phy get collision object a ( )
   b = phy get collision object b ( )

`detects if a collision occured between object 1 and 2
`object 1 being the floor and 2 being the box
if a=1 and b=2
play sound 1
endif

endwhile

chunks

toshiba satellite 1.6 core duo + nvidia geforce go 7300
windows xp pro.

Back to top

Profile PM Email

Nano brain

16

Years of Service

User Offline

Joined: 7th May 2008

Location:

Posted: 2nd Jul 2008 03:28

Link

This is what I am dealing with at the moment also. In short, due to time, you can always check the general velocities of each object in a collision.

To do this you will need each object's current position(all three coords) and their last position(position on last loop). So, at the end of your loop record the barrels' positions in an array.

EX:

+ Code Snippet

...
for t=1 to 50
    objoldpos(t,1)=object position x(t)
    objoldpos(t,2)=object position y(t)
    objoldpos(t,3)=object position x(t)
next t

Upon the next loop check the speed of each collision object that is a barrel.

EX:

+ Code Snippet

speed#=abs(sqrt((objoldpos(colobja,1)-object position x(colobja))^2+(objoldpos(colobja,2)-object position y(colobja))^2+(objoldpos(colobja,3)-object position z(colobja))^2))

This will give you a positive speed value of some degree. You'll have to play with it a bit to get it perfect, but you can set your own threshold so that the sound will only play if either object is falling faster than the threshold.

EX:

+ Code Snippet

if speed#>3 then play sound

This may not be a perfect method yet, but work with it. I think you'll be able to figure something that works.

Back to top

Profile PM

trogdor

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: Portsmouth, VA, USA

Posted: 3rd Jul 2008 04:26 Edited at: 3rd Jul 2008 04:26

Link

Thank you all,

@Nano brain
Thanks, it helped a lot. I hoped they have something like this in DP since audio on collision is only the next logical step.

for my game instead of (if speed#>3 then play sound) I had to keep track of speed# and oldspeed# like you did with the positions, and get the Abs difference to give me more control over the threshold.

If you give someone a program, you will frustrate them for a day; if you teach them how to program, you will frustrate them for a lifetime.

Back to top

Profile PM Email Website

Nano brain

16

Years of Service

User Offline

Joined: 7th May 2008

Location:

Posted: 4th Jul 2008 14:18

Link

Trogdor,

I'm not sure I understand how calculating old and new speeds helps precision. Maybe an explanation for my future sake could be useful. However, I'm glad that I was clear enough to help you.

Back to top

Profile PM

trogdor

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: Portsmouth, VA, USA

Posted: 10th Jul 2008 00:15

Link

sorry about the late response but here's how I ended up doing

for t=1 to 100
    brlobj=colarr(t)
    if brlobj>0
    objoldpos(brlobj,1)=object position x(brlobj)
    objoldpos(brlobj,2)=object position y(brlobj)
    objoldpos(brlobj,3)=object position x(brlobj)
    endif
next t

`Now cast your ray
   ray = phy ray cast closest shape ( x#,y#,z#,xvec#,yvec#,zvec# )

if ray >0 then obj = phy get ray cast object ()

if obj>0
      velx#=phy get ray cast hit point x ( )
      vely#=phy get ray cast hit point y ( )
      velz#=phy get ray cast hit point z ( )
      position object redball, velx#,vely#,velz#
   endif

if mouseclick()=0 then trigger=0
 if mouseclick()=1 and trigger=0
  trigger=1
   if ray <>0 and obj > 1
      play sound rnd(3)+20
      velx1#=newxvalue(0,camera angle y(),5.0)
      velz1#=newzvalue(0,camera angle y(),5.0)
    phy add rigid body force obj,velx1#*2000,1300+(0-camera angle x())*200,velz1#*2000,velx#,vely#,velz#,1
    phy add rigid body local torque obj,-1000,0,0,1
   endif
 endif

phy update

col = phy get collision data()

if col=1
      a = phy get collision object a()
      b = phy get collision object b()

colspeeda#=abs(sqrt((objoldpos(a,1)-object position x(a))^2+(objoldpos(a,2)-object position y(a))^2+(objoldpos(a,3)-object position z(a))^2))
      colspeedb#=abs(sqrt((objoldpos(b,1)-object position x(b))^2+(objoldpos(b,2)-object position y(b))^2+(objoldpos(b,3)-object position z(b))^2))
`if distance_to_object(cam_obj,a) < 201
      if abs(colspeeda#-oldspeeds(a))>1.002 or abs(colspeedb#-oldspeeds(b))>1.002
         soundNumb=rnd(3)+20
         play sound soundNumb
         `POSITION SOUND soundNumb,OBJECT POSITION X(a),OBJECT POSITION Y(a),OBJECT POSITION Z(a)
         if a> 1 then audiofade(cam_obj,a,soundNumb,100.0,200.0)

`SCALE LISTENER Scaling Factor

oldspeeds(a)= (colspeeda#)
         oldspeeds(b)= (colspeedb#)
      endif
`endif
   endif

+ Code Snippet

for t=1 to 100
    brlobj=colarr(t)
    if brlobj>0
    objoldpos(brlobj,1)=object position x(brlobj)
    objoldpos(brlobj,2)=object position y(brlobj)
    objoldpos(brlobj,3)=object position x(brlobj)
    endif
next t

   `Now cast your ray
   ray = phy ray cast closest shape ( x#,y#,z#,xvec#,yvec#,zvec# )

   if ray >0 then obj = phy get ray cast object ()

   if obj>0
      velx#=phy get ray cast hit point x ( )
      vely#=phy get ray cast hit point y ( )
      velz#=phy get ray cast hit point z ( )
      position object redball, velx#,vely#,velz#
   endif


if mouseclick()=0 then trigger=0
 if mouseclick()=1 and trigger=0
  trigger=1
   if ray <>0 and obj > 1
      play sound rnd(3)+20
      velx1#=newxvalue(0,camera angle y(),5.0)
      velz1#=newzvalue(0,camera angle y(),5.0)
    phy add rigid body force obj,velx1#*2000,1300+(0-camera angle x())*200,velz1#*2000,velx#,vely#,velz#,1
    phy add rigid body local torque obj,-1000,0,0,1
   endif
 endif

phy update

 col = phy get collision data()

   if col=1
      a = phy get collision object a()
      b = phy get collision object b()

      colspeeda#=abs(sqrt((objoldpos(a,1)-object position x(a))^2+(objoldpos(a,2)-object position y(a))^2+(objoldpos(a,3)-object position z(a))^2))
      colspeedb#=abs(sqrt((objoldpos(b,1)-object position x(b))^2+(objoldpos(b,2)-object position y(b))^2+(objoldpos(b,3)-object position z(b))^2))
`if distance_to_object(cam_obj,a) < 201
      if abs(colspeeda#-oldspeeds(a))>1.002 or abs(colspeedb#-oldspeeds(b))>1.002
         soundNumb=rnd(3)+20
         play sound soundNumb
         `POSITION SOUND soundNumb,OBJECT POSITION X(a),OBJECT POSITION Y(a),OBJECT POSITION Z(a)
         if a> 1 then audiofade(cam_obj,a,soundNumb,100.0,200.0)

         `SCALE LISTENER Scaling Factor

         oldspeeds(a)= (colspeeda#)
         oldspeeds(b)= (colspeedb#)
      endif
`endif
   endif

I noticed that when checking the speed the numbers change as the object bounce but when it comes to its last couple of secs the speed ramains the same and it only changes after the decimal causing a machine gun kind of sound. This is why I get the Abs difference so I can ignore stuff after the 3rd decimal value.

If you give someone a program, you will frustrate them for a day; if you teach them how to program, you will frustrate them for a lifetime.

Back to top

Profile PM Email Website

trogdor

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: Portsmouth, VA, USA

Posted: 10th Jul 2008 06:35

Link

Here's a link to see it in action.
http://www.youtube.com/watch?v=74lRxJmnhIM

It's a good sync most of the time. Every once in a while I'll get a collision sound when everything seems to be still (need to tweak the threshold a bit more).

I dont like using dynamic boxes for barrels, but I have to wait till they fix the dynamic meshes in the next DP I hope...

If you give someone a program, you will frustrate them for a day; if you teach them how to program, you will frustrate them for a lifetime.

Back to top

Profile PM Email Website

Nano brain

16

Years of Service

User Offline

Joined: 7th May 2008

Location:

Posted: 10th Jul 2008 23:24

Link

trogdor,

Good job so far! Simple as it was, the video was kind of entertaining...heheh. I'm not sure exactly what to do about the sound playing on occassion when it shouldn't be. I suppose you could set a barrel's state to "no sound play" once it has come to 'rest'. Then, once the barrel begins to move again, set it's state to "play sounds".

I have not had to go so far as this, due to the velocity checking working perfectly fine. I'm glad this has brought you past this hurdle.

Back to top

Profile PM

trogdor

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: Portsmouth, VA, USA

Posted: 15th Jul 2008 21:49

Link

@Nano Brain
I've updated the sound code due to a typo that threw my numbers off.

In your example you had

+ Code Snippet

objoldpos(t,3)=object position x(t)

which supposed to be

+ Code Snippet

objoldpos(t,3)=object position z(t)

I did not see the typo till today

Now with that x changed to a z, I do not get those unexpected sounds, and I do not need the extra speed checks.

Velocity checking works good now

here's my updated code...

hide object playerObj
   position object playerObj,camera position x(),camera position y(),camera position z()
   x# = object position x(playerObj)
   y# = object position y(playerObj)
   z# = object position z(playerObj)
   set object to object orientation playerObj,cam_obj
   move object playerObj, 1
   `Work out x,y,z vectors by just subtracting the old position from the new position
   xvec# = object position x(playerObj) - x#
   yvec# = object position y(playerObj) - y#
   zvec# = object position z(playerObj) - z#

for t=1 to 100
       brlobj=colarr(t)
       if brlobj>0
         objoldpos#(brlobj,1)=object position x(brlobj)
         objoldpos#(brlobj,2)=object position y(brlobj)
         objoldpos#(brlobj,3)=object position z(brlobj)
       endif
   next t
phy update
   ray = PHY RAY CAST CLOSEST SHAPE ( x#,y#,z#,xvec#,yvec#,zvec# )
   if ray =1 then obj = phy get ray cast object ()
   if obj>1
      velx#=phy get ray cast hit point x ( )
      vely#=phy get ray cast hit point y ( )
      velz#=phy get ray cast hit point z ( )
      show object redball
      position object redball, velx#,vely#,velz#
      `print "obj "+str$(obj)
   else
      hide object redball
   endif

if mouseclick()=0 then trigger=0
 if mouseclick()=1 and trigger=0
  trigger=1
    play sound 27
   if ray =1 and obj > 1
      `play sound rnd(3)+20
      velx1#=newxvalue(0,camry#,5.0)
      velz1#=newzvalue(0,camry#,5.0)
      phy add rigid body force obj,velx1#*2000,1300+camrx#*200,velz1#*2000,velx#,vely#,velz#,1
    phy add rigid body local torque obj,-1000,0,0,1
   endif
 endif
phy update
 col = phy get collision data()

if col=1
      colobja = phy get collision object a()
      colobjb = phy get collision object b()

`if colobja is terrain then use colobjb instead
      if colobja = 1 then colobja = colobjb

speed#=abs(sqrt((objoldpos#(colobja,1)-object position x(colobja))^2+(objoldpos#(colobja,2)-object position y(colobja))^2+(objoldpos#(colobja,3)-object position z(colobja))^2))

if speed# >0.1
         soundNumb=rnd(3)+20
         audiofade(cam_obj,colobja,soundNumb,100.0,300.0)
         play sound soundNumb
      endif

endif

+ Code Snippet

 hide object playerObj
   position object playerObj,camera position x(),camera position y(),camera position z()
   x# = object position x(playerObj)
   y# = object position y(playerObj)
   z# = object position z(playerObj)
   set object to object orientation playerObj,cam_obj
   move object playerObj, 1
   `Work out x,y,z vectors by just subtracting the old position from the new position
   xvec# = object position x(playerObj) - x#
   yvec# = object position y(playerObj) - y#
   zvec# = object position z(playerObj) - z#

   for t=1 to 100
       brlobj=colarr(t)
       if brlobj>0
         objoldpos#(brlobj,1)=object position x(brlobj)
         objoldpos#(brlobj,2)=object position y(brlobj)
         objoldpos#(brlobj,3)=object position z(brlobj)
       endif
   next t
phy update
   ray = PHY RAY CAST CLOSEST SHAPE ( x#,y#,z#,xvec#,yvec#,zvec# )
   if ray =1 then obj = phy get ray cast object ()
   if obj>1
      velx#=phy get ray cast hit point x ( )
      vely#=phy get ray cast hit point y ( )
      velz#=phy get ray cast hit point z ( )
      show object redball
      position object redball, velx#,vely#,velz#
      `print "obj "+str$(obj)
   else
      hide object redball
   endif

if mouseclick()=0 then trigger=0
 if mouseclick()=1 and trigger=0
  trigger=1
    play sound 27
   if ray =1 and obj > 1
      `play sound rnd(3)+20
      velx1#=newxvalue(0,camry#,5.0)
      velz1#=newzvalue(0,camry#,5.0)
      phy add rigid body force obj,velx1#*2000,1300+camrx#*200,velz1#*2000,velx#,vely#,velz#,1
    phy add rigid body local torque obj,-1000,0,0,1
   endif
 endif
phy update
 col = phy get collision data()

   if col=1
      colobja = phy get collision object a()
      colobjb = phy get collision object b()

      `if colobja is terrain then use colobjb instead
      if colobja = 1 then colobja = colobjb

      speed#=abs(sqrt((objoldpos#(colobja,1)-object position x(colobja))^2+(objoldpos#(colobja,2)-object position y(colobja))^2+(objoldpos#(colobja,3)-object position z(colobja))^2))

      if speed# >0.1
         soundNumb=rnd(3)+20
         audiofade(cam_obj,colobja,soundNumb,100.0,300.0)
         play sound soundNumb
      endif

   endif

Please take a look at how I ray cast and place a red ball as a visual cue to the ray cast hit point.

When I click my mouse I apply force to a barrel but they don't respond all the time.

Do you see something off, or is there a better way than I've done?

Thanks again,

If you give someone a program, you will frustrate them for a day; if you teach them how to program, you will frustrate them for a lifetime.

Back to top

Profile PM Email Website

Nano brain

16

Years of Service

User Offline

Joined: 7th May 2008

Location:

Posted: 16th Jul 2008 10:54

Link

From the looks of it, my 'paper in the wind' assumption is that it could have to do with the

+ Code Snippet

...       
brlobj=colarr(t)
if brlobj>0
...

section of your code.

That section in full:

+ Code Snippet


   for t=1 to 100
       brlobj=colarr(t)
       if brlobj>0
         objoldpos#(brlobj,1)=object position x(brlobj)
         objoldpos#(brlobj,2)=object position y(brlobj)
         objoldpos#(brlobj,3)=object position z(brlobj)
       endif
   next t

If the dot object is spot on, then there is no other reason it should not work, except that some incorrect values are being returned from the colarr() array. I would have to see your code in full to make any greater of an assesment on this issue though.

Back to top

Profile PM

trogdor

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: Portsmouth, VA, USA

Posted: 17th Jul 2008 09:07 Edited at: 18th Jul 2008 00:54

Link

When I move the mouse, the redball skims over the barrels and I get the object number on the screen, so I know that part works.

but when I click the mouse somtimes nothing happens. I'm thinking maybe its in the way I apply force on the barrels.

+ Code Snippet

   x# = object position x(playerObj)
   y# = object position y(playerObj)
   z# = object position z(playerObj)
   set object to object orientation playerObj,cam_obj
   move object playerObj, 1
   `Work out x,y,z vectors by just subtracting the old position from the new position
   xvec# = object position x(playerObj) - x#
   yvec# = object position y(playerObj) - y#
   zvec# = object position z(playerObj) - z#

   velx1#=newxvalue(0,camry#,5.0)
   velz1#=newzvalue(0,camry#,5.0)
   phy add rigid body force obj,velx1#*2000,1300+camrx#*200,velz1#*2000,velx#,vely#,velz#,1
   phy add rigid body local torque obj,-1000,0,0,1

or maybe somthing fishy is happening with PHY RAY CAST CLOSEST SHAPE and collisions afterwards.

EDIT: I did more testing and its not my code, PHY RAY CAST CLOSEST SHAPE is buggy, sometimes it does not report a collision.

If you give someone a program, you will frustrate them for a day; if you teach them how to program, you will frustrate them for a lifetime.

Back to top

Profile PM Email Website

Random color object

16

Years of Service

User Offline

Joined: 14th Aug 2008

Location: Montreal Canada

Posted: 12th Sep 2008 00:26

Link

is it your video here
http://www.youtube.com/watch?v=74lRxJmnhIM

When it is too complicated it is because you are trying at the wrong door.

Back to top

Profile PM Email

trogdor

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: Portsmouth, VA, USA

Posted: 12th Sep 2008 18:17

Link

yep, thats mine.
I've also added an extra phy update call to speed things up.
Now, it runs, twice as fast.

If you give someone a program, you will frustrate them for a day; if you teach them how to program, you will frustrate them for a lifetime.

Back to top

Profile PM Email Website

Random color object

16

Years of Service

User Offline

Joined: 14th Aug 2008

Location: Montreal Canada

Posted: 12th Sep 2008 22:54 Edited at: 12th Sep 2008 23:24

Link

what you place phy update 2 time in the loop and it run twice faster?

sound collision

I made this from the demo collision data
notice I place
if a >1
play sound 1
but there is a delay kinda.

` collision feedback

` set up the program
phy start
autocam off
sync on
sync rate 60
color backdrop 0
position camera 0, 20, -40

` create the ground object
make object box 1, 50, 1, 50
phy make rigid body static box 1

` make and position 3 cubes
make object cube 2, 5
make object cube 3, 5
make object cube 4, 5

position object 2, 0, 10, 0
position object 3, 2, 20, 0
position object 4, 3, 30, 0

phy make rigid body static box 2
phy make rigid body dynamic box 3
phy make rigid body dynamic box 4

` display the Dark Physics logo
``load image "logo.png", 100000
``sprite 1, 0, 600 - 60, 100000
load 3dsound "C:\Program Files\The Game Creators 2\Dark Basic Professional Online\Media\Sounds\Divers\Tom1.wav" ,1
` main program loop

` display information
   set cursor 0, 0
   print "Example demonstrating how to determine when collisions have taken place"
   print "When objects 3 and 4 collide object 3 will turn red and object 4 will turn green"
   print "When any object hits object 2 it will turn yellow"
   print "When any object hits the floor it will turn blue"

` extract collision data

Do
   while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )

` react when objects 3 and 4 collide
      if a >1
      play sound 1
      endif
   endwhile

phy update
      sync
Loop

+ Code Snippet

` collision feedback

` set up the program
phy start
autocam off
sync on
sync rate 60
color backdrop 0
position camera 0, 20, -40

` create the ground object
make object box 1, 50, 1, 50
phy make rigid body static box 1

` make and position 3 cubes
make object cube 2, 5
make object cube 3, 5
make object cube 4, 5

position object 2, 0, 10, 0
position object 3, 2, 20, 0
position object 4, 3, 30, 0

phy make rigid body static box 2
phy make rigid body dynamic box 3
phy make rigid body dynamic box 4

` display the Dark Physics logo
``load image "logo.png", 100000
``sprite 1, 0, 600 - 60, 100000
load 3dsound "C:\Program Files\The Game Creators 2\Dark Basic Professional Online\Media\Sounds\Divers\Tom1.wav" ,1
` main program loop

   ` display information
   set cursor 0, 0
   print "Example demonstrating how to determine when collisions have taken place"
   print "When objects 3 and 4 collide object 3 will turn red and object 4 will turn green"
   print "When any object hits object 2 it will turn yellow"
   print "When any object hits the floor it will turn blue"

   ` extract collision data

Do
   while phy get collision data ( )
      a = phy get collision object a ( )
      b = phy get collision object b ( )

      ` react when objects 3 and 4 collide
      if a >1
      play sound 1
      endif
   endwhile

      phy update
      sync
Loop

I change my sound, put a smaller one. Notice 2 tings.
1. There was alot of collisions when the clock is finishing to clollide.
2. The 3nd block is coliding but the sound is delayed.

When it is too complicated it is because you are trying at the wrong door.

Back to top

Profile PM Email

trogdor

21

Years of Service

User Offline

Joined: 15th Apr 2003

Location: Portsmouth, VA, USA

Posted: 13th Sep 2008 00:33

Link

There're so much collision data the way you do it, so the delay you hear is many Tom1.wav playing back to back and you are hearing only the last one.

You need to filter out many of those collision by calculating each object speed on collision, then adjust the sensitivity to when you'd like to play a collision sound.

Your code should look something like this

` collision feedback

` set up the program
phy start
autocam off
sync on
sync rate 60
color backdrop 0
position camera 0, 20, -40

` create the ground object
make object box 1, 50, 1, 50
phy make rigid body static box 1

` make and position 3 cubes
make object cube 2, 5
make object cube 3, 5
make object cube 4, 5

position object 2, 0, 10, 0
position object 3, 2, 20, 0
position object 4, 3, 30, 0

phy make rigid body static box 2
phy make rigid body dynamic box 3
phy make rigid body dynamic box 4

` display the Dark Physics logo
``load image "logo.png", 100000
``sprite 1, 0, 600 - 60, 100000
load sound "clank1.wav" ,1
` main program loop

` display information
   set cursor 0, 0
   print "Example demonstrating how to determine when collisions have taken place"
   print "When objects 3 and 4 collide object 3 will turn red and object 4 will turn green"
   print "When any object hits object 2 it will turn yellow"
   print "When any object hits the floor it will turn blue"

` extract collision data

dim objoldpos#(4,4,4)

Do
   for t=2 to 4
         objoldpos#(t,1)=object position x(t)
         objoldpos#(t,2)=object position y(t)
         objoldpos#(t,3)=object position z(t)
   next t

phy update

col = phy get collision data()

if col=1
      colobja = phy get collision object a()
      colobjb = phy get collision object b()

if colobja = 1 then colobja = colobjb

speed#=abs(sqrt((objoldpos#(colobja,1)-object position x(colobja))^2+(objoldpos#(colobja,2)-object position y(colobja))^2+(objoldpos#(colobja,3)-object position z(colobja))^2))

`adjust the collision sensitivity
      if speed# >0.008
         play sound 1
      endif

endif

phy update

sync
Loop

+ Code Snippet


` collision feedback

` set up the program
phy start
autocam off
sync on
sync rate 60
color backdrop 0
position camera 0, 20, -40

` create the ground object
make object box 1, 50, 1, 50
phy make rigid body static box 1

` make and position 3 cubes
make object cube 2, 5
make object cube 3, 5
make object cube 4, 5

position object 2, 0, 10, 0
position object 3, 2, 20, 0
position object 4, 3, 30, 0

phy make rigid body static box 2
phy make rigid body dynamic box 3
phy make rigid body dynamic box 4

` display the Dark Physics logo
``load image "logo.png", 100000
``sprite 1, 0, 600 - 60, 100000
load sound "clank1.wav" ,1
` main program loop

   ` display information
   set cursor 0, 0
   print "Example demonstrating how to determine when collisions have taken place"
   print "When objects 3 and 4 collide object 3 will turn red and object 4 will turn green"
   print "When any object hits object 2 it will turn yellow"
   print "When any object hits the floor it will turn blue"

   ` extract collision data


   dim objoldpos#(4,4,4)


Do
   for t=2 to 4
         objoldpos#(t,1)=object position x(t)
         objoldpos#(t,2)=object position y(t)
         objoldpos#(t,3)=object position z(t)
   next t

   phy update

   col = phy get collision data()

   if col=1
      colobja = phy get collision object a()
      colobjb = phy get collision object b()

      if colobja = 1 then colobja = colobjb

      speed#=abs(sqrt((objoldpos#(colobja,1)-object position x(colobja))^2+(objoldpos#(colobja,2)-object position y(colobja))^2+(objoldpos#(colobja,3)-object position z(colobja))^2))

      `adjust the collision sensitivity
      if speed# >0.008
         play sound 1
      endif

   endif

   phy update

   sync
Loop

you'll see I have two phy updates. comment out the one after the for loop and see how slow it gets.

If you give someone a program, you will frustrate them for a day; if you teach them how to program, you will frustrate them for a lifetime.

Back to top

Profile PM Email Website

Random color object

16

Years of Service

User Offline

Joined: 14th Aug 2008

Location: Montreal Canada

Posted: 13th Sep 2008 01:06 Edited at: 13th Sep 2008 02:46

Link

Oh ya it is much faster, I get to ear all the collisions of the 3th block. As my sound is less than a sec I ear alot of them. I have to admit that it can be tricky to get a specific result. Have you ever try Environmental Audio Effects in the enhanced pack, there is all kind of interesting effects that can be apply to the wav like:
Room effect, digital delay, reverb, air absorption and many more?

For my code: the 3 cubes. If a>1 and sound was played in the last 1 sec, don't play any sound. Some kind of IF like that could fix easily the problem of rebouncing making multiple sounds.

When it is too complicated it is because you are trying at the wrong door.

Back to top

Profile PM Email

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / sync up audio with collision ?