Collision With Spheres - GameCreators Forum

Author

Message

Ankillito

18

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 15th Dec 2006 03:15

Link

Why doesn't this work? I've tried help files and tutorials, but ofund nothing on spheres.

+ Code Snippet

sync on
sync rate 10

make object cube 1,1
make object cube 3,1
make object sphere 2,1
turn object right 1,90
turn object right 2,90
turn object right 3,90

move object 1, 5
move object 2, -5
move camera -10

set global collision on
do
move object 1,-0.25
if object hit(1,2) = 1 then delete object 2
if object hit(1,3) = 1 then delete object 3
sync
loop

Thanks Again!!

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

BF game programmer

20

Years of Service

User Offline

Joined: 22nd Jan 2005

Location: hoover alabama

Posted: 16th Dec 2006 04:58 Edited at: 16th Dec 2006 05:06

Link

this works but it only hides the object and doesnt delete it.

+ Code Snippet

sync on
sync rate 10

make object cube 1,1
make object cube 3,1
make object sphere 2,1
turn object right 1,90
turn object right 2,90
turn object right 3,90

move object 1, 5
move object 2, -5
move camera -10

set global collision on
do
move object 1,-0.25
if object hit(1,2) = 1 then hide object 2
if object hit(1,3) = 1 then hide object 3
sync
loop

this also kind of works in the way you want and it deletes the objects

+ Code Snippet

sync on
sync rate 10

make object cube 1,1
make object cube 3,1
make object sphere 2,1
turn object right 1,90
turn object right 2,90
turn object right 3,90

move object 1, 5
move object 2, -5
move camera -10

set global collision on
do
move object 1,-0.25
if object exist(2)
if object hit(1,2) = 1
 delete object 2
endif
endif
if object exist(3)
if object hit(1,3) = 1
 delete object 3
endif
endif
sync
loop

Boba Fett - "put captin solo in the cargo hold"

Back to top

Profile PM Email

Ankillito

18

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 16th Dec 2006 23:08

Link

Actually, niether of those worked for me. The collision is detected with the box, but not the sphere. Might it be because I'm using the trial version untill Christmas?

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 16th Dec 2006 23:34

Link

Try using IF OBJECT COLLISION instead of IF OBJECT HIT.

The OBJECT HIT will only return a value of 1 if the object collides once for the first time, while OBJECT COLLISION will return it for the entire time that the object is colliding.

Back to top

Profile PM Email

Ankillito

18

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 17th Dec 2006 00:13

Link

Unfortunately, it's not that easy. Same results with your mod:

+ Code Snippet

sync on
sync rate 30

make object cube 1,1
make object cube 3,1
make object sphere 2,1
turn object right 1,90
turn object right 2,90
turn object right 3,90

move object 1, 5
move object 2, -5
move camera -10

set global collision on
do
move object 1,-0.25
if object exist(2)
if object collision(1,2) = 1
 delete object 2
endif
endif
if object exist(3)
if object collision(1,3) = 1
 delete object 3
endif
endif
sync
loop

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

Ankillito

18

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 17th Dec 2006 08:25

Link

I found that in the object collision code, you must use the sphere first as the first number. Why is this the case?

+ Code Snippet

if object collision([sphere],[other]) = 1 >> works

if object collision([other],[sphere]) = 1 >> doesn't

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 17th Dec 2006 13:29

Link

Oh I didn't notice that! I think it's because the sphere is moving.

Back to top

Profile PM Email

Ankillito

18

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 17th Dec 2006 20:23

Link

Quote: "Oh I didn't notice that! I think it's because the sphere is moving.
"

What? This is the code I was reffering to, and the sphere stays still; it's the cube that moves.

+ Code Snippet

sync on
sync rate 30

make object cube 1,1
make object cube 3,1
make object sphere 2,1
turn object right 1,90
turn object right 2,90
turn object right 3,90

move object 1, 10
move object 2, -5
move camera -10

set global collision on
do
move object 1,-0.25
if object exist(2)
if object collision(2,1) = 1
 delete object 2
endif
endif
if object exist(3)
if object collision(1,3) = 1
 delete object 3
endif
endif
sync
loop

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 17th Dec 2006 21:18 Edited at: 17th Dec 2006 21:20

Link

It's easier to use a zero in the collision check... that way you don't have to repeat commands to do the same thing or check if the object exists before checking collision.

+ Code Snippet

sync on
sync rate 30

make object cube 1,1
make object cube 3,1
make object sphere 2,1
turn object right 1,90
turn object right 2,90
turn object right 3,90

move object 1, 10
move object 2, -5
move camera -10

set global collision on
do
move object 1,-0.25

` Check collision with zero returns the object number it hits
if object collision(1,0)>0
 delete object object collision(1,0)
endif

sync
loop

Back to top

Profile PM Email

Ankillito

18

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 17th Dec 2006 22:54

Link

I copied and pasted that code into DB, but it did nothing to the sphere!! What's going on?!? Again, might this only be happening to me because this is the trial version?

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 17th Dec 2006 23:01

Link

most probably.
run the collision demo from the trial version as well to confirm.

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 20th Dec 2006 12:20

Link

I just tested that in Classic (wrote in Pro) and I now see what you mean. The sphere stays there as if it was never hit (though clearly goes right through it).

This has got to be a major bug in Classic... the only bad thing is it won't ever be fixed. In Pro it works like a charm... so when you decide to buy Darkbasic... make sure it's Darkbasic Pro. Pro is much faster and better anyway.

Back to top

Profile PM Email

Lukas W

21

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 20th Dec 2006 14:06 Edited at: 20th Dec 2006 14:07

Link

try my "sphere collision" snippet: http://lukasw.com/?page=codebase&status=show&nr=2.

it should give you an idea of how to check for collision with spheres,
if you're having trouble implementing it i've done it for you:

+ Code Snippet

sync on
sync rate 30

make object cube 1,1
make object cube 3,1
make object sphere 2,1
turn object right 1,90
turn object right 2,90
turn object right 3,90

move object 1, 10
move object 2, -5
move camera -10

set global collision on
do
move object 1,-0.25

` Check collision with zero returns the object number it hits
if object collision(1,0)>0
 delete object object collision(1,0)
endif

` check for collision against the sphere
   if object exist(2)=1
      If sphere_collision( 1, 2, 1 ) = 1
         delete object 2
      EndIf
   endif

sync
loop


function sphere_collision(nr1,nr2,dist)
  x1# = object position x(nr1) : y1# = object position y(nr1) : z1# = object position z(nr1)
  x2# = object position x(nr2) : y2# = object position y(nr2) : z2# = object position z(nr2)
  if sqrt( (x1#-x2#)^2 + (y1#-y2#)^2 + (z1#-z2#)^2 ) < dist then exitfunction 1
endfunction 0

Game Manager

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Collision With Spheres