trying A.I using waypoints - GameCreators Forum

Author

Message

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 20th Feb 2018 12:08

Link

Hi, been trying to use waypoints in my 3D engine for using some A.I. I have tried this code

function control_baddies()

for n=1 to baddiecounter
		for diff =-1 to 1
		if baddy[n].id>0
			if getobjectx(baddy[n].id)+diff <getobjectx(waypoint[waypointtarget].id)
				spdx#=0.01
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectx(baddy[n].id)+diff>getobjectx(waypoint[waypointtarget].id)
				
				spdx#=-0.01
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectz(baddy[n].id)+diff >getobjectz(waypoint[waypointtarget].id)
				spdz#=-0.01
			endif
			if getobjectz(baddy[n].id)+diff<getobjectz(waypoint[waypointtarget].id)
				spdz#=0.01
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectz(baddy[n].id)+diff=getobjectz(waypoint[waypointtarget].id) and getobjectx(baddy[n].id)+diff=getobjectx(waypoint[waypointtarget].id)
				inc waypointtarget
				
				print ("Arrived")
			endif
		print (str(getobjectx(baddy[n].id)))
						setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)

endif
next diff
spdx#=0
spdz#=0
		next n
endfunction

+ Code Snippet

function control_baddies()


	for n=1 to baddiecounter
		for diff =-1 to 1
		if baddy[n].id>0
			if getobjectx(baddy[n].id)+diff <getobjectx(waypoint[waypointtarget].id)
				spdx#=0.01
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectx(baddy[n].id)+diff>getobjectx(waypoint[waypointtarget].id)
				
				spdx#=-0.01
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectz(baddy[n].id)+diff >getobjectz(waypoint[waypointtarget].id)
				spdz#=-0.01
			endif
			if getobjectz(baddy[n].id)+diff<getobjectz(waypoint[waypointtarget].id)
				spdz#=0.01
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectz(baddy[n].id)+diff=getobjectz(waypoint[waypointtarget].id) and getobjectx(baddy[n].id)+diff=getobjectx(waypoint[waypointtarget].id)
				inc waypointtarget
				
				print ("Arrived")
			endif
		print (str(getobjectx(baddy[n].id)))
						setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)

endif
next diff
spdx#=0
spdz#=0
		next n
endfunction

Which obviously is useless as this video shows:

I thought using that small for next of diff would do but not so, I dont think it well ever work.. So the baddie will never move onto the next waypoint

Can someone straighten me out and show me a better way to do this? I just want that baddy to get to the first way point then to the next and so on, I know I dont have a way to get back to waypoint 1 yet but I need to help in getting this right first.. tnx

Hail to the king, baby!

Back to top

Profile PM Website

Santman

13

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 20th Feb 2018 15:23

Link

Hey.

I'm not sure there's a quick and easy fix for what you want, there's no ai built into AGK. I built an a* pathmapping routine for 2d, and that alone is 3-4 times the size of your code. I've not done it, but I think flood fill is the most common 3d pathmapping routine. Maybe try searching that and the forums?

Back to top

Profile PM

Santman

13

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 20th Feb 2018 15:28

Link

Scratch that, apparently you can use node based a* in 3d.

https://stackoverflow.com/questions/19524335/3d-pathfinding-ai-algorithm-recommendation-and-analysis

Back to top

Profile PM

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 20th Feb 2018 15:39 Edited at: 20th Feb 2018 15:40

Link

had some progress using the floor command,so the function is now...

function control_baddies()

for n=1 to baddiecounter
		if baddy[n].id>0
			if getobjectx(baddy[n].id) <getobjectx(waypoint[waypointtarget].id)
				spdx#=0.1
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectx(baddy[n].id)>getobjectx(waypoint[waypointtarget].id)
				
				spdx#=-0.1
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectz(baddy[n].id) >getobjectz(waypoint[waypointtarget].id)
				spdz#=-0.1
			endif
			if getobjectz(baddy[n].id)<getobjectz(waypoint[waypointtarget].id)
				spdz#=0.1
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if bdx-floor(spdx#)=wdx and bdz-floor(spdz#)=wdz
				if waypointtarget>waypointpointer
					waypointtarget=1
				endif
				inc waypointtarget
	
				print ("Arrived")
			endif
			bdx=floor(getobjectx(baddy[n].id))
			bdz=floor(getobjectz(baddy[n].id))
			wdx=floor(getobjectx(waypoint[waypointtarget].id))
			wdz=floor(getobjectz(waypoint[waypointtarget].id))
		
		print (str(abs(getobjectx(baddy[n].id))))
						setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)

endif
spdx#=0
spdz#=0
		next n
endfunction

+ Code Snippet

function control_baddies()


	for n=1 to baddiecounter
		if baddy[n].id>0
			if getobjectx(baddy[n].id) <getobjectx(waypoint[waypointtarget].id)
				spdx#=0.1
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectx(baddy[n].id)>getobjectx(waypoint[waypointtarget].id)
				
				spdx#=-0.1
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectz(baddy[n].id) >getobjectz(waypoint[waypointtarget].id)
				spdz#=-0.1
			endif
			if getobjectz(baddy[n].id)<getobjectz(waypoint[waypointtarget].id)
				spdz#=0.1
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if bdx-floor(spdx#)=wdx and bdz-floor(spdz#)=wdz
				if waypointtarget>waypointpointer
					waypointtarget=1
				endif
				inc waypointtarget
	
				print ("Arrived")
			endif
			bdx=floor(getobjectx(baddy[n].id))
			bdz=floor(getobjectz(baddy[n].id))
			wdx=floor(getobjectx(waypoint[waypointtarget].id))
			wdz=floor(getobjectz(waypoint[waypointtarget].id))
		
		print (str(abs(getobjectx(baddy[n].id))))
						setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)

endif
spdx#=0
spdz#=0
		next n
endfunction

but not quite right, here is the result....

the second run starts off right,going to the first waypoint on the left edge, but then it gets stuck on the the 3rd one

Hail to the king, baby!

Back to top

Profile PM Website

shadey

14

Years of Service

User Offline

Joined: 25th Jan 2010

Location:

Posted: 20th Feb 2018 16:14 Edited at: 20th Feb 2018 19:47

Link

never mind,sorted it,here is the final function for those interested...

function control_baddies()
	for n=1 to baddiecounter
		if baddy[n].id>0
			if getobjectx(baddy[n].id) <waypoint[waypointtarget].xp#
				spdx#=2
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectx(baddy[n].id)>waypoint[waypointtarget].xp#
				
				spdx#=-2
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectz(baddy[n].id) >waypoint[waypointtarget].zp#
				spdz#=-2
			endif
			if getobjectz(baddy[n].id)<waypoint[waypointtarget].zp#
				spdz#=2
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if bdx-floor(spdx#)=wdx and bdz-floor(spdz#)=wdz
				
				inc waypointtarget
				print ("Arrived")
			endif
			if bdx>=0
				bdx=floor(getobjectx(baddy[n].id))
			else
				bdx=trunc(getobjectx(baddy[n].id))
			endif
			if bdz>=0
				bdz=floor(getobjectz(baddy[n].id))
			else
				bdz=trunc(getobjectz(baddy[n].id))
			endif
			if wdx>=0
				wdx=floor(getobjectx(waypoint[waypointtarget].id))
			else
				wdx=trunc(getobjectx(waypoint[waypointtarget].id))
			endif
			if wdz>=0
				wdz=floor(getobjectz(waypoint[waypointtarget].id))
			else
				wdz=trunc(getobjectz(waypoint[waypointtarget].id))
			endif
			setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#/4,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#/4)
		endif
	next n
	if waypointtarget>=waypointpointer
		waypointtarget=1
	endif
	spdx#=0
	spdz#=0	
endfunction

+ Code Snippet

function control_baddies()
	for n=1 to baddiecounter
		if baddy[n].id>0
			if getobjectx(baddy[n].id) <waypoint[waypointtarget].xp#
				spdx#=2
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectx(baddy[n].id)>waypoint[waypointtarget].xp#
				
				spdx#=-2
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if getobjectz(baddy[n].id) >waypoint[waypointtarget].zp#
				spdz#=-2
			endif
			if getobjectz(baddy[n].id)<waypoint[waypointtarget].zp#
				spdz#=2
				//setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#)
			endif
			if bdx-floor(spdx#)=wdx and bdz-floor(spdz#)=wdz
				
				inc waypointtarget
				print ("Arrived")
			endif
			if bdx>=0
				bdx=floor(getobjectx(baddy[n].id))
			else
				bdx=trunc(getobjectx(baddy[n].id))
			endif
			if bdz>=0
				bdz=floor(getobjectz(baddy[n].id))
			else
				bdz=trunc(getobjectz(baddy[n].id))
			endif
			if wdx>=0
				wdx=floor(getobjectx(waypoint[waypointtarget].id))
			else
				wdx=trunc(getobjectx(waypoint[waypointtarget].id))
			endif
			if wdz>=0
				wdz=floor(getobjectz(waypoint[waypointtarget].id))
			else
				wdz=trunc(getobjectz(waypoint[waypointtarget].id))
			endif
			setobjectposition(baddy[n].id,getobjectx(baddy[n].id)+spdx#/4,getobjecty(baddy[n].id),getobjectz(baddy[n].id)+spdz#/4)
		endif
	next n
	if waypointtarget>=waypointpointer
		waypointtarget=1
	endif
	spdx#=0
	spdz#=0	
endfunction

and the result:

I will have to put the spdx and spdz vars inside the baddy type now to make it better

Hail to the king, baby!

Back to top

Profile PM Website

Mobiius

Valued Member

21

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 21st Feb 2018 09:29 Edited at: 21st Feb 2018 09:29

Link

I once made a node based waypointing engine in DBPro. It will be quite easy to make it work in AGK.

Click here for the playlist

Click here for VR Legend of Zelda stuff

Back to top

Profile PM Email Website

Santman

13

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 21st Feb 2018 12:19

Link

Sorry, think I totally missed your point, I thought you wanted it to pathmap.....ie work out routes around problems etc. My answer made no sense based on this. Lol.

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / trying A.I using waypoints