Graphics3D 1024,768,32,1
SetBuffer BackBuffer()
SeedRnd MilliSecs()

a=CreateCube()
ScaleEntity a,8,3,10
EntityColor a,170,50,50

p=CreatePivot()
PositionEntity p,0,3,0
EntityType p,1
EntityRadius p,10

s=CreatePlane()
EntityColor s,150,150,150

ziel = CreatePlane()
RotateEntity ziel,-90,0,0
PositionEntity ziel,0,0,11800
EntityAlpha ziel,0.5
EntityColor ziel,255,0,0

l=CreateLight()

c=CreateCamera()
CameraFogMode c,1
CameraFogRange c,500,1000

Dim bl(49)
For i=0 To 49
bl(i) = CreateCube()
rn=Rnd(20,40)
ScaleEntity bl(i),rn,10,1
PositionEntity bl(i),Rnd(-130,130),10,i*230+400
EntityType bl(i),2
EntityBox bl(i),-rn,-10,-1,rn*2,20,2
Next

a1=CreateCube()
ScaleEntity a1,1,20,15000
PositionEntity a1,90,20,7500
EntityType a1,3
EntityBox a1,-1,-20,-15000,2,40,30000
a2=CopyEntity(a1)
PositionEntity a2,-90,20,7500
EntityType a2,3
EntityBox a2,-1,-20,-15000,2,40,30000
zei=MilliSecs()

Repeat

If KeyDown(200)
sp#=sp+0.05
Else
If KeyDown(208)
sp=sp-0.2
Else sp=sp-0.05
EndIf
EndIf
If sp>60 sp=60
If sp<0 sp=0

If KeyDown(203)
xs#=xs-0.1
ElseIf KeyDown(205)
xs#=xs+0.1
ElseIf xs>0
xs=xs-0.06
Else xs=xs+0.06
EndIf

If xs>1.5 xs=1.5
If xs<-1.5 xs=-1.5
If xs<0.1 And xs>-0.1 Then xs=0

MoveEntity p,xs,0,sp

Collisions 1,2,3,1
Collisions 1,3,3,2

If EntityCollided(p,2) ver=1

PositionEntity a,EntityX(p),EntityY(p),EntityZ(p)
PositionEntity c,0,50,EntityZ(a)-90

UpdateWorld
RenderWorld
ClearCollisions
If ver=1 RuntimeError "Dein Fahrzeug ist zertört!"
If EntityZ(p)>=11800 RuntimeError "Deine Zeit (Sek):" + (MilliSecs()-zei)/1000
Delay 10
Flip
Until KeyHit(1)
End