Sorry your browser is not supported!

load object "c:track.x" , 2

position object 2,1,-15,1000


set global collision on
rem Load object
load object "c:boat.x",1






color backdrop 120


rt#=.6
speed#=.2
do
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),5,1,3,0

if upkey()=1
   ox#=object position x(1)
   oy#=object position y(1)
   oz#=object position z(1)
   move object 1,3
   dist#=intersect object (2,ox#,oy#,oz#,object position x(1),object position y(1),object position z(1))
   if dist#>0
      move object 1,dist#-4
   endif
endif

if shiftkey ()=1 then move object up 1,.1
if spacekey ()=1 then move object down 1,.1
if leftkey()=1 then rt#=rt#-speed#
if rightkey()=1 then rt#=rt#+speed#
yrotate object 1,rt#
loop

load object "c:track.x" , 2

position object 2,1,-15,1000


set global collision on
rem Load object
load object "c:boat.x",1






color backdrop 120


rt#=.6
speed#=.2
acc#=0
do
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),5,1,3,0

if upkey()=1
   ox#=object position x(1)
   oy#=object position y(1)
   oz#=object position z(1)
   move object 1,3+acc#
   dist#=intersect object (2,ox#,oy#,oz#,object position x(1),object position y(1),object position z(1))
   if dist#>0
      move object 1,dist#-(4+acc#)
      acc#=0
   else
      if acc#<3
         inc acc#,0.1
      endif
   endif
endif

if shiftkey ()=1 then move object up 1,.1
if spacekey ()=1 then move object down 1,.1
if leftkey()=1 then rt#=rt#-speed#
if rightkey()=1 then rt#=rt#+speed#
yrotate object 1,rt#
loop