Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
FreePascal / Lazarus
|
Re: [Andorra] - Player Springen Funktion einbauen.
12. Nov 2009, 17:24
Problem gelöst:
Delphi-Quellcode:
if (Player.isJumping) then begin
inc(Player.wert);
if Player.Wert <=15 then begin
if ActTime >=50 then begin
Player.Y:=(Player.Y-Player.Height);
Player.X:=(Player.X+Player.Width);
ActTime:=0;
end;
end
else begin
Player.wert:=0;
Player.isJumping:=False;
end;
end;
Das musste unter onIDLE. Es kam auf "ActTime:=0" an. Damit wird die Zähler Variable wieder auf Null gesetzt.
Michael Springwald MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
|