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

rohrtex = LoadTexture("Texturen/text3.bmp")
charaktertex = LoadTexture("Texturen/text1.bmp")
bodentex = LoadTexture("Texturen/text2.bmp",5)
cam = CreateCamera()
boden = LoadTerrain("Terrains/heightmap.bmp")
charakter = LoadMesh("models/charakter.x")
EntityTexture boden,bodentex
ScaleEntity boden,50,290,50
EntityTexture charakter,charaktertex
ScaleTexture charaktertex,0.2,0.2
PositionEntity boden,0,0,0
PositionEntity cam,50,300,0
PositionEntity charakter,50,300,50
ScaleEntity charakter,0.1,0.1,0.1
CameraClsColor cam,30,100,200
light = CreateLight()
PositionEntity light,200,0,0
Repeat
If KeyDown(200) Then MoveEntity charakter,0,0,1:MoveEntity cam,0,0,1
If KeyDown(208) Then MoveEntity charakter,0,0,-1:MoveEntity cam,0,0,-1
If KeyDown(203) Then MoveEntity charakter,-1,0,0:MoveEntity cam,-1,0,0
If KeyDown(205) Then MoveEntity charakter,1,0,0:MoveEntity cam,1,0,0
mXs# = MouseXSpeed()
mYs# = MouseYSpeed()
TurnEntity charakter,0,-(mXs#/3),0,True
TurnEntity charakter,(mYs#/3),0,0
TurnEntity Cam,0,-(mXs#/3),0,True
TurnEntity Cam,(mYs#/3),0,0
MoveMouse 400,300
UpdateWorld
RenderWorld
Flip
Until KeyHit(1)
End