;falls Player nach oben gegen Mauer springt, fällt er zurück
   If map((Player_pos_x +16) /32,Player_pos_y /32)=1 And jump = True Then
      jump = False
      Player_pos_y = Player_pos_y +1   ;muß um eins tiefer gesetzt werden, da sonst die Figur hängen bleibt
   EndIf
   
   
   ;die eigentliche Sprungroutine
   If jump = True Then
      Player_temp_y = Player_temp_y -0.33    ;Die Temporäre Variable verringern
      Player_pos_y = Player_pos_y - Player_temp_y ; Position Y durch TempY veringern
      ; Solange Temp_y eine positive Zahl ist, bewegt sich unsere Figur hoch,
      ; andernfalls runter.
                                                                          
      If Player_temp_y =< 0 Then   ; Sobald Temp_y den Wert 0 erreicht hat
         If map((Player_pos_x +16) /32,(Player_pos_y +32) /32)=1 Then   
             ;überprüft, ob sich ein Tile unter dem Spieler befindet
            jump = 0
            temp = Player_pos_y /32   ;\
            Player_pos_y = temp *32   ;/ Setzt die genaue Y-Position, falls die Figur mitten im Tile steht
         EndIf
      EndIf
    EndIf

:
Graphics 800,600,0,2

boden = 500 : playery# = boden
schwerkraft# = 0.1
sprungkraft = 5
speed = 2


SetBuffer BackBuffer()

Repeat
   Cls
   If KeyDown(203) Then
      playerx = playerx - speed
   EndIf
   If KeyDown(205) Then
      playerx = playerx + speed
   EndIf
   If KeyHit(200) Then
      sprung = 1
      playeryspeed# = playeryspeed - sprungkraft
   EndIf
   
   If sprung = 1 Then
      playeryspeed# = playeryspeed + schwerkraft
      playery# = playery + playeryspeed
      If playery > boden Then
         sprung = 0
         playery = boden
         playeryspeed = 0
      EndIf
   EndIf
       
   Oval playerx,playery,10,10,1
   
   Flip
Until KeyHit(1)