Graphics3D 640,480,16,2
SetBuffer BackBuffer()

;camera
Global camera=CreateCamera(kugel)
RotateEntity camera,40,0,0
PositionEntity camera, 100,200,-50

;terrain
terrain=LoadTerrain("map3.bmp")
ScaleEntity terrain,1,50,1
EntityType terrain, 1

;textur
textur=LoadTexture("textur3.bmp")
EntityTexture terrain,textur
TerrainDetail terrain, 4000
TerrainShading terrain,True
ScaleTexture textur,TerrainSize(terrain),TerrainSize(terrain)

;kugel
kugel=LoadMesh("kugel.3ds")
ScaleMesh kugel, 0.5, 0.5, 0.5
PositionEntity kugel,0,40,50
EntityType kugel,2

;Kollision
Collisions 1,2,2,3





;hauptschlife,......


While Not KeyHit(1)



If KeyDown(17) Then MoveEntity kugel,0,0,+1
If KeyDown(31) Then MoveEntity kugel,0,0,-1
If KeyDown(30) Then MoveEntity kugel,-1,0,0
If KeyDown(32) Then MoveEntity kugel,+1,0,0

If KeyDown(200) Then MoveEntity kugel,0,+1,0
If KeyDown(208) Then MoveEntity kugel,0,-1,0


   
RenderWorld
UpdateWorld
Flip
Wend
End

const 1 = 1
const 2 = 2