Sorry your browser is not supported!

hello, some time ago I had a drop in FPS due to my ammunition presence.

dropping from 60 to 30 FPS when there are many and resumes at 60 when the ammunition is disappearing.

my ammunition is a type, which has an object which I move.
If the munitions are active, they calculate possible collisions with other planes or ships.

They only activate, when they are close to another object.

For example, if I fly with my plane alone, and shoot, the ammunition does not calculate collisions since they would not have to hit. And so I save the whole process of detecting whether or not they collide with something.

My ocean is always at height 0, so if its height is negative, I know they fell into the water.

I would like to consult you, what is the best method to have a lot of ammunition and that AppGameKit can handle it without falling.

and what method is better to calculate if a munition had an impact.

share some part of my code, this is when i create a ammo when someone fire.

----------------------------------------------

My idea, for now, is to replace the projectiles with a more effective method, I have everything separated into functions.

- projectile creation
- update projectile
- I calculate if it collides or not
- projectile death

damage calculations and others are in different functions.

it's obvious that I'm doing something wrong, and I lost track of when I started getting this drop in FPS.

Are there ammunition systems for shaders? Or is there a more polished system for this type of need?

----------------------------------------------

thanks for read,

, im back to dev again.
regards!

function crear_disparo(origen,tipo$,flag,origen_id)

m as municion
	m.tipo$ = tipo$

// estas dos deberia racionalizarlas en una sola, esforzate!
	for count = _molde_municion.length to 0 step-1
		if _molde_municion[count].tipo$ = tipo$
			if _molde_municion[count].obj <> 0
				existe = 1
				//print (" VOY A COPIAR LA SIGUIENTE MUNICIONNNNNNNNNNNNNNNNNNNNNNNNNNNN " + tipo$)
				m.obj = InstanceObject(_molde_municion[count].obj)
			endif
		endif
	next Count

if existe = 0 //si no existe esa mucnicion, la crea y de paso copia la nueva municion al nuevo disparo
		//print (" NO EXISTE     NO EXISTE     NO EXISTE     NO EXISTE     NO EXISTE     NO EXISTE     NO EXISTE    ")
		crear_molde_municion(m.tipo$)
		for count = _molde_municion.length to 0 step-1
			if _molde_municion[count].tipo$ = tipo$
				if _molde_municion[count].obj <> 0
					existe = 1
					//print (" VOY A COPIAR LA SIGUIENTE MUNICIONNNNNNNNNNNNNNNNNNNNNNNNNNNN " + tipo$)
					m.obj = InstanceObject(_molde_municion[count].obj)
				endif
			endif
		next Count
	endif

m.origen = origen_id
	m.flag = flag
	pos(m.obj,origen,"crear_disparo")
	rot(m.obj,origen,"crear_disparo")
	m.activa = 0

m.vel# = 10.4 * 2
	if m.tipo$ = "proyectil aa" then m.vel# = 10
	force_add_vector(m.obj,m.obj,m.vel#,0)

color = random(0,255)
	setobjectcolor(m.obj,color,color,color,255)

_muni.insert(m)

endfunction m.obj

function crear_disparo(origen,tipo$,flag,origen_id)

	m as municion
	m.tipo$ = tipo$

	// estas dos deberia racionalizarlas en una sola, esforzate!
	for count = _molde_municion.length to 0 step-1
		if _molde_municion[count].tipo$ = tipo$
			if _molde_municion[count].obj <> 0
				existe = 1
				//print (" VOY A COPIAR LA SIGUIENTE MUNICIONNNNNNNNNNNNNNNNNNNNNNNNNNNN " + tipo$)
				m.obj = InstanceObject(_molde_municion[count].obj)
			endif
		endif
	next Count

	if existe = 0 //si no existe esa mucnicion, la crea y de paso copia la nueva municion al nuevo disparo
		//print (" NO EXISTE     NO EXISTE     NO EXISTE     NO EXISTE     NO EXISTE     NO EXISTE     NO EXISTE    ")
		crear_molde_municion(m.tipo$)
		for count = _molde_municion.length to 0 step-1
			if _molde_municion[count].tipo$ = tipo$
				if _molde_municion[count].obj <> 0
					existe = 1
					//print (" VOY A COPIAR LA SIGUIENTE MUNICIONNNNNNNNNNNNNNNNNNNNNNNNNNNN " + tipo$)
					m.obj = InstanceObject(_molde_municion[count].obj)
				endif
			endif
		next Count
	endif



	m.origen = origen_id
	m.flag = flag
	pos(m.obj,origen,"crear_disparo")
	rot(m.obj,origen,"crear_disparo")
	m.activa = 0

	m.vel# = 10.4 * 2
	if m.tipo$ = "proyectil aa" then m.vel# = 10
	force_add_vector(m.obj,m.obj,m.vel#,0)

	color = random(0,255)
	setobjectcolor(m.obj,color,color,color,255)

	_muni.insert(m)


endfunction m.obj

function update_muni_proyectil(count,force_n_id, debe_morir)

//force_n_id = force_getmyforce_n_ID(_muni[count].obj)

if _muni[count].tipo$ = "proyectil" or _muni[count].tipo$ = "proyectil aa"

//set_timer("proyectil A",0,3)
		if _muni[count].activa = 0
			if getdistance(cam_pivot,_muni[count].obj) < 100
				_muni[count].activa = 1
			endif
		endif
		//set_timer("proyectil A",1,3)

//set_timer("proyectil B",0,3)
		x1# = getobjectx(_muni[count].obj)
		y1# = getobjecty(_muni[count].obj)
		z1# = getobjectz(_muni[count].obj)

force_apply(_muni[count].obj  ,force_n_id)

//MoveObjectLocalZ(_muni[count].obj,  1)

//set_timer("proyectil B",1,3)

if _muni[count].vida > 1 and _muni[count].activa = 1

// posicion nueva de la municion ¿choco algo?
			//set_timer("proyectil C",0,3)
			x2# = getobjectx(_muni[count].obj)
			y2# = getobjecty(_muni[count].obj)
			z2# = getobjectz(_muni[count].obj)
			//set_timer("proyectil C",1,3)

//set_timer("proyectil D",0,3) //start timer
				//Calcular si va a chocar contra algo
				ObjectRayCast(0,x1#,y1#,z1#,x2#,y2#,z2#)
				n=GetObjectRayCastNumHits()
			//	set_timer("proyectil D",1,3) // end timer

//	set_timer("proyectil E",0,3)
				for i = 0 to n-1
					victima = getObjectRayCastHitID(i)

if victima <> 0

function update_muni_proyectil(count,force_n_id, debe_morir)

	//force_n_id = force_getmyforce_n_ID(_muni[count].obj)

	if _muni[count].tipo$ = "proyectil" or _muni[count].tipo$ = "proyectil aa"

		//set_timer("proyectil A",0,3)
		if _muni[count].activa = 0
			if getdistance(cam_pivot,_muni[count].obj) < 100
				_muni[count].activa = 1
			endif
		endif
		//set_timer("proyectil A",1,3)

		//set_timer("proyectil B",0,3)
		x1# = getobjectx(_muni[count].obj)
		y1# = getobjecty(_muni[count].obj)
		z1# = getobjectz(_muni[count].obj)

		force_apply(_muni[count].obj  ,force_n_id)

		//MoveObjectLocalZ(_muni[count].obj,  1)


		//set_timer("proyectil B",1,3)


		if _muni[count].vida > 1 and _muni[count].activa = 1

			// posicion nueva de la municion ¿choco algo?
			//set_timer("proyectil C",0,3)
			x2# = getobjectx(_muni[count].obj)
			y2# = getobjecty(_muni[count].obj)
			z2# = getobjectz(_muni[count].obj)
			//set_timer("proyectil C",1,3)

				//set_timer("proyectil D",0,3) //start timer
				//Calcular si va a chocar contra algo
				ObjectRayCast(0,x1#,y1#,z1#,x2#,y2#,z2#)
				n=GetObjectRayCastNumHits()
			//	set_timer("proyectil D",1,3) // end timer

			//	set_timer("proyectil E",0,3)
				for i = 0 to n-1
					victima = getObjectRayCastHitID(i)

					if victima <> 0

Back to top

Profile PM Email Website

Santiago3D

4

Years of Service

User Offline

Joined: 11th May 2020

Location: Argentina

Posted: 3rd Jun 2021 16:20 Edited at: 3rd Jun 2021 16:26

maibe here is the problem, If I cancel this part where it detects collisions, I don't have the FPS drop

function update_muni_proyectil(count,force_n_id, debe_morir)

//force_n_id = force_getmyforce_n_ID(_muni[count].obj)

if _muni[count].tipo$ = "proyectil" or _muni[count].tipo$ = "proyectil aa"

//set_timer("proyectil A",0,3)
		if _muni[count].activa = 0
			if getdistance(cam_pivot,_muni[count].obj) < 100
				_muni[count].activa = 1
			endif
		endif
		//set_timer("proyectil A",1,3)

//set_timer("proyectil B",0,3)
		x1# = getobjectx(_muni[count].obj)
		y1# = getobjecty(_muni[count].obj)
		z1# = getobjectz(_muni[count].obj)

force_apply(_muni[count].obj  ,force_n_id)

//MoveObjectLocalZ(_muni[count].obj,  1)

//set_timer("proyectil B",1,3)

if _muni[count].vida > 1 and _muni[count].activa = 1     // <<<<<<<<<<<<< HERE START THE PROBLEM

// posicion nueva de la municion ¿choco algo?
			//set_timer("proyectil C",0,3)
			x2# = getobjectx(_muni[count].obj)
			y2# = getobjecty(_muni[count].obj)
			z2# = getobjectz(_muni[count].obj)
			//set_timer("proyectil C",1,3)

//set_timer("proyectil D",0,3) //start timer
				//Calcular si va a chocar contra algo
				ObjectRayCast(0,x1#,y1#,z1#,x2#,y2#,z2#)
				n=GetObjectRayCastNumHits()
			//	set_timer("proyectil D",1,3) // end timer

//	set_timer("proyectil E",0,3)
				for i = 0 to n-1
					victima = getObjectRayCastHitID(i)

if victima <> 0

for s = _squad.length to 0 step -1
							for airplane = 1 to 16
								if victima = _squad[s].airplane_pivot[airplane]
									obj = GetObjectRayCastHitID(i)
									x#=GetObjectRayCastx(i)
									y#=GetObjectRayCastY(i)
									z#=GetObjectRayCastz(i)
									crear_explo(0,"red",x#,y#,z#,8)
									critical_hit = random(0,100)
									if critical_hit > 30
											crear_explo(0,"red",x#,y#,z#,random(10,20))
									endif
								endif
							next airplane
						next s
					endif

//colision de municion con BARCOS
					for barco_n =_barco.length to 0 step-1
						if victima = _barco[barco_n].obj and _barco[barco_n].obj <> _muni[count].origen

obj = GetObjectRayCastHitID(i)
								x#=GetObjectRayCastx(i)
								y#=GetObjectRayCastY(i)
								z#=GetObjectRayCastz(i)
								nx#=GetObjectRayCastNormalX(i)
								ny#=GetObjectRayCastNormalY(i)
								nz#=GetObjectRayCastNormalZ(i)
								tx#=GetScreenXFrom3D(x#,y#,z#)
								ty#=GetScreenYFrom3D(x#,y#,z#)
								crear_explo(0,"red",x#,y#,z#,2)
								last_vida = _barco[barco_n].vida
								_barco[barco_n].vida = _barco[barco_n].vida- random(1,10)*10
								_muni[count].vida = 1000

critical_hit = random(0,100)
								if critical_hit > 90
									crear_splash(_muni[count].obj,random(20,60),"explo")
									crear_explo(0,"red",x#,y#,z#,random(10,20))
								endif

// points for hit
								if _muni[count].flag = _barco[barco_n].flag

send_radio_msg(_barco[barco_n].tipo$ ,msg_origen_txt_by_id(_muni[count].origen),"CEASE FIRE!!!! you hit one of our ships!!!!",_muni[count].flag)

// friendli fire!!!   NEGATIVE POINTS
									// hit an friendly ship
									points = -10
									// kill an friendly ship!!
									if _barco[barco_n].vida <= 0
										 points = -5000
											send_radio_msg(_barco[barco_n].tipo$,msg_origen_txt_by_id(_muni[count].origen),"You  have just sunk a ship of your own side!",_muni[count].flag)

endif
									shooter = _muni[count].origen
									add_points(shooter ,points)

else

// Hit points, you hit a enemy aircraft
									points = 5
									// kill an enemy ship!!
									if _barco[barco_n].vida <= 0 and last_vida > 0
										_human[player_human_id].ships_sink = _human[player_human_id].ships_sink + 1
										save_humans()
										points = 1000

send_radio_msg(msg_origen_txt_by_id(_muni[count].origen),"","Enemy  "+ _barco[barco_n].tipo$ + " ship destroyed!!!",_muni[count].flag)

endif
									shooter = _muni[count].origen
									add_points(shooter ,points)
								endif
						endif
					next barco_n

//colision de municion contra otros aviones
					for avion_n = _avion.length to 0 step-1

if victima = _avion[avion_n].lowpoly and  _avion[avion_n].obj <>  _muni[count].origen
							 obj = GetObjectRayCastHitID(i)

//if _avion[avion_n].control$ = "player" or _muni[count].origen = player_avion_obj_id
									check_3d_damage(avion_n, -1, count)
								//endif

x#=GetObjectRayCastx(i)
								y#=GetObjectRayCastY(i)
								z#=GetObjectRayCastz(i)
								crear_explo(0,"red",x#,y#,z#,5)
								last_vida =  _avion[avion_n].vida
								_avion[avion_n].vida = _avion[avion_n].vida - random(1,10)*30
								_muni[count].vida = 1000

//points for hit
								if _muni[count].flag = _avion[avion_n].flag

send_radio_msg(msg_origen_txt_by_id(_avion[avion_n].obj) ,msg_origen_txt_by_id(_muni[count].origen),"CEASE FIRE!!!! you hit a friendly aircraft!!!!",_avion[n].flag)

// friendli fire!!!   NEGATIVE POINTS
									points = -10
									if _avion[avion_n].vida <= 0
										 points = -1000
									endif
									shooter = _muni[count].origen
									add_points(shooter ,points)
									else
									// Hit points, you hit a enemy aircraft
									points = 5
									if _avion[avion_n].vida <= 0 and last_vida > 0
										 points = 500
										_human[player_human_id].airplanes_down = _human[player_human_id].airplanes_down + 1
										send_radio_msg(msg_origen_txt_by_id(_muni[count].origen),"","Enemy " + _avion[avion_n].tipo$ + " aircraft destroy! ",_muni[count].flag)

endif
									shooter = _muni[count].origen
									add_points(shooter ,points)
								endif
						endif
					next
					// here i SUM THE NEW POINTS FOR HITING!
					origen_points = origen_points + points
				next

//set_timer("proyectil E",1,3)

endif

//set_timer("proyectil F",0,3)
		MoveObjectLocalZ(_muni[count].obj,-2) // ??? y esto??
		_muni[count].vida = _muni[count].vida + 1
		//set_timer("proyectil F",0,3)

endif

endfunction debe_morir

function update_muni_proyectil(count,force_n_id, debe_morir)

	//force_n_id = force_getmyforce_n_ID(_muni[count].obj)

	if _muni[count].tipo$ = "proyectil" or _muni[count].tipo$ = "proyectil aa"

		//set_timer("proyectil A",0,3)
		if _muni[count].activa = 0
			if getdistance(cam_pivot,_muni[count].obj) < 100
				_muni[count].activa = 1
			endif
		endif
		//set_timer("proyectil A",1,3)

		//set_timer("proyectil B",0,3)
		x1# = getobjectx(_muni[count].obj)
		y1# = getobjecty(_muni[count].obj)
		z1# = getobjectz(_muni[count].obj)

		force_apply(_muni[count].obj  ,force_n_id)

		//MoveObjectLocalZ(_muni[count].obj,  1)


		//set_timer("proyectil B",1,3)

		
		if _muni[count].vida > 1 and _muni[count].activa = 1     // <<<<<<<<<<<<< HERE START THE PROBLEM

			// posicion nueva de la municion ¿choco algo?
			//set_timer("proyectil C",0,3)
			x2# = getobjectx(_muni[count].obj)
			y2# = getobjecty(_muni[count].obj)
			z2# = getobjectz(_muni[count].obj)
			//set_timer("proyectil C",1,3)

				//set_timer("proyectil D",0,3) //start timer
				//Calcular si va a chocar contra algo
				ObjectRayCast(0,x1#,y1#,z1#,x2#,y2#,z2#)
				n=GetObjectRayCastNumHits()
			//	set_timer("proyectil D",1,3) // end timer

			//	set_timer("proyectil E",0,3)
				for i = 0 to n-1
					victima = getObjectRayCastHitID(i)

					if victima <> 0


						for s = _squad.length to 0 step -1
							for airplane = 1 to 16
								if victima = _squad[s].airplane_pivot[airplane]
									obj = GetObjectRayCastHitID(i)
									x#=GetObjectRayCastx(i)
									y#=GetObjectRayCastY(i)
									z#=GetObjectRayCastz(i)
									crear_explo(0,"red",x#,y#,z#,8)
									critical_hit = random(0,100)
									if critical_hit > 30
											crear_explo(0,"red",x#,y#,z#,random(10,20))
									endif
								endif
							next airplane
						next s
					endif



					//colision de municion con BARCOS
					for barco_n =_barco.length to 0 step-1
						if victima = _barco[barco_n].obj and _barco[barco_n].obj <> _muni[count].origen

								obj = GetObjectRayCastHitID(i)
								x#=GetObjectRayCastx(i)
								y#=GetObjectRayCastY(i)
								z#=GetObjectRayCastz(i)
								nx#=GetObjectRayCastNormalX(i)
								ny#=GetObjectRayCastNormalY(i)
								nz#=GetObjectRayCastNormalZ(i)
								tx#=GetScreenXFrom3D(x#,y#,z#)
								ty#=GetScreenYFrom3D(x#,y#,z#)
								crear_explo(0,"red",x#,y#,z#,2)
								last_vida = _barco[barco_n].vida
								_barco[barco_n].vida = _barco[barco_n].vida- random(1,10)*10
								_muni[count].vida = 1000

								critical_hit = random(0,100)
								if critical_hit > 90
									crear_splash(_muni[count].obj,random(20,60),"explo")
									crear_explo(0,"red",x#,y#,z#,random(10,20))
								endif

								// points for hit
								if _muni[count].flag = _barco[barco_n].flag

									send_radio_msg(_barco[barco_n].tipo$ ,msg_origen_txt_by_id(_muni[count].origen),"CEASE FIRE!!!! you hit one of our ships!!!!",_muni[count].flag)

									// friendli fire!!!   NEGATIVE POINTS
									// hit an friendly ship
									points = -10
									// kill an friendly ship!!
									if _barco[barco_n].vida <= 0
										 points = -5000
											send_radio_msg(_barco[barco_n].tipo$,msg_origen_txt_by_id(_muni[count].origen),"You  have just sunk a ship of your own side!",_muni[count].flag)

									endif
									shooter = _muni[count].origen
									add_points(shooter ,points)

									else


									// Hit points, you hit a enemy aircraft
									points = 5
									// kill an enemy ship!!
									if _barco[barco_n].vida <= 0 and last_vida > 0
										_human[player_human_id].ships_sink = _human[player_human_id].ships_sink + 1
										save_humans()
										points = 1000

											send_radio_msg(msg_origen_txt_by_id(_muni[count].origen),"","Enemy  "+ _barco[barco_n].tipo$ + " ship destroyed!!!",_muni[count].flag)


									endif
									shooter = _muni[count].origen
									add_points(shooter ,points)
								endif
						endif
					next barco_n

					//colision de municion contra otros aviones
					for avion_n = _avion.length to 0 step-1



						if victima = _avion[avion_n].lowpoly and  _avion[avion_n].obj <>  _muni[count].origen
							 obj = GetObjectRayCastHitID(i)

								//if _avion[avion_n].control$ = "player" or _muni[count].origen = player_avion_obj_id
									check_3d_damage(avion_n, -1, count)
								//endif


								x#=GetObjectRayCastx(i)
								y#=GetObjectRayCastY(i)
								z#=GetObjectRayCastz(i)
								crear_explo(0,"red",x#,y#,z#,5)
								last_vida =  _avion[avion_n].vida
								_avion[avion_n].vida = _avion[avion_n].vida - random(1,10)*30
								_muni[count].vida = 1000

								//points for hit
								if _muni[count].flag = _avion[avion_n].flag

									send_radio_msg(msg_origen_txt_by_id(_avion[avion_n].obj) ,msg_origen_txt_by_id(_muni[count].origen),"CEASE FIRE!!!! you hit a friendly aircraft!!!!",_avion[n].flag)


									// friendli fire!!!   NEGATIVE POINTS
									points = -10
									if _avion[avion_n].vida <= 0
										 points = -1000
									endif
									shooter = _muni[count].origen
									add_points(shooter ,points)
									else
									// Hit points, you hit a enemy aircraft
									points = 5
									if _avion[avion_n].vida <= 0 and last_vida > 0
										 points = 500
										_human[player_human_id].airplanes_down = _human[player_human_id].airplanes_down + 1
										send_radio_msg(msg_origen_txt_by_id(_muni[count].origen),"","Enemy " + _avion[avion_n].tipo$ + " aircraft destroy! ",_muni[count].flag)

									endif
									shooter = _muni[count].origen
									add_points(shooter ,points)
								endif
						endif
					next
					// here i SUM THE NEW POINTS FOR HITING!
					origen_points = origen_points + points
				next

				//set_timer("proyectil E",1,3)

		endif

		//set_timer("proyectil F",0,3)
		MoveObjectLocalZ(_muni[count].obj,-2) // ??? y esto??
		_muni[count].vida = _muni[count].vida + 1
		//set_timer("proyectil F",0,3)

	endif

endfunction debe_morir

Back to top

Profile PM Email Website

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 3rd Jun 2021 21:48

For best Performance you want to avoid Arrays with > 2,500 Elements
You are also going to want to use REPEAT...UNTIL or WHILE...ENDWHILE over FOR...NEXT., I don't know why but the FOR...NEXT Loop is about 20% Slower than the Conditional Branch Loops; or of course you could use DO...LOOP with a Conditional "EXIT"... not tested the performance for that., but I'd imagine it should be pretty fast.

Another thing to note is while IF...ENDIF has reasonable performance., any Conditional with an ELSE has a noticeable performance hit.
If possible try to use Branchless Conditionals (i.e. Binary True / False) with a Finite State Machine (SELECT...CASE)., this provides the best performance especially with Recursive Code (i.e. Loops of large volumes of Data)

Now the last thing to consider is that the Physics Engine is SLOW, especially with Ray Casting.
I'm not sure why, as it should be SSE / VMX Accelerated; but yeah the performance is somewhat dire... so really you want to performance distance calculations., in-fact a Simplified BVH (Binary Volume Hierarchy) is best; which is a fancy way of saying you want to break down the problem to where you're creating virtual boxes and instead check to see if bullets are within those Volumes; then check the Vector to see if any will pass through the Box containing the Target Collider (Object).
ONLY then do you perform the Ray Cast to check to see if a Collision has occurred.

It's one of the downsides of AppGameKit Script being well a Scripting Engine, and not a very well optimised one at that... is for more ambitious things, like Bullet Hell Shooters for example; you have to be a bit more creative to get Decent Performance., which I'd argue somewhat ends up going against the Concept of AppGameKit being more Approachable and New Programmer Friendly.
But then AppGameKit is contradictive in so many ways.

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 3rd Jun 2021 22:21

I would suggest the following;
1) Do odds and evens. Odd array elements one frame and even the next. You could split this up further as well
2) Add a broad proximity check beore you go raycasting

Back to top

Profile PM

Loktofeit

AGK Developer

15

Years of Service

User Offline

Joined: 21st Jan 2009

Location: Sarasota, FL

Posted: 3rd Jun 2021 23:43

"You are also going to want to use REPEAT...UNTIL or WHILE...ENDWHILE over FOR...NEXT., I don't know why but the FOR...NEXT Loop is about 20% Slower than the Conditional Branch Loops" - Raven

I did not know that. Thank you!

LynxJSA's web games/quizzes - LynxJSA's Android apps
AGK Resource Directory
"Stick to a single main loop (DO...LOOP) and loop through it every frame.
Do everything inside functions.
Use finite state machines to control your game.
Use lots and lots of source files.
Use virtual resolution instead of the default percentage system." - Digital Awakening

Back to top

Profile PM Email Website

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 4th Jun 2021 01:00 Edited at: 4th Jun 2021 01:07

Quick loop test results (counting to 10,000,000)

Classic:

Studio:

Didn't expect Do/Loop to be the slowest (64-bit compiles, if it matters?)

// Project: Loops 
// Created: 21-06-03

// show all errors

SetErrorMode(0)

// set window properties
SetWindowTitle( "Loops" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )

Last = 10000000
Start# = Timer()
For x = 1 to Last

Next x
ForTime# = Timer()-Start#

x = 0
Start# = Timer()
Repeat
 INC x
Until x = Last
RepeatTime# = Timer()-Start#

x = 0
Start# = Timer()
While x < Last
  INC x
EndWhile
WhileTime# = Timer()-Start#

x = 0
Start# = Timer()
Do
  INC x
  If x = Last then Exit
Loop
DoTime# = Timer()-Start#

x = 0
Start# = Timer()
_MyLoop:
INC x
If x < Last then Goto _MyLoop
GoTimer# = Timer() - Start#

do
	Print( "For:" + STR(ForTime#))
	Print("Repeat:"+STR(RepeatTime#))
	Print("While:"+STR(WhileTime#))
	Print("Do:"+STR(DoTime#))
	Print("GoTo:"+STR(GoTimer#))

Sync()
loop

// Project: Loops 
// Created: 21-06-03

// show all errors

SetErrorMode(0)

// set window properties
SetWindowTitle( "Loops" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )

Last = 10000000
Start# = Timer()
For x = 1 to Last

Next x
ForTime# = Timer()-Start#

x = 0
Start# = Timer()
Repeat
 INC x
Until x = Last
RepeatTime# = Timer()-Start#

x = 0
Start# = Timer()
While x < Last
  INC x
EndWhile
WhileTime# = Timer()-Start#

x = 0
Start# = Timer()
Do
  INC x
  If x = Last then Exit
Loop
DoTime# = Timer()-Start#

x = 0
Start# = Timer()
_MyLoop:
INC x
If x < Last then Goto _MyLoop
GoTimer# = Timer() - Start#


do
	Print( "For:" + STR(ForTime#))
	Print("Repeat:"+STR(RepeatTime#))
	Print("While:"+STR(WhileTime#))
	Print("Do:"+STR(DoTime#))
	Print("GoTo:"+STR(GoTimer#))

    Sync()
loop

[My Itch.io Home] [Community Apps on Itch.io]
[AGK Resource Directory] [TGC @ GitHub]
[CODE lang=agk] YOUR CODE HERE [/CODE]
[VIDEO=youtube] VIDEO ID [/VIDEO]
[AGK Showcase][Google Forum Search]

Attachments

Login to view attachments

Back to top

Profile PM Website

PSY

Developer

8

Years of Service

User Offline

Joined: 3rd Jul 2016

Location: Laniakea Supercluster

Posted: 4th Jun 2021 13:15

Quote: "You are also going to want to use REPEAT...UNTIL or WHILE...ENDWHILE over FOR...NEXT., I don't know why but the FOR...NEXT Loop is about 20% Slower than the Conditional Branch Loops"

Cannot confirm 100%...
REPEAT is the fastest loop in both Studio and Classic
WHILE is faster than FOR in Studio, but MUCH SLOWER in Classic

Win 10 64bit
I-7 2600K

PSY LABS Games
Coders don't die, they just gosub without return

Back to top

Profile PM Website

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 4th Jun 2021 18:42

Have you tried making your ammunition objects invisible, so that they're there for the calculations, but not actually drawn to the screen?

Send your parents to noisy sprite demo hell... enter the D-Zone

Back to top

Profile PM

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 5th Jun 2021 00:42

Quote: "Have you tried making your ammunition objects invisible, so that they're there for the calculations, but not actually drawn to the screen?"

Drawing Objects actually has a pretty negligible performance hit., of course GPU / CPU Dependant; but typically unless you're drawing A LOT of High Polygon Objects; you're going to hit Script Performance Limits LONG before you hit Rendering Performance Limits.
As I noted in my original response., essentially the Ray-Casting (or anything to do with the built-in Physics Engine) will simply destroy performance.

AGK uses Bullet Physics., which is an excellent Physics Engine... but at the same time, it also doesn't support 64bit, Multi-Core or Multi-Threading... meaning it's running on a Single Core / Thread with 32bit Operations.
While this is "Fine" for Physics Engines like Open Dynamics Engine and PhysX., which were developed and designed when Uni-Core 32-bit Processors were still Commonplace., Bullet Physics was instead developed by Sony for the PlayStation 3.
This means the backend has a HEAVY reliance on Multi-Threading across multiple SIMD Units for acceleration.

While there is a "Software" Fallback that can use minimal resources., it was never really intended for Retail Products; but rather as a baseline for when porting to New Platforms.
A major failing of AppGameKit is that TGC seems highly reluctant to abandon what are essentially obsolete Mobile Platforms., and while this to a degree is "Okay" for say AppGameKit Classic (as v2 tends to get called)., I think this was a major mis-step when it comes to AppGameKit Studio; and would've been an excellent way to differentiate them by increasing the Minimum Specifications; and working to more Modern Architecture considerations.

•

As a result., you have to be exceptionally frugal with the number of Rays, Dynamic Objects, etc. that you have the Physics System handling.
Ideally speaking you want to use it as little as possible., or even better use a more bespoke solution that entirely removes it's usage.
With the performance it has; and again this isn't a fault of Bullet Physics, it is an excellent, capable and performant Physics Engine when properly implemented... it more or less feels like it's there to allow for a Feature Checkbox to be ticked off., and is useful in a more limited scope.

For something that uses A LOT of entities., I'd instead suggest relying exclusively on just a basic Distance Check; with a prescribed Distance denoting the "Collision" Area; so if it's within a given Distance you have a Hit, and if not; you don't.
On top of this breaking the problem down into a BVH Tree; or even just a simple Octree to perform more general distance checks and then only actually perform a check and compare on those within a proximity Volume; would again allow for much larger numbers of Entities without any real performance hits.

Back to top

Profile PM Email Website

Santiago3D

4

Years of Service

User Offline

Joined: 11th May 2020

Location: Argentina

Posted: 6th Jun 2021 15:19

hello, thank you very much for the answers!

Some things I do not understand, since being self-taught and gross I find it difficult to understand a little things that are surely basic.

From what I see, raycast is a slow function, both from what they say, and also that if I cancel that function, the performance of the game does not drop.

so it is obvious that there I have the problem.

the main solution is to have distance detection.
and only use the raycast on a few special occasions.

in my case, my planes have "objects" of impacts, to detect if you hit the engine, the wing, the cockpit, the ailerons, etc.

but I could use that, which I get using raycast, only for very special occasions.

also used RAYCAST for the collisions of the plane when it passes near a ship.

I must evaluate well how to approach the general solution of all this.

since the yield is something non-negotiable.

regards!

What I can do is add the usage counters that I have, to see how many times I use raycast, and how much time it takes.

and so know how much I can use it.

Back to top

Profile PM Email Website

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 7th Jun 2021 13:27

Santiago., you may have to test this... but I don't believe AppGameKit will automatically generate and use (Bounding) Box Collision for your Objects.
It instead likely uses Polygon (Triangle) Collision., which is great for Accuracy but not so good for Performance.

Let's say you're using a Low Triangle (Polygon) Count Model., like maybe 500 Triangles... even if we were to use Triangular Collision., a Box Representation of the Object is going to be substantially Faster to Calculation when Collision occurs as it made up from 12 Triangles.
Even still., Box Collision is typically even faster still; because it doesn't NEED to be a Comprehensive approach, where each individual Triangle has to be Calculated and Intersected to Detect if Collision has occurred.
Instead a more simplified approach of "Is the Ray within this Volume?" needs to be done, which is essentially half a dozen calculations and binary checks as opposed to Triangular Collision which is several hundred calculations with branching checks.

And realistically., we don't actually need to rely on Ray Casting to even handle said Collision; a more simplified Distance Calculation and then Volume Check can be utilised.
I'd suggest experimenting with that and work from there.
If it helps I can see about writing some code to showcase this and draw some pictures that explain what's happening.

There's nothing wrong with being "Self Taught", so don't fret about that... you'll likely find more than a few here have been there too.
Doing new things is always going to be a learning experience., the best programmers are those who are always open to learning; as there is never a "Perfect" or "Right" way to do something... and more often than not; it's a case of Trial & Error until you get the results you hope / want.

Back to top

Profile PM Email Website

Santiago3D

4

Years of Service

User Offline

Joined: 11th May 2020

Location: Argentina

Posted: 9th Jun 2021 18:55 Edited at: 9th Jun 2021 18:56

Thanks for the answers.

i have this function to messure distances

function getdistance(origen,destino)

	//Returns the distance between the start point for the ray and the collision point.
	//float GetObjectRayCastDistance( index )

	//x1, y1, z1 - x, y, z coordinates of the first object
	//x2, y2, z2 - x, y, z coordinates of the second object

	if origen <> 0 and destino <> 0
		if origen = cam
			x1# = GetCameraworldx(cam)
			y1# = GetCameraworldy(cam)
			z1# = GetCameraworldz(cam)
				else
			x1# = getobjectworldx(origen)
			y1# = getobjectworldy(origen)
			z1# = getobjectworldz(origen)
		endif

		if destino = cam
			x2# = GetCameraworldx(cam)
			y2# = GetCameraworldy(cam)
			z2# = GetCameraworldz(cam)
			else
			x2# = getobjectworldx(destino)
			y2# = getobjectworldy(destino)
			z2# = getobjectworldz(destino)
		endif
	endif

	//dist# = sqrt(pow(x1# - x2#, 2) + pow(y1# - y2#, 2) + pow(z1# - z2#, 2))

	dist#=sqrt(((x2#-x1#)*(x2#-x1#))+((y2#-y1#)*(y2#-y1#))+((z2#-z1#)*(z2#-z1#)))

endfunction dist#

you could use it to detect projectiles near potential targets.

as if it were a collision of sphere to sphere.

since the distance from one point to another would be like the radius, if it is within the radius I am within the sphere.

reading the answers, I also think that maybe it would be faster if I make 3 conditions to detect if two objects are close, in the shape of a rectangle.

something like this to check if oneobject is near to other very fast?
if abs (x1 - x2) <R then
if abs (y1 - y2) <R then
if abs (z1 - z2) <R then
// box collision detected
endif
endif
endif

What do you think? Both options are fast?
in this way I would have 3 if that would be faster than a combined condition

and could have a point-sphere or box sector collision

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 9th Jun 2021 20:28

Quote: "reading the answers, I also think that maybe it would be faster if I make 3 conditions to detect if two objects are close, in the shape of a rectangle."

It may be best to create a sample test program to see which is fastest but it looks like your making great progress looking forward to seeing more

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 9th Jun 2021 21:46 Edited at: 9th Jun 2021 21:46

I would divide the area into a grid. Then check cells for proximity

Back to top

Profile PM

Conjured Entertainment

AGK Developer

19

Years of Service

User Offline

Joined: 12th Sep 2005

Location: Nirvana

Posted: 16th Jun 2021 13:51 Edited at: 16th Jun 2021 14:58

My knowledge of BASIC tanks when the English is changed to a different language, sorry.

Quote: "My ocean is always at height 0, so if its height is negative, I know they fell into the water."

Quote: "the main solution is to have distance detection.
and only use the raycast on a few special occasions.
"

Sounds like you have it figured out.

Looking forward to playing this when it is finished.

Coding things my way since 1981 -- Currently using AppGameKit V2 Tier 1

Back to top

Profile PM Website

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 24th Jul 2021 06:24