mes progrés ...

Rem ***** 1er projet de Pekele *****

set display mode 1024,768,32
sync on : sync rate 60


rem chargement des textures
load image "herbe1.bmp",1 `` je charge la texture du sol
load image "ciel.bmp",4 `` je charge la texture du ciel
load image "mur3.bmp",5 `` je charge la texture de la voiture
load image "mur4.bmp",7 `` je charge la texture de la piste


rem ****************création de l'environement*********************

rem création du ciel
make object sphere 3,100 `` je crée la sphère
scale object 3,8000,8000,4000 `` je l'angrandi
texture object 3,4 `` je l'applique
set object 3,2,0,0,0,0,0,0 `` je modifie les paramètre de l'objet, sinon on le voit pas
position object 3,2000,15,1000 `` je le positionne

rem je créer un leger brouillard
fog on
fog distance 6000
fog color RGB(250,250,250)

rem fabrication de la matrice
Make matrix 1,4000,2000,20,20
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

rem fabrication de la piste

rem droite du fond
make object box 6,2500,2,500
texture object 6,7
position object 6,2000,2,1600
rem droite des stand
make object box 7,2500,2,500
texture object 7,7
position object 7,2000,2,700
rem virage droite
make object box 8,500,2,1400
texture object 8,7
position object 8,3500,2,1150
rem virage gauche
make object box 9,500,2,1400
texture object 9,7
position object 9,500,2,1150



rem ****************création de la voiture*********************

rem fabrique de la voiture
make object box 2,90,25,150 `` création du cube
texture object 2,5 `` j'applique la texture
rem position de la voiture
position object 2,1000,15,1700 `` je positionne la voiture
turn object left 2,90 `` je positionne la direction de la voiture


rem Boucle principale
do

rem *************************************************************
rem l'axe de la voiture Y mis dans aY#
aY#=Object angle Y(2)
rem recuperation des coordonnées de la voiture dans X# et Z#
X#=object position x(2)
z#=object position z(2)
rem *************************************************************

Rem On positionne la caméra
set camera range 1,10000
position camera 2000, 500, 200

Rem On oriente la caméra vers la voiture
Point camera X#,50,Z#

rem gestion des deplacement
if Upkey()=1 then move object 2,-10
if downkey()=1 then move object 2,10
if Rightkey()=1 then Yrotate object 2,Wrapvalue(aY#+5)
if Leftkey()=1 then Yrotate object 2,Wrapvalue(aY#-5)

rem rafraichissement ecran
sync
loop