Sorry your browser is not supported!

make matrix 1,100,100,10,10

make object box 1,10,10,10
position object 1,5,5,5

position camera 50,50,-50
rotate camera 20,0,0

Move=0
TargetX=5
TargetZ=5
X=5
Z=5

sync on
sync rate 60

do

   if Move=0
      if upkey()=1
         TargetZ=TargetZ+10
         Move=25
      endif
      if downkey()=1
         TargetZ=TargetZ-10
         Move=25
      endif
      if rightkey()=1
         TargetX=TargetX+10
         Move=25
      endif
      if leftkey()=1
         TargetX=TargetX-10
         Move=25
      endif
      if TargetX<5
         TargetX=5
         Move=0
      endif
      if TargetX>95
         TargetX=95
         Move=0
      endif
      if TargetZ<5
         TargetZ=5
         Move=0
      endif
      if TargetZ>95
         TargetZ=95
         Move=0
      endif
   endif

   if Move>0
      Move=Move-1
      position object 1,curvevalue(TargetX,object position x(1),Move),5,curvevalue(TargetZ,object position z(1),Move)
   endif

   sync

loop