Forum: Multimedia
by mimi,
12. Nov 2009
Problem gelöst:
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;
Forum: Multimedia
by mimi,
11. Nov 2009
Da hast du mich Falsch verstanden. Das Problem ist nicht die Collisions Erkennung, sondern der Sprung an sich. Ich möchte mich gerne Feld-Weise bewegen. Die Collision an sich ist überhaupt kein Thema.
Forum: Multimedia
by mimi,
11. Nov 2009
Hallo,
ich erstelle gerade unter Lazarus(Linux) mit Hilfe von Andorra ein Jump&Ran Game. Nun habe ich Probleme beim Springen. Erst einmal der Code:
procedure TMYSprite.DoMove(TimeGap: double);
var
c:TSprite;
w:double;
begin
inherited DoMove(TimeGap);
if (isPlayer) then begin