Graphics3D 800,600,16,2
SetBuffer BackBuffer()

Const type_car1 = 1
Const type_car2 = 2

AutoMidHandle 1

plr1 = LoadMesh(\"rallycar1.3ds\")
tex1 = LoadTexture(\"rallycar.jpg\")
EntityTexture plr1,tex1
PositionMesh plr1,100,0,0
EntityType plr1,type_car1

plr2 = LoadMesh(\"hearse.3ds\")
tex2 = LoadTexture(\"hearse.jpg\")
ScaleMesh plr2,0.3,0.3,0.3
EntityTexture plr2,tex2
PositionMesh plr2,0,0,0
EntityType plr2,type_car2

plane = CreatePlane()

EntityTexture plane,tex2

PositionEntity plane,0,-1,0 

cam = CreateCamera()
CameraRange cam,1,5000000

PositionEntity cam,0,2000,0
RotateEntity cam,90,0,0

Collisions type_car1,type_car2,3,2

Repeat 

	If KeyDown(200) Then MoveEntity plr1,0,0,-10
	If KeyDown(208) Then MoveEntity plr1,0,0,5
	If KeyDown(205) Then TurnEntity plr1,0,-1,0
	If KeyDown(203) Then TurnEntity plr1,0,1,0
	
	
	UpdateWorld
	RenderWorld
	Flip

Until KeyHit(1)
End

Graphics3D 800,600,16,2
SetBuffer BackBuffer()
Global GRAVITY#=-2.5
Global Camera,player,terrain
player=CreateSphere()
PositionEntity player,0,0,10
EntityType player,PlayerType

Camera=CreateCamera(player)
MoveEntity camera,0,0,-10

Terrain=LoadMesh(\"Deinmash.b3d\")
PositionEntity Terrain,0,-40,0
EntityType Terrain,TerrainType

Type Schuss
      Field Mesh
End Type
Const playertype=1
Const TerrainType=2
Const SchussType=3

Collisions Playertype,TerrainType,2,3
Collisions TerrainType,SchussType,2,3
While Not KeyHit(1)
Cls

TranslateEntity Player,0,Gravity#,0

If KeyDown(17)
Move=2
Else If KeyHit(31)
move=-1
Else If KeyHit(30)
Side=1
Else If KeyHit(32)
Side=-1
EndIf

MoveEntity player,Side,0,Move
If MouseHit(1)
CreateSchuss()
PlaySound(deinsound)
EndIf
If KeyHit(57)
y_vel#=15
Else
Y_Vel#=Y_vel-0.5
EndIf

If KeyDown(C_Key);weiss grad nicht die nr.
sit=-5
Else
sit=0
EndIf
TranslateEntity player,0,y_vel#+sit,0
updateschuesse()
UpdateWorld
RenderWorld
Flip
Wend
Function createschuss()
S.Schuss=New Schuss
S\Mesh=CreateCone()
ScaleEntity S\Mesh,0.5,0.5,2
EntityType S\Mesh,SchussType
PositionEntity S\Mesh,EntityX(player),EntityY(player),EntityZ(player)
RotateEntity S\Mesh,EntityPitch(player),EntityYaw(player),EntityRoll(player)
End Function
Function UpDateSchuesse()
For S.Schuss=Each Schuss
MoveEntity S\Mesh,0,0,5
If EntityCollided(S\Mesh,2)
Delete S
Exit
EndIf
Next
End Function

Graphics3D 800,600,16,2
SetBuffer BackBuffer()

Const type_car1 = 1
Const type_car2 = 2

AutoMidHandle 1

plr1 = LoadMesh(\"rallycar1.3ds\")
tex1 = LoadTexture(\"rallycar.jpg\")
EntityTexture plr1,tex1
PositionMesh plr1,100,0,0
EntityType plr1,type_car1

plr2 = LoadMesh(\"hearse.3ds\")
tex2 = LoadTexture(\"hearse.jpg\")
ScaleMesh plr2,0.3,0.3,0.3
EntityTexture plr2,tex2
PositionMesh plr2,0,0,0
EntityType plr2,type_car2

plane = CreatePlane()

EntityTexture plane,tex2

PositionEntity plane,0,-1,0 

cam = CreateCamera()
CameraRange cam,1,5000000

PositionEntity cam,0,2000,0
RotateEntity cam,90,0,0
;Collisions type_car1,type_car2,3,2 <- Das weg !

Repeat 
        Collisions type_car1,type_car2,3,2  ;<########-HIER
	If KeyDown(200) Then MoveEntity plr1,0,0,-10
	If KeyDown(208) Then MoveEntity plr1,0,0,5
	If KeyDown(205) Then TurnEntity plr1,0,-1,0
	If KeyDown(203) Then TurnEntity plr1,0,1,0
	
	
	UpdateWorld
	RenderWorld
	Flip

Until KeyHit(1)
End