Just how do you use Ng's collision system again!!!

Author

Message

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 15th Apr 2004 17:37

Link

I've read through the manual but it all sounds to complicated. Im making a pong game and came across some problems with the built in collision system in dbpro so I thought I would try ng's system. But just what commands do I need to use to do for example:
If object 4 hits object 1 rotate
Thankyou any help would be much appreciated.

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 16th Apr 2004 08:04 Edited at: 16th Apr 2004 08:06

Link

It's not too bad.

StartCollisionPRO()
StartCollisionDebugPRO()

Define some custom types:

TYPE_ELLIP = 1
TYPE_MESH = 2

Then, are you doing ellip-2-mesh or ellipsoid-to-ellipsoid detection?

For ellipsoid-to-mesh, use the command:

SetCollisionsPRO( TYPE_ELLIP, TYPE_MESH, ELLIP_2_POLY, RESP_STICK, DYN_RESP )

For ellipsoid-to-ellipsoid collision use:

SetCollisionsPRO( TYPE_ELLIP, TYPE_ELLIP, ELLIP_2_POLY, RESP_STICK, DYN_RESP )

Then define which of your objects are meshes and which are ellipsoids. Example:

CollisionTypePRO( pong_ball, TYPE_ELLIP )
CollisionTypePRO( pong_world, TYPE_MESH )

Then move your objects as normal and call RunCollisionPRO() once per main loop.

Then you can detect if you pong ball hit a wall (or paddle) with:

+ Code Snippet

collCount = CountCollisionsPRO( pong_ball )
for coll=1 to collCount
    hitObj = CollisionHitObj( pong_ball, coll )
    if hitObj = pong_world
       rem We hit a wall
    endif
next

If we made it any simpler the system would lose its dynamic power.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 16th Apr 2004 12:26

Link

Theres still a few things puzzling me
1.What is the difference between and ellipsoid and a mesh?
2.So does SetCollisionsPRO( TYPE_ELLIP, TYPE_MESH, ELLIP_2_POLY, RESP_STICK, DYN_RESP )mean the object will stop because that is what I understand from the reference manual? If im right where in the source code would I type the detecting for the ball hitting the paddle?
3.Does all the above go before the main loop and what bits would go in the main loop?
Thankyou

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 16th Apr 2004 12:38 Edited at: 16th Apr 2004 12:40

Link

Quote: "1.What is the difference between and ellipsoid and a mesh?"

An ellipsoid is a deformed spherical shape. It has no vertices or triangles that make up its shape. So it's a perfect ellipsoid.

A mesh is an object made up of triangles/verts.

You would use an ellipsoid for something like the player in a first person shooter. You want the ellipsoid to encompass the player. Then you want the level (a mesh made up of triangles) to be set as the mesh. Then you want the ellipsoid to collide with this mesh, and hence, the ellipsoid (around the player) will respond. And the player will move with the ellipsoid.

NOTE: The ellipsoid is an imaginary object around the player. The player might be an animated mesh itself, although you don't want to define in that way in the collision system.

Quote: "2.So does SetCollisionsPRO( TYPE_ELLIP, TYPE_MESH, ELLIP_2_POLY, RESP_STICK, DYN_RESP )mean the object will stop because that is what I understand from the reference manual? If im right where in the source code would I type the detecting for the ball hitting the paddle?"

Yes, the ellip will stick when it hits the mesh. There is no "ball hits paddle" command, as everything in the DLL is arbitrary. You define how your objects interact with each other. This also means that it's up to you to make the ball properly respond to the paddle. The collision system simply keeps the ball from going through the paddle and provides information about the collision.

I have already listed the "object detection" method above.

+ Code Snippet

collCount = CountCollisionsPRO( pong_ball )
for coll=1 to collCount
    hitObj = CollisionHitObj( pong_ball, coll )
    if hitObj = paddle
       rem The ball hit a paddle
    endif
next

And that would go in your main loop.

Quote: "3.Does all the above go before the main loop and what bits would go in the main loop?
Thankyou"

The large part of the code goes before the main loop to define how things interact. That's the largest part of the setup. After that, it's fairly simple.

All that goes in your main loop is the command: RunCollisionPRO()

And, of course, any special handling you might want to do from object detection (code above in this post).

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 16th Apr 2004 13:24

Link

Problems -
Setup all the above and got an error saying could not determine parameter type of 1 type_ngc_ellip at line 1.
Heres the code you might need it!

StartCollisionPRO()
Startcollisiondebugpro()
Type_Ellip = 1
Type_Mesh = 2
pong_ball = 4
pong_pad1 = 1
pong_pad2 =  10

Setcollisionspro(Type_Ellip,Type_Mesh_Ellip_2_Poly,Resp_stick,dyn_resp)
SetCollisionsPRO( TYPE_ELLIP, TYPE_ELLIP, ELLIP_2_POLY, RESP_STICK, DYN_RESP )
collisiontypepro(pong_ball,type_ellip)
collisiontypepro(pong_pad1,type_ellip)
collisiontypepro(pong_pad2,type_ellip)

Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 10,2,2,6:Color object 10,RGB(0,128,0):Position object 10,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 10
set object collision to boxes 10
set object collision on 4
Set object collision to spheres 4
set global collision on
Do
Move object 4,0.5
runcollisionpro()
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
If object position z(4) = 16 then yrotate object 4,object angle y(4) * -object angle y(4)
If object position z(4) = 16 then yrotate object 4,object angle y(4) * -object angle y(4)
collcount = countcollisionpro(pong_ball)
for coll=1 to collcount
  hitobj = collisionhitobj(pong_ball,coll)
  if hitobj = pong_pad1 then print "hit pad 1"
  if hitobj = pong_pad2 then print "hit pad 2"
next
Loop

+ Code Snippet

StartCollisionPRO()
Startcollisiondebugpro()
Type_Ellip = 1
Type_Mesh = 2
pong_ball = 4
pong_pad1 = 1
pong_pad2 =  10

Setcollisionspro(Type_Ellip,Type_Mesh_Ellip_2_Poly,Resp_stick,dyn_resp)
SetCollisionsPRO( TYPE_ELLIP, TYPE_ELLIP, ELLIP_2_POLY, RESP_STICK, DYN_RESP )
collisiontypepro(pong_ball,type_ellip)
collisiontypepro(pong_pad1,type_ellip)
collisiontypepro(pong_pad2,type_ellip)


Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 10,2,2,6:Color object 10,RGB(0,128,0):Position object 10,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 10
set object collision to boxes 10
set object collision on 4
Set object collision to spheres 4
set global collision on
Do
Move object 4,0.5
runcollisionpro()
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
If object position z(4) = 16 then yrotate object 4,object angle y(4) * -object angle y(4)
If object position z(4) = 16 then yrotate object 4,object angle y(4) * -object angle y(4)
collcount = countcollisionpro(pong_ball)
for coll=1 to collcount
  hitobj = collisionhitobj(pong_ball,coll)
  if hitobj = pong_pad1 then print "hit pad 1"
  if hitobj = pong_pad2 then print "hit pad 2"
next
Loop

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 16th Apr 2004 19:18

Link

What version of the DLL are you using?

1.5? 2.00? 2.03?

Are you using DBC or DBPro?

Have you included the "NGCollision.dba" into your project? If you're using DBC you must have the "include" line in the code.

Also, the top of your code should have the constants defined:

+ Code Snippet

rem Constant block to make code easy to read
ELLIP_2_ELLIP=1
ELLIP_2_POLY=2

RESP_STICK=1
RESP_SLIDE=2
RESP_SLIDE_NO_SLOPES=3
RESP_SLIDE_NO_GRAV=4
RESP_NONE=5

DYN_NO_RESP=1
DYN_RESP=2
DYN_RESP_LOCK=3
DYN_RESP_LOCK_NOTURN=4

And if you're using the 2.03 version there are 3 9-digit keys to put in the StartCollisionPRO() function. So it would look like:

+ Code Snippet

StartCollisionPRO( 000000000, 000000000, 000000000 )

I'd fix your code but I don't know which versions of what you're using.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 17th Apr 2004 10:45

Link

Still got some problems:
I have all the code in my program no errors are appearing when I compile but when I execute the program doesn't start and returns me to the db editor(no errors though).If I run the program without any of the collision system code it works perfectly but when I put it back in it goes funny again.
I have dbpro,dll_2.01 and yes I have all the correct files for the collision system setup.
Please tell me what I am doing wrong.

#constant Type_Ellip=1
#constant Type_Mesh=2
#constant ELLIP_2_ELLIP=1
#constant Ellip_2_Poly=2
#constant Resp_stick=1
#constant RESP_SLIDE=2
#constant RESP_SLIDE_NO_SLOPES=3
#constant RESP_SLIDE_NO_GRAV=4
#constant RESP_NONE=5
#constant DYN_NO_RESP=1
#constant dyn_resp=2
#constant DYN_RESP_LOCK=3
#constant DYN_RESP_LOCK_NOTURN=4
StartCollisionPRO()
Startcollisiondebugpro()
SetcollisionsPRO(Type_Ellip,Type_Mesh_Ellip_2_Poly,Resp_stick,dyn_resp)
SetCollisionsPRO( TYPE_ELLIP, TYPE_ELLIP, ELLIP_2_POLY, RESP_STICK, DYN_RESP )
collisiontypepro(pong_ball,type_ellip)
collisiontypepro(pong_pad1,type_ellip)
collisiontypepro(pong_pad2,type_ellip)

Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 10,2,2,6:Color object 10,RGB(0,128,0):Position object 10,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 10
set object collision to boxes 10
set object collision on 4
Set object collision to spheres 4
set global collision on
Do
Move object 4,0.5
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
runCollisionPRO()
collcount = countcollisionpro(pong_ball)
for coll=1 to collcount
hitobj = collisionhitobj(pong_ball,coll)
  if hitobj = pong_pad1 then print "hit pad 1"
  if hitobj = pong_pad2 then print "hit pad 2"
next
Loop

+ Code Snippet

#constant Type_Ellip=1
#constant Type_Mesh=2
#constant ELLIP_2_ELLIP=1
#constant Ellip_2_Poly=2
#constant Resp_stick=1
#constant RESP_SLIDE=2
#constant RESP_SLIDE_NO_SLOPES=3
#constant RESP_SLIDE_NO_GRAV=4
#constant RESP_NONE=5
#constant DYN_NO_RESP=1
#constant dyn_resp=2
#constant DYN_RESP_LOCK=3
#constant DYN_RESP_LOCK_NOTURN=4
StartCollisionPRO()
Startcollisiondebugpro()
SetcollisionsPRO(Type_Ellip,Type_Mesh_Ellip_2_Poly,Resp_stick,dyn_resp)
SetCollisionsPRO( TYPE_ELLIP, TYPE_ELLIP, ELLIP_2_POLY, RESP_STICK, DYN_RESP )
collisiontypepro(pong_ball,type_ellip)
collisiontypepro(pong_pad1,type_ellip)
collisiontypepro(pong_pad2,type_ellip)

Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 10,2,2,6:Color object 10,RGB(0,128,0):Position object 10,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 10
set object collision to boxes 10
set object collision on 4
Set object collision to spheres 4
set global collision on
Do
Move object 4,0.5
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
runCollisionPRO()
collcount = countcollisionpro(pong_ball)
for coll=1 to collcount
hitobj = collisionhitobj(pong_ball,coll)
  if hitobj = pong_pad1 then print "hit pad 1"
  if hitobj = pong_pad2 then print "hit pad 2"
next
Loop

Thankyou for all the help by the way.

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 17th Apr 2004 21:05

Link

You did not create your pong ball and pong paddle objects first.

Something like:

#constant Type_Ellip=1
#constant Type_Mesh=2
#constant ELLIP_2_ELLIP=1
#constant Ellip_2_Poly=2
#constant Resp_stick=1
#constant RESP_SLIDE=2
#constant RESP_SLIDE_NO_SLOPES=3
#constant RESP_SLIDE_NO_GRAV=4
#constant RESP_NONE=5
#constant DYN_NO_RESP=1
#constant dyn_resp=2
#constant DYN_RESP_LOCK=3
#constant DYN_RESP_LOCK_NOTURN=4
StartCollisionPRO()
Startcollisiondebugpro()
SetcollisionsPRO(Type_Ellip,Type_Mesh_Ellip_2_Poly,Resp_stick,dyn_resp)
SetCollisionsPRO( TYPE_ELLIP, TYPE_ELLIP, ELLIP_2_POLY, RESP_STICK, DYN_RESP )

pong_ball = 50
make object sphere pong_ball, 4

collisiontypepro(pong_ball,type_ellip)
collisiontypepro(pong_pad1,type_ellip)
collisiontypepro(pong_pad2,type_ellip)

Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 10,2,2,6:Color object 10,RGB(0,128,0):Position object 10,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 10
set object collision to boxes 10
set object collision on 4
Set object collision to spheres 4
set global collision on
Do
Move object 4,0.5
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
runCollisionPRO()
collcount = countcollisionpro(pong_ball)
for coll=1 to collcount
hitobj = collisionhitobj(pong_ball,coll)
  if hitobj = pong_pad1 then print "hit pad 1"
  if hitobj = pong_pad2 then print "hit pad 2"
next
Loop

+ Code Snippet

#constant Type_Ellip=1
#constant Type_Mesh=2
#constant ELLIP_2_ELLIP=1
#constant Ellip_2_Poly=2
#constant Resp_stick=1
#constant RESP_SLIDE=2
#constant RESP_SLIDE_NO_SLOPES=3
#constant RESP_SLIDE_NO_GRAV=4
#constant RESP_NONE=5
#constant DYN_NO_RESP=1
#constant dyn_resp=2
#constant DYN_RESP_LOCK=3
#constant DYN_RESP_LOCK_NOTURN=4
StartCollisionPRO()
Startcollisiondebugpro()
SetcollisionsPRO(Type_Ellip,Type_Mesh_Ellip_2_Poly,Resp_stick,dyn_resp)
SetCollisionsPRO( TYPE_ELLIP, TYPE_ELLIP, ELLIP_2_POLY, RESP_STICK, DYN_RESP )

pong_ball = 50
make object sphere pong_ball, 4

collisiontypepro(pong_ball,type_ellip)
collisiontypepro(pong_pad1,type_ellip)
collisiontypepro(pong_pad2,type_ellip)

Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 10,2,2,6:Color object 10,RGB(0,128,0):Position object 10,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 10
set object collision to boxes 10
set object collision on 4
Set object collision to spheres 4
set global collision on
Do
Move object 4,0.5
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
runCollisionPRO()
collcount = countcollisionpro(pong_ball)
for coll=1 to collcount
hitobj = collisionhitobj(pong_ball,coll)
  if hitobj = pong_pad1 then print "hit pad 1"
  if hitobj = pong_pad2 then print "hit pad 2"
next
Loop

And so on and so forth. I only made one entry, you'll have to do the others. The first parameter for the CollisionTypePro() statement is an object number. You must make sure to pass it an object number to an object you've created.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 19th Apr 2004 20:10

Link

Well 2 days later and I still have a problem. I did exactly what you said in your last post but still no joy. Heres the code as it is now, just wondering if you can spot any problems I haven't. Thanks.

#constant Type_Ellip=1
#constant Type_Mesh=2
#constant ELLIP_2_ELLIP=1
#constant Ellip_2_Poly=2
#constant Resp_stick=1
#constant RESP_SLIDE=2
#constant RESP_SLIDE_NO_SLOPES=3
#constant RESP_SLIDE_NO_GRAV=4
#constant RESP_NONE=5
#constant DYN_NO_RESP=1
#constant dyn_resp=2
#constant DYN_RESP_LOCK=3
#constant DYN_RESP_LOCK_NOTURN=4
StartCollisionPRO()
StartCollisionDebugPRO()
SetCollisionsPRO(Type_Ellip,Type_Mesh_Ellip_2_Poly,Resp_stick,dyn_resp)
SetCollisionsPRO(Type_Ellip,Type_Ellip,Ellip_2_Poly,Resp_stick,dyn_resp)
pong_ball =1
pong_pad1 =2
pong_pad2 =3
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
make object sphere pong_ball,4:Color object pong_ball,RGB(128,0,0):yrotate object pong_ball,-90
make object box pong_pad1,2,2,6:color object pong_pad1,rgb(255,128):position object pong_pad1,-18,0,0
make object box pong_pad2,2,2,6:color object pong_pad2,rgb(0,128,0):position object pong_pad2,18,0,0
CollisionTypePRO(pong_ball,type_ellip)
collisionTypePRO(pong_pad1,type_ellip)
collisionTypePRO(pong_pad2,type_ellip)
Color backdrop RGB(155,155,255)
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
Do
Move object 4,0.5
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
RunCollisionPRO()
collcount = CountCollisionPRO(pong_ball)
for coll=1 to collcount
hitobj = collisionobjhit(pong_ball,coll)
  if hitobj = pong_pad1 then print "hit pad 1"
  if hitobj = pong_pad2 then print "hit pad 2"
next
Loop

+ Code Snippet

#constant Type_Ellip=1
#constant Type_Mesh=2
#constant ELLIP_2_ELLIP=1
#constant Ellip_2_Poly=2
#constant Resp_stick=1
#constant RESP_SLIDE=2
#constant RESP_SLIDE_NO_SLOPES=3
#constant RESP_SLIDE_NO_GRAV=4
#constant RESP_NONE=5
#constant DYN_NO_RESP=1
#constant dyn_resp=2
#constant DYN_RESP_LOCK=3
#constant DYN_RESP_LOCK_NOTURN=4
StartCollisionPRO()
StartCollisionDebugPRO()
SetCollisionsPRO(Type_Ellip,Type_Mesh_Ellip_2_Poly,Resp_stick,dyn_resp)
SetCollisionsPRO(Type_Ellip,Type_Ellip,Ellip_2_Poly,Resp_stick,dyn_resp)
pong_ball =1
pong_pad1 =2
pong_pad2 =3
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
make object sphere pong_ball,4:Color object pong_ball,RGB(128,0,0):yrotate object pong_ball,-90
make object box pong_pad1,2,2,6:color object pong_pad1,rgb(255,128):position object pong_pad1,-18,0,0
make object box pong_pad2,2,2,6:color object pong_pad2,rgb(0,128,0):position object pong_pad2,18,0,0
CollisionTypePRO(pong_ball,type_ellip)
collisionTypePRO(pong_pad1,type_ellip)
collisionTypePRO(pong_pad2,type_ellip)
Color backdrop RGB(155,155,255)
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
Do
Move object 4,0.5
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
RunCollisionPRO()
collcount = CountCollisionPRO(pong_ball)
for coll=1 to collcount
hitobj = collisionobjhit(pong_ball,coll)
  if hitobj = pong_pad1 then print "hit pad 1"
  if hitobj = pong_pad2 then print "hit pad 2"
next
Loop

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 20th Apr 2004 23:39 Edited at: 20th Apr 2004 23:41

Link

Okay,

I fixed the code. You said you were using DLL version 2.01 and the code I just built runs perfect for the 2.01 version.

Here it is:

#constant Type_Ellip=1
#constant Type_Mesh=2
#constant ELLIP_2_ELLIP=1
#constant Ellip_2_Poly=2
#constant Resp_stick=1
#constant RESP_SLIDE=2
#constant RESP_SLIDE_NO_SLOPES=3
#constant RESP_SLIDE_NO_GRAV=4
#constant RESP_NONE=5
#constant DYN_NO_RESP=1
#constant dyn_resp=2
#constant DYN_RESP_LOCK=3
#constant DYN_RESP_LOCK_NOTURN=4

sync on

StartCollisionPRO()
StartCollisionDebugPRO()
SetCollisionsPRO(Type_Ellip,Type_Mesh, Ellip_2_Poly,Resp_stick,dyn_resp)
rem SetCollisionsPRO(Type_Ellip,Type_Ellip,Ellip_2_Poly,Resp_stick,dyn_resp)

pong_ball =1
pong_pad1 =2
pong_pad2 =3

rem Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
make object sphere pong_ball,4:Color object pong_ball,RGB(128,0,0):yrotate object pong_ball,-90
make object box pong_pad1,2,2,6:color object pong_pad1,rgb(255,128,0):position object pong_pad1,-18,0,0
make object box pong_pad2,2,2,6:color object pong_pad2,rgb(0,128,0):position object pong_pad2,18,0,0

CollisionTypePRO(pong_ball,type_ellip)
SetObjRadiusPRO( pong_ball, 2, 2, 2 )

collisionTypePRO(pong_pad1,Type_Mesh)
collisionTypePRO(pong_pad2,Type_Mesh)

Color backdrop RGB(155,155,255)
rem Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45

Do

rem Move object 4,0.5
If upkey()=1 AND object position z(pong_ball) < 16 then position object pong_ball,object position x(pong_ball),object position y(pong_ball),object position z(pong_ball) + 1
If downkey()=1 AND object position z(pong_ball) > -16 then position object pong_ball,object position x(pong_ball),object position y(pong_ball),object position z(pong_ball) - 1
If leftkey()=1 AND object position z(pong_ball) < 16 then position object pong_ball,object position x(pong_ball) - 1, object position y(pong_ball),object position z(pong_ball)
If rightkey()=1 AND object position z(pong_ball) > -16 then position object pong_ball, object position x(pong_ball) + 1, object position y(pong_ball),object position z(pong_ball)
RunCollisionPRO()

collcount = CountCollisionsPRO(pong_ball)
for coll=1 to collcount
hitobj = CollisionHitObj(pong_ball,coll)
  if hitobj = pong_pad1 then text 0,0,"hit pad 1"
  if hitobj = pong_pad2 then text 0,12,"hit pad 2"
next coll

sync

Loop

+ Code Snippet

#constant Type_Ellip=1
#constant Type_Mesh=2
#constant ELLIP_2_ELLIP=1
#constant Ellip_2_Poly=2
#constant Resp_stick=1
#constant RESP_SLIDE=2
#constant RESP_SLIDE_NO_SLOPES=3
#constant RESP_SLIDE_NO_GRAV=4
#constant RESP_NONE=5
#constant DYN_NO_RESP=1
#constant dyn_resp=2
#constant DYN_RESP_LOCK=3
#constant DYN_RESP_LOCK_NOTURN=4

sync on

StartCollisionPRO()
StartCollisionDebugPRO()
SetCollisionsPRO(Type_Ellip,Type_Mesh, Ellip_2_Poly,Resp_stick,dyn_resp)
rem SetCollisionsPRO(Type_Ellip,Type_Ellip,Ellip_2_Poly,Resp_stick,dyn_resp)

pong_ball =1
pong_pad1 =2
pong_pad2 =3

rem Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
make object sphere pong_ball,4:Color object pong_ball,RGB(128,0,0):yrotate object pong_ball,-90
make object box pong_pad1,2,2,6:color object pong_pad1,rgb(255,128,0):position object pong_pad1,-18,0,0
make object box pong_pad2,2,2,6:color object pong_pad2,rgb(0,128,0):position object pong_pad2,18,0,0

CollisionTypePRO(pong_ball,type_ellip)
SetObjRadiusPRO( pong_ball, 2, 2, 2 )

collisionTypePRO(pong_pad1,Type_Mesh)
collisionTypePRO(pong_pad2,Type_Mesh)

Color backdrop RGB(155,155,255)
rem Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45

Do

rem Move object 4,0.5
If upkey()=1 AND object position z(pong_ball) < 16 then position object pong_ball,object position x(pong_ball),object position y(pong_ball),object position z(pong_ball) + 1
If downkey()=1 AND object position z(pong_ball) > -16 then position object pong_ball,object position x(pong_ball),object position y(pong_ball),object position z(pong_ball) - 1
If leftkey()=1 AND object position z(pong_ball) < 16 then position object pong_ball,object position x(pong_ball) - 1, object position y(pong_ball),object position z(pong_ball)
If rightkey()=1 AND object position z(pong_ball) > -16 then position object pong_ball, object position x(pong_ball) + 1, object position y(pong_ball),object position z(pong_ball)
RunCollisionPRO()

collcount = CountCollisionsPRO(pong_ball)
for coll=1 to collcount
hitobj = CollisionHitObj(pong_ball,coll)
  if hitobj = pong_pad1 then text 0,0,"hit pad 1"
  if hitobj = pong_pad2 then text 0,12,"hit pad 2"
next coll

sync

Loop

Copy/Paste exactly as it is there. If it doesn't work then you're probably using the 2.03 version. Also, make sure you have the most recent patch of DBP installed.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Just how do you use Ng's collision system again!!!