Help with enemy player detection?

Blitz3D Forums/Blitz3D Beginners Area/Help with enemy player detection?

Guy Fawkes

(Posted 2012) [#1]

Hi, Drak. I got a quick question for ya. Why is there only ONE circle showing up under the player, as opposed to 0 because i used hideentity to hide them until the player is close?

;Waypoint Example By Drak, 3/8/2010
;UPDATED 2/4/2012
;************************************************************
;THIS PROGRAM WILL:											*
;Create a player mesh (a square)							*
;Create some enemies (some spheres)							*
;Make on-the-fly waypoints for the enemies to return to		*
;Return the enemies to the waypoints						*
;Also shows some some rudimentary AI						*
;Shows some very simple particle effects as well			*
;************************************************************



;-------------------------------------------------------------------------------------------------------
;INITIALIZATION
;-------------------------------------------------------------------------------------------------------
Graphics3D 800,600,0,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

AmbientLight 255, 255, 255

Global type_player 	= 1
Global type_land 	= 2
Global type_obj 	= 3

Collisions type_player, type_land, 2, 3
Collisions type_player, type_obj, 2, 3
Collisions type_obj, type_obj, 2, 3
Collisions type_obj, type_land, 2,3

;WireFrame 1
Global player = LoadAnimMesh("models\dwarf1.b3d")	;create a cube for the player
EntityColor player, 0,0,200		;we'll make the player blue
ScaleEntity player, .1, .1, .1
EntityType player, type_player
PositionEntity player, 0,2,0

Global player_hp = 10			;give the player 10 hit points
Global player_alive = 1			;player is indeed alive

Global camera = CreateCamera()	;create a camera
CameraRange camera, .1, 999999999

Global sky = CreateCube()
ScaleEntity sky, 10000, 10000, 10000
EntityColor sky, 102, 102, 255
FlipMesh sky

Global Land = CreatePlane()
EntityColor Land, 0, 64, 0
EntityType Land, type_land

Global circle

;-------------------------------------------------------------------------------------------------------
;TYPES
;-------------------------------------------------------------------------------------------------------
Type enemy
	Field mesh				;will hold the actual mesh
	Field return_waypoint	;will hold the handle of the return waypoint
	Field status			;holds a # referring to the enemies status
	Field speed#			;this will hold the speed of the enemy
	Field timer				;2/3/12 This will be a counter
	Field timer_max			;2/3/12 This is the counter's maximum
	Field steer_angle#		;2/3/12 This holds the enemy's steering angle
End Type

Type particle				
	Field mesh				;holds mesh
	Field alpha#			;holds alpha
	Field speed_x#			;speed x
	Field speed_y#			;same
	Field speed_z#			;same...
	Field fade_speed#		;fade_speed
End Type

;-------------------------------------------------------------------------------------------------------
;LETS CREATE SOME PRIMITIVES TO USE LATER	
;-------------------------------------------------------------------------------------------------------

Global spark = CreateCube()
ScaleEntity spark, .25,.25,.25
EntityColor spark, 255,168,0
HideEntity spark

Global waypoint = CreateSphere()
ScaleEntity waypoint, .5,.5,.5
EntityColor waypoint, 0,200,0
HideEntity waypoint

;-------------------------------------------------------------------------------------------------------
;CREATE SOME ENEMIES
;-------------------------------------------------------------------------------------------------------
For num = 1 To 5
	e.enemy = New enemy				;new enemy
	e\mesh = LoadAnimMesh("models\dwarf1.b3d") ;CreateSphere(16)		;create a sphere and store it in e\mesh
	e\speed = .1					;set the speed of each enemy
	e\status = 1					;set status to 1
	e\timer = 0						;2/3/12	set timer to 0
	e\timer_max = Rand(400,1000)	;2/3/12	pick a maximum timer
	PositionEntity e\mesh, Rand(-20,20),1,Rand(-20,20)	;place the enemies randomly
	;EntityAlpha e\mesh, .5
	RotateEntity e\mesh, 0,Rand(360),0
	ScaleEntity e\mesh, .1, .1, .1
	EntityType e\mesh, type_obj
	circle = CreateSphere(16)
	ScaleEntity circle, 7, .01, 7
	HideEntity circle
Next

Global turnonanim = False

;-------------------------------------------------------------------------------------------------------
;MAIN LOOP
;-------------------------------------------------------------------------------------------------------
While Not KeyHit(1)
	
	
	
	For e.enemy = Each enemy
		PositionEntity circle, EntityX#(e\mesh, True), EntityY#(e\mesh, True), EntityZ#(e\mesh, True)
		If EntityDistance(player, e\mesh)<=7 Then ShowEntity circle
		If turnonanim  = True Then Animate e\mesh, 1, .1, 1, 15
	Next
	SuperCam(camera,player,.02,200,4,0,0)
	
	;-------------------------------------------
	;This crap was screwing up the collisions:
	;py# = EntityY#(player, True)
	;DebugLog "py# = " + py
	;If py# < 1.0 Then py# = 1.0
	;If py# > 1.0 Then gravity# = gravity# - .1
	;PositionEntity player, EntityX#(player, True), py#+gravity#, EntityZ#(player, True)
	;-------------------------------------------
	
	;simple gravity:
	MoveEntity player , 0,-.1,0
	For e.enemy = Each enemy
		MoveEntity e\mesh, 0,-.1,0
	Next
	
	
	get_input()
	run_enemies()
	run_particles()
	check_hp()
	
	
	UpdateWorld
	RenderWorld
	
	gui()
	Flip
	
Wend
;-------------------------------------------------------------------------------------------------------
;END MAIN LOOP
;-------------------------------------------------------------------------------------------------------


;-------------------------------------------------------------------------------------------------------
;FUNCTION GET_INPUT <--- GRABS INPUT FOR THE PLAYER
;-------------------------------------------------------------------------------------------------------
Function get_input()
	If player_alive = 1
		MoveEntity player, 0, 0, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*.5
		TurnEntity player, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*1, 0
	End If 
End Function 


;-----------------------------------------------------------------------------------------------------
;FUNCTION RUN_ENEMIES   <---EXOCUTES ACTIONS FOR EACH ENEMY
;-----------------------------------------------------------------------------------------------------
Function run_enemies()
	For e.enemy = Each enemy	;for each enemy
		;regardless of case, the distance to the player must be known, so we'll check it here
		
		Local dist# = EntityDistance(e\mesh,player)
		;This also tells you ALOT:
		DebugLog "e\status is " + e\status + " Dist is " + dist
		Select e\status			;select it's status
				
			Case 1 ;ON GUARD
				EntityColor e\mesh, 200,200,0
				If dist# <= 10		;if the distance is less than 10 or equal to it
					If player_alive = 1
						e\status = 2	;switch to state 2
					End If
					Else e\timer = e\timer + 1
					If e\timer >= e\timer_max
						e\status = 6 ;switch to quick wander
						e\timer = 0	 ;reset the timer to 0
					End If
				End If 
				;Animate e\mesh, 1, 1, 15, .1
				
			Case 2 ;DROP NEW WAYPOINT
				Local x# = EntityX(e\mesh)	;grab the enemies' coordinates
				Local y# = EntityY(e\mesh)
				Local z# = EntityZ(e\mesh)
				
						;place the waypoint at the location
				e\return_waypoint = CopyEntity(waypoint)
				PositionEntity e\return_waypoint,x#,y#,z#
				
				e\status = 3	;then switch to case 3, which is pursue
				
			Case 3 ;PURSUE THE PLAYER
				EntityColor e\mesh, 200,0,0	;red
				If dist# < 1	;then attack!
					e\status = 4;change to attack
					Exit 		;exit the loop
				End If 
				
				If dist# < 12	;first, check to see if we're 12 units away or less....
					PointEntity e\mesh, player		;point enemy at the player
					MoveEntity e\mesh, 0,0,e\speed	;then make the enemy move in the pointed direction
				Else
					e\status = 5	;set to status 5, which is return to waypoint
				End If 	
				
			Case 4 ;ATTACK
				player_hp = player_hp - 1	;take 1 hp from the player
				Local s_x# = EntityX(player)
				Local s_y# = EntityY(player)
				Local s_z# = EntityZ(player)
				Local num = Rand(3,8)
						;create some effects
				create_particles(num,s_x,s_y,s_z)
				e\status = 5				;now return to the waypoint
				
			Case 5	;RETURN TO WAYPOINT
				EntityColor e\mesh, 200,0,200
				Local dist_home# = EntityDistance(e\mesh,e\return_waypoint)	;get the distance home
				If dist_home# > .2							;If we're further than .2 away...
					PointEntity e\mesh, e\return_waypoint	;point at home waypoint
					MoveEntity e\mesh, 0,0,e\speed			;move them forward
				Else If dist_home# <= .2
					RotateEntity e\mesh, 0, 0, 0
					FreeEntity e\return_waypoint			;get rid of the waypoint mesh
					e\status = 1							;and return to idle again
				End If
				
				;CASE 6 ADDED ON 2/3/12
			Case 6	;WANDER
				EntityColor e\mesh, 0,200,0	;turn it green
						;KEEP THE WANDERING SIMPLE!!!! DON'T OVERCOMPLICATE THIS!!!!!
				
				e\timer = e\timer + 1
				If e\timer <= e\timer_max
					e\steer_angle = e\steer_angle + Rnd(-.1,.1)
					If e\steer_angle > 1 Then e\steer_angle = 1
					If e\steer_angle < -1 Then e\steer_angle = -1
					TurnEntity e\mesh, 0,e\steer_angle,0
					MoveEntity e\mesh, 0,0,e\speed/5
				Else 
					e\timer = 0
					RotateEntity e\mesh, 0,Rand(360),0
					e\status = 1
				End If 
				
					;keep checking to see if the player is close enough to follow
				If dist# <= 10		;if the distance is less than 10 or equal to it
					If player_alive = 1
						e\status = 2	;switch to state 2
					End If
				End If 
				
				
			Default
				e\status = 1	;if somehow e\status = anything else, we'll set it to 1
				
				
		End Select
	Next
End Function 

;-----------------------------------------------------------------------------------------------------
;GRAPHIC READOUTS   <---This function prints readouts to the screen
;-----------------------------------------------------------------------------------------------------
Function gui()
	Text 0,0, "Use WASD keys to move around."
	Text 0,10,"Don't let the spheres touch you or you'll lose hitpoints."
	Text 0,20,"Remaining HP: " + player_hp
	
	If player_alive = 0
		Text 350,290,"You are DEAD!"
	End If 
End Function 


;-----------------------------------------------------------------------------------------------------
;RUN PARTICLES	   <---This function runs the particles if there are any
;-----------------------------------------------------------------------------------------------------
Function run_particles()
	For p.particle = Each particle
		p\alpha = p\alpha - p\fade_speed	;take fade speed from alpha
		EntityAlpha p\mesh, p\alpha			;set alpha to p\alpha
		If p\alpha <= 0					;if alpha is <= 0
			FreeEntity p\mesh			;free it
			Delete p				
			Exit						;exit the loop
		Else
			p\speed_y = p\speed_y - .01							;subtract from y speed
			MoveEntity p\mesh, p\speed_x, p\speed_y,p\speed_z	;move the particle
		End If
		
		
	Next
End Function  


;-----------------------------------------------------------------------------------------------------
;CREATE PARTICLES	<--- THis is called when we need to create particles
;-----------------------------------------------------------------------------------------------------
Function create_particles(num,x#,y#,z#)
	For s = 1 To num
		p.particle = New particle
		p\mesh = CopyEntity(spark)
		p\speed_x# = Rnd(-.2,.2)
		p\speed_y# = Rnd(.3)
		p\speed_z# = Rnd(-.2,.2)
		p\alpha = 1
		p\fade_speed# = Rnd(.1)
		PositionEntity p\mesh, x,y,z
	Next
End Function 

;-----------------------------------------------------------------------------------------------------
;CHECK HP	<---This checks the player's HEALTH each frame
;-----------------------------------------------------------------------------------------------------
Function check_hp()
	If player_hp <= 0
		player_hp = 0
		If player_alive = 1
			Local s_x# = EntityX(player)
			Local s_y# = EntityY(player)
			Local s_z# = EntityZ(player)
			Local num = Rand(15)
		;create some effects
			create_particles(num,s_x,s_y,s_z)
			player_alive = 0
		End If
	End If 
End Function 



Function SuperCam(cam,ent,cspeed#,dist#,hite#,xrot#,tilt#)
	
	TFormPoint 0,hite#,-dist#,ent,0
	
	cx#=(TFormedX()-EntityX(cam))*cspeed#
	cy#=(TFormedY()-EntityY(cam))*cspeed#
	cz#=(TFormedZ()-EntityZ(cam))*cspeed#
	
	TranslateEntity cam,cx,cy,cz
	PointEntity cam,ent
	RotateEntity cam,xrot#,EntityYaw(cam),tilt#
	
End Function
;~IDEal Editor Parameters:
;~C#Blitz3D

U will need the media i sent u :)

Thanks, Drak

Jack	(Posted 2012) [#2]

jeez,,,,,,,,,,,,,,,,,,,,,

Guy Fawkes

(Posted 2012) [#3]

Ignoring that last person, can u please help me with this, Drak? :)

RifRaf

(Posted 2012) [#4]

The reason you get replies like that is because you abuse the forum for help beyond the norm.

Typically a user will ask for clarification on basic commands or concepts, you on the other hand post massive code blocks or entire programs and ask someone to "fix it" for you. Once in awhile, people probably would not pay any attention but you chronically ask people to sift through all your code and make your changes and fixes for you, and when they finally do you just add another fix for them to the list and keep going This makes you appear very juvenile and lazy.

Good luck

Last edited 2012

Guy Fawkes

(Posted 2012) [#5]

I don't believe I was talking to u, tyvm. :)

Ginger Tea

(Posted 2012) [#6]

No, I am not aware of him posting in any of your recent threads (without looking myself), but he is vocalising what many others here have belived for some time.

Hi, Drak. I got a quick question for ya. Why is there only ONE circle showing up under the player, as opposed to 0 because i used hideentity to hide them until the player is close?

U will need the media i sent u :)

Thanks, Drak

basically you have singled out Drak as your code saviour of the week, you could have worded that generically and linked to the media in question, probably the same media from the other thread.

But no, you chose to address it to Drak and Drak alone, that alone would have me running for the hills if I were him.

Anyone else wanting to help would go "where is the media?" not knowing if it is genuinly the media from the other thread and think, well eff it, not much to do without that now is there?

Guy Fawkes

(Posted 2012) [#7]

Fine... -.- HERE is the media.

http://www.mediafire.com/?do051b8fw2h5tyj

Anything else, my queen? -.-

Last edited 2012

Ginger Tea

(Posted 2012) [#8]

yes its Queen not queen, now run allong

Guy Fawkes

(Posted 2012) [#9]

HAHAHAHA! XD

Guy Fawkes

(Posted 2012) [#10]

Anyway, lets try to keep this conversation on topic, ppl.

Thank you.

Drak	(Posted 2012) [#11]

Hi, Drak. I got a quick question for ya. Why is there only ONE circle showing up under the player, as opposed to 0 because i used hideentity to hide them until the player is close?

3 hous later:

Ignoring that last person, can u please help me with this, Drak? :)

Christ man, I have a job during the day. I'm not waiting in the Blitz3D forums all day waiting to help people. I do coding voluntarily and I help voluntarily. This is not a personal forum so please don't single people out unless you have a specific question about code they have written. The code you are using was based off of mine, yes, but I have no idea what your question is about because it's about code you added to it.

Now, do some problem solving. Just remember, there are no glitches, errors,etc. Code only does EXACTLY what you tell it to do.

AND I don't understand your original question either.

Why is there only ONE circle showing up under the player, as opposed to 0

That question makes no sense. "Only ONE" implies there should be more, but it's also opposed to 0? Non sequitur.

Guy Fawkes

(Posted 2012) [#12]

Yes. There is only 1 circle, when there should be 1 under EACH dwarf. it is gonna be used as a better enemy AI detection :)

Drak	(Posted 2012) [#13]

Dude read your code. It's blatently apparent why that's happening. Like I stated earlier:

Now, do some problem solving. Just remember, there are no glitches, errors,etc. Code only does EXACTLY what you tell it to do.

You can't create a variable named "circle" 5 times. You can't access the first 4 then.

This is what you're doing:
I'm making a sphere and I'm naming it "Circle" and hiding it.
I'm making a second sphere and I'm naming this one "Circle" and hiding it. The previous sphere will have no name now.
I'm making a third sphere and I'm naming this one "Circle" and hiding it. The previous sphere will have no name now.
I'm making a fourth sphere and I'm naming this one "Circle" and hiding it.The previous sphere will have no name now.
I'm making a fifth sphere and I'm naming this one "Circle" and hiding it. The previous sphere will have no name now.

Where's my sphere named "Circle"? Oh it's right here but I can't find the first four because they don't have names anymore.

Last edited 2012

Nexus6

(Posted 2012) [#14]

Hi Drak,

Im trying to make a Call of Duty style game, ive got most of it coded (see below) can you fill in the missing bits please.

Thanks Drak

;Call of Duty beater Copyright Nexus6 2012
;with a little bit of help from Drak
Graphics3D 800,600,0,2
While Not KeyHit(1)
;
;
;
;
;
;
;
Wend

Guy Fawkes

(Posted 2012) [#15]

Nexus, stop hijacking my thread u jerk! :<

Nexus6

(Posted 2012) [#16]

lol :)

Guy Fawkes

(Posted 2012) [#17]

Updating Code, as u now use the Restore command to place their waypoints:

;Waypoint Example By Drak, 3/8/2010
;UPDATED 2/4/2012
;************************************************************
;THIS PROGRAM WILL:											*
;Create a player mesh (a square)							*
;Create some enemies (some spheres)							*
;Make on-the-fly waypoints for the enemies to return to		*
;Return the enemies to the waypoints						*
;Also shows some some rudimentary AI						*
;Shows some very simple particle effects as well			*
;************************************************************



;-------------------------------------------------------------------------------------------------------
;INITIALIZATION
;-------------------------------------------------------------------------------------------------------
Graphics3D 800,600,0,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

AmbientLight 255, 255, 255

Global type_player 	= 1
Global type_land 	= 2
Global type_obj 	= 3

Collisions type_player, type_land, 2, 3
Collisions type_player, type_obj, 2, 3
Collisions type_obj, type_obj, 2, 3
Collisions type_obj, type_land, 2,3

;WireFrame 1
Global player = LoadAnimMesh("models\dwarf1.b3d")	;create a cube for the player
EntityColor player, 0,0,200		;we'll make the player blue
ScaleEntity player, .1, .1, .1
EntityType player, type_player
PositionEntity player, 0,2,0

Global player_hp = 10			;give the player 10 hit points
Global player_alive = 1			;player is indeed alive

Global camera = CreateCamera()	;create a camera
CameraRange camera, .1, 999999999

Global sky = CreateCube()
ScaleEntity sky, 10000, 10000, 10000
EntityColor sky, 102, 102, 255
FlipMesh sky

Global Land = CreatePlane()
EntityColor Land, 0, 64, 0
EntityType Land, type_land

Global circle

;-------------------------------------------------------------------------------------------------------
;TYPES
;-------------------------------------------------------------------------------------------------------
Type enemy
	Field mesh				;will hold the actual mesh
	Field return_waypoint	;will hold the handle of the return waypoint
	Field status			;holds a # referring to the enemies status
	Field speed#			;this will hold the speed of the enemy
	Field timer				;2/3/12 This will be a counter
	Field timer_max			;2/3/12 This is the counter's maximum
	Field steer_angle#		;2/3/12 This holds the enemy's steering angle
End Type

Type particle				
	Field mesh				;holds mesh
	Field alpha#			;holds alpha
	Field speed_x#			;speed x
	Field speed_y#			;same
	Field speed_z#			;same...
	Field fade_speed#		;fade_speed
End Type

;-------------------------------------------------------------------------------------------------------
;LETS CREATE SOME PRIMITIVES TO USE LATER	
;-------------------------------------------------------------------------------------------------------

Global spark = CreateCube()
ScaleEntity spark, .25,.25,.25
EntityColor spark, 255,168,0
HideEntity spark

Global waypoint = CreateSphere()
ScaleEntity waypoint, .5,.5,.5
EntityColor waypoint, 0,200,0
HideEntity waypoint

;-------------------------------------------------------------------------------------------------------
;CREATE SOME ENEMIES
;-------------------------------------------------------------------------------------------------------
Restore waypointdata
circle = CreateSphere(16)
For num = 1 To 5
	e.enemy = New enemy				;new enemy
	e\mesh = LoadAnimMesh("models\dwarf1.b3d") ;CreateSphere(16)		;create a sphere and store it in e\mesh
	e\speed = .1					;set the speed of each enemy
	e\status = 1					;set status to 1
	e\timer = 0						;2/3/12	set timer to 0
	e\timer_max = Rand(400,1000)	;2/3/12	pick a maximum timer
	Read pxpos#
	Read pypos#
	Read pzpos#
	PositionEntity e\mesh, pxpos#, pypos#, pzpos#	;place the enemies randomly
	RotateEntity e\mesh, 0,Rand(360),0
	ScaleEntity e\mesh, .1, .1, .1
	EntityType e\mesh, type_obj
	circle2 = CopyEntity(circle)
	ScaleEntity circle2, 7, .01, 7
	EntityParent circle2, e\mesh
	HideEntity circle2
Next

Global turnonanim = False

;-------------------------------------------------------------------------------------------------------
;MAIN LOOP
;-------------------------------------------------------------------------------------------------------
While Not KeyHit(1)
	
	
	
	For e.enemy = Each enemy
		PositionEntity circle, EntityX#(e\mesh, True), EntityY#(e\mesh, True), EntityZ#(e\mesh, True)
		If EntityDistance(player, e\mesh)<=7 Then ShowEntity circle
		If turnonanim  = True Then Animate e\mesh, 1, .1, 1, 15
	Next
	
	
	
	
	
	
	
	
	
	SuperCam(camera,player,.02,200,4,0,0)
	
	
	
	
	
	
	;simple gravity:
	MoveEntity player , 0,-.1,0
	For e.enemy = Each enemy
		MoveEntity e\mesh, 0,-.1,0
	Next
	
	
	get_input()
	run_enemies()
	run_particles()
	check_hp()
	
	
	UpdateWorld
	RenderWorld
	
	gui()
	Flip
	
Wend
;-------------------------------------------------------------------------------------------------------
;END MAIN LOOP
;-------------------------------------------------------------------------------------------------------


;-------------------------------------------------------------------------------------------------------
;FUNCTION GET_INPUT <--- GRABS INPUT FOR THE PLAYER
;-------------------------------------------------------------------------------------------------------
Function get_input()
	If player_alive = 1
		MoveEntity player, 0, 0, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*.5
		TurnEntity player, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*1, 0
	End If 
End Function 


;-----------------------------------------------------------------------------------------------------
;FUNCTION RUN_ENEMIES   <---EXOCUTES ACTIONS FOR EACH ENEMY
;-----------------------------------------------------------------------------------------------------
Function run_enemies()
	For e.enemy = Each enemy	;for each enemy
		;regardless of case, the distance to the player must be known, so we'll check it here
		
		Local dist# = EntityDistance(e\mesh,player)
		;This also tells you ALOT:
		DebugLog "e\status is " + e\status + " Dist is " + dist
		Select e\status			;select it's status
				
			Case 1 ;ON GUARD
				EntityColor e\mesh, 200,200,0
				If dist# <= 10		;if the distance is less than 10 or equal to it
					If player_alive = 1
						e\status = 2	;switch to state 2
					End If
					Else e\timer = e\timer + 1
					If e\timer >= e\timer_max
						e\status = 6 ;switch to quick wander
						e\timer = 0	 ;reset the timer to 0
					End If
				End If 
				;Animate e\mesh, 1, 1, 15, .1
				
			Case 2 ;DROP NEW WAYPOINT
				Local x# = EntityX(e\mesh)	;grab the enemies' coordinates
				Local y# = EntityY(e\mesh)
				Local z# = EntityZ(e\mesh)
				
						;place the waypoint at the location
				e\return_waypoint = CopyEntity(waypoint)
				PositionEntity e\return_waypoint,x#,y#,z#
				
				e\status = 3	;then switch to case 3, which is pursue
				
			Case 3 ;PURSUE THE PLAYER
				EntityColor e\mesh, 200,0,0	;red
				If dist# < 1	;then attack!
					e\status = 4;change to attack
					Exit 		;exit the loop
				End If 
				
				If dist# < 12	;first, check to see if we're 12 units away or less....
					PointEntity e\mesh, player		;point enemy at the player
					MoveEntity e\mesh, 0,0,e\speed	;then make the enemy move in the pointed direction
				Else
					e\status = 5	;set to status 5, which is return to waypoint
				End If 	
				
			Case 4 ;ATTACK
				player_hp = player_hp - 1	;take 1 hp from the player
				Local s_x# = EntityX(player)
				Local s_y# = EntityY(player)
				Local s_z# = EntityZ(player)
				Local num = Rand(3,8)
						;create some effects
				create_particles(num,s_x,s_y,s_z)
				e\status = 5				;now return to the waypoint
				
			Case 5	;RETURN TO WAYPOINT
				EntityColor e\mesh, 200,0,200
				Local dist_home# = EntityDistance(e\mesh,e\return_waypoint)	;get the distance home
				If dist_home# > .2							;If we're further than .2 away...
					PointEntity e\mesh, e\return_waypoint	;point at home waypoint
					MoveEntity e\mesh, 0,0,e\speed			;move them forward
				Else If dist_home# <= .2
					RotateEntity e\mesh, 0, 0, 0
					FreeEntity e\return_waypoint			;get rid of the waypoint mesh
					e\status = 1							;and return to idle again
				End If
				
				;CASE 6 ADDED ON 2/3/12
			Case 6	;WANDER
				EntityColor e\mesh, 0,200,0	;turn it green
						;KEEP THE WANDERING SIMPLE!!!! DON'T OVERCOMPLICATE THIS!!!!!
				
				e\timer = e\timer + 1
				If e\timer <= e\timer_max
					e\steer_angle = e\steer_angle + Rnd(-.1,.1)
					If e\steer_angle > 1 Then e\steer_angle = 1
					If e\steer_angle < -1 Then e\steer_angle = -1
					TurnEntity e\mesh, 0,e\steer_angle,0
					MoveEntity e\mesh, 0,0,e\speed/5
				Else 
					e\timer = 0
					RotateEntity e\mesh, 0,Rand(360),0
					e\status = 1
				End If 
				
					;keep checking to see if the player is close enough to follow
				If dist# <= 10		;if the distance is less than 10 or equal to it
					If player_alive = 1
						e\status = 2	;switch to state 2
					End If
				End If 
				
				
			Default
				e\status = 1	;if somehow e\status = anything else, we'll set it to 1
				
				
		End Select
	Next
End Function 

;-----------------------------------------------------------------------------------------------------
;GRAPHIC READOUTS   <---This function prints readouts to the screen
;-----------------------------------------------------------------------------------------------------
Function gui()
	Text 0,0, "Use WASD keys to move around."
	Text 0,10,"Don't let the spheres touch you or you'll lose hitpoints."
	Text 0,20,"Remaining HP: " + player_hp
	
	If player_alive = 0
		Text 350,290,"You are DEAD!"
	End If 
End Function 


;-----------------------------------------------------------------------------------------------------
;RUN PARTICLES	   <---This function runs the particles if there are any
;-----------------------------------------------------------------------------------------------------
Function run_particles()
	For p.particle = Each particle
		p\alpha = p\alpha - p\fade_speed	;take fade speed from alpha
		EntityAlpha p\mesh, p\alpha			;set alpha to p\alpha
		If p\alpha <= 0					;if alpha is <= 0
			FreeEntity p\mesh			;free it
			Delete p				
			Exit						;exit the loop
		Else
			p\speed_y = p\speed_y - .01							;subtract from y speed
			MoveEntity p\mesh, p\speed_x, p\speed_y,p\speed_z	;move the particle
		End If
		
		
	Next
End Function  


;-----------------------------------------------------------------------------------------------------
;CREATE PARTICLES	<--- THis is called when we need to create particles
;-----------------------------------------------------------------------------------------------------
Function create_particles(num,x#,y#,z#)
	For s = 1 To num
		p.particle = New particle
		p\mesh = CopyEntity(spark)
		p\speed_x# = Rnd(-.2,.2)
		p\speed_y# = Rnd(.3)
		p\speed_z# = Rnd(-.2,.2)
		p\alpha = 1
		p\fade_speed# = Rnd(.1)
		PositionEntity p\mesh, x,y,z
	Next
End Function 

;-----------------------------------------------------------------------------------------------------
;CHECK HP	<---This checks the player's HEALTH each frame
;-----------------------------------------------------------------------------------------------------
Function check_hp()
	If player_hp <= 0
		player_hp = 0
		If player_alive = 1
			Local s_x# = EntityX(player)
			Local s_y# = EntityY(player)
			Local s_z# = EntityZ(player)
			Local num = Rand(15)
		;create some effects
			create_particles(num,s_x,s_y,s_z)
			player_alive = 0
		End If
	End If 
End Function 



Function SuperCam(cam,ent,cspeed#,dist#,hite#,xrot#,tilt#)
	
	TFormPoint 0,hite#,-dist#,ent,0
	
	cx#=(TFormedX()-EntityX(cam))*cspeed#
	cy#=(TFormedY()-EntityY(cam))*cspeed#
	cz#=(TFormedZ()-EntityZ(cam))*cspeed#
	
	TranslateEntity cam,cx,cy,cz
	PointEntity cam,ent
	RotateEntity cam,xrot#,EntityYaw(cam),tilt#
	
End Function




.waypointdata
Data 20.0, 1.0, 10.0
Data 40.0, 1.0, 10.0
Data 60.0, 1.0, 10.0
Data 80.0, 1.0, 10.0
Data 100.0, 1.0, 10.0
;~IDEal Editor Parameters:
;~C#Blitz3D

Ok, still having the same problem with circle.

Ginger Tea

(Posted 2012) [#18]

Drak said from upon high

Ross C

(Posted 2012) [#19]

The problem now is the circle2 variable is being overwritten. You have created a circle(sphere) and are copying in into circle2. Circle2 now holds a copy of the circle. Then you loop through again and copy circle into circle2, losing your last reference to circle2.

I don't think you understand types very well. If you want to store the circle with each type object, you'll have to assign a field for it.

Why not just turn round and say,

"Look guys, I don't understand how types work. I've made an ass of something."

Last edited 2012

Last edited 2012

Guy Fawkes

(Posted 2012) [#20]

Instead of being a smart ***, u could have just said, "use a type for the circle".... jesus... -.-

Yasha

(Posted 2012) [#21]

If you're not willing to even try to learn or understand what you're doing wrong, that's all you can expect.

That's also not what he said, and not the answer to your problem.

Guy Fawkes

(Posted 2012) [#22]

I already know how to do types.... -.-

RifRaf

(Posted 2012) [#23]

You really need to learn basic coding concepts before trying to tackle a complete program project. Start with "hello world" and work your way up. Im sure some blitzers can recommend a book or two, theres even a book made for learning Blitz3D.

Im not saying to be rude, but most coding forums assume you have the fundamental understanding of coding basics to at least read and understand step by step instructions that may be given to you, you lack these fundamental understandings in many cases to follow the instructions given here, and so you ask and ask until the code is made for you and handed over in a plug and play , work out of the box fashion.

It may be helpful to check out books that cover these basics, such as variable assignment, and stuff like that. A real life tutor or class might be very helpful as well, these forums as helpful as they will never pass for a tutor or teacher.

Last edited 2012

Drak	(Posted 2012) [#24]

I already know how to do types.... -.-

But if you did, you would know how to add a field to hold that circle mesh to that enemy Type. That's all you need to do.

Ross C

(Posted 2012) [#25]

Instead of being a smart ***, u could have just said, "use a type for the circle".... jesus... -.-

One of us has to...

GfK	(Posted 2012) [#26]

Why does anybody still bother to try to help this guy??

Ross C

(Posted 2012) [#27]

Good question...

Drak	(Posted 2012) [#28]

Why does anybody still bother to try to help this guy??

I'm not giving him any more code, only explanations because he obviously doesn't even read or understand how the code works. I enjoy helping people learn, but as he doesn't seem to actually learn much.

Hotshot2005

(Posted 2012) [#29]

LOL Nexus6

Last edited 2012

Last edited 2012