Sorry your browser is not supported!

rem A.I problem
rem collecting example
rem by the comet

rem setup screen
sync on
sync rate 30
backdrop on
color backdrop 0
hide mouse

rem make 30 plain objects
for t=1 to 30
	make object plain t,2,2
	position object t,rnd(20)-10,rnd(20)-10,-10-rnd(150)
	make object collision box t,-1,-1,-1,1,1,1,0
next t

rem make a ship
make object sphere 31,2
position object 31,0,0,0
rotate object 31,0,180,0
color object 31,rgb(255,0,0)
make object collision box t,-1,-1,-1,1,1,1,0

rem main loop
z#=0
do

rem move ship
dec z#,0.4

rem position ship
position object 31,x4#,y4#,z#

rem position and point camera
position camera -5,2,z#-20

rem refresh screen
sync

rem end of main loop
loop

make object sphere forcefield,25
hide object forecefield

code...

inc xscale,<num>
inc yscale,<num>
inc zscale,<num>
scale object forecfield,xscale,yscale,zscale
make mesh from object fmesh,forcefield
change mesh forcefield,0,fmesh

code...

rem then when it hits something
delete object forcefield
xscale=100
yscale=100
zscale=100
make object sphere forcefield,25
hide object forcefield

rem when the ship reaches the object that the forcefield
rem collided with, delete that plain

rem calculate distance from spaceship to plain
closestx=1000
closesty=1000
closestz=1000
for t=1 to 30 : rem all plain objects
   x=object position x(t)
   y=object position y(t)
   z=object position z(t)
   if shipx>x then spacex=shipx-x else spacex=x-shipx
   if shipy>y then spacey=shipy-y else spacey=shipy-y
   if shipz>z then spacez=shipz-z else spacez=shipz-z
   if closestx>spacex and closesty>spacey and closestz>spacez
      destinationx=x
      destinationy=y
      closestx=spacex
      closesty=spacey
      closestz=spacez
   endif
next t