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
Codul e destul de explicat si usor de urmarit!
