Enemy snowball Collisions

Blitz3D Forums/Blitz3D Beginners Area/Enemy snowball Collisions

Happy Llama

(Posted 2012) [#1]

OK maybe I didn't solve my question :(. I made a new topic because I knew people wouldn't respond to the other one. I have a function that detects a player snowball vs. the enemy. I have copied it and made another function that I have changed to be a enemy snowball vs. player collision but it isn't working. The debug log isn't even registering that the snowball has collided. What else do I need to change to fix this?

The Player snowball function:

Function esnowball_collisions()
For a.snowball = each snowball
For collision_id = 2 to CountCollisions(a\mesh)
collision_entity = CollisionEntity(a\mesh, collision_id)
If GetEntityType(collision_entity) = type_enemy
enemyhealth=enemyhealt-a\damage
DebugLog "playerhealth" + playerhealth
playerhealth=playerhealth-a\damage
FreeEntity a\mesh
Delete a
Exit
End If
Next
Next
End Function

Drak	(Posted 2012) [#2]

2 things I noticed-
Shouldn't this line:

For collision_id = 2 to CountCollisions(a\mesh)
;BE this instead:
For collision_id = 1 to CountCollisions(a\mesh)

And also:

If GetEntityType(collision_entity) = type_enemy
;Shouldn't you check to see if it hit the player... not the enemy?
If GetEntityType(collision_entity) = type_player

Happy Llama

(Posted 2012) [#3]

I've changed the things you said, same result.

Drak	(Posted 2012) [#4]

Have you remembered to add the new function into the program loop? I know I've done that before and not realized I never added it into the main loop!

Happy Llama

(Posted 2012) [#5]

Yah I've declared it in the main loop.

Drak	(Posted 2012) [#6]

I'm afraid you'll have to post the code for anyone to help.

Happy Llama

(Posted 2012) [#7]

Here it is:



Graphics3D 800,600,0,2
SetBuffer BackBuffer()

gametimer=MilliSecs()

;variables
Global spacebar=57,escape=1,leftkey=208,rightkey=205
Global gravity=0.3
Global snowball_y=0
Global cam_y#=-3
Global cam_x#=0 
Global magazine=10
Global playerhealth=100
Global enemyhealth=100
Global score = 0
Global collision_id
Global collision_entitiy

HidePointer

shoosh=LoadSound("swoosh.wmv")

;Types

Type snowball
	Field mesh	
	Field id	
	Field damage
End Type

Type player
Field health
End Type
 
;Type enemy
;Field health
;End Type

Const type_player=1
Const type_enemy=2
Const type_playersnowball=3
Const type_enemysnowball=4
Const type_playerfort=5
Const type_enemyfort=6

AmbientLight 255,255,255

;Light
sun=CreateLight()

;Player
player=CreateCamera()
CameraFogRange player,0.1,400
CameraFogMode player,True
CameraClsColor player,100,130,150
CameraFogColor player,100,130,150
EntityType player,type_player

;Terrain
Global ground=CreatePlane()
PositionEntity ground,0,-5,0
EntityColor ground,200,200,200


;Sky
Global sky=CreatePlane()
PositionEntity sky,0,100,0
RotateEntity sky,-180,0,0
;Sky texture
Global skytex=LoadTexture("sky.jpg")
EntityTexture sky,skytex
ScaleTexture skytex,5,5
ScaleTexture skytex,500,500

;Load the enemy

Global enemy=LoadMesh("enemy.3ds")
PositionEntity enemy,0,-4,27
ScaleEntity enemy,0.4,0.4,0.4
EntityType enemy,type_enemy

;Create the bullets
Global snowball=CreateSphere()
ScaleEntity snowball,0.5,0.5,0.5
HideEntity snowball



;Make the snow forts:

;Fort 1
Global fort1=LoadMesh("snowfort.3ds")
PositionEntity fort1,0,-3.5,4
EntityColor fort1,255,255,255
ScaleEntity fort1,1,1,2.5
RotateEntity fort1,0,-90,0


;Fort 2
Global fort2=CreateCube()
PositionEntity fort2,0,-4,25
EntityColor fort2,255,255,255
ScaleEntity fort2,2,1,1

;Making it snow!

;Dim snowflake(1000)

;For p=0 To 1000

;snowflake(p)=CreateSphere()

;ScaleEntity snowflake(p),0.05,0.05,0.05

;PositionEntity snowflake(p),Rnd(-50,50),Rnd(1,100),Rnd(-50,50)

;Next

Collisions type_playersnowball, type_enemy, 2,2

;###############
;#  Main Loop  #
;###############
While Not KeyDown (escape)

;enemy snowballs
If MouseHit(2) Then
	a.snowball = New snowball
	a\mesh = CopyEntity(snowball)
	a\id = 2
	a\damage = 5
	PositionEntity a\mesh,EntityX(enemy),EntityY(enemy),EntityZ(enemy)
	RotateEntity a\mesh, EntityPitch(enemy),EntityYaw(enemy),EntityRoll(enemy)
	EntityType a\mesh,type_enemysnowball 
End If

For a.snowball = Each snowball
	MoveEntity a\mesh,0,0,0.00005
	If Abs(EntityZ(a\mesh)) > 400
	FreeEntity a\mesh
	Delete a
	End If
Next	 





;player snowballs
If MouseHit(1) And magazine > 0	And cam_y=-3.0
	s.snowball = New snowball 		
	s\mesh = CopyEntity(snowball)		
	s\id = 1						
	s\damage = 5				
	PositionEntity s\mesh,EntityX(player),EntityY(player),EntityZ(player)			
	RotateEntity s\mesh, EntityPitch(player),EntityYaw(player),EntityRoll(player)	
	magazine = magazine -1
	EntityType s\mesh,type_playersnowball
	EntityRadius s\mesh, 2			
End If 


For s.snowball = Each snowball		
	MoveEntity s\mesh, 0,0,1		
	If Abs(EntityZ(s\mesh)) > 400 	
	    FreeEntity s\mesh			
		Delete s					
	End If
Next

If KeyHit(18)>0 And magazine < 1 Then 
	magazine = 10
EndIf 

If magazine < 1 Then
	Text 100,100,"Press E to Reload"
EndIf  

;Collisions:

psnowball_collisions()
esnowball_collisions()


;Move the snow downwards
;For l=0 To 1000
;MoveEntity snowflake(l),0,Rnd(-0.002,-0.1),0
;Next

;duck 

If KeyDown(57) Then  
cam_y=-3.7
Else
cam_y=-3
EndIf

PositionEntity player,cam_x,cam_y,3

;straffting  

If KeyDown(30) Then cam_x=cam_x-0.1

If KeyDown(32) Then cam_x=cam_x+0.1


If cam_x > 0.5 Then cam_x=0.5
If cam_x < -0.5 Then cam_x=-0.5 

;point the enemy at the player
If enemyhealth > 0
	PointEntity enemy,player
End If 

;FPS Camera Stuff
mx#=mx#+MouseXSpeed()
my#=my#+MouseYSpeed()

If mx# > 100 Then mx# = 100
If mx# < -100 Then mx# = -100

If my# > 40 Then my# = 40
If my# < -80 Then my# = -80

RotateEntity player,my#,-mx#,0



RenderWorld

UpdateWorld 

Color 0,0,0

Rect 10,10,200,100,False

Text 20,20,"Snowballs left: "+ magazine
Text 20,40,"Health: "+ playerhealth
Text 20,60,"Score: " + score

Flip




Wend



End


Function psnowball_collisions()	
	For s.snowball = Each snowball						
		For collision_id = 1 To CountCollisions(s\mesh)	
			collision_entity = CollisionEntity(s\mesh, collision_id)
				If GetEntityType(collision_entity) = type_enemy		
					enemyhealth = enemyhealth - s\damage				
						DebugLog "enemyhealth " + enemyhealth
						score = score + 1
						FreeEntity s\mesh	
						Delete s			
							If enemyhealth <= 0 Then FreeEntity enemy	
						Exit
				End If
		Next
	Next
End Function 


Function esnowball_collisions()	
	For a.snowball = Each snowball						
		For collision_id = 1 To CountCollisions(a\mesh)	
			collision_entity = CollisionEntity(a\mesh, collision_id)
				If GetEntityType(collision_entity) = type_player		
					enemyhealth = enemyhealth - a\damage				
						DebugLog "playerhealth " + playerhealth
						playerhealth=playerhealth-a\damage
						FreeEntity a\mesh	
						Delete a				
						Exit
				End If
		Next
	Next
End Function

Rob the Great

(Posted 2012) [#8]

Whenever you wish to use collisions, you have to tell Blitz what collides with what. Above the Main Loop, change this line in your game:

Collisions type_playersnowball, type_enemy, 2,2

to these lines:

Collisions type_playersnowball, type_enemy, 2,2
Collisions type_enemysnowball, type_player,1,2 ;note the 1,2. 1 means "sphere to sphere" check.

It took me a little bit to figure this out, but I got it to work on my end, I just had to replace your media with Blitz primitives. It should work if you add in the extra collisions line, but I did do a lot of debugging, so I might be forgetting something else important I changed. Let me know if it doesn't work.

Last edited 2012

Happy Llama

(Posted 2012) [#9]

Thanks that's great its really coming together now! One final thing then i'll shut up. I have it set up so when you click the right mouse button the enemy shoots a snowball. I know how to make it loop forever but I don't want a huge spray of snowballs. How do I make it so it delays the snowball throwing.

If MouseHit(2) Then
	a.snowball = New snowball
	a\mesh = CopyEntity(snowball)
	a\id = 2
	a\damage = 5
	PositionEntity a\mesh,EntityX(enemy),EntityY(enemy),EntityZ(enemy)
	RotateEntity a\mesh, EntityPitch(enemy),EntityYaw(enemy),EntityRoll(enemy)
	EntityType a\mesh,type_enemysnowball 
End If

Rob the Great

(Posted 2012) [#10]

Are you talking about throwing x amount of snowballs per second? If so, your best bet would be to either use Millisecs() with timers, or use a frame counter as a timer.

Using the second method, a way to do this might be:

frametimer = 0

While Not KeyDown(1)

   ThrowSnowballs(frametimer)

   frametimer = frametimer + 1

Wend

Function ThrowSnowballs(timer)

   If timer Mod 4 = 1 ;this basically says that on every 4th frame, throw a snowball. Change 4 to change the rate
        a.snowball = New snowball
	a\mesh = CopyEntity(snowball)
	a\id = 2
	a\damage = 5
	PositionEntity a\mesh,EntityX(enemy),EntityY(enemy),EntityZ(enemy)
	RotateEntity a\mesh, EntityPitch(enemy),EntityYaw(enemy),EntityRoll(enemy)
	EntityType a\mesh,type_enemysnowball
   EndIf

End Function

I'm not sure if I follow your question, so if this isn't what you mean, try to give me a little more detail as to what you mean by delay the throwing.

Happy Llama

(Posted 2012) [#11]

How would you do this with the Millisecs() command

Rob the Great

(Posted 2012) [#12]

Global snowballtimer = Millisecs()

While Not KeyDown(1)

   ThrowSnowballs()

Wend

Function ThrowSnowballs()

   If Millisecs() >= snowballtimer + 1000 ;If 1 second has passed...
        snowballtimer = Millisecs() ;Reset the timer
        a.snowball = New snowball
	a\mesh = CopyEntity(snowball)
	a\id = 2
	a\damage = 5
	PositionEntity a\mesh,EntityX(enemy),EntityY(enemy),EntityZ(enemy)
	RotateEntity a\mesh, EntityPitch(enemy),EntityYaw(enemy),EntityRoll(enemy)
	EntityType a\mesh,type_enemysnowball
   EndIf

End Function

Keep in mind that the above example is time specific, not frames per second specific. In other words, if your game rendering changes speeds, you could end up throwing more or less snowballs than what you are intending to do.

Happy Llama

(Posted 2012) [#13]

I'm getting this weird thing where the more damage the enemy deals, the less snowballs it takes to defeat him. Also, thanks Rob for all your help!

Last edited 2012

Rob the Great

(Posted 2012) [#14]

I'm not sure what the problem would be. My guess is that you're using the same snowball damage from both snowball ID's. Check that the s\damage field is correct with what you are intending to do.