Graphics3D 1024,768,16,1
SetBuffer BackBuffer()

Global light = CreateLight(1)
Global spotlight = CreateLight(3)
Global camera = CreateCamera()

Global palmtree = LoadMesh("Palmtree.3ds")
Global palmtree_2 = LoadMesh("Palmtree.3ds")
Global mushroom = LoadMesh("Mushroom.3ds")
Global sky = LoadMesh("Sky_sphere.3ds")
Global laken = LoadMesh("Laken.3ds")

Global Heightmap = LoadTerrain("Heightmap_Test.bmp")
Global Back_tex = LoadTexture("Back.bmp")
EntityTexture Heightmap,Back_tex

PositionEntity palmtree,1,0,1
PositionEntity palmtree,10,0,10
PositionEntity mushroom,2,0,2
PositionEntity sky,4,0,4
PositionEntity laken,12,0.1,5
PositionEntity camera,10,3,10
RotateEntity camera,0,135,0
RotateEntity sky,0,135,0

PositionEntity spotlight,1,0,1

While Not KeyHit(1)

   UpdateWorld()
   RenderWorld()
   MoveObject()
   KeyCheck()
   PlaceEntities()

Flip
Wend    
End


Function MoveObject()

If KeyDown(200) Then ;up
   ;MoveEntity object1,0,0,-0.1
   MoveEntity camera,0,0,0.1
   MoveEntity sky,0,0,0.1
ElseIf KeyDown(208) Then ;down
   ;MoveEntity object1,0,0,0.1
   MoveEntity camera,0,0,-0.1
   MoveEntity sky,0,0,-0.1
ElseIf KeyDown(203) Then ;left
   ;TurnEntity object1,0,0.7,0
   TurnEntity camera,0,0.7,0
   TurnEntity sky,0,0.7,0
ElseIf KeyDown(205) Then ;right
   ;TurnEntity object1,0,-0.7,0
   TurnEntity camera,0,-0.7,0
   TurnEntity sky,0,-0.7,0
ElseIf KeyDown(57) Then ;space
   MoveEntity camera,0,0.1,0
   MoveEntity sky,0,0.1,0
ElseIf KeyDown(28) Then ;enter
   MoveEntity camera,0,-0.1,0
   MoveEntity sky,0,-0.1,0
EndIf

End Function


Function KeyCheck()

Color 255,255,255
Text 0,0,"[Pfeiltaste Oben] => nach vorne"
Text 0,15,"[Pfeiltaste Unten] => nach hinten"
Text 0,30,"[Pfeiltaste Rechts] => Rechtsschwenk"
Text 0,45,"[Pfeiltaste Links] => Linksschwenk"
Text 0,60,"[Space] => Hochfahren"
Text 0,75,"[Enter] => Runterfahren"

End Function


Function PlaceEntities()

;For i = 1 To 1
CopyEntity(palmtree)
PositionEntity palmtree,15,0,15
;Next

End Function