Robot's chase player faster.....

Blitz3D Forums/Blitz3D Programming/Robot's chase player faster.....

Guy Fawkes

(Posted 2010) [#1]

Why are some robots chasing my player faster when there is 2 or more by each other even if the 2nd one isn't chasing the player like the 1st one is, even though the speeds of all robots is set to be the same speed? but when the player is by one robot that isnt by any other robots, the speed is fine?

GIB3D

(Posted 2010) [#2]

Maybe if you took the brakes off it might help?

Guy Fawkes

(Posted 2010) [#3]

someone else?

Stevie G

(Posted 2010) [#4]

Noone can help you without code!!!!

Guy Fawkes

(Posted 2010) [#5]

i cant show u the WHOLE code. but i can show u part of the code. if i showed u the whole code, thats over 3000 lines.

Guy Fawkes

(Posted 2010) [#6]

Moveallrobots():

; This function let's all robot within 70.0 units of the player chase the player, and sends the robots outside this range to their waypoint
	; This function let's all robot within 70.0 units of the player chase the player, and sends the robots outside this range to their waypoint
Function MoveAllRobots(mindist#, maxdist#)
	
	For p.tPlayer = Each tPlayer
		For o.tObject = Each tObject
			If o\ObjType = OBJTYPE_ROBOT
				If p\Motion\Ground = True
				Select o\status	;this will choose which chunk of code to exocute!!!
						
					Case 1  ;ON WATCH
	;this will execute so long as r\status = 1
						
						Local dist# = EntityDistance(o\Entity, p\Objects\Entity)	;distance from robot to player
						If dist# < maxdist
							o\status = 2	;change to pursue status
						End If
						
					Case 2  ;DROP A WAYPOINT
	;Here you will gather the robot's coordinates FIRST
						Local robot_x# = EntityX(o\Entity)	;this stores the robot's current X position.
						Local robot_y# = EntityY(o\Entity)	;and then the Y coordinate...
						Local robot_z# = EntityZ(o\Entity)	;and finally the Z coordinate.
						
	;Now that we have those coordinates, we need to place a pivot at that location.
;						o\return_waypoint = CreatePivot()	;Here is our waypoint.  A pivot.  Right now it's at 0,0,0.
;						PositionEntity o\return_waypoint, robot_x#, robot_y#, robot_z#	;Here we position it where the robot is at.
						
	;Now, we have placed a waypoint in space and positioned it at the robot's original position.
	;We only want r\status 2 to be exocuted ONCE, so we now set r\status to 3.
						
						o\status = 3	;this tells the robot to use case 3 next frame.
						
					Case 3  ;PURSUE PLAYER
	;This set of code is now executed until the status changes into another number.
	;In this case, r\status 3 will be point at, and move towards the player.
						
						dist# = EntityDistance(o\Entity, p\Objects\Entity)	;get distance from robot to player (note these type names probably wont work in your program)
						If dist > maxdist
							o\status = 4
						End If
						If dist# < maxdist
							PointEntity o\Entity, p\Objects\Entity	;point the robot at the player
							MoveEntity o\Entity, 0,0,1	;<--- you'll need to change this for your code, but you get the idea
							
							If dist < mindist#		;if the distance is less than 3
								o\status = 5	;status 5 can be attack player
							End If
						End If
						
						this_robot = o\entity 
						For this.tObject = Each tObject
							If this\entity <> this_robot
								If this\status = 3 Then this\status = 4
							End If
						Next
						
					Case 4  ;RETURN TO WAYPOINT	;After attacking in case 5, remember to tell the robot to return to it's waypoint.
						dist# = EntityDistance(o\Entity, o\return_waypoint)
						dist2# = EntityDistance(o\Entity,p\Objects\Entity)
						
				;if find players again, then re-pursue
						
						If dist2# < maxdist#
							o\status = 3	
						EndIf
						
						If dist# >= 1.1
							PointEntity o\Entity, o\return_waypoint	;point it at the waypoint
							MoveEntity o\Entity, 0,0,1
						Else If dist# < 1.1
							o\status = 1	;r\status 1 can be look for player
						End If
						
					Case 5  ;ATTACK
	;this chunk of code will exocute ONE time, then change the r\status to 4!
	;Attack code goes here!
						
						o\status = 4 ;return to waypoint
						
				End Select
			EndIf
			EndIf
		Next
	Next
	
End Function

Object_Robot_Create():

	; =========================================================================================================
	; Object_Robot_Create
	; =========================================================================================================
	; Creates a New Robot Object	

Function Object_Robot_Create.tObject(x#, y#, z#, rx#=0, ry#=0, rz#=0)
	
	o.tObject = New tObject
	
		; Create objects
	o\Motion = New tObject_Motion
	
	o\Motion\Speed    = Vector(0, 0, 0)
	o\Motion\Speed\Z# = 3
	
	o\ObjType = OBJTYPE_ROBOT
	
		;Now that we have those coordinates, we need to place a pivot at that location.
	o\return_waypoint = CreateSphere()	;Here is our waypoint.  A pivot.  Right now it's at 0,0,0.
	PositionEntity o\return_waypoint, x#, y#, z#	;Here we position it where the robot is at.
	
	o\Position = New tVector	
	o\Position\x# = x#
	o\Position\y# = y#
	o\Position\z# = z#
	
	o\Entity = LoadAnimMesh("Objects\Robot\Robot.b3d")
	
	o\status = 1 ;set robot's status to 1
	
;	o\id = o\Entity ;assign id to robot
	
	EntityAutoFade(o\Entity, OBJECT_VIEWDISTANCE_MIN#, OBJECT_VIEWDISTANCE_MAX#)
	EntityPickMode o\Entity,2,True
	ScaleEntity o\Entity, 1.1, 1.1, 1.1
	TranslateEntity o\Entity, x#, y#, z#
	TurnEntity o\Entity, rx#, ry#, rz#
	Animate o\Entity, 1, 1, 0, 0	
	
	Return o
	
End Function

Object_Robot_Update():

	; =========================================================================================================
	; Object_Update
	; =========================================================================================================
	; Updates the Robot object	

Function Object_Robot_Update(o.tObject, p.tPlayer, d.tDeltaTime)
	
	MoveAllRobots(10,70)
	
	; Player hits Robot
	
	If EntityDistance(p\Objects\Entity,o\Entity) <= 20.0 And (p\Action = ACTION_HOMING Or p\Action = ACTION_BOOST Or p\Action = ACTION_ROLL Or IsInvincible = True Or bounce = True) Or (EntityDistance(p\Objects\Entity,o\Entity) <= 10 And (p\Action = ACTION_JUMP)) Then
		
		
		IsAttacking =  False
		
		Game\Gameplay\Score = Game\Gameplay\Score + 100	
		
		If (p\Action = ACTION_HOMING) Then
			
			p\Action = ACTION_JUMP
			p\Motion\Speed\x# = 0
			p\Motion\Speed\y# = 2
			p\Motion\Speed\z# = 0
			
		EndIf
		
		If (p\Action = ACTION_JUMP) Then
			p\Motion\Speed\x# = 0
			p\Motion\Speed\y# = 2
			p\Motion\Speed\z# = 0
			electriccount = 1
			
		End If
		
		
		
			; Play the Robot Hit sound
		PlaySound Sound_Hit
		
		
			;Play Explosion effect
		
		EM1 = CreateEmitter_Explosion1()
		
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		
		Emitter_Start(EM1)
		PositionEntity EM1, EntityX(o\Entity,True), EntityY(o\Entity,True) + 2, EntityZ(o\Entity,True)
		ScaleEntity EM1, 10, 10, 10
		If Emitter_HasFinished(EM1) Then FreeEmitter(EM1)
		DebugLog "Emitter_IsActive(EM1): "+Emitter_IsActive(EM1)
		DebugLog "Total Particles: "+pt_numParticles
		DebugLog "Particles Rendered: "+pt_particlesRendered				
		
		
		
		
			; DESTROY the Robot
		
		FreeEntity o\Entity
		FreeEntity o\return_waypoint
		HideEntity p\Objects\Mesh_HomingAura 

		Delete o\Position
		Delete o
		
		Return
		
	EndIf	
	
	
	
		; Player with shield gets hit and loses shield
	If EntityDistance(p\Objects\Entity,o\Entity) <= 7.0 And (Not(p\Action = ACTION_JUMP Or p\Action = ACTION_HOMING Or p\Action = ACTION_BOOST Or p\Action = ACTION_ROLL)) And (IsShield = True) Then

		IsPlayerHit = True

		If IsPlayerHit
		p\Action = ACTION_FALL
		IsShieldLoss = True
		DebugLog "is_shieldloss="+IsShieldLoss
		p\Motion\Ground = False
		p\Motion\Speed\x = (-p\Motion\Speed\x)*.5
		p\Motion\Speed\y = 2
		p\Motion\Speed\z = (-p\Motion\Speed\z)*.5 
		IsShield = False
		IsElectricShield = False
		IsFireShield = False
		IsBubbleShield = False
		DebugLog "is_shield="+IsShield
		HideEntity Normal_Shield
		HideEntity Fire_Shield
		HideEntity Electric_Shield
		
		PlaySound Sound_ShieldLoss
		
		DebugLog "is_shieldloss="+IsShieldLoss

		IsPlayerHit = False
		
		EndIf

	End If
	
	;If ((EntityY(p\Objects\Entity) - o\Position\y) > 3) Then
	;	IsShieldLoss = False	
	;EndIf
	
	DebugLog "is_shieldloss="+IsShieldLoss
	
		; Player gets hurt by Robot with rings
	If (IsShield = False) And (IsShieldLoss = False) And EntityDistance(p\Objects\Entity,o\Entity) <= 7.0 And (Not(p\Action = ACTION_JUMP Or p\Action = ACTION_HOMING Or p\Action = ACTION_BOOST Or p\Action = ACTION_ROLL)) Then
		
		If Game\GamePlay\Rings > 0
			
			p\Action = ACTION_FALL
			p\Motion\Ground = False
			p\Motion\Speed\x = (-p\Motion\Speed\x)*.5 
			p\Motion\Speed\y = 2
			p\Motion\Speed\z = (-p\Motion\Speed\z)*.5
			
			Game\Gameplay\Rings = Game\Gameplay\Rings - 20			
			If Game\Gameplay\Rings < 0 Game\Gameplay\Rings = 0
			
			PlaySound Sound_RingLoss
			
		Else
			
			If (Game\GamePlay\Rings = 0 Or Player_Invincibility = 0)
				
	  ; Player has no rings OR invincibility and dies by getting hit
				
				Game\Gameplay\Score = 0
				Game\Gameplay\Time = 0
				Game\Gameplay\Lives = Game\Gameplay\Lives - 1
				If Game\Gameplay\Lives < 0 Game\Gameplay\Lives = 0
				
				p\Action = ACTION_FALL
				p\Motion\Ground = False
				p\Motion\Speed\x = (-p\Motion\Speed\x)*.5
				p\Motion\Speed\y = 2
				p\Motion\Speed\z = (-p\Motion\Speed\z)*.5 
				
				PlaySound Sound_ShieldLoss
			EndIf

;			If Game\Gameplay\Lives < 1
;
;			d0=LoadSound("Sounds/music.wav")
;			If ChannelPlaying(ch_stagemusic) Then StopChannel ch_stagemusic
;			d1=PlaySound(d0)
;			FlushKeys()
;			FlushMouse()
;			Game\Gameplay\Lives = 3
;			Game\Gameplay\Time = 0
;
;			Repeat
;			Cls
;			Text GraphicsWidth()/2, GraphicsHeight()/2, "You Lose!", 1, 1
;			Flip
;			For o.tObject = Each tObject
;			If o\ObjType = OBJTYPE_RING
;			PositionX# = 0
;			PositionY# = 0
;			PositionZ# = 0
;			;obj.tObject = Object_Ring_Create(positionX#, positionY#, positionZ#)
;			;Object_Ring_Update(o, p, d)
;			EndIf
;			Next
;			
;				For p.tPlayer = Each tPlayer
;				p\Action = ACTION_FALLING
;					EntityType(p\Objects\Entity, 0)
;					
;					PositionEntity p\Objects\Entity, 0, 20, 0
;					PositionEntity p\Objects\Mesh, 0, 20, 0						
;					p\Motion\Speed\x = 0
;					p\Motion\Speed\y = 0
;					p\Motion\Speed\z = 0
;	
;					EntityType(p\Objects\Entity, COLLISION_PLAYER)
;				Next
;				
;			If ChannelPlaying(d1) = 0
;			ch_stagemusic=PlaySound(Game\Stage\Properties\Music)
;			EndIf
;
;			Flip
;			Until ChannelPlaying(d1) = 0
;
;			EndIf
;			
		EndIf
			
	EndIf
	
End Function

Stevie G

(Posted 2010) [#7]

Post the WHOLE code (make sure it can be run without external media) and be very specific about where YOU think it's going wrong! Without this you are onto plumbs!!!

[Edit] Your code I presume?

Guy Fawkes

(Posted 2010) [#8]

i cant. thats impossible. its so far into the game that with all the includes files, its over 40000 lines.

LineOf7s

(Posted 2010) [#9]

The suggestion is to make NEW code that illustrates the specific problem you're having, that doesn't require it to be a part of the 'whole code' in order to run (and doesn't require the use of any external media either).

40000 lines? That's a lot of cutting and pasting.

puki	(Posted 2010) [#10]

Out of interest "Rez" are you creating some kind of 'Frankenstein' game, in terms of the code?

I mean, are you basically building a game out of pieces of code that you have collated over time.

I'm not poking fun at you - I am just wondering if you have been scouring through the archives of Blitz and you are basically assembling a game from bits and pieces that you find and have found interesting and decided to bolt on.

It's not a stab at you - it is more a way of understanding your coding style - ie, if you are bolting stuff together, it would stand to reason that you won't always necessarily understand why (whatever) is not working, because you didn't write it all from scratch.

I hope that makes sense.

I've not read all of your previous threads; however, I am starting to wonder if this is how you are building your game.

Guy Fawkes

(Posted 2010) [#11]

yes, it's mine. ive been working on it for over 5 years now, it is an rpg ive been working on. RossC would know because he helped me create the code that allows my player to talk to npcs

Stevie G

(Posted 2010) [#12]

Impossible? 40,000 lines of ALL your own code - behave yourself, unless you've incorporated most of the code archive! Segragate the relevant part(s) and ensure that they do NOT require extenal media and we can maybe help!

Running the above helps neither you nor others!!!

Guy Fawkes

(Posted 2010) [#13]

again, i have been working on it for 5 years. all the examples in the past i have gotten, i have added into the game.

Guy Fawkes

(Posted 2010) [#14]

i was in 9th grade when i started my project.

Stevie G

(Posted 2010) [#15]

What age is 9th grade? I direct you to my previous statement.

Guy Fawkes

(Posted 2010) [#16]

and i direct you to mine. there is NO way i can make it function the EXACT same way it is right now, because it is over 40000 lines long. if i were to make a dummy copy of it, i could never produce the same error.

Stevie G

(Posted 2010) [#17]

Again, I direct you to my prevous statement ..

Without this you are onto plumbs!!!

puki	(Posted 2010) [#18]

What's plumbs?

Stevie G

(Posted 2010) [#19]

A tasty fruit or ... Hee Haw as we say in Glasgow!

Drak	(Posted 2010) [#20]

Is one robot continually colliding into the other every frame, thus making one slower? Besides, I thought your code only had 1 robot chase the player at at time.

yes, it's mine.

BTW, that's not your code you posted, that's MY code. I wrote that for you. That's fine that you use it, I actually want you to use it, just don't claim to write it all when I clearly can recognize my own code that I wrote only 2 weeks ago.

THIS IS VERY IMPORTANT REZ
And on another note, every time one of those robots goes into pursue the player mode, it creates a pivot for a waypoint. When it returns to that pivot\waypoint later, you MUST delete it. I stressed that before, but you absolutely, positively NEED to free that pivot when the enemy gets back to it, or you'll have huge memory leaks!

Who was John Galt?

(Posted 2010) [#21]

i cant show u the WHOLE code. but i can show u part of the code. if i showed u the whole code, thats over 3000 lines.

i cant. thats impossible. its so far into the game that with all the includes files, its over 40000 lines.

Anyone else smell that?

What's plumbs?

Jacobs'.

Rez post a zip file.

Guy Fawkes

(Posted 2010) [#22]

i DID free the pivot

Ginger Tea

(Posted 2010) [#23]

seeing as this is the SAME error from the waypoints thread why in gods name didnt you post in that saying "its still broken and they still do this"

Gridian

(Posted 2010) [#24]

Hail!

5 Years? 40 THOUSAND lines of code?

Now you got me curious: What kind of game are you creating?

Greetings
Gridian

LineOf7s

(Posted 2010) [#25]

Pacman clone.

Who was John Galt?

(Posted 2010) [#26]

JA2	(Posted 2010) [#27]

Inspired by 'Limbo of the Lost' :p

Kryzon

(Posted 2010) [#28]

Tetris ultimate

JA2	(Posted 2010) [#29]

Pong

Guy Fawkes

(Posted 2010) [#30]

i told u, gridian. its an rpg -.-