- procedure TPlayer.DrawPlayer;
- const
- PSize = 1;
- cJumpPower = 0.2;
- cJumpHigh = 3;
- begin
- //******************* Springen *******************
- if FJumpUp then begin
- FJumpDown := False;
- FPosition.y := FPosition.y + cJumpPower;
- Sleep(10);
- If FPosition.y >= cJumpHigh then begin
- FJumpDown := True;
- FJumpUp := False;
- end;
- end;
- if FJumpDown then begin
- FJumpUp :=False;
- FPosition.y := FPosition.y - cJumpPower;
- Sleep(10);
- if FPosition.y <= 1 then begin
- FJumpDown := False;
- FJumpUp := False;
- FPosition.y := 1;
- end;
- end;
- //******************* Springen *******************
- ..... //Zeichnen