Basic AI Functions - Simple but a good start to AI

Author

Message

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 5th Nov 2006 18:06 Edited at: 25th Jan 2007 02:17

Link

Theres quite a few indi developers in the community that dont know where to start when it comes to AI. It makes sense, how do you make a computer do what a human would do? It seems difficult, but the basis behind AI is pretty straight forward. If event A happens, do event B. If im shot, run in a random direction. If im close to an enemy, follow the enemy. If Im very close to an enemy, shoot the enemy. Etc.

To ease the process a bit I made some basic functions to handle the main things you'll find AI "bots" doing. Those being;

- Traveling to a destination
- Turning to look at a destination
- Running from a destination

With the 3 functions you can expand them to do a lot of different things. Instead of travelling to a static point in 3D space, you could travel to a player's old position, making the bot follow 2the player. You then wouldn't have to take into concideration collisions, as the player the bot is following would do so for the bot (ofcourse there are exceptions). You could use the evade function in unison with the travel function to set up a race track, making the bots travel towards the waypoints on the track, while "evading" or staying away from other players and the walls.

These aren't meant for ground breaking intelligence in AI, its just a starter kit for newcommers that are trying to figure out the logic behind how some versions of AI work. I might expand on it later, but for now the system is fairly small.

The functions;

FUNCTION AI_travel(bot,x#,y#,z#,distance#,speed#)
   `store the bot's current position
   botX# = OBJECT POSITION X(bot)
   botY# = OBJECT POSITION Y(bot)
   botZ# = OBJECT POSITION Z(bot)
   `calculate the distance between the bot and the new location to travel to
   botDist# = math_getDist3D(botX#,botY#,botZ#,x#,y#,z#)
   `if the bot is less than the specified allowed distance away,
   `make the bot face the new location and move forward
   IF botDist# > distance#
      POINT OBJECT bot,x#,y#,z#
      MOVE OBJECT bot,speed#
   ELSE
      `If the task is completed, return a 1 signifying completion.
      complete = 1
   ENDIF
ENDFUNCTION complete

FUNCTION AI_look(bot,x#,y#,z#,cycles,allowance#)
   `store the bot's current angles
   botXA# = OBJECT ANGLE X(bot)
   botYA# = OBJECT ANGLE Y(bot)
   botZA# = OBJECT ANGLE Z(bot)
   `rotate the bot to face the specified position
   POINT OBJECT bot,x#,y#,z#
   `store the bot's new angles (z not required)
   botNXA# = OBJECT ANGLE X(bot)
   botNYA# = OBJECT ANGLE Y(bot)

`Check if the bot is already facing the direction specified (within allowance), if so
   `skip the rest and return a completion point. Otherwise, continue with the
   `calculations.
   IF botXA# >= (botNXA#-allowance#) AND botXA# <= (botNXA#+allowance#) AND botYA# >= (botNYA#-allowance#) AND botYA# <= (botNYA#+allowance#)
      completed = 1
   ELSE
      `calculate the bot's new angles
      botXA# = CURVEANGLE(botNXA#,botXA#,cycles)
      botYA# = CURVEANGLE(botNYA#,botYA#,cycles)
   ENDIF
   `re-rotate the bot
   ROTATE OBJECT bot,botXA#,botYA#,botZA#
ENDFUNCTION completed

FUNCTION AI_evade(bot,x#,y#,z#,distance#,speed#)
   `store the bot's current position
   botX# = OBJECT POSITION X(bot)
   botY# = OBJECT POSITION Y(bot)
   botZ# = OBJECT POSITION Z(bot)
   `calculate the distance from the bot's position to the evade position
   botDist# = math_getDist3D(x#,y#,z#,botX#,botY#,botZ#)
   `if the distance is less than the specified distance, begin running.
   IF botDist# <= distance#
      `calculate the bot's new position, running from the x#/y#/z#.
      POINT OBJECT bot,x#,y#,z#
      MOVE OBJECT bot,1
      POINT OBJECT bot,botX#,botY#,botZ#
      MOVE OBJECT bot,1
      `move the bot away
      MOVE OBJECT bot,speed#
   ELSE
      `if the task is completed, return a 1 signifying completion.
      complete = 1
   ENDIF
ENDFUNCTION complete

FUNCTION math_setup()
   `setup required vectors for distance calculations
   null = MAKE VECTOR3(1)
   null = MAKE VECTOR2(2)
   #CONSTANT vecDist3D = 1
   #CONSTANT vecDist2D = 2
ENDFUNCTION

FUNCTION math_getDist3D(X1#,Y1#,Z1#,X2#,Y2#,Z2#)
   SET VECTOR3 vecDist3D,X1#-X2#,Y1#-Y2#,Z1#-Z2#
   dist# = LENGTH VECTOR3(vecDist3D)
ENDFUNCTION dist#

FUNCTION math_getDist2D(X1#,Y1#,X2#,Y2#)
   SET VECTOR2 vecDist2D,X1#-X2#,Y1#-Y2#
   dist# = LENGTH VECTOR2(vecDist2D)
ENDFUNCTION dist#

+ Code Snippet

FUNCTION AI_travel(bot,x#,y#,z#,distance#,speed#)
   `store the bot's current position
   botX# = OBJECT POSITION X(bot)
   botY# = OBJECT POSITION Y(bot)
   botZ# = OBJECT POSITION Z(bot)
   `calculate the distance between the bot and the new location to travel to
   botDist# = math_getDist3D(botX#,botY#,botZ#,x#,y#,z#)
   `if the bot is less than the specified allowed distance away,
   `make the bot face the new location and move forward
   IF botDist# > distance#
      POINT OBJECT bot,x#,y#,z#
      MOVE OBJECT bot,speed#
   ELSE
      `If the task is completed, return a 1 signifying completion.
      complete = 1
   ENDIF
ENDFUNCTION complete

FUNCTION AI_look(bot,x#,y#,z#,cycles,allowance#)
   `store the bot's current angles
   botXA# = OBJECT ANGLE X(bot)
   botYA# = OBJECT ANGLE Y(bot)
   botZA# = OBJECT ANGLE Z(bot)
   `rotate the bot to face the specified position
   POINT OBJECT bot,x#,y#,z#
   `store the bot's new angles (z not required)
   botNXA# = OBJECT ANGLE X(bot)
   botNYA# = OBJECT ANGLE Y(bot)

   `Check if the bot is already facing the direction specified (within allowance), if so
   `skip the rest and return a completion point. Otherwise, continue with the
   `calculations.
   IF botXA# >= (botNXA#-allowance#) AND botXA# <= (botNXA#+allowance#) AND botYA# >= (botNYA#-allowance#) AND botYA# <= (botNYA#+allowance#)
      completed = 1
   ELSE
      `calculate the bot's new angles
      botXA# = CURVEANGLE(botNXA#,botXA#,cycles)
      botYA# = CURVEANGLE(botNYA#,botYA#,cycles)
   ENDIF
   `re-rotate the bot
   ROTATE OBJECT bot,botXA#,botYA#,botZA#
ENDFUNCTION completed

FUNCTION AI_evade(bot,x#,y#,z#,distance#,speed#)
   `store the bot's current position
   botX# = OBJECT POSITION X(bot)
   botY# = OBJECT POSITION Y(bot)
   botZ# = OBJECT POSITION Z(bot)
   `calculate the distance from the bot's position to the evade position
   botDist# = math_getDist3D(x#,y#,z#,botX#,botY#,botZ#)
   `if the distance is less than the specified distance, begin running.
   IF botDist# <= distance#
      `calculate the bot's new position, running from the x#/y#/z#.
      POINT OBJECT bot,x#,y#,z#
      MOVE OBJECT bot,1
      POINT OBJECT bot,botX#,botY#,botZ#
      MOVE OBJECT bot,1
      `move the bot away
      MOVE OBJECT bot,speed#
   ELSE
      `if the task is completed, return a 1 signifying completion.
      complete = 1
   ENDIF
ENDFUNCTION complete

FUNCTION math_setup()
   `setup required vectors for distance calculations
   null = MAKE VECTOR3(1)
   null = MAKE VECTOR2(2)
   #CONSTANT vecDist3D = 1
   #CONSTANT vecDist2D = 2
ENDFUNCTION

FUNCTION math_getDist3D(X1#,Y1#,Z1#,X2#,Y2#,Z2#)
   SET VECTOR3 vecDist3D,X1#-X2#,Y1#-Y2#,Z1#-Z2#
   dist# = LENGTH VECTOR3(vecDist3D)
ENDFUNCTION dist#

FUNCTION math_getDist2D(X1#,Y1#,X2#,Y2#)
   SET VECTOR2 vecDist2D,X1#-X2#,Y1#-Y2#
   dist# = LENGTH VECTOR2(vecDist2D)
ENDFUNCTION dist#

Included in that library is 2 math functions for getting 2D/3D distances, as the AI functions use this. Make sure to use the setup math function before calling any of the math functions.

Overview of the commands:

Quote: "
AI_Travel(bot,x#,y#,z#,distance#,speed#)
o bot: the object you want to travel
o x#/y#/z#: the position you want the bot to travel to
o distance#: the distance the bot will stop at from the travel destination
o speed#: the speed of travel

AI_look(bot,x#,y#,z#,cycles,allowance#)
o bot: the object you want to look
o x#/y#/z#: the location you want the bot to look towards
o cycles: the amount of loops it should take the bot to finish the task
o allowance#: a "leeway" amount, its just a way of saying "if the bot is kind of close to looking directly at the position, it's good enough", as you'll rarely ever get the bot looking perfectly at a location since the angles are floats. Allowance is the range below and above the ending angle you decide is "ok".

AI_evade(bot,x#,y#,z#,distance#,speed#)
o bot: you get the idea.
o x#/y#/z#: the position the bot should run away from
o distance#: how close to the x#/y#/z# the bot will hold its ground until it decides to run.
o speed#: the speed the bot runs away at"

The math commands are pretty generic so Ill skip explaining them.

Demo Program;

SYNC ON:SYNC RATE 0:AUTOCAM OFF

MAKE OBJECT BOX 1,5,2,10

MAKE MATRIX 1,50,50,10,10
POSITION MATRIX 1,-25,0,-25

POSITION CAMERA 0,50,-100
POINT CAMERA 0,0,0

math_setup()

DO

TEXT 0,0,"Press the following keys:"
   TEXT 0,15,"1: travel to 0,0,0"
   TEXT 0,30,"2: look at point 0,0,0"
   TEXT 0,45,"3: run away from 0,0,0 until 50 units away"

IF KEYSTATE(2) = 1 THEN AI_travel(1,0,0,0,1,.5)
   IF KEYSTATE(3) = 1 THEN AI_look(1,0,0,0,100,2)
   IF KEYSTATE(4) = 1 THEN AI_evade(1,0,0,0,50,1)

IF UPKEY() = 1 THEN MOVE OBJECT 1,.5
   IF DOWNKEY() = 1 THEN MOVE OBJECT 1,-.5
   IF LEFTKEY() = 1 THEN YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)-.5)
   IF RIGHTKEY() = 1 THEN YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+.5)

SYNC

LOOP

FUNCTION AI_travel(bot,x#,y#,z#,distance#,speed#)
   `store the bot's current position
   botX# = OBJECT POSITION X(bot)
   botY# = OBJECT POSITION Y(bot)
   botZ# = OBJECT POSITION Z(bot)
   `calculate the distance between the bot and the new location to travel to
   botDist# = math_getDist3D(botX#,botY#,botZ#,x#,y#,z#)
   `if the bot is less than the specified allowed distance away,
   `make the bot face the new location and move forward
   IF botDist# > distance#
      POINT OBJECT bot,x#,y#,z#
      MOVE OBJECT bot,speed#
   ELSE
      `If the task is completed, return a 1 signifying completion.
      complete = 1
   ENDIF
ENDFUNCTION complete

FUNCTION AI_look(bot,x#,y#,z#,cycles,allowance#)
   `store the bot's current angles
   botXA# = OBJECT ANGLE X(bot)
   botYA# = OBJECT ANGLE Y(bot)
   botZA# = OBJECT ANGLE Z(bot)
   `rotate the bot to face the specified position
   POINT OBJECT bot,x#,y#,z#
   `store the bot's new angles (z not required)
   botNXA# = OBJECT ANGLE X(bot)
   botNYA# = OBJECT ANGLE Y(bot)

`Check if the bot is already facing the direction specified (within allowance), if so
   `skip the rest and return a completion point. Otherwise, continue with the
   `calculations.
   IF botXA# >= (botNXA#-allowance#) AND botXA# <= (botNXA#+allowance#) AND botYA# >= (botNYA#-allowance#) AND botYA# <= (botNYA#+allowance#)
      completed = 1
   ELSE
      `calculate the bot's new angles
      botXA# = CURVEANGLE(botNXA#,botXA#,cycles)
      botYA# = CURVEANGLE(botNYA#,botYA#,cycles)
   ENDIF
   `re-rotate the bot
   ROTATE OBJECT bot,botXA#,botYA#,botZA#
ENDFUNCTION completed

FUNCTION AI_evade(bot,x#,y#,z#,distance#,speed#)
   `store the bot's current position
   botX# = OBJECT POSITION X(bot)
   botY# = OBJECT POSITION Y(bot)
   botZ# = OBJECT POSITION Z(bot)
   `calculate the distance from the bot's position to the evade position
   botDist# = math_getDist3D(x#,y#,z#,botX#,botY#,botZ#)
   `if the distance is less than the specified distance, begin running.
   IF botDist# <= distance#
      `calculate the bot's new position, running from the x#/y#/z#.
      POINT OBJECT bot,x#,y#,z#
      MOVE OBJECT bot,1
      POINT OBJECT bot,botX#,botY#,botZ#
      MOVE OBJECT bot,1
      `move the bot away
      MOVE OBJECT bot,speed#
   ELSE
      `if the task is completed, return a 1 signifying completion.
      complete = 1
   ENDIF
ENDFUNCTION complete

FUNCTION math_setup()
   `setup required vectors for distance calculations
   null = MAKE VECTOR3(1)
   null = MAKE VECTOR2(2)
   #CONSTANT vecDist3D = 1
   #CONSTANT vecDist2D = 2
ENDFUNCTION

FUNCTION math_getDist3D(X1#,Y1#,Z1#,X2#,Y2#,Z2#)
   SET VECTOR3 vecDist3D,X1#-X2#,Y1#-Y2#,Z1#-Z2#
   dist# = LENGTH VECTOR3(vecDist3D)
ENDFUNCTION dist#

FUNCTION math_getDist2D(X1#,Y1#,X2#,Y2#)
   SET VECTOR2 vecDist2D,X1#-X2#,Y1#-Y2#
   dist# = LENGTH VECTOR2(vecDist2D)
ENDFUNCTION dist#

+ Code Snippet

SYNC ON:SYNC RATE 0:AUTOCAM OFF

MAKE OBJECT BOX 1,5,2,10

MAKE MATRIX 1,50,50,10,10
POSITION MATRIX 1,-25,0,-25

POSITION CAMERA 0,50,-100
POINT CAMERA 0,0,0

math_setup()

DO

   TEXT 0,0,"Press the following keys:"
   TEXT 0,15,"1: travel to 0,0,0"
   TEXT 0,30,"2: look at point 0,0,0"
   TEXT 0,45,"3: run away from 0,0,0 until 50 units away"

   IF KEYSTATE(2) = 1 THEN AI_travel(1,0,0,0,1,.5)
   IF KEYSTATE(3) = 1 THEN AI_look(1,0,0,0,100,2)
   IF KEYSTATE(4) = 1 THEN AI_evade(1,0,0,0,50,1)

   IF UPKEY() = 1 THEN MOVE OBJECT 1,.5
   IF DOWNKEY() = 1 THEN MOVE OBJECT 1,-.5
   IF LEFTKEY() = 1 THEN YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)-.5)
   IF RIGHTKEY() = 1 THEN YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+.5)

   SYNC

LOOP

FUNCTION AI_travel(bot,x#,y#,z#,distance#,speed#)
   `store the bot's current position
   botX# = OBJECT POSITION X(bot)
   botY# = OBJECT POSITION Y(bot)
   botZ# = OBJECT POSITION Z(bot)
   `calculate the distance between the bot and the new location to travel to
   botDist# = math_getDist3D(botX#,botY#,botZ#,x#,y#,z#)
   `if the bot is less than the specified allowed distance away,
   `make the bot face the new location and move forward
   IF botDist# > distance#
      POINT OBJECT bot,x#,y#,z#
      MOVE OBJECT bot,speed#
   ELSE
      `If the task is completed, return a 1 signifying completion.
      complete = 1
   ENDIF
ENDFUNCTION complete

FUNCTION AI_look(bot,x#,y#,z#,cycles,allowance#)
   `store the bot's current angles
   botXA# = OBJECT ANGLE X(bot)
   botYA# = OBJECT ANGLE Y(bot)
   botZA# = OBJECT ANGLE Z(bot)
   `rotate the bot to face the specified position
   POINT OBJECT bot,x#,y#,z#
   `store the bot's new angles (z not required)
   botNXA# = OBJECT ANGLE X(bot)
   botNYA# = OBJECT ANGLE Y(bot)

   `Check if the bot is already facing the direction specified (within allowance), if so
   `skip the rest and return a completion point. Otherwise, continue with the
   `calculations.
   IF botXA# >= (botNXA#-allowance#) AND botXA# <= (botNXA#+allowance#) AND botYA# >= (botNYA#-allowance#) AND botYA# <= (botNYA#+allowance#)
      completed = 1
   ELSE
      `calculate the bot's new angles
      botXA# = CURVEANGLE(botNXA#,botXA#,cycles)
      botYA# = CURVEANGLE(botNYA#,botYA#,cycles)
   ENDIF
   `re-rotate the bot
   ROTATE OBJECT bot,botXA#,botYA#,botZA#
ENDFUNCTION completed

FUNCTION AI_evade(bot,x#,y#,z#,distance#,speed#)
   `store the bot's current position
   botX# = OBJECT POSITION X(bot)
   botY# = OBJECT POSITION Y(bot)
   botZ# = OBJECT POSITION Z(bot)
   `calculate the distance from the bot's position to the evade position
   botDist# = math_getDist3D(x#,y#,z#,botX#,botY#,botZ#)
   `if the distance is less than the specified distance, begin running.
   IF botDist# <= distance#
      `calculate the bot's new position, running from the x#/y#/z#.
      POINT OBJECT bot,x#,y#,z#
      MOVE OBJECT bot,1
      POINT OBJECT bot,botX#,botY#,botZ#
      MOVE OBJECT bot,1
      `move the bot away
      MOVE OBJECT bot,speed#
   ELSE
      `if the task is completed, return a 1 signifying completion.
      complete = 1
   ENDIF
ENDFUNCTION complete

FUNCTION math_setup()
   `setup required vectors for distance calculations
   null = MAKE VECTOR3(1)
   null = MAKE VECTOR2(2)
   #CONSTANT vecDist3D = 1
   #CONSTANT vecDist2D = 2
ENDFUNCTION

FUNCTION math_getDist3D(X1#,Y1#,Z1#,X2#,Y2#,Z2#)
   SET VECTOR3 vecDist3D,X1#-X2#,Y1#-Y2#,Z1#-Z2#
   dist# = LENGTH VECTOR3(vecDist3D)
ENDFUNCTION dist#

FUNCTION math_getDist2D(X1#,Y1#,X2#,Y2#)
   SET VECTOR2 vecDist2D,X1#-X2#,Y1#-Y2#
   dist# = LENGTH VECTOR2(vecDist2D)
ENDFUNCTION dist#

Ill make up a more complex demo a bit later on showing some cool stuff you can get working (Im a bit surprised how something that simple can do quite a lot :/).

Anyways, hope it helps,
- RUC'

:: Check out the new FPS Tutorial's Progress at http://www.freewebs.com/ruccus
along with code, media, and more.

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 5th Nov 2006 18:11

Link

Good, now let's see some A*!

Back to top

Profile PM Email

dj blackdragon3710

20

Years of Service

User Offline

Joined: 5th Nov 2004

Location: In LaLa land

Posted: 5th Nov 2006 23:27

Link

Ansolutely stunning! This runs waaaaay better than my random waypoint checking system...

. I think i'll use it!

<<<<<Used to be "djblackdragon" with being registered in January, 2003, no matter what it says on the left<<<<<

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 6th Nov 2006 08:33

Link

what amazes me is people can produce AI with such little code. outstanding.

Back to top

Profile PM Email

Terrorist Zero

18

Years of Service

User Offline

Joined: 29th Aug 2006

Location: Teh YouKai

Posted: 6th Nov 2006 22:28

Link

You are a legend RUCCUS haha. I really do find this code very nice, and very helpful. I wish you luck, and look forwards to you creating more functions, and making more complex demos

Keep up the good work!

www.tornupgaming.com
The home of free games and game projects.

Back to top

Profile PM Email Website

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 7th Nov 2006 22:24 Edited at: 12th Nov 2006 18:24

Link

The demo's almost finished. If you've ever played Starwars: Republic Commando, Im going for that type of system. Where you select which team members you want, and then give orders to those team members.

Screenie;

In that shot, Im the medium-sized tank beside the big one (calling him lugger). I've ordered lugger to be at ease, so he'll keep an eye on me when Im roaming around, and if I stray too far he'll follow behind me to ensure my safety. At the same time, I've selected "mini" and "tech" to take a look at the big, random title object. They do so, making sure to avoid each other and to stop before they run into any polygons of their target. If I were to order them to go behind the tanks object, they'd do so as well, avoiding any collisions at the same time.

Im really liking the controls in the game

, I might take it further and release an open-source complete game later on, everythings animated so it looks really cool.

Oh, and in the game, each tank serves a purpose. Each one can do certain things. Tech can use computers to open doors or disarm alarms, Lugger is equipped with a huge chaingun along with some of the best armour money can buy, but he's terribly slow. He'll hold his own in a battle. Mini on the other hand is quick and agile, he's not the strongest of the group, but his fast speed and his duel-machine guns mounted on his turret make him a force to reckon with. Watch out if mini decides to use lugger as cover.

And ofcourse the main character is well rounded, equipped with a machine gun and a rocket launcher. If you havent guessed, you play the leader of the group.

Im not sure if Ill be done by tonight, Ive got a good chunk of homework, but I wont be starting until after dinner which is in another few hours. If I dont get bored of programming in the next 10 minutes Ill ty to pump out a demo... of the demo

.

Oh and thanks for all of the comments,

Zoto, A* might be the most commonly used system for AI as of now, but it's popularity is lessening as time progresses and games demand larger more complex maps. Plus, this is for beginners, A* isnt the most beginner-oriented thing to take on.

- RUC'

Back to top

Profile PM Email Website

Kohaku

20

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 7th Nov 2006 23:15 Edited at: 7th Nov 2006 23:18

Link

Hey RUCCUS! Long time no see. I remember when you were making SHADE - still have a copy here somewhere.

That code's pretty neat. Reminds me of an AI like system that I made before leaving - not sure if I post it or not. It can basically move around, patrolling the area - taking other objects into consideration so it won't go through a wall - looking for the player object. If it spots you then it follows you to wherever it saw you last.

It's rather messy code. I should probably update it with my new look on how to code stuff.

sync on : sync rate 30
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 12 : set text transparent
autocam off

xrotate camera 90
move camera -100

Player = MakeCube(10)
color object Player, rgb(0,0,255)
position object Player, 50,0,50

Enemy = MakeCube(10)
color object Enemy, rgb(255,0,0)
position object Enemy, -50,0,-50
Dim EnemyTo#(3)
EnemyTo#(1)=object position x(Enemy)
EnemyTo#(2)=object position y(Enemy)
EnemyTo#(3)=object position z(Enemy)

dim level(2)
level(1) = MakeCube(30)
color object Level(1), rgb(50,50,50)
level(2) = MakeCube(-110)
color object Level(2), rgb(150,150,150)

do
	
	`move camera -30
	
	move object Player, -mousemovey()
	move object right Player, mousemovex()
	
	`The AI bit
	if BlockedLine(level(1),level(2),object position x(Enemy), object position y(Enemy), object position z(Enemy), object position x(Player), object position y(Player), object position z(Player))
	else
		EnemyTo#(1)=object position x(Player)
		EnemyTo#(2)=object position y(Player)
		EnemyTo#(3)=object position z(Player)
	endif
	
	if WithinRange(Enemy,EnemyTo#(1),EnemyTo#(2),EnemyTo#(3),object size(Enemy))
		dump1=-50+rnd(100)
		dump2=-50+rnd(100)
		if BlockedLine(level(1),level(2),object position x(Enemy), object position y(Enemy), object position z(Enemy), object position x(Enemy)+dump1, object position y(Enemy), object position z(Enemy)+dump2)
		else
			EnemyTo#(1)=object position x(Enemy)+dump1
			EnemyTo#(2)=object position y(Enemy)
			EnemyTo#(3)=object position z(Enemy)+dump2
		endif
	else
		RotateObjectToPoint(Enemy,EnemyTo#(1),EnemyTo#(2),EnemyTo#(3),5)
		if PointingAt(Enemy,EnemyTo#(1),EnemyTo#(2),EnemyTo#(3),2)
			move object Enemy, 1
		endif
	endif
	
	sync
loop
end

Function BlockedLine(fo,lo,x1#,y1#,z1#,x2#,y2#,z2#)
	i = 0
	for a = fo to lo
		if object exist(a)
			dump# = 0
			dump# = intersect object(a,x1#,y1#,z1#,x2#,y2#,z2#)
			if dump# > 0
				i = 1
			endif
		endif
	next a
endfunction i

function WithinRange(Object1,a#,b#,c#,Range#)
	result#=(object position x(Object1)-a#)^2+(object position y(Object1)-b#)^2+(object position z(Object1)-c#)^2
   if result# < (Range#^2) then within=1
endfunction within

function RotateObjectToPoint(ab,bb#,cc#,dd#,speed#)
X#=object angle x(ab)
Y#=object angle y(ab)
Z#=object angle z(ab)
point object ab, bb#, cc#, dd#
X#=curveangle(object angle x(ab),X#,speed#)
Y#=curveangle(object angle y(ab),Y#,speed#)
Z#=curveangle(object angle z(ab),Z#,speed#)
rotate object ab,X#,Y#,Z#
endfunction

Function PointingAt(ab,a#,b#,c#,fine#)
X#=wrapvalue(object angle x(ab))
Y#=wrapvalue(object angle y(ab))
Z#=wrapvalue(object angle z(ab))
point object ab, a#,b#,c#
i = 0
if int(X#) < int(wrapvalue(object angle x(ab)))+fine# and int(X#) > int(wrapvalue(object angle x(ab)))-fine#
	if int(Y#) < int(wrapvalue(object angle y(ab)))+fine# and int(Y#) > int(wrapvalue(object angle y(ab)))-fine#
		if int(Z#) < int(wrapvalue(object angle z(ab)))+fine# and int(Z#) > int(wrapvalue(object angle z(ab)))-fine#
			i = 1
		endif
	endif
endif
rotate object ab,X#,Y#,Z#
endfunction i

Function MakeCube(Size#)
	Numbre=FreeObject()
	make object cube Numbre, Size#
Endfunction Numbre

function FreeObject()
	repeat
		inc i 
		if object exist(i)=0 then found=1
	until found
endfunction i

+ Code Snippet

sync on : sync rate 30
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 12 : set text transparent
autocam off

xrotate camera 90
move camera -100

Player = MakeCube(10)
color object Player, rgb(0,0,255)
position object Player, 50,0,50

Enemy = MakeCube(10)
color object Enemy, rgb(255,0,0)
position object Enemy, -50,0,-50
Dim EnemyTo#(3)
EnemyTo#(1)=object position x(Enemy)
EnemyTo#(2)=object position y(Enemy)
EnemyTo#(3)=object position z(Enemy)


dim level(2)
level(1) = MakeCube(30)
color object Level(1), rgb(50,50,50)
level(2) = MakeCube(-110)
color object Level(2), rgb(150,150,150)

do
	
	`move camera -30
	
	move object Player, -mousemovey()
	move object right Player, mousemovex()
	
	`The AI bit
	if BlockedLine(level(1),level(2),object position x(Enemy), object position y(Enemy), object position z(Enemy), object position x(Player), object position y(Player), object position z(Player))
	else
		EnemyTo#(1)=object position x(Player)
		EnemyTo#(2)=object position y(Player)
		EnemyTo#(3)=object position z(Player)
	endif
	
	if WithinRange(Enemy,EnemyTo#(1),EnemyTo#(2),EnemyTo#(3),object size(Enemy))
		dump1=-50+rnd(100)
		dump2=-50+rnd(100)
		if BlockedLine(level(1),level(2),object position x(Enemy), object position y(Enemy), object position z(Enemy), object position x(Enemy)+dump1, object position y(Enemy), object position z(Enemy)+dump2)
		else
			EnemyTo#(1)=object position x(Enemy)+dump1
			EnemyTo#(2)=object position y(Enemy)
			EnemyTo#(3)=object position z(Enemy)+dump2
		endif
	else
		RotateObjectToPoint(Enemy,EnemyTo#(1),EnemyTo#(2),EnemyTo#(3),5)
		if PointingAt(Enemy,EnemyTo#(1),EnemyTo#(2),EnemyTo#(3),2)
			move object Enemy, 1
		endif
	endif
	
	sync
loop
end



Function BlockedLine(fo,lo,x1#,y1#,z1#,x2#,y2#,z2#)
	i = 0
	for a = fo to lo
		if object exist(a)
			dump# = 0
			dump# = intersect object(a,x1#,y1#,z1#,x2#,y2#,z2#)
			if dump# > 0
				i = 1
			endif
		endif
	next a
endfunction i

function WithinRange(Object1,a#,b#,c#,Range#)
	result#=(object position x(Object1)-a#)^2+(object position y(Object1)-b#)^2+(object position z(Object1)-c#)^2
   if result# < (Range#^2) then within=1
endfunction within

function RotateObjectToPoint(ab,bb#,cc#,dd#,speed#)
X#=object angle x(ab)
Y#=object angle y(ab)
Z#=object angle z(ab)
point object ab, bb#, cc#, dd#
X#=curveangle(object angle x(ab),X#,speed#)
Y#=curveangle(object angle y(ab),Y#,speed#)
Z#=curveangle(object angle z(ab),Z#,speed#)
rotate object ab,X#,Y#,Z#
endfunction

Function PointingAt(ab,a#,b#,c#,fine#)
X#=wrapvalue(object angle x(ab))
Y#=wrapvalue(object angle y(ab))
Z#=wrapvalue(object angle z(ab))
point object ab, a#,b#,c#
i = 0
if int(X#) < int(wrapvalue(object angle x(ab)))+fine# and int(X#) > int(wrapvalue(object angle x(ab)))-fine#
	if int(Y#) < int(wrapvalue(object angle y(ab)))+fine# and int(Y#) > int(wrapvalue(object angle y(ab)))-fine#
		if int(Z#) < int(wrapvalue(object angle z(ab)))+fine# and int(Z#) > int(wrapvalue(object angle z(ab)))-fine#
			i = 1
		endif
	endif
endif
rotate object ab,X#,Y#,Z#
endfunction i


Function MakeCube(Size#)
	Numbre=FreeObject()
	make object cube Numbre, Size#
Endfunction Numbre

function FreeObject()
	repeat
		inc i 
		if object exist(i)=0 then found=1
	until found
endfunction i

I didn't just let it sit in a folder though. I have a script example in AGE now that uses this same system. I thought it might be a good test for the engine.

backdrop on
sync on
sync rate 30

`Player object
$player.object = MakeCube(10)
position object $player.object, 50,0,50

`Enemy Object
$enemy.object = MakeCube(10)
position object $enemy.object, -50,0,-50
$enemy.dest.x = -50
$enemy.dest.y = 0
$enemy.dest.z = -50

`Simple level. Could use an AGM one instead in the same way
$level.Object = MakeCube(30)

xrotate camera 90
move camera -100

do

move object $player.object, -mousemovey()
	move object right $player.object, mousemovex()

if PointingToPosition( $enemy.object, object position x($player.object), object position y($player.object), object position z($player.object), 75 ) = 1
		if ObjectsLineClear($enemy.object, $player.object) = 1
			$enemy.dest.x = object position x($player.object)
			`Remove this to prevent flying
			`$enemy.dest.y = object position y($player.object)
			$enemy.dest.z = object position z($player.object)
		endif
	endif
	
	if ObjectWithinRange( $enemy.object, $enemy.dest.x, $enemy.dest.y, $enemy.dest.z, 10 ) = 1
		if ObjectsWithinRange( $enemy.object, $player.object, 10 ) = 1
			$enemy.dest.x = object position x($player.object)
			`Remove this to prevent flying
			`$enemy.dest.y = object position y($player.object)
			$enemy.dest.z = object position z($player.object)
			RotateObjectToPoint $enemy.object, $enemy.dest.x, $enemy.dest.y, $enemy.dest.z, 5
		else
			$null1 = 0-50+rnd(100)
			$null2 = 0-50+rnd(100)
			if ObjectLineClear( $enemy.object, object position x($enemy.object)+$null1, object position y($enemy.object), object position z($enemy.object)+$null2 ) = 1
				$enemy.dest.x = object position x($enemy.object)+$null1
				$enemy.dest.y = object position y($enemy.object)
				$enemy.dest.z = object position z($enemy.object)+$null2
			endif
		endif
	else
		RotateObjectToPoint $enemy.object, $enemy.dest.x, $enemy.dest.y, $enemy.dest.z, 5
		if PointingToPosition($enemy.object, $enemy.dest.x, $enemy.dest.y, $enemy.dest.z, 30) = 1		
			Move Object $enemy.object, 0.5
		endif
	endif

sync
loop

+ Code Snippet

backdrop on
sync on
sync rate 30

`Player object
$player.object = MakeCube(10)
position object $player.object, 50,0,50

`Enemy Object
$enemy.object = MakeCube(10)
position object $enemy.object, -50,0,-50
$enemy.dest.x = -50
$enemy.dest.y = 0
$enemy.dest.z = -50

`Simple level. Could use an AGM one instead in the same way
$level.Object = MakeCube(30)

xrotate camera 90
move camera -100

do

	move object $player.object, -mousemovey()
	move object right $player.object, mousemovex()

	if PointingToPosition( $enemy.object, object position x($player.object), object position y($player.object), object position z($player.object), 75 ) = 1
		if ObjectsLineClear($enemy.object, $player.object) = 1
			$enemy.dest.x = object position x($player.object)
			`Remove this to prevent flying
			`$enemy.dest.y = object position y($player.object)
			$enemy.dest.z = object position z($player.object)
		endif
	endif
	
	if ObjectWithinRange( $enemy.object, $enemy.dest.x, $enemy.dest.y, $enemy.dest.z, 10 ) = 1
		if ObjectsWithinRange( $enemy.object, $player.object, 10 ) = 1
			$enemy.dest.x = object position x($player.object)
			`Remove this to prevent flying
			`$enemy.dest.y = object position y($player.object)
			$enemy.dest.z = object position z($player.object)
			RotateObjectToPoint $enemy.object, $enemy.dest.x, $enemy.dest.y, $enemy.dest.z, 5
		else
			$null1 = 0-50+rnd(100)
			$null2 = 0-50+rnd(100)
			if ObjectLineClear( $enemy.object, object position x($enemy.object)+$null1, object position y($enemy.object), object position z($enemy.object)+$null2 ) = 1
				$enemy.dest.x = object position x($enemy.object)+$null1
				$enemy.dest.y = object position y($enemy.object)
				$enemy.dest.z = object position z($enemy.object)+$null2
			endif
		endif
	else
		RotateObjectToPoint $enemy.object, $enemy.dest.x, $enemy.dest.y, $enemy.dest.z, 5
		if PointingToPosition($enemy.object, $enemy.dest.x, $enemy.dest.y, $enemy.dest.z, 30) = 1		
			Move Object $enemy.object, 0.5
		endif
	endif

sync
loop

I then used it again to test entities. Works a dream, even on 3D terrains full of trees and buildings.

id=red grass forager
<iscript>
		$Creature.Object# = MakeBox(100, 130, 100)
		$Creature.MHealth# = 5
		$Creature.Health# = 5
		
		$Creature.Speed# = 3
		
		$Creature.Dest.X# = object position x($Creature.Object#)
		$Creature.Dest.Y# = object position y($Creature.Object#)
		$Creature.Dest.Z# = object position z($Creature.Object#)
</iscript>
	
	
<lscript>
	if PointingToPosition( $Creature.Object#, object position x($player.object), object position y($Creature.Object#), object position z($player.object), 75 ) = 1
		if ObjectsLineClear($Creature.Object#, $player.object) = 1
			$Creature.Dest.X# = object position x($player.object)
			$Creature.Dest.Y# = object position y($Creature.Object#)
			$Creature.Dest.Z# = object position z($player.object)
		endif
	endif
	
	if ObjectWithinRange( $Creature.Object#, $Creature.Dest.X#, $Creature.Dest.Y#, $Creature.Dest.Z#, 10 ) = 1
		if ObjectsWithinRange( $Creature.Object#, $player.object, 10 ) = 1
			$Creature.Dest.X# = object position x($player.object)
			$Creature.Dest.Y# = object position y($Creature.Object#)
			$Creature.Dest.Z# = object position z($player.object)
			RotateObjectToPoint $Creature.Object#, $Creature.Dest.X#, object position y($Creature.Object#), $Creature.Dest.Z#, 5
		else
			$null1 = 0-500+rnd(1000)
			$null2 = 0-500+rnd(1000)
			if ObjectLineClear( $Creature.Object#, object position x($Creature.Object#)+$null1, object position y($Creature.Object#), object position z($Creature.Object#)+$null2 ) = 1
				$Creature.Dest.X# = object position x($Creature.Object#) + $null1
				$Creature.Dest.Y# = object position y($Creature.Object#)
				$Creature.Dest.Z# = object position z($Creature.Object#) + $null2
			endif
		endif
	else
		RotateObjectToPoint $Creature.Object#, $Creature.Dest.X#, object position y($Creature.Object#), $Creature.Dest.Z#, 5
		if PointingToPosition($Creature.Object#, $Creature.Dest.X#, object position y($Creature.Object#), $Creature.Dest.Z#, 30) = 1		
			Move Object $Creature.Object#, $Creature.Speed#
		endif
	endif
	
	`Gravity and water/land effects
		if object position y($Creature.Object#) > $Water.Level + 10
			position object $Creature.Object#,object position x($Creature.Object#),object position y($Creature.Object#) - 7,object position z($Creature.Object#)
		else
			if object position y($Creature.Object#) < $Water.Level + 2
				position object $Creature.Object#,object position x($Creature.Object#),object position y($Creature.Object#) + 1,object position z($Creature.Object#)
			endif
		endif
	
	RunCollision $Creature.Object#
	
</lscript>

<escript>
		Delete Object $Creature.Object#
</escript>

+ Code Snippet

id=red grass forager
<iscript>
		$Creature.Object# = MakeBox(100, 130, 100)
		$Creature.MHealth# = 5
		$Creature.Health# = 5
		
		$Creature.Speed# = 3
		
		$Creature.Dest.X# = object position x($Creature.Object#)
		$Creature.Dest.Y# = object position y($Creature.Object#)
		$Creature.Dest.Z# = object position z($Creature.Object#)
</iscript>
	
	
<lscript>
	if PointingToPosition( $Creature.Object#, object position x($player.object), object position y($Creature.Object#), object position z($player.object), 75 ) = 1
		if ObjectsLineClear($Creature.Object#, $player.object) = 1
			$Creature.Dest.X# = object position x($player.object)
			$Creature.Dest.Y# = object position y($Creature.Object#)
			$Creature.Dest.Z# = object position z($player.object)
		endif
	endif
	
	if ObjectWithinRange( $Creature.Object#, $Creature.Dest.X#, $Creature.Dest.Y#, $Creature.Dest.Z#, 10 ) = 1
		if ObjectsWithinRange( $Creature.Object#, $player.object, 10 ) = 1
			$Creature.Dest.X# = object position x($player.object)
			$Creature.Dest.Y# = object position y($Creature.Object#)
			$Creature.Dest.Z# = object position z($player.object)
			RotateObjectToPoint $Creature.Object#, $Creature.Dest.X#, object position y($Creature.Object#), $Creature.Dest.Z#, 5
		else
			$null1 = 0-500+rnd(1000)
			$null2 = 0-500+rnd(1000)
			if ObjectLineClear( $Creature.Object#, object position x($Creature.Object#)+$null1, object position y($Creature.Object#), object position z($Creature.Object#)+$null2 ) = 1
				$Creature.Dest.X# = object position x($Creature.Object#) + $null1
				$Creature.Dest.Y# = object position y($Creature.Object#)
				$Creature.Dest.Z# = object position z($Creature.Object#) + $null2
			endif
		endif
	else
		RotateObjectToPoint $Creature.Object#, $Creature.Dest.X#, object position y($Creature.Object#), $Creature.Dest.Z#, 5
		if PointingToPosition($Creature.Object#, $Creature.Dest.X#, object position y($Creature.Object#), $Creature.Dest.Z#, 30) = 1		
			Move Object $Creature.Object#, $Creature.Speed#
		endif
	endif
	
	`Gravity and water/land effects
		if object position y($Creature.Object#) > $Water.Level + 10
			position object $Creature.Object#,object position x($Creature.Object#),object position y($Creature.Object#) - 7,object position z($Creature.Object#)
		else
			if object position y($Creature.Object#) < $Water.Level + 2
				position object $Creature.Object#,object position x($Creature.Object#),object position y($Creature.Object#) + 1,object position z($Creature.Object#)
			endif
		endif
	
	RunCollision $Creature.Object#
	
</lscript>


<escript>
		Delete Object $Creature.Object#
</escript>

But now I'm just getting lost in AGE.

That screen looks sweet RUCCUS and I can't wait to play the demo.

You are not alone.

Back to top

Profile PM Website

slicer 4 ever

18

Years of Service

User Offline

Joined: 11th Jul 2006

Location: currently: planet gamma3295

Posted: 12th Nov 2006 10:49

Link

outstanding ruccus looks amazing i hope you finish the game it looks sweet i like the tank designes did you design them?

my smiles love me =-)=-)=-)(-=(-=(-=

Back to top

Profile PM Website

biblerama

18

Years of Service

User Offline

Joined: 10th Nov 2006

Location: Georgia

Posted: 12th Nov 2006 15:57

Link

I do have a question with this. I am a C# developer and I am considering buying the DGDK.Net to help me create my games. Taking a look at your code, I was wondering if you have made use of the DGDK.Net, and what kind of translation would be done to preform the same thing with the DGDK.Net?

I am basically trying to find out really what DGDK.Net gives me that I would not need to develop on my own?

- Software with a smile!

www.biblerama.com

Back to top

Profile PM Email Website

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 12th Nov 2006 18:07

Link

I dont have DGSDK, but from what I understand, DGSDK is basically a C++ compiler, that has all of darkbasic pro's commands as plugins. So essentially you can call any DBP command. IIRC, the syntax is dbCommandName, so in DBP if you wanted to move a 3D object you'd use MOVE OBJECT, in DGSDK, I think it would be dbMoveObject.

I noticed you posted in the DGSDK forum, its better just to wait for responses there, the users of DGSDK will know more about how it works than I.

Back to top

Profile PM Email Website

Ankillito

17

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 17th Jan 2007 06:01

Link

RUCCUS - Great AI, now I'm greedy for more. What logic would I use to get the object to not hit a wall/asteroid/enemy/etc?

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 17th Jan 2007 18:44

Link

I would basically use raycasting from the player to a point directly infront of him, and if that ray hits a wall you make him turn away.

Back to top

Profile PM Email

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 17th Jan 2007 21:14

Link

That or use the evade function. In the parameters, for position use the asteroid's position, and for the radius, dont use the asteroid's radius, instead use something bigger, like the radius times 2 for example. You could then use the look function to make the bots turn smoothly as they evade the astroids.

Just keep in mind, I think there may be a few bugs with one of the functions, I cant remember what the problem was, it may have been with the look function messing up when used on multiple axises.

Back to top

Profile PM Email Website

Code Dragon

18

Years of Service

User Offline

Joined: 21st Aug 2006

Location: Everywhere

Posted: 17th Jan 2007 23:14

Link

Can't wait for the tank demo. From what you've written it sounds like they'll be very smart. I haven't touched AI yet, but with a collection of functions like you have it doesn't seems hard at all.

The functions certainly make it easy, but I can't see them being very useful without some core AI that calls them. Something like a finite state machine with AI modes.

- Idle mode (every minute or so pick a random location and walk to it)
- Follow mode (follow an entity until close enough)
- Patrol mode (walk between a set of points)
- Attack mode (attack enemies)

Quote: "Gimme teh code!"

Thank you for not flooding the forums with posts like this.

Back to top

Profile PM Email Website

Ankillito

17

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 17th Jan 2007 23:41

Link

Quote: "That or use the evade function. "

Hmmm... It seems to work!

Another question, if I may: What is A*? I'm assuming it's not a certain three-letter word spelled wrong.

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 18th Jan 2007 00:28

Link

Quote: "- Idle mode (every minute or so pick a random location and walk to it)
- Follow mode (follow an entity until close enough)
- Patrol mode (walk between a set of points)
- Attack mode (attack enemies)"

All of that can be pretty much done with those 3 core commands and a little tweakge,

- Following: Use the AI_travel function sending them towards the player's position you want them to follow. The command takes a distance param to tell the bot when they can stop at a certain distance from their target, so just have them stop far enough that they dont run into your player.

- Patrol: Store a few positions in an array, cycle through the array using the AI_travel command. When a bot reaches a position, call the AI look command to make it look at the next position, then make it move there by having it walk towards that new position.

- Attack: Check if a player is close to an enemy using the distance function provided, if so call the travel command, once the AI has completed the travel and is close enough, damage the player.

I left out Idle as thats pretty much the same as Patrol.

Quote: "Another question, if I may: What is A*? I'm assuming it's not a certain three-letter word spelled wrong.
"

Do a search for "A Star" on the TGC forums, or on google, you'll get plenty of info.

- RUC'

Back to top

Profile PM Email Website

Ankillito

17

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 18th Jan 2007 00:53

Link

Thanks.

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

Vampiric

18

Years of Service

User Offline

Joined: 30th Oct 2006

Location:

Posted: 20th Jan 2007 11:35

Link

Cool nice AI, I'll be using this for the basic AI in my rpg, looks like those dumb rats might actually fight back for once

Computer says n00bed

Back to top

Profile PM Email

Ankillito

17

Years of Service

User Offline

Joined: 10th Dec 2006

Location: Litigious California

Posted: 22nd Jan 2007 05:32 Edited at: 22nd Jan 2007 06:15

Link

I modified RUCCUS's AI to point an object at a target(4), but away from danger(1) in a 4:1 ratio. It seems to work well, but the object avoids "asteroids" behind it too. Haven't had time to think about that yet.

AI object (green) goes from 0,0,0 to 1000,1000,1000 without hitting any asteroids. A red asteroid is placed directly in it's path and a green box is made to mark the destination.

Sync on
Sync rate 30

For i = 1 to 50
   make object sphere i, 50
   position object i,rnd(1000), rnd(1000), rnd(1000)
Next i
position object 50,500,350,500
color object 50, RGB(255,0,0)

make object cube 500, 5
position object 500,1000,1000,1000
color object 500, RGB(0,255,0)

make matrix 1,1000,1000,100,100

make object box 100,5,1,3
position object 100, -10,-10,-10
color object 100, RGB(0,255,0)
set object rotation ZYX 100

position camera -100,-100,-100
point camera 0,0,0

math_setup()

prox = 125 `how close to get to asteroids

Agility = 2

Do

move object 100,5

oldX#= object angle X(100)
oldY#= object angle y(100)
oldZ#= object angle Z(100)

closest = 0
for i = 1 to 50
temp# = distance#
distance# = math_getDist3D(object position x(100),object position y(100),object position z(100),object position x(i),object position y(i),object position z(i))
if distance# < temp# and distance# < prox then closest = i
Next i

if closest <>0
Split_Angle(100, object position x(closest),object position y(closest),object position z(closest),1000,1000,1000)
Else
Point object 100, 1000,1000,1000
EndIF

LimitTurn(100,Agility,oldX#,oldY#,OldZ#)

position camera object position x(100),object position y(100),object position z(100)
set camera to object orientation 100
pitch camera down 15
move camera - 60
pitch camera up 15

sync
Loop

Function Split_Angle(obj, DangerX#,DangerY#,DangerZ#,TargetX#,TargetY#,TargetZ#)

point object obj, DangerX#,DangerY#,DangerZ#
tempx# = object position x(obj)
tempy# = object position y(obj)
tempz# = object position z(obj)
move object obj, 1
point object obj, tempX#, TempY#, TempZ#
move object obj, 1
angDangerX# = object angle x(obj)
angDangerY# = object angle y(obj)
angDangerZ# = object angle z(obj)

point object obj, TargetX#, TargetY#, TargetZ#
angTargetX# = object angle x(obj)
angTargetY# = object angle y(obj)
angTargetZ# = object angle z(obj)

If AngTargetY# < AngDangerY# - 180 then INC angTargetY#, 360
If AngTargetY# > AngDangerY# + 180 then DEC AngTargetY#, 360

If AngTargetx# < AngDangerx# - 180 then INC angTargetx#, 360
If AngTargetx# > AngDangerx# + 180 then DEC AngTargetx#, 360

If AngTargetZ# < AngDangerZ# - 180 then INC angTargetZ#, 360
If AngTargetZ# > AngDangerZ# + 180 then DEC AngTargetZ#, 360

NewYAngle# = ((4 * angTargetY#) + AngDangerY#)/5
NewXAngle# = ((4 * angTargetX#) + AngDangerX#)/5
NewZAngle# = ((4 * angTargetZ#) + AngDangerZ#)/5

Zrotate object obj, wrapvalue(NewZAngle#)
Yrotate object obj, wrapvalue(NewYAngle#)
Xrotate object obj, wrapvalue(NewXAngle#)

EndFunction

Function limitTurn(obj,agility#,OldX#, oldY#, OldZ#)
NewX# = object angle X(obj)
If NewX# > OldX# + 180 then DEC NewX#, 360
If NewX# < OldX# - 180 then Inc NewX#, 360
if NewX# > oldX# + agility# then NewX# = OldX# + agility#
if NewX# < oldX# - agility# then NewX# = OldX# - agility#
Xrotate object obj, newX#

NewY# = object angle y(obj)
If NewY# > OldY# + 180 then DEC NewY#, 360
If NewY# < OldY# - 180 then Inc NewY#, 360
if NewY# > oldY# + agility# then NewY# = OldY# + agility#
if NewY# < oldY# - agility# then NewY# = OldY# - agility#
yrotate object obj, newY#

NewZ# = object angle Z(obj)
If NewZ# > OldZ# + 180 then DEC NewZ#, 360
If NewZ# < OldZ# - 180 then Inc NewZ#, 360
if NewZ# > oldZ# + agility# then NewZ# = OldZ# + agility#
if NewZ# < oldZ# - agility# then NewZ# = OldZ# - agility#
Zrotate object obj, newZ#

EndFunction

FUNCTION math_setup()
   `setup required vectors for distance calculations
   null = MAKE VECTOR3(1)
   null = MAKE VECTOR2(2)
   #CONSTANT vecDist3D = 1
   #CONSTANT vecDist2D = 2
ENDFUNCTION

FUNCTION math_getDist3D(X1#,Y1#,Z1#,X2#,Y2#,Z2#)
   SET VECTOR3 vecDist3D,X1#-X2#,Y1#-Y2#,Z1#-Z2#
   dist# = LENGTH VECTOR3(vecDist3D)
ENDFUNCTION dist#

+ Code Snippet

Sync on
Sync rate 30


For i = 1 to 50
   make object sphere i, 50
   position object i,rnd(1000), rnd(1000), rnd(1000)
Next i
position object 50,500,350,500
color object 50, RGB(255,0,0)

make object cube 500, 5
position object 500,1000,1000,1000
color object 500, RGB(0,255,0)

make matrix 1,1000,1000,100,100

make object box 100,5,1,3
position object 100, -10,-10,-10
color object 100, RGB(0,255,0)
set object rotation ZYX 100

position camera -100,-100,-100
point camera 0,0,0

math_setup()

prox = 125 `how close to get to asteroids

Agility = 2

Do

move object 100,5

oldX#= object angle X(100)
oldY#= object angle y(100)
oldZ#= object angle Z(100)

closest = 0
for i = 1 to 50
temp# = distance#
distance# = math_getDist3D(object position x(100),object position y(100),object position z(100),object position x(i),object position y(i),object position z(i))
if distance# < temp# and distance# < prox then closest = i
Next i

if closest <>0
Split_Angle(100, object position x(closest),object position y(closest),object position z(closest),1000,1000,1000)
Else
Point object 100, 1000,1000,1000
EndIF

LimitTurn(100,Agility,oldX#,oldY#,OldZ#)

position camera object position x(100),object position y(100),object position z(100)
set camera to object orientation 100
pitch camera down 15
move camera - 60
pitch camera up 15

sync
Loop

Function Split_Angle(obj, DangerX#,DangerY#,DangerZ#,TargetX#,TargetY#,TargetZ#)

point object obj, DangerX#,DangerY#,DangerZ#
tempx# = object position x(obj)
tempy# = object position y(obj)
tempz# = object position z(obj)
move object obj, 1
point object obj, tempX#, TempY#, TempZ#
move object obj, 1
angDangerX# = object angle x(obj)
angDangerY# = object angle y(obj)
angDangerZ# = object angle z(obj)

point object obj, TargetX#, TargetY#, TargetZ#
angTargetX# = object angle x(obj)
angTargetY# = object angle y(obj)
angTargetZ# = object angle z(obj)

If AngTargetY# < AngDangerY# - 180 then INC angTargetY#, 360
If AngTargetY# > AngDangerY# + 180 then DEC AngTargetY#, 360

If AngTargetx# < AngDangerx# - 180 then INC angTargetx#, 360
If AngTargetx# > AngDangerx# + 180 then DEC AngTargetx#, 360

If AngTargetZ# < AngDangerZ# - 180 then INC angTargetZ#, 360
If AngTargetZ# > AngDangerZ# + 180 then DEC AngTargetZ#, 360

NewYAngle# = ((4 * angTargetY#) + AngDangerY#)/5
NewXAngle# = ((4 * angTargetX#) + AngDangerX#)/5
NewZAngle# = ((4 * angTargetZ#) + AngDangerZ#)/5

Zrotate object obj, wrapvalue(NewZAngle#)
Yrotate object obj, wrapvalue(NewYAngle#)
Xrotate object obj, wrapvalue(NewXAngle#)

EndFunction

Function limitTurn(obj,agility#,OldX#, oldY#, OldZ#)
NewX# = object angle X(obj)
If NewX# > OldX# + 180 then DEC NewX#, 360
If NewX# < OldX# - 180 then Inc NewX#, 360
if NewX# > oldX# + agility# then NewX# = OldX# + agility#
if NewX# < oldX# - agility# then NewX# = OldX# - agility#
Xrotate object obj, newX#

NewY# = object angle y(obj)
If NewY# > OldY# + 180 then DEC NewY#, 360
If NewY# < OldY# - 180 then Inc NewY#, 360
if NewY# > oldY# + agility# then NewY# = OldY# + agility#
if NewY# < oldY# - agility# then NewY# = OldY# - agility#
yrotate object obj, newY#

NewZ# = object angle Z(obj)
If NewZ# > OldZ# + 180 then DEC NewZ#, 360
If NewZ# < OldZ# - 180 then Inc NewZ#, 360
if NewZ# > oldZ# + agility# then NewZ# = OldZ# + agility#
if NewZ# < oldZ# - agility# then NewZ# = OldZ# - agility#
Zrotate object obj, newZ#

EndFunction

FUNCTION math_setup()
   `setup required vectors for distance calculations
   null = MAKE VECTOR3(1)
   null = MAKE VECTOR2(2)
   #CONSTANT vecDist3D = 1
   #CONSTANT vecDist2D = 2
ENDFUNCTION

FUNCTION math_getDist3D(X1#,Y1#,Z1#,X2#,Y2#,Z2#)
   SET VECTOR3 vecDist3D,X1#-X2#,Y1#-Y2#,Z1#-Z2#
   dist# = LENGTH VECTOR3(vecDist3D)
ENDFUNCTION dist#

Edit: As I walked away i realized I should check field of veiw...

"There will always be evil, for, without evil, the good shall lose their virtue."

Back to top

Profile PM

sneaky smith12

18

Years of Service

User Offline

Joined: 30th Apr 2006

Location: Like id tell you, oh wait i just did

Posted: 23rd Jan 2007 05:03

Link

Awesome code there.
Maybe for my awesome game of destruction I'll have a sphere cashing the other one Mwhahaha...haha.
Seriously though, I love functions. I make functions for single dot's. (Almost, I try to make everything as portible as possible)

If at first you dont succeed, LOWER YOUR STANDARDS.

Back to top

Profile PM Email

Darth Vader

19

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 23rd Jan 2007 05:27

Link

Great AI functions. There so easy to understand!
I hope you don't mind if I edit them a little so they work best for me?

Also do you have another email I can contact you on? I tried the one in your sig but it doesn't work!

http://ideal-entertainment.galekus.com

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / Basic AI Functions - Simple but a good start to AI