temp%=player_y / 32
player_y=temp% * 32

y# = 3.0  ;Ein bisschen Kraft die nach unten drückt.
Const MAX_Y# = 10.0  ;Maximale Fallgeschwindigkeit
Dim level(30,15)  ;Die map

Repeat
...


;Sprung funktion
If keyhit(57) and jump = false
  jump = true
  y = -8.0  ;Bewirkt das er nach oben springt
                ;Allerdings geht es auch immer langsamer gegen oben und der
                ;spieler fällt dann auch wieder runter da, y = y + 0.2,
                ;und fällt immer schneller bis er den max speed erreicht.
Endif

;Wenn man am Springen bzw. fallen ist Schwerkraft dazu rechnen.
If jump = true
  y = y + 0.2
  If y > MAX_Y then y = MAX_Y
  player_ypos = player_ypos + y  ;Spielerposition aktualisieren
Endif

;Kollision
If y > 0.0 and jump = true  ;wenn der Spieler fällt.

  ;Tile unter dem Player prüfen, col_tile kann irgend ne zahl sein die bei
  ;dir ein kollidierbares Tile ist.

  if level(player_xpos / tilesize, player_ypos / tilesize + 1) = col_tile
    ;Wenn unter dem Player ein kollidierbares Teil ist, setz den Player
    ;auf die Bodenhöhe des Tiles, schalt den Sprung aus und setze
    ;schwerkraft zurück
    player_ypos = (player_ypos / tilesize) * tilesize
    jump = false
    y = 3.0
  Endif
Endif

;Das ähnliche wenn der Spieler steigt, nur muss das Tile über dem Spieler
;geprüft werden.
If y < 0.0 and jump = true
  ...
Endif

...
Until Keyhit(1)