Graphics3D 1024,768,32,1
;Kameraposition:
cx#=64
cy#=20
cz#=64

Const vor=200, zurueck=208, links=203, rechts=205, menu=1, abbruch=14, OK=28
;Esc für menü, backspace für abbruch, enter für OK

Const schwenklinks=82, schwenkrechts=156
;Numpad 0, Numpad Enter

maus=LoadImage("maus.bmp")

SetBuffer BackBuffer()

cam=CreateCamera()
terrain=CreateTerrain(128)
TerrainDetail terrain, 2000,1
TerrainShading terrain, 1 ;shading einschalten

wuerfel=LoadMesh ("wuerfel.x")
PositionEntity wuerfel, 20,0,10
blender=LoadMesh("blender kugel.x")
PositionEntity blender, 50,10,10

texFloor=LoadTexture("floor.bmp")
EntityTexture terrain, texFloor
textur=LoadTexture("textur.bmp")
EntityTexture blender, textur

light=CreateLight(1)

PositionEntity cam, cx#, cy#, cz#
PositionEntity light,10,10,0

RotateEntity cam,50,0,0

While Not KeyHit (1)

If KeyDown(vor) Then
   cz#=cz#+1
   If cz#>120 Then cz#=120
   PositionEntity cam, cx#, cy#, cz#
EndIf
If KeyDown(zurueck) Then
   cz#=cz#-1
   If cz#<-10 Then cz#=-10
   PositionEntity cam, cx#, cy#, cz#
EndIf
If KeyDown(links) Then
   cx#=cx#-1
   If cx#<-10 Then cx#=-10
   PositionEntity cam, cx#, cy#, cz#
EndIf
If KeyDown(rechts) Then
   cx#=cx#+1
   If cx#>128 Then cx#=128
   PositionEntity cam, cx#, cy#, cz#
EndIf
If KeyDown(schwenklinks) Then
   sl#=sl#-1
   RotateEntity cam,50,sl#,0
EndIf
If KeyDown(schwenkrechts) Then
   sl#=sl#+1
   RotateEntity cam,50,sl#,0
EndIf

UpdateWorld
RenderWorld

X=MouseX()
Y=MouseY()
DrawImage maus,x,y

Flip
Wend
End