Global player = LoadMesh(\"Mariorun.x\")
PositionEntity player,5700,600,6200
;PositionEntity player,3111,820,7090
EntityType player,type_spieler
EntityRadius player,15
ScaleEntity player,.3,.3,.3

Global pivot = CreatePivot() 
cam = CreateCamera(pivot)
MoveEntity cam,0,0,10
CameraRange cam,1,50000
CameraFogMode cam,1
CameraFogRange cam,100,30000
CameraFogColor cam,50,30,0
RotateEntity cam,0,0,0
CameraClsColor cam,30,140,255
PositionEntity cam,5,-10,-33
EntityType cam,type_kamera
EntityRadius cam,33

PointEntity cam,player
light=CreateLight()
TurnEntity light,45,45,0

While Not KeyHit(1)

mxspd=MouseXSpeed()*0.25 
myspd=MouseYSpeed()*0.25 
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 
pitch=pitch+myspd 
yaw=yaw-mxspd 
If pitch<-90 Then pitch=-90 
If pitch>90 Then pitch=90 
RotateEntity cam,pitch,yaw,0 

If KeyDown(17) Then  
MoveEntity player,0,0,10
;Schwerkraft# = 0.1
;Else Schwerkraft = -30
End If 

If EntityCollided(player, type_terrain) = True Then
	If KeyDown(17) Then Schwerkraft = 0.0001
End If 
If EntityCollided(player, type_terrain) = False Then
   If KeyDown(17) Then Schwerkraft = -5
Else Schwerkraft = -30
End If 
 

If KeyDown(30) Then TurnEntity player,0,5,0
If KeyDown(31) Then MoveEntity player,0,0,-10
If KeyDown(32) Then TurnEntity player,0,-5,0

If KeyDown(203) Then TurnEntity pivot,0,3,0
If KeyDown(205) Then TurnEntity pivot,0,-3,0

If KeyDown(200) Then 

	If zoom# < 7 Then zoom# = zoom# + 0.3
End If 

If KeyDown(208) Then

	If zoom# > -7 Then zoom# = zoom# - 0.3
End If 

If KeyHit(57) Then 
Sprungkraft# = 50
Else Sprungkraft# = Sprungkraft# - 3
End If 

PositionEntity pivot,EntityX(player),EntityY(player),EntityZ(player)+zoom#


MoveEntity pivot,0,0,zoom#
	TranslateEntity player,0,Schwerkraft# + Sprungkraft#,0


UpdateWorld
RenderWorld

Text 0,0,\"X: \"+EntityX(player)
Text 0,20,\"Y: \"+EntityY(player)
Text 0,40,\"Z: \"+EntityZ(player)

Flip
Wend