Graphics3D 1024,768
SetBuffer BackBuffer()

AppTitle "Marple"

fontvariable = LoadFont("Arial Black",30)
SetFont fontvariable

Sprung=LoadSound("Dateien/Sprung.mp3")
Keineenergie=LoadSound("Dateien/Keineenergie.wav")

Camera=CreateCamera()
PositionEntity Camera,0,5,-5
CameraRange camera,.1,200

Player=CreateSphere()
ScaleEntity Player,0.3,0.3,0.3
PositionEntity Player ,0.5,-1.5,-3.5
EntityType Player,1
EntityRadius Player,.3
Balltxt=LoadTexture("Dateien\ball.jpg")
EntityTexture Player,Balltxt


World1=LoadMesh("Dateien\World1.b3d")
PositionEntity World1,0,0,0 
EntityType World1,2

Hinderniss=LoadMesh("Dateien/Stacheln.3ds")
PositionEntity Hinderniss,0.5,-2.8,-16
ScaleEntity Hinderniss,0.02,0.02,0.02
Htex=LoadTexture("Dateien/H.jpg")
EntityTexture Hinderniss,Htex

CH=CopyEntity (Hinderniss)
PositionEntity CH,2,-2.8,-19.5

CH2=CopyEntity (CH)
PositionEntity CH2,8,-2,-20

CH3=CopyEntity (CH2)
PositionEntity CH3,10,-2,-23

CH4=CopyEntity(CH3)
PositionEntity CH4,5,-2,-28

CH5=CopyEntity (CH4)
PositionEntity CH5,-3,-2,-28

CH6=CopyEntity (CH5)
PositionEntity CH6 ,-3.5,-3,-10

CH7=CopyEntity (CH6)
PositionEntity CH7,-5.2,-3,-5

Out=CreatePlane()
PositionEntity Out,0,-5,0

Collisions 1,2,2,2



aktuell#=100
verlust#=.5
While Not KeyHit(1)


TurnEntity CH,0,1,0
TurnEntity CH2,0,1,0
TurnEntity CH4,0,1,0
TurnEntity CH6,0,1,0



 mxs#=mxs-MouseXSpeed()/10.0
 mys#=mys+MouseYSpeed()/10.0 
 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 
 mxs=mxs*.9
 mys=mys*.9

 TFormNormal EntityX(player)-EntityX(camera),0,EntityZ(Player)-EntityZ(camera), 0,0
 
 If KeyDown(30) Then TranslateEntity Player,-TFormedZ()/19,0,+TFormedX()/19:TurnEntity player,EntityX(player)-EntityX(camera),0,EntityZ(player)-EntityZ(camera),1
 If KeyDown(32) Then TranslateEntity Player,+TFormedZ()/19,0,-TFormedX()/19:TurnEntity player,EntityX(camera)-EntityX(player),0,EntityZ(camera)-EntityZ(player),1
 If KeyDown(17) Then TranslateEntity Player,+TFormedX()/19,0,+TFormedZ()/19:TurnEntity player,EntityZ(player)-EntityZ(camera),0,EntityX(camera)-EntityX(player),1
 If KeyDown(31) Then TranslateEntity Player,-TFormedX()/19,0,-TFormedZ()/19:TurnEntity player,EntityZ(camera)-EntityZ(player),0,EntityX(player)-EntityX(camera),1


   If KeyDown(57)Then If aktuell>0 Then aktuell=aktuell-verlust TranslateEntity player,0,.17,0
If KeyHit(57) Then If aktuell>0 Then   PlaySound (Sprung)



 TranslateEntity Player,0,-.1,0

 PointEntity camera,player
 MoveEntity camera,mXs/300.0,-mYs/300.0,EntityDistance(camera,player)-3


 UpdateWorld
 RenderWorld
Text 160,10, aktuell
Text 10,10, "Sprungkraft:"
Text 230,10, "%"
Text 11,40, "Zeit:"
 Flip
Wend
End