Sorry your browser is not supported!

sync on
   sync rate 0

   `Init var
   objCarro1P = 1000
   VelMax1P# = 7
   Acel1P# = 0.2
   VelActual1P# = 0
   MaxVuelta1P# = 2
   AcelVuelta1P# = 0.9
   VueltaActual1P# = 0
   Desvuelta1P# = 0.6
   swVuelta = 0
   Freno1P# = 0.05
   Friccion# = 0.07

   make matrix 1, 500, 500, 20, 20
   position matrix 1, 0, 0, 0

   make object box objCarro1P, 10, 10, 20
   position object objCarro1P, 0, 10, 0

   repeat

      gosub _Mover_Carro
      set camera to follow object position x(objCarro1P), object position y(objCarro1P), object position z(objCarro1P), object angle y(objCarro1P), 40, 30, 2, 1
      set cursor 0, 0
      print "Rate @ ", screen fps()

      sync

   until escapekey()=1
   end

_Mover_Carro:
   `Acel
   if upkey()=1
      if VelActual1P# < VelMax1P#
         inc VelActual1P#, Acel1P#
      endif
   endif
   if VelActual1P# > 0 then dec VelActual1P#, Friccion#
   if VelActual1P# < 0 then VelActual1P# = 0

   `Turn
   if rightkey()=1
      if VueltaActual1P# < MaxVuelta1P#
         VueltaActual1P# = VelActual1P# * AcelVuelta1P#
         swVuelta = 1
      endif
   else
      swVuelta = 0
   endif
   if leftkey()=1
      if VueltaActual1P# > MaxVuelta1P# * -1
         VueltaActual1P# = VelActual1P# * AcelVuelta1P# * -1
         swVuelta = 1
      endif
   endif
   if swVuelta = 0 or VelActual1P# = 0
      if VueltaActual1P# > 0
         dec VueltaActual1P#, Desvuelta1P#
      else
         inc VueltaActual1P#, Desvuelta1P#
      endif
      if abs(VueltaActual1P#) <= Desvuelta1P# then VueltaActual1P# = 0
   endif

   move object objCarro1P, VelActual1P#
   turn object right objCarro1P, VueltaActual1P#
return

yrotate object objCarro1P,wrapvalue(object angle y(objCarro1P) + VueltaActual1P#)