rem modul de display
set display mode 1280,720,32

sync on : sync rate 60
rem incarcam obiectul si il dimensionam - terenul
 load object "Land.x" ,1
scale object 1,2080,2080,2080
rem incarcam masina si o pozitionam pe teren
load object "car.x",2
position object 2,0,20,0
rem creem camera si o pozitiona,
make camera 1
position camera 1,20,40,0


do


rem daca apasam tasta W obiectul 2 se misca ianinte cu viteza 5
   if Keystate(17)=1 then
      move object 2,.5
rem daca apasam A obiectul 2 se roteste spre stanga
   if Keystate(30)=1 then
      any = any -1
rem daca apasam D obiectul se roteste spre dreapta
   if Keystate(32)=1 then
      any = any +1
rem daca apasam S obiectul merge spre spate cu viteza -5
   if Keystate(31)=1 then
      move object 2,-.5

 rem rotim obiectul 2 si il pozitiona,

yrotate object 2,any
position object 2,object position x(2),cary,object position z(2)

rem spunem camerei sa urmareasca obiectul 2
SET CAMERA TO FOLLOW 1,object position x(2),object position y(2),object position z(2), any,6,3,15, 0

sync
loop