re-bound code

BlitzMax Forums/BlitzMax Programming/re-bound code

hub	(Posted 2011) [#1]

hi !
Could you help me to debug this ! i want player ship bound on the scrolling tiles. Thanks !

gfx files :

Strict

Const cte_a# = 1.0
Const cte_friction# = 0.85

Global gMap_list:TList = CreateList()

Global gMap_image:TImage = LoadAnimImage ("my_map.png", 32,32,0,9)

If gMap_image = Null Then
	Notify "Error loading map image !"
	End
End If

Global gShip_image:TImage = LoadImage ("ship.png")
MidHandleImage gShip_image

If gShip_image = Null Then
	Notify "Error loading ship image !"
	End
End If

Global gbCollision = False


Type TMyMap

	Field x
	Field y
	Field frame
	
	Function Create_new:TMyMap (x,y, frame)
	
	
		Local s:TMyMap = New TMyMap
		
		s.x = x * 32
		s.y = y * 32
		s.frame = frame
		
		ListAddLast gMap_list, s
		
		Return s
	
	End Function

	Method Update()
	
		For Local s:TMyMap = EachIn gMap_list

			If s.y < GraphicsHeight() Then
				s.y = s.y + 1
			Else
				s.y = 0
			End If
			
			CollideImage gMap_image,s.x,s.y,s.frame,0,COLLISION_LAYER_1
		Next
	
	End Method
	
	Method Draw()

		For Local s:TMyMap = EachIn gMap_list
			DrawImage gMap_image, s.x, s.y, s.frame		
		Next

	End Method

End Type

	

Type TShip

	Field x : Float
	Field y : Float
	
	Field vx#
	Field vy#
	
	Field hImage : TImage
	
	Function Create_new:Tship (x#,y#) 
	
		Local s:TShip = New TShip
	
		s.x# = x#
		s.y# = y#
		s.hImage = gShip_image
		
		Return s

	End Function

	Method Update()
	
		If KeyDown(key_up) Then    vy# = vy# - cte_a#
		If KeyDown(key_down) Then  vy# = vy# + cte_a#
		If KeyDown(key_left) Then  vx# = vx# - cte_a#
		If KeyDown(key_right) Then vx# = vx# + cte_a#
		
		vx# = vx# * cte_friction#
		vy# = vy# * cte_friction#

		If x# > GraphicsWidth() Then 
			vx# = - vx#
			x# = GraphicsWidth()
		End If
			
		If x# < 0 Then 
			vx# = - vx#
			x# = 0
		End If

		If y# > GraphicsHeight() Then 
			vy# = - vy#
			y# = GraphicsHeight()
		End If
			
		If y# < 0 Then 
			vy# = - vy#
			y# = 0
		End If

		If CollideImage(hImage,x,y,0,COLLISION_LAYER_1,0)

			If gbCollision = False
				gbCollision = True
				vx# = -vx#
				vy# = -vy#
			End If
		End If


		x# = x# + vx#
		y# = y# + vy#
		


	End Method
	
	Method Draw()
	
		DrawImage  hImage,x#,y#
		
		If gbCollision = True Then
			DrawText "Collision",0,0
		End If
	
	End Method

End Type

Graphics 800,600,32

Local s:TShip = Tship.Create_new (GraphicsWidth()/2, GraphicsHeight()/2)
Local map:TMyMap

map = TMyMap.Create_new (5,5,0)
map = TMyMap.Create_new (6,5,1)
map = TMyMap.Create_new (7,5,2)
map = TMyMap.Create_new (5,6,3)
map = TMyMap.Create_new (6,6,4)
map = TMyMap.Create_new (7,6,5)
map = TMyMap.Create_new (5,7,6)
map = TMyMap.Create_new (6,7,7)
map = TMyMap.Create_new (7,7,8)


map = TMyMap.Create_new (5+10,5+6,0)
map = TMyMap.Create_new (6+10,5+6,1)
map = TMyMap.Create_new (7+10,5+6,2)
map = TMyMap.Create_new (5+10,6+6,3)
map = TMyMap.Create_new (6+10,6+6,4)
map = TMyMap.Create_new (7+10,6+6,5)
map = TMyMap.Create_new (5+10,7+6,6)
map = TMyMap.Create_new (6+10,7+6,7)
map = TMyMap.Create_new (7+10,7+6,8)


Local FPS_fps:Float = 60 'fps
Local FPS_time:Float = 1000 / FPS_fps
Local FPS_timer:Float = MilliSecs() + FPS_time	
Local FPS_ms:Float


While Not KeyDown(KEy_ESCAPE)


    FPS_ms = MilliSecs()

	' gestion de la souris

	If (FPS_ms >= FPS_timer) Then



	    	FPS_timer = FPS_ms + FPS_time

		ResetCollisions (COLLISION_LAYER_1)	
		gbCollision = False

		Cls
	
		map.update()
		map.draw()
	
		s.update()
		s.Draw()
		Flip 0
		
	End If
Wend

matibee

(Posted 2011) [#2]

Your options are a bit limited with your current collision/ reaction set up. You need to be able to differentiate between the player being pushed back by the map and the player flying into the map.

This sort of adds pushing back.. (but it also effects other collisions). See the first few lines of TShip.Update()

Strict

Const cte_a# = 1.0
Const cte_friction# = 0.85

Global gMap_list:TList = CreateList()

Global gMap_image:TImage = LoadAnimImage ("my_map.png", 32,32,0,9)

If gMap_image = Null Then
	Notify "Error loading map image !"
	End
End If

Global gShip_image:TImage = LoadImage ("ship.png")
MidHandleImage gShip_image

If gShip_image = Null Then
	Notify "Error loading ship image !"
	End
End If

Global gbCollision = False


Type TMyMap

	Field x
	Field y
	Field frame
	
	Function Create_new:TMyMap (x,y, frame)
	
	
		Local s:TMyMap = New TMyMap
		
		s.x = x * 32
		s.y = y * 32
		s.frame = frame
		
		ListAddLast gMap_list, s
		
		Return s
	
	End Function

	Method Update()
	
		For Local s:TMyMap = EachIn gMap_list

			If s.y < GraphicsHeight() Then
				s.y = s.y + 1
			Else
				s.y = 0
			End If
			
			CollideImage gMap_image,s.x,s.y,s.frame,0,COLLISION_LAYER_1
		Next
	
	End Method
	
	Method Draw()

		For Local s:TMyMap = EachIn gMap_list
			DrawImage gMap_image, s.x, s.y, s.frame		
		Next

	End Method

End Type

	

Type TShip

	Field x : Float
	Field y : Float
	
	Field vx#
	Field vy#
	
	Field hImage : TImage
	
	Function Create_new:Tship (x#,y#) 
	
		Local s:TShip = New TShip
	
		s.x# = x#
		s.y# = y#
		s.hImage = gShip_image
		
		Return s

	End Function

	Method Update()
		
		If CollideImage(hImage,x,y,0,COLLISION_LAYER_1,0)
				y# :+ 2
				Return 
		End If

	
		If KeyDown(key_up) Then    vy# = vy# - cte_a#
		If KeyDown(key_down) Then  vy# = vy# + cte_a#
		If KeyDown(key_left) Then  vx# = vx# - cte_a#
		If KeyDown(key_right) Then vx# = vx# + cte_a#
		
		vx# = vx# * cte_friction#
		vy# = vy# * cte_friction#

		If x# > GraphicsWidth() Then 
			vx# = - vx#
			x# = GraphicsWidth()
		End If
			
		If x# < 0 Then 
			vx# = - vx#
			x# = 0
		End If

		If y# > GraphicsHeight() Then 
			vy# = - vy#
			y# = GraphicsHeight()
		End If
			
		If y# < 0 Then 
			vy# = - vy#
			y# = 0
		End If

		If CollideImage(hImage,x,y,0,COLLISION_LAYER_1,0)
			If gbCollision = False
				gbCollision = True
				vx# = -vx#
				vy# = -vy#
			End If
		End If

		x# = x# + vx#
		y# = y# + vy#
		
		
	End Method
	
	Method Draw()
	
		DrawImage  hImage,x#,y#
		
		If gbCollision = True Then
			DrawText "Collision",0,0
		End If
	
	End Method

End Type

Graphics 800,600',32

Local s:TShip = Tship.Create_new (GraphicsWidth()/2, GraphicsHeight()/2)
Local map:TMyMap

map = TMyMap.Create_new (5,5,0)
map = TMyMap.Create_new (6,5,1)
map = TMyMap.Create_new (7,5,2)
map = TMyMap.Create_new (5,6,3)
map = TMyMap.Create_new (6,6,4)
map = TMyMap.Create_new (7,6,5)
map = TMyMap.Create_new (5,7,6)
map = TMyMap.Create_new (6,7,7)
map = TMyMap.Create_new (7,7,8)


map = TMyMap.Create_new (5+10,5+6,0)
map = TMyMap.Create_new (6+10,5+6,1)
map = TMyMap.Create_new (7+10,5+6,2)
map = TMyMap.Create_new (5+10,6+6,3)
map = TMyMap.Create_new (6+10,6+6,4)
map = TMyMap.Create_new (7+10,6+6,5)
map = TMyMap.Create_new (5+10,7+6,6)
map = TMyMap.Create_new (6+10,7+6,7)
map = TMyMap.Create_new (7+10,7+6,8)


Local FPS_fps:Float = 60 'fps
Local FPS_time:Float = 1000 / FPS_fps
Local FPS_timer:Float = MilliSecs() + FPS_time	
Local FPS_ms:Float


While Not AppTerminate() 


    FPS_ms = MilliSecs()

	' gestion de la souris

	If (FPS_ms >= FPS_timer) Then



	    	FPS_timer = FPS_ms + FPS_time

		ResetCollisions (COLLISION_LAYER_1)	
		gbCollision = False

		Cls
	
		map.update()
		map.draw()
	
		s.update()
		s.Draw()
		Flip 0
		
	End If
Wend

If you want to continue using images collide, try splitting the ship into four parts.. nose, wings and tail. Then you can tell which sort of collision reaction to use.

Cheers

hub	(Posted 2011) [#3]

i want to adapt this to my game. So i use images collide into this sample as my project use it ! Into my game the ship explode and ... game over. But some players reports that it is to difficult. So i could just bound the ship and decrease ship shield before destroy it ! Finally no so easy to do this with scrolling tiles.

Last edited 2011

matibee

(Posted 2011) [#4]

I don't know much about ImagesCollide() as I've never used it. This works better even with the ship as one image..

Strict

Const cte_a# = 1.0
Const cte_friction# = 0.85

Global gMap_list:TList = CreateList()

Global gMap_image:TImage = LoadAnimImage ("my_map.png", 32,32,0,9)

If gMap_image = Null Then
	Notify "Error loading map image !"
	End
End If

Global gShip_image:TImage = LoadImage ("ship.png")
MidHandleImage gShip_image

If gShip_image = Null Then
	Notify "Error loading ship image !"
	End
End If

Global gbCollision = False


Type TMyMap

	Field x
	Field y
	Field frame
	
	Function Create_new:TMyMap (x,y, frame)
	
	
		Local s:TMyMap = New TMyMap
		
		s.x = x * 32
		s.y = y * 32
		s.frame = frame
		
		ListAddLast gMap_list, s
		
		Return s
	
	End Function

	Method Update()
	
		For Local s:TMyMap = EachIn gMap_list

			If s.y < GraphicsHeight() Then
				s.y = s.y + 1
			Else
				s.y = 0
			End If
			
			CollideImage gMap_image,s.x,s.y,s.frame,0,COLLISION_LAYER_1
		Next
	
	End Method
	
	Method Draw()

		For Local s:TMyMap = EachIn gMap_list
			DrawImage gMap_image, s.x, s.y, s.frame		
		Next

	End Method

End Type

	

Type TShip

	Field x : Float
	Field y : Float
	
	Field vx#
	Field vy#
	
	Field hImage : TImage
	
	Function Create_new:Tship (x#,y#) 
	
		Local s:TShip = New TShip
	
		s.x# = x#
		s.y# = y#
		s.hImage = gShip_image
		
		Return s

	End Function

	Method Update()
		
		If CollideImage(hImage,x,y,0,COLLISION_LAYER_1,0)
			If Not ( CollideImage( hImage, x, y + 2, 0, COLLISION_LAYER_1,0) )
				y :+ 2
			End If 
		End If

	
		If KeyDown(key_up) Then    vy# = vy# - cte_a#
		If KeyDown(key_down) Then  vy# = vy# + cte_a#
		If KeyDown(key_left) Then  vx# = vx# - cte_a#
		If KeyDown(key_right) Then vx# = vx# + cte_a#
		
		vx# = vx# * cte_friction#
		vy# = vy# * cte_friction#

		If x# > GraphicsWidth() Then 
			vx# = - vx#
			x# = GraphicsWidth()
		End If
			
		If x# < 0 Then 
			vx# = - vx#
			x# = 0
		End If

		If y# > GraphicsHeight() Then 
			vy# = - vy#
			y# = GraphicsHeight()
		End If
			
		If y# < 0 Then 
			vy# = - vy#
			y# = 0
		End If

		If CollideImage(hImage,x,y,0,COLLISION_LAYER_1,0)

			If gbCollision = False
				gbCollision = True
				vx# = -vx#
				vy# = -vy#
			End If
		End If


		x# = x# + vx#
		y# = y# + vy#
		


	End Method
	
	Method Draw()
	
		DrawImage  hImage,x#,y#
		
		If gbCollision = True Then
			DrawText "Collision",0,0
		End If
	
	End Method

End Type

Graphics 800,600,32

Local s:TShip = Tship.Create_new (GraphicsWidth()/2, GraphicsHeight()/2)
Local map:TMyMap

map = TMyMap.Create_new (5,5,0)
map = TMyMap.Create_new (6,5,1)
map = TMyMap.Create_new (7,5,2)
map = TMyMap.Create_new (5,6,3)
map = TMyMap.Create_new (6,6,4)
map = TMyMap.Create_new (7,6,5)
map = TMyMap.Create_new (5,7,6)
map = TMyMap.Create_new (6,7,7)
map = TMyMap.Create_new (7,7,8)


map = TMyMap.Create_new (5+10,5+6,0)
map = TMyMap.Create_new (6+10,5+6,1)
map = TMyMap.Create_new (7+10,5+6,2)
map = TMyMap.Create_new (5+10,6+6,3)
map = TMyMap.Create_new (6+10,6+6,4)
map = TMyMap.Create_new (7+10,6+6,5)
map = TMyMap.Create_new (5+10,7+6,6)
map = TMyMap.Create_new (6+10,7+6,7)
map = TMyMap.Create_new (7+10,7+6,8)


Local FPS_fps:Float = 60 'fps
Local FPS_time:Float = 1000 / FPS_fps
Local FPS_timer:Float = MilliSecs() + FPS_time	
Local FPS_ms:Float


While Not KeyDown(KEy_ESCAPE)


    FPS_ms = MilliSecs()

	' gestion de la souris

	If (FPS_ms >= FPS_timer) Then



	    	FPS_timer = FPS_ms + FPS_time

		ResetCollisions (COLLISION_LAYER_1)	
		gbCollision = False

		Cls
	
		map.update()
		map.draw()
	
		s.update()
		s.Draw()
		Flip 0
		
	End If
Wend

hub	(Posted 2011) [#5]

Many thanks matibee