Problem with my shooter code

Blitz3D Forums/Blitz3D Programming/Problem with my shooter code

Guy Fawkes

(Posted 2012) [#1]

Can someone please tell me which line and why it's complaining that entity does not exist? I looked for it... the stupid debugger won't highlight the line that has the problem....

Graphics3D 800, 600, 0, 2



Type tshoot
	
	
	
	Field player
	Field startx#
	Field starty#
	Field startz#
	Field currentx#
	Field currenty#
	Field currentz#
	Field currentxrotation#
	Field currentyrotation#
	Field currentzrotation#
	Field starthealth#
	Field maxstarthealth#
	
	
	
End Type



Type tcamera
	
	
	
	Field camera
	Field startx#
	Field starty#
	Field startz#
	Field currentx#
	Field currenty#
	Field currentz#
	Field currentxrotation#
	Field currentyrotation#
	Field currentzrotation#
	Field near#
	Field far#
	
	
	
End Type



LoadAll()



While Not KeyHit(1)
	
	
	
	UpdateAll()
	
	
	
	UpdateWorld()
	
	
	
	RenderWorld()
	
	
	
	UpdateText()
	
	
	
	Flip
	
	
	
Wend



Function LoadAll()
	
	
	
	camera.tcamera = New tcamera
	player.tshoot = New tshoot
	
	
	
	;Load Camera
	camera.tcamera\camera = LoadCamera()
	
	
	
	;Load Player
	player.tshoot\player = LoadPlayer()
	
	
	
	camera.tcamera\camera = CreateCamera()
	CameraRange camera.tcamera\camera, camera.tcamera\near#, camera.tcamera\far#
	PositionEntity camera.tcamera\camera, camera.tcamera\startx#, camera.tcamera\starty#, camera.tcamera\startz#
	
	
	
	player.tshoot\startx# = 0
	player.tshoot\starty# = 1
	player.tshoot\startz# = 40
	
	
	
End Function



Function UpdateAll()
	
	
	
	For camera.tcamera = Each tcamera
		
		
		
		For player.tshoot = Each tshoot
			
			
			
			If camera.tcamera\camera<>0 And player.tshoot\player<>0
				
				
				
				;Update Camera
				camera.tcamera\currentx# = EntityX#(camera.tcamera\camera, True)
				camera.tcamera\currenty# = EntityY#(camera.tcamera\camera, True)
				camera.tcamera\currentz# = EntityZ#(camera.tcamera\camera, True)
				
				
				
				;Update Player
				player.tshoot\currentx# = EntityX#(player.tshoot\player, True)
				player.tshoot\currenty# = EntityY#(player.tshoot\player, True)
				player.tshoot\currentz# = EntityZ#(player.tshoot\player, True)
				
			
			
				EntityParent camera.tcamera\camera, player.tshoot\player
			
			
			
			EndIf
		
				
			
		Next
		
		
		
	Next
	
	
	
End Function




Function UpdateText()
	
	
	
	For camera.tcamera = Each tcamera
		
		
		
		If camera.tcamera\camera<>0
			
	
			
			Text GraphicsWidth()/2, GraphicsHeight()/2, "X: "+EntityX#(camera.tcamera\currentx#, True), 1, 1
			Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y: "+EntityY#(camera.tcamera\currenty#, True), 1, 1
			Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z: "+EntityZ#(camera.tcamera\currentz#, True), 1, 1
			
			
			
		EndIf
			
		
		
	Next
		
	
	
End Function



Function LoadPlayer()
	
	
	
	player.tshoot = New tshoot
	
	
	
	player.tshoot\player = CreateCube()
	PositionEntity player.tshoot\player, player.tshoot\startx#, player.tshoot\starty#, player.tshoot\startz#
	
	
	
	Return player.tshoot\player
	
	
	
End Function



Function LoadCamera()
	
	
	
	camera.tcamera = New tcamera
	
	
	
	camera.tcamera\camera = CreateCamera()
	
	
	
	camera.tcamera\startx# = 0
	camera.tcamera\starty# = 1
	camera.tcamera\startz# = 4
	
	
	
	camera.tcamera\near# = .1
	camera.tcamera\far# = 999999999999
	
	
	
	PositionEntity camera.tcamera\camera, camera.tcamera\startx#, camera.tcamera\starty#, camera.tcamera\startz#
	
	
	
	Return camera.tcamera\camera
	
	
	
End Function

TomToad

(Posted 2012) [#2]

The debugger on my version of Blitz3D highlights this line:

			Text GraphicsWidth()/2, GraphicsHeight()/2, "X: "+EntityX#(camera.tcamera\currentx#, True), 1, 1

Which is line 181.

camera.tcamera\currentx# is not an entity. I do believe you want camera.tcamera\camera instead. Or maybe you wanted to just use the camera.tcamera\currentx# field without the call to EntityX?

Guy Fawkes

(Posted 2012) [#3]

Thanks alot, bro! :)

Guy Fawkes

(Posted 2012) [#4]

Ok, 1 more small problem... Why does the text keep constantly writing more text to the screen? o.o

Graphics3D 800, 600, 0, 2



Type tshoot
	
	
	
	Field player
	Field startx#
	Field starty#
	Field startz#
	Field currentx#
	Field currenty#
	Field currentz#
	Field currentxrotation#
	Field currentyrotation#
	Field currentzrotation#
	Field starthealth#
	Field maxstarthealth#
	
	
	
End Type



Type tcamera
	
	
	
	Field camera
	Field startx#
	Field starty#
	Field startz#
	Field currentx#
	Field currenty#
	Field currentz#
	Field currentxrotation#
	Field currentyrotation#
	Field currentzrotation#
	Field near#
	Field far#
	
	
	
End Type



LoadAll()



While Not KeyHit(1)
	
	
	
	Cls
	
	
	
	UpdateAll()
	
	
	
	UpdateWorld()
	
	
	
	RenderWorld()
	
	
	
	UpdateText()
	
	
	
	Flip
	
	
	
Wend



Function LoadAll()
	
	
	
	camera.tcamera = New tcamera
	player.tshoot = New tshoot
	
	
	
	;Load Camera
	camera.tcamera\camera = LoadCamera()
	
	
	
	;Load Player
	player.tshoot\player = LoadPlayer()
	
	
	
	camera.tcamera\camera = CreateCamera()
	CameraRange camera.tcamera\camera, camera.tcamera\near#, camera.tcamera\far#
	PositionEntity camera.tcamera\camera, camera.tcamera\startx#, camera.tcamera\starty#, camera.tcamera\startz#
	
	
	
	player.tshoot\startx# = 0
	player.tshoot\starty# = 1
	player.tshoot\startz# = 40
	
	
	
End Function



Function UpdateAll()
	
	
	
	For camera.tcamera = Each tcamera
		
		
		
		For player.tshoot = Each tshoot
			
			
			
			If camera.tcamera\camera<>0 And player.tshoot\player<>0
				
				
				
				;Update Camera
				camera.tcamera\currentx# = EntityX#(camera.tcamera\camera, True)
				camera.tcamera\currenty# = EntityY#(camera.tcamera\camera, True)
				camera.tcamera\currentz# = EntityZ#(camera.tcamera\camera, True)
				
				
				
				;Update Player
				player.tshoot\currentx# = EntityX#(player.tshoot\player, True)
				player.tshoot\currenty# = EntityY#(player.tshoot\player, True)
				player.tshoot\currentz# = EntityZ#(player.tshoot\player, True)
				
			
			
				EntityParent camera.tcamera\camera, player.tshoot\player
			
			
			
			EndIf
		
				
			
		Next
		
		
		
	Next
	
	
	
End Function




Function UpdateText()
	
	
	
	For camera.tcamera = Each tcamera
		
		
		
		If camera.tcamera\camera<>0
			
	
			
			Text GraphicsWidth()/2, GraphicsHeight()/2, "X: "+camera.tcamera\currentx#, 1, 1
			Text GraphicsWidth()/2, GraphicsHeight()/2+20, "Y: "+camera.tcamera\currenty#, 1, 1
			Text GraphicsWidth()/2, GraphicsHeight()/2+40, "Z: "+camera.tcamera\currentz#, 1, 1
			
			
			
		EndIf
			
		
		
	Next
		
	
	
End Function



Function LoadPlayer()
	
	
	
	player.tshoot = New tshoot
	
	
	
	player.tshoot\player = CreateCube()
	PositionEntity player.tshoot\player, player.tshoot\startx#, player.tshoot\starty#, player.tshoot\startz#
	
	
	
	Return player.tshoot\player
	
	
	
End Function



Function LoadCamera()
	
	
	
	camera.tcamera = New tcamera
	
	
	
	camera.tcamera\camera = CreateCamera()
	
	
	
	camera.tcamera\startx# = 0
	camera.tcamera\starty# = 1
	camera.tcamera\startz# = 4
	
	
	
	camera.tcamera\near# = .1
	camera.tcamera\far# = 999999999999
	
	
	
	PositionEntity camera.tcamera\camera, camera.tcamera\startx#, camera.tcamera\starty#, camera.tcamera\startz#
	
	
	
	Return camera.tcamera\camera
	
	
	
End Function

Floyd

(Posted 2012) [#5]

A slight change to UpdateText will clarify this.

Function UpdateText()
Local c	
		
	For camera.tcamera = Each tcamera
		
		If camera.tcamera\camera<>0
				
			Text GraphicsWidth()/2, c + GraphicsHeight()/2, "X: "+camera.tcamera\currentx#, 1, 1
			Text GraphicsWidth()/2, c + GraphicsHeight()/2+20, "Y: "+camera.tcamera\currenty#, 1, 1
			Text GraphicsWidth()/2, c + GraphicsHeight()/2+40, "Z: "+camera.tcamera\currentz#, 1, 1
			
			c = c + 100
			
		EndIf
			
	Next
		
End Function

Guy Fawkes

(Posted 2012) [#6]

Thanks for that! :)