Einzelnen Beitrag anzeigen

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#4

Re: [Andorra] - Player Springen Funktion einbauen.

  Alt 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)
  Mit Zitat antworten Zitat