.spiel
Graphics3D 1024,768
SetBuffer BackBuffer()



AppTitle "Marple"

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

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


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,playercol
EntityRadius Player,.3
Balltxt=LoadTexture("Dateien\ball.jpg")
EntityTexture Player,Balltxt


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

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
EntityType Out,Outcol

Const playercol=1
Const Worldcol=2
Const Hindernisscol=2
Const Outcol=2

aktuell#=100
verlust#=.5

Collisions 1,2,2,2

Timer = MilliSecs()
Zeit = 70

While Not KeyHit(277)
If KeyDown(1) Then Goto menü

If EntityCollided(player,Outcol) Then Goto Outplane

If Timer+1000 < MilliSecs() Then
Zeit=Zeit-1
Timer = MilliSecs()
If zeit=0 Then zeit=0
EndIf

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

If zeit=0 Then Goto zeitlimitueberschritten

 UpdateWorld
 RenderWorld
Text 70,40, zeit
Text 100,40, "Sekunden"   
Text 160,10, aktuell
Text 10,10, "Sprungkraft:"
Text 230,10, "%"
Text 11,40, "Zeit:"
 Flip
Wend
End
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.zeitlimitueberschritten
Graphics 1024,768
SetBuffer BackBuffer()

ueberschreitung=LoadImage("Dateien/Zeit.jpg")
HidePointer

While Not KeyDown(1)

If MouseHit(1) Then Goto spiel


Cls
DrawImage ueberschreitung,0,0
Flip
Wend

If entitycollide(Playercol,Outcol) then goto Out

If EntityCollided(Player,HIndernisscol) Then
Goto menü
EndIf