1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TMAIN.Keyboard_timerTimer(Sender: TObject);
begin
 // Tasteneingaben nur gültig wenn der spieler auf dem boden ist
    If Player_On_Ground = true then
    begin
      If Keys[vk_down] then
        begin
          movement_mode := 1; //stehen
          player_speed  := 0;
        end;