Graphics3D 640,480,2
SetBuffer BackBuffer()

Terrain = LoadTerrain("Höhenkarte\Höhenkarte.png")
camera = CreateCamera()
Landschaftstextur = LoadTexture("Texturen\Landschaftstextur.bmp")










TerrainDetail terrain, 400000, True
PositionEntity Terrain,0,0,0
PositionEntity Camera,0,0,0
ScaleEntity Terrain,5,5,5
EntityTexture Terrain, Landschaftstextur
ScaleTexture Landschaftstextur,500,500
CameraFogRange camera,100,4000
CameraFogColor camera,40,140,255
















While Not KeyHit(1)
If KeyDown(203) = 1 Then MoveEntity Camera, -0.8, 0, 0 
If KeyDown(205) = 1 Then MoveEntity Camera, 0.8, 0, 0 
If KeyDown(208) = 1 Then MoveEntity Camera, 0, 0, -0.8
If KeyDown(200) = 1 Then MoveEntity Camera, 0, 0, 0.8
x# = EntityX(camera)
y# = EntityY(camera)
z# = EntityZ(camera)
terra_y# = TerrainY(terrain, x#, y#, z#) + 10
PositionEntity camera, x#, terra_y#, z#
RotateEntity camera,EntityPitch(camera)+MouseYSpeed(),EntityYaw(camera)-MouseXSpeed(),0
MoveMouse 300,200






UpdateWorld 
RenderWorld 
Flip
Wend 
End