[Andorra] - Player Springen Funktion einbauen. [Gelöst]

[igel457]

Betrachte dir mal die Funktionen "Collision" und "DoCollision": Damit bekommst du es automatisch mit, wenn eine Kollision mit einem anderen Objekt stattfindet.

Beispiel (nur als Gedankenanstoß verwenden):

Delphi-Quellcode:

type
  TMySprite = class(TSprite)
    private
      FHasCollision: boolean;
    protected
      procedure DoCollision(Sprite: TSprite; var Done: boolean);override
      procedure DoMove(TimeGap: Double);override;
  end;

[...]

procedure TMySprite.DoMove(TimeGap: Double);override;
begin
  //Bewege die Figur...
  

  //Prüfe auf Kollisionen
  FHasCollision := false;
  Collision;

  if FHasCollision then
  begin
    //Mache die Bewegung rückgängig
  end;
end;

procedure TMySprite.DoCollision(Sprite: TSprite; var Done: boolean);override;
begin
  if Sprite is TWall then
    FHasCollision = true;
end;