Sorry your browser is not supported!

sync on : sync rate 0 : randomize timer()
null2=make vector2(1)

#constant player = 1
#constant turnangle = 3.0
#constant waypoints_count = 10
#constant waypoints_distance=50

make object cube player,10
color object player,rgb(255,0,0)
position object player,0,0,0

rem create some random waypoints
for f=1 to waypoints_count
   make object sphere f+1,10
   for g=1 to 1000
      x#=rnd(200) : z#=rnd(200) : m#=99999
      if f > 1
         for h=1 to (f-1)
            d#=range2D(x#,z#,object position x(h+1),object position z(h+1))
            if d# < m# then m#=d#
         next h
      endif
      if m# > waypoints_distance then exit
   next g
   position object f+1,x#,0,z#
next f

position camera 100,200,100 : pitch camera down 90

w=1

do

   d#=range2D(object position x(player),object position z(player),object position x(w+1),object position z(w+1))

   if d# < 10
      inc w : if w > waypoints_count then w=1
   endif

   a#=bearing(player,w+1)

   move object player,2
   if a# >= 0
      if a# >= turnangle then a#=turnangle
      yrotate object player,wrapvalue(object angle y(player)+a#)
   else
      a#=-a#
      if a# >= turnangle then a#=turnangle
      yrotate object player,wrapvalue(object angle y(player)-a#)
   endif

   for f=1 to waypoints_count
      x=object screen x(f+1) : y=object screen y(f+1)
      center text x,y-25,str$(f)
   next f

   text 0,0,"Heading for waypoint " + str$(w)

   sync
loop

function bearing(o1,o2)
   a#=atanfull(object position x(o2)-object position x(o1),object position z(o2)-object position z(o1))
   b#=-wrapvalue(object angle y(o1)-a#)
   if b# < -180 then b#=360.0+b#
endfunction b#

function range2D(ax#,az#,bx#,bz#)
   set vector2 1,ax#-bx#,az#-bz# : result#=length vector2(1)
endfunction result#

Turn Object Left Obj#,90
Move Object Obj#,2
LeftX#=Object Position X(Obj#)
LeftZ#=Object Position Z(Obj#)
Move Object Obj#,-4
RightX#=Object Position X(Obj#)
RightZ#=Object Position Z(Obj#)
Move Object Obj#,2
Turn Object Right Obj#,90

If Int(Sqrt((LeftX#-TargetX#)^2+(LeftZ#-TargetZ#)^2)) < Int(Sqrt((RightX#-TargetX#)^2+(RightZ#-TargetZ#)^2))
  [code to turn object left...]
Endif

If Int(Sqrt((LeftX#-TargetX#)^2+(LeftZ#-TargetZ#)^2)) > Int(Sqrt((RightX#-TargetX#)^2+(RightZ#-TargetZ#)^2))
  [code to turn object right...]
Endif

function slowpoint(obnu,x,z, speed#)
 coa#=object angle y(obnu)
 ta#=atanfull(x-object position x(obnu),z-object position z(obnu))
 if coa#<>ta#
 if coa#<ta#
  b=(coa#+360)-ta#
  if coa#+180 < ta# then b=100
 else
  b=coa#-ta#
 endif
 b=wrapvalue(b)
 if b<181
  if b<speed# then speed#=b
  yrotate object obnu, wrapvalue(object angle y(obnu)-speed#)
 endif
 if b>180
  if b-180<speed# then speed#=b-180
  yrotate object obnu, wrapvalue(object angle y(obnu)+speed#)
 endif
 endif
endfunction

   cax1#=camera angle x()
   cay1#=camera angle y()
   caz1#=camera angle z()

   point camera object position x(iWP),_
                object position y(iWP),_
                object position z(iWP)

   cax2#=camera angle x()
   cay2#=camera angle y()
   caz2#=camera angle z()

   CAX#=wrapvalue(CAX1#-CAX2#) : If CAX#>180.0 then dec CAX#,360.0
   CAY#=wrapvalue(CAY1#-CAY2#) : If CAY#>180.0 then dec CAY#,360.0
   CAZ#=wrapvalue(CAZ1#-CAZ2#) : If CAZ#>180.0 then dec CAZ#,360.0

   `//Pivot
   for mul#=0.0 to 1.0 step 0.01
      rcax#=cax1#-(cax#*mul#)
      rcay#=cay1#-(cay#*mul#)
      rcaz#=caz1#-(caz#*mul#)
      rotate camera rcax#,rcay#,rcaz#
      sync
      updatescreen()
   next mul#

sync on
load object "fighter.3ds",1
make object box 2,1,1,1
make object box 3,1,1,1
pitch camera down 90
move camera -90
set global collision on
position object 3,-60,0,0
position object 2,60,0,0
position object 1,0,0,0
point object 1, object position x(2), object position y(2),object position z(2)

do
move object 1,1
if object hit(1,2)
oa=object angle y(1)
point object 1, object position x(3), object position y(3),object position z(3)
na=object angle y(1)
yrotate object 1,o
yrotate object 1,oa
ithit=1
yrotate object 1,curveangle(OA,NA,5)
 endif
print na
print oa
set cursor 0,0
sync
loop