Graphics3D 640,480,16,1

Global timer=CreateTimer(60)

SetBuffer BackBuffer()

player=LoadMesh("Meshes\Indycar3.3ds")
PositionEntity player,400,40,300
EntityType player,2
RotateMesh player,180,0,180

camera=CreateCamera(player)
PositionEntity camera,0,4,-10



l5=CreateLight(2)
PositionEntity l5,250,230,300
RotateEntity l5,90,0,0
EntityParent l5,m


st=LoadTexture("Texturen\wolken.jpg")
ScaleTexture st,0.1,0.1

skybox=CreateSphere ()
FlipMesh skybox
EntityType skybox,1
EntityTexture skybox,st
ScaleEntity skybox ,500,550,500
EntityOrder skybox,1
PositionEntity skybox,200,0,200
EntityFX skybox,1
      

u=CreatePlane()
PositionEntity u,0,0,0
EntityAlpha u,0.0
EntityType u,1

terrain=LoadMesh("Meshes\Rennstrecke.b3d")
PositionMesh terrain,250,40,300
EntityType terrain,1
EntityFX terrain,1


Collisions 2,1,2,2

Boost#=5




While Not KeyDown(1)




If KeyDown( 200 )=True Then
speed#=speed#+0.002
EndIf
If KeyDown(208)
speed# = speed# - 0.035
EndIf


MoveEntity player,0,0,speed#
If speed# > 2 speed# = 2
If speed# < -0.5 speed# = -0.5

If KeyDown(200)
If speed# < 0 speed# = speed# + 0.01
Else
If speed# > 0 Then speed# = speed# - 0.004 Else speed# = 0
If speed# > 0 speed# = speed# - 0.004

EndIf

If KeyDown(200)=True And KeyDown(57)=True And boost# > 0 And speed# < 2 Then
speed#=speed#+0.05
boost#=boost#-0.25
End If

If speed#=2 And boost# < 10 Then boost#=boost#+0.01
If boost# < 0 Then boost# = 0
If boost# > 10 Then boost# = 10

If KeyDown( 205 )=True Then TurnEntity player,0,-1.5,0
If KeyDown( 203 )=True Then TurnEntity player,0,1.5,0




 

RotateMesh skybox,0,-0.02,0

TranslateEntity player,0,-0.3,0



RenderWorld

UpdateWorld

Text 10,10, "Speed: "+speed#
Text 10,25, "Boost: "+boost#

Flip

Wend

End 

Boost#=5




While Not KeyDown(1)




If KeyDown( 200 )=True Then
speed#=speed#+0.002
EndIf
If KeyDown(208)
speed# = speed# - 0.035
EndIf


MoveEntity player,0,0,speed#
If speed# > 2 speed# = 2
If speed# < -0.5 speed# = -0.5

If KeyDown(200)
If speed# < 0 speed# = speed# + 0.01
Else
If speed# > 0 Then speed# = speed# - 0.004 Else speed# = 0
If speed# > 0 speed# = speed# - 0.004

EndIf

If KeyDown(200)=True And KeyDown(57)=True And boost# > 0 And speed# < 2 Then
speed#=speed#+0.05
boost#=boost#-0.25
End If

If speed#=2 And boost# < 10 Then boost#=boost#+0.01
If boost# < 0 Then boost# = 0
If boost# > 10 Then boost# = 10

If KeyDown(200) Then
   speed# = speed# + 0.01
Else
   speed# = speed# * 0.99 ;<--- nach belieben anpassen
   If speed# < 0.01 Then speed# = 0
EndIf

If KeyDown( KEY_UP )
         If p.speed < 3
            p.speed :+ p.accel
         Else
            p.speed = 3
         EndIf
      Else
         If p.speed > 0
            p.speed :- p.force
            If p.speed < 0 Then p.speed = 0
         EndIf
      End If
      
      If KeyDown( KEY_DOWN )
         If p.speed > -1
            p.speed :- p.break
         Else
            p.speed = -1
         EndIf
      Else
         If p.speed < 0
            p.speed :+ p.force
            If p.speed > 0 Then p.speed = 0
         EndIf
      End If

If KeyDown( 200 )
   If speed# < 3
      speed# = speed# + accelerate# ;accelerate = Beschleunigung
   Else
      speed# = 3
   EndIf
Else
   If speed# > 0
      speed# = speed# - force# ;force = Kraft die auf den Wagen einwirkt zum automatischem abbremsen
      If speed# < 0 Then speed# = 0
   EndIf
End If
      
If KeyDown( 208 )
   If speed# > -1
      speed# = speed# - break# ;break = Bremskraft
   Else
      speed# = -1
   EndIf
Else
   If speed# < 0
      speed# = speed# + force#
      If speed# > 0 Then speed# = 0
   EndIf
End If