[DBP] source conduite

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

rem -- CREER TERRAIN
make object plain 2,10000,10000
rotate object 2,-90,0,0
position object 2,5000,-1,5000
color object 2,RGB(0,255,0)

rem -- CREER MOTO
make object box 10,25,50,115
set ambient light 30
set shadow shading on 10
set object light 10, 1

make light 1
set light range 1,600
set shadow position 1,2500,2500,90
position light 1,3000,2000,3000

color light 1,0,0,0
hide light 1


rem -- CREER CUBE DE MOUVEMENT
make object cube 1,5
hide object 1
glue object to limb 10,1,0
spd# = 0 : rem --
spd_max# = 24 : rem -- Vitesse max. 240 Km/h
spd_acc# = 0.1 : rem -- Acceleration
bank# = 0 : rem --
bank_max# = 2 : rem -- Angle de rotation max
bank_inc# = 20 : rem -- Suspention - 1 HARD - 10 LOSE
skida# = 1 : rem -- Derapage
vue=1
vie#=100

rem -- CREER OBSTACLE
for g=200 to 400
if object exist(g)
else
make object cube g,100
position object g,rnd(10000),50,rnd(10000)
color object g,RGB(255,0,0)
endif
next

color backdrop RGB(0,0,0)


do

rem -- SELON LA VITESSE LE BLUR AUGMENTE
blur=200-(spd#*6)

rem -- BLUR
set camera to image 0,1,1024,1024
sprite 1,0,0,1
set sprite 1,0,1
size sprite 1,screen width(),screen height()
set sprite alpha 1,blur

rem -- CAMERA
if vue=1
set camera to follow object position x(1),object position y(1),object position z(1),a#,90,90,10,0
point camera object position x(1),object position y(1),object position z(1)
endif

rem -- VALEUR POUR COLLISION
x4 = object position x(1)
y4 = object position y(1)
z4 = object position z(1)
angle4 = object angle y(1)

rem -- AUGMENTE VITESSE
if upkey() = 1
if spd# < spd_max#
inc spd#,spd_acc#
endif
endif

rem -- DIMINUE VITESSE
if upkey() = 0
if spd# > 0
dec spd#,(spd_acc#/2)
endif
if spd# < 0
spd# = 0
endif
endif

rem -- BRAKE
if spacekey()=1
if spd# > 0
dec spd#,(spd_acc#*2)
endif
if spd# < 0
spd# = 0
endif
skid = 1
endif

rem -- TOURNE A GAUCHE
if leftkey() = 1
if spd#>0
if bank# > (0-bank_max#)
bank# = curvevalue((0-bank_max#),bank#,10)
endif
endif
if upkey() = 0
skid = 1
else
skid = 0
endif
endif

rem -- TOURNE A DROITE
if rightkey() = 1
if spd#>0
if bank# < bank_max#
bank# = curvevalue(bank_max#,bank#,20)
endif
endif
if upkey() = 0
skid = 1
else
skid = 0
endif
endif

if leftkey() = 0 AND rightkey() = 0
bank# = curvevalue(0,bank#,10)
skida# = curvevalue(0,skida#,10)
endif

rem -- VALEUR POUR COLLISION
oldx4 = object position x(1)
oldy4 = object position y(1)
oldz4 = object position z(1)
oldangle4 = object angle y(1)

rem -- GLISSADE
if skid = 1 and spd#>0
if leftkey() = 1 and spd#>0
skida# = curvevalue(0-(spd#*2),skida#,60)
endif
if rightkey() = 1 and spd#>0
skida# = curvevalue((spd#*2),skida#,60)
endif
dec spd#,(spd_acc#/2)
text 0,40,"GLISSE!!!"
else
skida# = curvevalue(0,skida#,10)
endif


rem -- MISE A JOUR DES VALEURS
x#=newxvalue(x#,a#,spd#) : z#=newzvalue(z#,a#,spd#)
a# = wrapvalue(a#+bank#)

rem -- MISE A JOUR DE LA POSITION ET L4ANGLE DE LA MOTO
position object 1,x#,y#+25,z#
yrotate object 1,a#+180
zrotate object 10,(bank#*bank_inc#*(spd#/20))
yrotate object 10,skida#

rem -- ECRIT LES VALUEUR
set cursor 0,0
text 0,0,"vitesse : "+str$(spd#*10)+" Km/h"
text 0,10,"Banking : "+str$(bank#)
text 0,20,"fps : "+str$(screen fps())
text 0,30,"blur : "+str$(blur)
text 0,50,"vie : "+str$(vie#)

rem -- COLLISION GLISSANTE
for o=200 to 400
if object exist(o)
if object collision(10, o)>0
position object 1, oldx4, y4, z4
vie#=vie#-((spd#*10)/2)
spd#=0
spd#=-2
if object collision(10, o)>0
position object 1, x4, y4, oldz4
vie#=vie#+((spd#*10)/2)
spd#=0
spd#=-2
if object collision(10, o)>0
position object 1, oldx4, y4, oldz4
vie#=vie#-((spd#*10)/2)
spd#=0
spd#=-2
endif
endif
endif
endif
next o

rem -- VIE
if vie#=<0
ink RGB(255,0,0),0
text screen width()/2,screen height()/2,"CRACH"
endif

sync

loop