Graphics3D 1440,900,32,1
SetBuffer BackBuffer()

Cam = CreateCamera()
PositionEntity Cam, 15,20,-50
TurnEntity Cam, 20,0,0
CameraFogMode Cam, 1
CameraFogColor Cam, 0,0,0
CameraFogRange Cam, 150,300

AmbientLight 55,55,55
Light = CreateLight(2)
LightColor Light, 255,255,255


Panzer_Haupt = LoadMesh ("Panzer\Panzer_Haupt.3ds")
PositionEntity Panzer_Haupt, 12,6.5,-8.5
ScaleEntity Panzer_Haupt, 0.2,0.2,0.2
TurnEntity Panzer_Haupt, 0,220,0

Panzer_Turm = LoadMesh ("Panzer\Panzer_Turm.3ds")
PositionEntity Panzer_Turm, 12,12.5,-8.5
ScaleEntity Panzer_Turm, 0.2,0.2,0.2
TurnEntity Panzer_Turm, 0,220,0

Boden = CreatePlane()
PositionEntity Boden, 0,-1,0
Tex = LoadTexture ("Boden.jpg")
ScaleTexture Tex, 8,8
EntityTexture Boden, Tex


EntityType Panzer_Haupt,1
EntityType Boden,2
EntityRadius Panzer_Haupt, 9.5

EntityParent Panzer_Turm, Panzer_Haupt

Repeat


 If KeyDown(200) = 1 Then MoveEntity Panzer_Haupt, 0,0,+0.2
 If KeyDown(208) = 1 Then MoveEntity Panzer_Haupt, 0,0,-0.2
 If KeyDown(205) = 1 Then TurnEntity Panzer_Haupt, 0,-0.25,0
 If KeyDown(203) = 1 Then TurnEntity Panzer_Haupt, 0,+0.25,0

 If KeyDown(30) = 1 Then TurnEntity Panzer_Turm, 0,+0.1,0
 If KeyDown(32) = 1 Then TurnEntity Panzer_Turm, 0,-0.1,0

 Collisions 1,2,2,2 ;Kollision Panzer/Boden

 RenderWorld()
 UpdateWorld()
 
 Text 10,10, "Mit Pfeiltasten steuern"
 Text 10,25, "Mit A und D Geschütz drehen"

Flip




Until KeyHit (1)
End

light=CreateLight(1)
   RotateEntity light,0,45,45
   LightColor light,255,255,100