Include "Menü.bb"

;cam
Global cam=CreateCamera()PositionEntity cam,-5,8,-5
TurnEntity cam,15,0,0
CameraClsColor cam,0,0,0
CameraRange cam,1,100000
CameraFogMode cam,1
CameraFogRange cam,1,5000

;player
Global goldini=LoadMD2("modell/goldini.md2")PositionEntity goldini,-5,4,0
goldinitex=LoadTexture("textur/goldinitex.bmp",16+32)
ScaleEntity goldini,.1,.1,.1
RotateEntity goldini,0,-90,0

EntityTexture goldini,goldinitex

;------------------WHILE----------------------
While Not KeyHit(1)

If Not KeyDown(200) Or KeyDown(208) Then
AnimateMD2 goldini,2,.1,9,35,0
End If

If KeyDown(200)=False start=1-start : AnimateMD2 goldini,start,0.1,0,3,0
If KeyDown(200)=True Then MoveEntity goldini,-.1,0,0
If KeyDown(208) Then MoveEntity goldini,.1,0,0

RotateEntity goldini,0,EntityYaw(goldini)-MouseXSpeed(),0
MoveMouse 512,384

EntityParent cam,goldini

If MouseHit(2) Then MoveEntity goldini,0,4,0

RenderWorld
UpdateWorld
Flip
Wend

ClearWorld
End