DelphiX Kollisionsabfrage

[Dagon]

So sieht die deklaration der Klasse aus (ist ein Beispiel, kann aber einfach erweitert werden):

Delphi-Quellcode:

  TBall = class (TImageSprite)
  private
    Winkel: Extended;
  public
    constructor Create (AParent: TSprite); override;
    procedure DoMove (MoveCount: Integer); override;
    procedure DoCollision (Sprite:TSprite; var Done: Boolean); override;
  end;

Im Konstruktor ordnest du z. B. das Image dem Sprite zu, initialisierst die Startposition und alles was es sonst noch braucht:

Delphi-Quellcode:

  inherited Create (AParent);
  Image := Form1.DXImageList1.Items.Find('Ball');
  Width  := Image.Width;
  Height := Image.Height;
  Winkel := 220;
  X := 200;
  y := 400;
  Z := 0;

In der DoMove-Methode schreibst du alles rein, was mit der Bewegung des jeweiligen Sprites zutun hat (auch die Kollision mit dem Rand eines Spielfelds kommt da rein!).
Beispiel:

Delphi-Quellcode:

...
if isLeft in Form1.DXInput1.States then
  X := X - xDiff;
....

Und in die DoCollision-Methode schreibst du alles rein, was mit der Kollision zutun hat. Folgendes Bsp. macht, dass wenn der Ball mit einem Gegenstand zusammen trifft er zerstört wird:

Delphi-Quellcode:

if Sprite is TGegenstand then
  self.Dead;

Am besten du liest ein paar Tuts durch (sowohl zu den Klassen als auch zu DelphiX).