3D Multiple Collisions - GameCreators Forum

Author

Message

Kozax

8

Years of Service

User Offline

Joined: 28th Jul 2015

Location: London, UK

Posted: 12th Sep 2015 16:22

Link

Hello,

I have 3 objects: Player, Shield and EnemyProjectile

I want to check collisions so I looked at an example and for the 1st collision(Player, EnemyProjectile) I did this:

+ Code Snippet

ObjectHit1 = ObjectRayCast(0, GetObjectX(EnemyProjectile), GetObjectY(EnemyProjectile), GetObjectZ(EnemyProjectile), 
GetObjectX(Player),GetObjectY(Player),GetObjectZ(Player))
	
If ObjectHit1 = 0
	DeleteObject(EnemyProjectile)
EndIf

After that, I wanted to check collision for the Shield and the EnemyProjectile:

+ Code Snippet

ObjectHit2 = ObjectRayCast(0, GetObjectX(EnemyProjectile), GetObjectY(EnemyProjectile), GetObjectZ(EnemyProjectile), 
GetObjectX(Shield),GetObjectY(Shield),GetObjectZ(Shield))
	
If ObjectHit2 = 0
	DeleteObject(EnemyProjectile)
	Score = Score + 1
EndIf

But with the second collision check, the EnemyProjectile doesn't get deleted but the Score adds 1 point. I also tried changing the "0" in ObjectRayCast of the second collision to "Shield" but with this it keeps deleting the EnemyProjectiles even before the collision happens.

Can anyone help, I'm really new with the 3d stuff.

Back to top

Profile PM

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 12th Sep 2015 16:56

Link

I have never even looked at 3d raycast until now. But shouldn't it look like this.

+ Code Snippet

ObjectHit2 = ObjectRayCast(Shield, GetObjectX(EnemyProjectile), GetObjectY(EnemyProjectile), GetObjectZ(EnemyProjectile), 
GetObjectX(EnemyProjectile)+ 10,GetObjectY(EnemyProjectile) + 10,GetObjectZ(EnemyProjectile)+ 10)

This would check to see if the raycast casting off the Projectile hits the Object ID Shield.

integer ObjectRayCast( objID, oldx, oldy, oldz, newx, newy, newz )

objID - The ID of the object to check, 0 for all objects.
•oldx - The X component of the start position.
•oldy - The Y component of the start position.
•oldz - The Z component of the start position.
•newx - The X component of the end position.
•newy - The Y component of the end position.
•newz - The Z component of the end position.

NewX, NewY, NewZ is the distance you want the ray to cast.

You are currently Casting the ray the distance between the Projectile and Player. I would assume it would be deleted instantly and you would never see the Projectile.

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

Kozax

8

Years of Service

User Offline

Joined: 28th Jul 2015

Location: London, UK

Posted: 12th Sep 2015 17:18 Edited at: 12th Sep 2015 17:20

Link

I tried your way but still it doesn't work (it still deletes them even before moving).
I also tried in the 1st one to use "Player" instead of "0" like this:

+ Code Snippet

ObjectHit1 = ObjectRayCast(Player, GetObjectX(EnemyProjectile), GetObjectY(EnemyProjectile), GetObjectZ(EnemyProjectile), GetObjectX(Player),GetObjectY(Player),GetObjectZ(Player))
ObjectHit2 = ObjectRayCast(Shield, GetObjectX(EnemyProjectile), GetObjectY(EnemyProjectile), GetObjectZ(EnemyProjectile), GetObjectX(Shield),GetObjectY(Shield),GetObjectZ(Shield))

But again, only the 1st one works. Any ideas?

Back to top

Profile PM

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 12th Sep 2015 17:32 Edited at: 12th Sep 2015 17:40

Link

I will work up an example just because I'm interested...But again, you are casting the ray the distance between 2 objects. Its going to return true the instant the situation exists...Which is not what you want.

You only want NewX,NewY,NewZ to fill the shape of the object or the distance you are wanting to cast.

You don't want to cast from Projectile to Shield....Because if your 1000000000000000 pixles away its instant collision because you have it wired that way.

You barley want the raycast of the projectile offset of the projectile if any at all. Like I have shown you in the example above.

If ObjectHit2 = 1 (Not 0)
DeleteObject(EnemyProjectile)
Score = Score + 1
EndIf

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 12th Sep 2015 17:54

Link

// this example should work in AGK V1 and AGK V2

// use the w and s key or the push up and down on the on screen joystick to move the two spheres back and forth
// the cube will turn red if the raycast - from the green sphere to the red sphere - intersects it

// create a box (it will automaticall be located at point 0,0,0)
CreateObjectBox(1,2,2,2)

// create a green sphere and position it
CreateObjectSphere(2,10,12,12)
SetObjectColor(2,0,255,0,255)
SetObjectPosition(2,-50,0,50)

// create a red sphere and position it
CreateObjectSphere(3,10,12,12)
SetObjectColor(3,255,0,0,255)
SetObjectPosition(3,50,0,50)

// create a direction to make the whole scene look better (go on, delete this line and you'll find out why I included it)
CreateLightDirectional(1,-1,-1,-1,255,255,255)

// position and orientate the camera
SetCameraPosition(1,0,150,-60)
SetCameraLookAt(1,0,0,0,0)

fire = 0

// main loop
do
		  	BulletStartX# = GetObjectX(3)
	            BulletStartY# = GetObjectY(3)
	              BulletStartZ# = GetObjectZ(3)

If Fire = 0
		SetObjectPosition(1,BulletStartX#, BulletStartY#,BulletStartZ#)
		endif
		
	      If Fire = 1
		
			  SetObjectPosition(1,GetObjectX(1) -5, BulletStartY#,BulletStartZ#)
			  endif
			  
			  If GetPointerPressed() = 1
				  Fire = 1
				  endif
				  
				  
				  BulletDamage = ObjectRayCast (2,GetObjectX(1),GetObjectY(1),GetObjectZ(1),GetObjectX(1)+5,GetObjectY(1)+5,GetObjectZ(1)+5)
				  
				  If BulletDamage = 1
					 
					  Fire = 0
					  endif

sync()
loop

+ Code Snippet

// this example should work in AGK V1 and AGK V2

// use the w and s key or the push up and down on the on screen joystick to move the two spheres back and forth
// the cube will turn red if the raycast - from the green sphere to the red sphere - intersects it

// create a box (it will automaticall be located at point 0,0,0)
CreateObjectBox(1,2,2,2)

// create a green sphere and position it
CreateObjectSphere(2,10,12,12)
SetObjectColor(2,0,255,0,255)
SetObjectPosition(2,-50,0,50)

// create a red sphere and position it
CreateObjectSphere(3,10,12,12)
SetObjectColor(3,255,0,0,255)
SetObjectPosition(3,50,0,50)

// create a direction to make the whole scene look better (go on, delete this line and you'll find out why I included it)
CreateLightDirectional(1,-1,-1,-1,255,255,255)

// position and orientate the camera
SetCameraPosition(1,0,150,-60)
SetCameraLookAt(1,0,0,0,0)

fire = 0

// main loop
do
		  	BulletStartX# = GetObjectX(3)
	            BulletStartY# = GetObjectY(3)
	              BulletStartZ# = GetObjectZ(3)

	
	If Fire = 0
		SetObjectPosition(1,BulletStartX#, BulletStartY#,BulletStartZ#)
		endif
		
	      If Fire = 1
		
			  SetObjectPosition(1,GetObjectX(1) -5, BulletStartY#,BulletStartZ#)
			  endif
			  
			  If GetPointerPressed() = 1
				  Fire = 1
				  endif
				  
				  
				  BulletDamage = ObjectRayCast (2,GetObjectX(1),GetObjectY(1),GetObjectZ(1),GetObjectX(1)+5,GetObjectY(1)+5,GetObjectZ(1)+5)
				  
				  If BulletDamage = 1
					 
					  Fire = 0
					  endif
	

     

        sync()
loop

Working Example thanks to 29 games. I just modified his example a bit.

Click the Pointer to fire the bullet at the green sphere.
Once the Green Sphere is hit. The bullet is repositioned back at the red sphere, ready to fire again.

You will notice how I set up the raycast.

+ Code Snippet

  BulletDamage = ObjectRayCast (2,GetObjectX(1),GetObjectY(1),GetObjectZ(1),GetObjectX(1)+5,GetObjectY(1)+5,GetObjectZ(1)+5)
				  
				  If BulletDamage = 1
					 
					  Fire = 0
					  endif

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

Kozax

8

Years of Service

User Offline

Joined: 28th Jul 2015

Location: London, UK

Posted: 12th Sep 2015 19:56 Edited at: 12th Sep 2015 19:57

Link

Thank you for your reply, I understand what you did but it doesn't seem to work for me for some reason.

Please check this example of my project that I made, you don't need any assets:

// set window properties
SetWindowTitle( "3DCollision" )
SetWindowSize( 1024, 768, 0 )

// set display properties
//Set display properties
SetVirtualResolution(1024, 768)
SetOrientationAllowed(1, 1, 0, 0)
SetCameraPosition(1, 0, 0, -11)
SetCameraLookAt(1, 0, 0, 0, 0)
SetGlobal3DDepth(2)

//Create Main Light
CreateLightDirectional(1,-1,-1,0,255,255,255)

//Create Objects
Player = CreateObjectSphere(30, 30, 30)
SetObjectScale(Player, 0.05, 0.05, 0.05)
SetObjectPosition(Player, -1, 0, 0)
SetObjectColor(Player, 255, 0,0,255)

Shield = CreateObjectSphere(30, 30, 30)
SetObjectScale(Shield, 0.02, 0.1, 0.02)
SetObjectPosition(Shield, 0.5, 0, 0)
SetObjectColor(Shield, 0, 0, 255,255)

Dim Bullets[-1] as integer
TemplateBulllet = CreateObjectBox(0.5, 0.5, 0.5)
SetObjectPosition(TemplateBulllet, -20, 0, 0)
SetObjectColor(Shield, 0, 255, 0,255)

do
	//Spawn Bullets
	If Timer() - Time# > 1
		Bullets.length = Bullets.length + 1	
		tempBullets = CloneObject(TemplateBulllet)
		SpawnLocation = random(1,2)
		Select SpawnLocation
			Case 1
				SetObjectPosition(tempBullets, 4, 0, 0)
			EndCase
			Case 2
				SetObjectPosition(tempBullets, -4, 0, 0)
			EndCase
		EndSelect
		Bullets[Bullets.length] = tempBullets
		Time# = Timer()
	EndIf
	
	For m = 0 to Bullets.length step 1
		
		//Bullet Movement
		SetObjectLookAt(Bullets[m], GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player), 0)
		MoveObjectLocalZ(Bullets[m], 0.03)
		
		//Delete Bullets
		RemoveComet = 0
		//Collision with Player
		ObjectHit1 = ObjectRayCast(Player, GetObjectX(Bullets[m]), GetObjectY(Bullets[m]), GetObjectZ(Bullets[m]), GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player))
		If ObjectHit1 = 1
			RemoveComet = 1
		EndIf
		//Collision with Shield
		ObjectHit2 = ObjectRayCast(Shield, GetObjectX(Bullets[m]), GetObjectY(Bullets[m]), GetObjectZ(Bullets[m]), GetObjectX(Bullets[m])+ 10,GetObjectY(Bullets[m]) + 10,GetObjectZ(Bullets[m])+ 10)
		If ObjectHit2 = 1
			Score = Score + 1
			RemoveComet = 1
		EndIf
		
		//Delete Comets
		If RemoveComet = 1
			DeleteObject(Bullets[m])
			Bullets.remove(m)
		EndIf
	next m

Print(Bullets.length)
	Print( ScreenFPS() )
	Sync()	
loop

+ Code Snippet

// set window properties
SetWindowTitle( "3DCollision" )
SetWindowSize( 1024, 768, 0 )

// set display properties
//Set display properties
SetVirtualResolution(1024, 768)
SetOrientationAllowed(1, 1, 0, 0)
SetCameraPosition(1, 0, 0, -11)
SetCameraLookAt(1, 0, 0, 0, 0)
SetGlobal3DDepth(2)

//Create Main Light
CreateLightDirectional(1,-1,-1,0,255,255,255)

//Create Objects
Player = CreateObjectSphere(30, 30, 30)
SetObjectScale(Player, 0.05, 0.05, 0.05)
SetObjectPosition(Player, -1, 0, 0)
SetObjectColor(Player, 255, 0,0,255)

Shield = CreateObjectSphere(30, 30, 30)
SetObjectScale(Shield, 0.02, 0.1, 0.02)
SetObjectPosition(Shield, 0.5, 0, 0)
SetObjectColor(Shield, 0, 0, 255,255)

Dim Bullets[-1] as integer
TemplateBulllet = CreateObjectBox(0.5, 0.5, 0.5)
SetObjectPosition(TemplateBulllet, -20, 0, 0)
SetObjectColor(Shield, 0, 255, 0,255)



do
	//Spawn Bullets
	If Timer() - Time# > 1
		Bullets.length = Bullets.length + 1	
		tempBullets = CloneObject(TemplateBulllet)
		SpawnLocation = random(1,2)
		Select SpawnLocation
			Case 1
				SetObjectPosition(tempBullets, 4, 0, 0)
			EndCase
			Case 2
				SetObjectPosition(tempBullets, -4, 0, 0)
			EndCase
		EndSelect
		Bullets[Bullets.length] = tempBullets
		Time# = Timer()
	EndIf
	
	For m = 0 to Bullets.length step 1
		
		//Bullet Movement
		SetObjectLookAt(Bullets[m], GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player), 0)
		MoveObjectLocalZ(Bullets[m], 0.03)
		
		//Delete Bullets
		RemoveComet = 0
		//Collision with Player
		ObjectHit1 = ObjectRayCast(Player, GetObjectX(Bullets[m]), GetObjectY(Bullets[m]), GetObjectZ(Bullets[m]), GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player))
		If ObjectHit1 = 1
			RemoveComet = 1
		EndIf
		//Collision with Shield
		ObjectHit2 = ObjectRayCast(Shield, GetObjectX(Bullets[m]), GetObjectY(Bullets[m]), GetObjectZ(Bullets[m]), GetObjectX(Bullets[m])+ 10,GetObjectY(Bullets[m]) + 10,GetObjectZ(Bullets[m])+ 10)
		If ObjectHit2 = 1
			Score = Score + 1
			RemoveComet = 1
		EndIf
		
		//Delete Comets
		If RemoveComet = 1
			DeleteObject(Bullets[m])
			Bullets.remove(m)
		EndIf
	next m

	Print(Bullets.length)
	Print( ScreenFPS() )
	Sync()	
loop

Could you please tell me where I'm wrong? I followed your instruction but it doesn't work.
(You can see that they are not being deleted from the Print)

Cheers

Back to top

Profile PM

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 12th Sep 2015 20:53 Edited at: 12th Sep 2015 20:56

Link

I don't have time at the moment to cypher through your example...But at a quick glance

No Objects are being deleted
You can witness this by setting SetObjectVisible(Player,0)

If I was to guess the problem is where you are spawning the bullets and defining the OBJECTID correctly.

Also the PlayerHit raycast is still wrong, once you get the OBJECT IDS sorted out.

Once I get done with some yardwork, I will give it a closer look.

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 19th Sep 2015 00:48 Edited at: 19th Sep 2015 00:48

Link

Hi Kozax

Unfortunately there is a bug when using the SetObjectScale command and the collision commands: ray casts won't register with scaled objects.

I've had a quick look at your code and managed to modify it to get it to work (this was taken from the last bit of code you posted).

// set window properties
SetWindowTitle( "3DCollision" )
SetWindowSize( 1024, 768, 0 )

// set display properties
//Set display properties
SetVirtualResolution(1024, 768)
SetOrientationAllowed(1, 1, 0, 0)
SetCameraPosition(1, 0, 0, -11)
SetCameraLookAt(1, 0, 0, 0, 0)
SetGlobal3DDepth(2)

//Create Main Light
CreateLightDirectional(1,-1,-1,0,255,255,255)

//Create Objects
Player = CreateObjectSphere(1.5, 30, 30)
SetObjectPosition(Player, -1, 0, 0)
SetObjectColor(Player, 255, 0,0,255)

Shield = CreateObjectBox(0.6, 2, 2)
SetObjectPosition(Shield, 0.5, 0, 0)
SetObjectColor(Shield, 0, 0, 255,255)

Dim Bullets[-1] as integer
TemplateBulllet = CreateObjectBox(0.5, 0.5, 0.5)
SetObjectPosition(TemplateBulllet, -20, 0, 0)
SetObjectColor(TemplateBulllet, 0, 255, 0,255)

do
	//Spawn Bullets
	If Timer() - Time# > 1
		Bullets.length = Bullets.length + 1
		tempBullets = CloneObject(TemplateBulllet)
		SpawnLocation = random(1,2)
		Select SpawnLocation
			Case 1
				SetObjectPosition(tempBullets, 4, 0, 0)
			EndCase
			Case 2
				SetObjectPosition(tempBullets, -4, 0, 0)
			EndCase
		EndSelect
		Bullets[Bullets.length] = tempBullets
		Time# = Timer()
	EndIf

For m = 0 to Bullets.length step 1

// save bullet's old position
		xo# = GetObjectX(Bullets[m])
		yo# = GetObjectY(Bullets[m])
		zo# = GetObjectZ(Bullets[m])

// move bullet
		SetObjectLookAt(Bullets[m], GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player), 0)
		MoveObjectLocalZ(Bullets[m], 0.03)

// get bullet's new position (it's best to save these to a variable as they get used twice, once for each collision check)
		xn# = GetObjectX(Bullets[m])
		yn# = GetObjectY(Bullets[m])
		zn# = GetObjectZ(Bullets[m])

//Delete Bullets
		RemoveComet = 0

//Collision with Shield
		ObjectHit2 = ObjectRayCast(Shield, xo#, yo#, zo#, xn#, yn#, zn#)
		If ObjectHit2 = 1
			Score = Score + 1
			RemoveComet = 1
		EndIf

//Collision with Player (you don't need to detect collision with the player if the bullet has already hit the shield)
		if RemoveComet = 0
			ObjectHit1 = ObjectRayCast(Player, xo#, yo#, zo#, xn#, yn#, zn#)
			If ObjectHit1 = 1
				RemoveComet = 1
			EndIf
		endif

//Delete Comets
		If RemoveComet = 1
			DeleteObject(Bullets[m])
			Bullets.remove(m)
		EndIf
	next m

Print(Bullets.length)
	Print( ScreenFPS() )
	Sync()
loop

+ Code Snippet

// set window properties
SetWindowTitle( "3DCollision" )
SetWindowSize( 1024, 768, 0 )

// set display properties
//Set display properties
SetVirtualResolution(1024, 768)
SetOrientationAllowed(1, 1, 0, 0)
SetCameraPosition(1, 0, 0, -11)
SetCameraLookAt(1, 0, 0, 0, 0)
SetGlobal3DDepth(2)

//Create Main Light
CreateLightDirectional(1,-1,-1,0,255,255,255)

//Create Objects
Player = CreateObjectSphere(1.5, 30, 30)
SetObjectPosition(Player, -1, 0, 0)
SetObjectColor(Player, 255, 0,0,255)

Shield = CreateObjectBox(0.6, 2, 2)
SetObjectPosition(Shield, 0.5, 0, 0)
SetObjectColor(Shield, 0, 0, 255,255)

Dim Bullets[-1] as integer
TemplateBulllet = CreateObjectBox(0.5, 0.5, 0.5)
SetObjectPosition(TemplateBulllet, -20, 0, 0)
SetObjectColor(TemplateBulllet, 0, 255, 0,255)



do
	//Spawn Bullets
	If Timer() - Time# > 1
		Bullets.length = Bullets.length + 1
		tempBullets = CloneObject(TemplateBulllet)
		SpawnLocation = random(1,2)
		Select SpawnLocation
			Case 1
				SetObjectPosition(tempBullets, 4, 0, 0)
			EndCase
			Case 2
				SetObjectPosition(tempBullets, -4, 0, 0)
			EndCase
		EndSelect
		Bullets[Bullets.length] = tempBullets
		Time# = Timer()
	EndIf

	For m = 0 to Bullets.length step 1

		// save bullet's old position
		xo# = GetObjectX(Bullets[m])
		yo# = GetObjectY(Bullets[m])
		zo# = GetObjectZ(Bullets[m])

		// move bullet
		SetObjectLookAt(Bullets[m], GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player), 0)
		MoveObjectLocalZ(Bullets[m], 0.03)

		// get bullet's new position (it's best to save these to a variable as they get used twice, once for each collision check)
		xn# = GetObjectX(Bullets[m])
		yn# = GetObjectY(Bullets[m])
		zn# = GetObjectZ(Bullets[m])


		//Delete Bullets
		RemoveComet = 0

		//Collision with Shield
		ObjectHit2 = ObjectRayCast(Shield, xo#, yo#, zo#, xn#, yn#, zn#)
		If ObjectHit2 = 1
			Score = Score + 1
			RemoveComet = 1
		EndIf

		//Collision with Player (you don't need to detect collision with the player if the bullet has already hit the shield)
		if RemoveComet = 0
			ObjectHit1 = ObjectRayCast(Player, xo#, yo#, zo#, xn#, yn#, zn#)
			If ObjectHit1 = 1
				RemoveComet = 1
			EndIf
		endif

		//Delete Comets
		If RemoveComet = 1
			DeleteObject(Bullets[m])
			Bullets.remove(m)
		EndIf
	next m

	Print(Bullets.length)
	Print( ScreenFPS() )
	Sync()
loop

The first change was to remove the scaling for the player and the shield (I used a box for the shield).

The other major change was to save the position of the bullet at it's old position and then it's new position after it had been moved.

I put the collision with the shield before the player.

I added an if statement to the effect that if the bullet hit the shield then there was no point doing a collision check with the player.

Hope this helps.

Invaders of the 29th Dimension - available now on Google Play
Find me on indieDB

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers AppGameKit Corner / 3D Multiple Collisions