Graphics3D 800,600,32,2

;-------Camera------------
Camera=CreateCamera()
Lischt=CreateLight()
TurnEntity Lischt,45,45,0


;------Umgebung------------
C=CreateCube():Umgebung=CreateMesh()
ScaleMesh C,5,5,5

For I=0 To 1000:X=Rnd(-300,300):Y=Rnd(-300,300)
PositionMesh C,X,0,Y:AddMesh C,Umgebung
PositionMesh C,-X,0,-Y:Next:FreeEntity C
EntityColor Umgebung,200,0,0
Plane=CreatePlane():EntityColor Plane,0,200,0
PositionEntity Plane,0,-5,0


;------Flieger-----------------
Flieger=CreateCone()
ScaleEntity Flieger,1,1,4
RotateMesh Flieger,90,0,0
EntityColor Flieger,0,0,200
PositionEntity Flieger,0,5,0
Piv=CreatePivot(Flieger):PositionEntity Piv,0,0,-3


;================Main Loop==============
Repeat
If KeyDown(203) Then TurnEntity Flieger,0,1,0
If KeyDown(205) Then TurnEntity Flieger,0,-1,0
If KeyDown(208) Then TurnEntity Flieger,-1,0,0
If KeyDown(200) Then TurnEntity Flieger,1,0,0
If KeyDown(30) Then MoveEntity Flieger,0,0,-1
If KeyDown(16) Then MoveEntity Flieger,0,0,1

Reak#=.05
dx#=(EntityX(Piv,1)-EntityX(Camera,1))*Reak
dy#=(EntityY(Piv,1)-EntityY(Camera,1))*Reak
dz#=(EntityZ(Piv,1)-EntityZ(Camera,1))*Reak
TranslateEntity Camera,dx,dy,dz
Yaw#=DeltaYaw(Camera,Flieger)*Reak
Pitch#=DeltaPitch(Camera,Flieger)*Reak
TurnEntity Camera,Pitch,Yaw,0
;PointEntity Camera,Flieger







RenderWorld
flip
Until KeyDown(1)=1
End