Sorry your browser is not supported!

AI ADD NEUTRAL 10,training_plane,0
AI ADD WAYPOINT 0,OBJECT POSITION X(player),OBJECT POSITION Z(player)
AI SET ENTITY SPEED 10,8

AI MAKE PATH 100
AI ADD NEUTRAL 10,training_plane
AI PATH ADD POINT 100,1750,0
AI ENTITY ASSIGN PATROL PATH 10,100
AI SET ENTITY SPEED 10,8

type waypoint
x as float
z as float
endtype

   `Setup Screen
      sync on : sync rate 30

   `Setup Camera
      make camera 1
      rotate camera 1,45,45,0
      move camera 1,-100

   `Start AI
      ai start
      ai debug show paths 0

   `Make globals
      global waypointnumber `Required for adding waypoints
      global player `Player AI Entity
      global waypointnum `Current waypoint which the player is heading to
      waypointnum=1

   `Make array
      dim waypoint(255) as waypoint

   `Make Player
      player=1
      make object box player,10,10,10
      ai add friendly player
      ai set entity speed player,50

   `Add Waypoints
      for i=1 to 255
         addwaypoint(rnd(200)-100,rnd(200)-100)
      next i


      ai entity go to position player,waypoint(waypointnum).x,waypoint(waypointnum).z


   `loop
      do


      `Update Waypoints

      `Get Distance To next waypoint
         distance#=abs(sqrt((waypoint(waypointnum).x-ai get entity x(player))^2+(waypoint(waypointnum).z-ai get entity z(player))^2))
         text 10,10,str$(distance#)
         text 10,20,str$(waypointnum)
         if distance#<1
            inc waypointnum,1
            ai entity go to position player,waypoint(waypointnum).x,waypoint(waypointnum).z
         endif

      `Update AI
         ai update


      `Update Screen
         sync

   `Endloop
      loop


function addwaypoint(x#,z#)
waypointnumber=waypointnumber+1
waypoint(waypointnumber).x=x#
waypoint(waypointnumber).z=z#
endfunction

   `Make Player
      ai add friendly training_plane
      ai set entity speed training_plane,50