1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
 if not DXDraw1.CanDraw then Exit;

  inc(y);

  dximagelist1.Items[0].draw(DXDraw1.Surface, 50,y, 0);
  DXDraw1.Flip;

end;					

1:

DXDraw1.Surface.Fill(0);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:

{ Kollision zwischen Sprites
In diesem Kapitel werde ich zeigen, wie einfach es ist, festzustellen, ob zwei Sprites gegeneinander gestoßen sind.

Zuerst werden wir in unser Beispiel vom vorherigen Kapitel noch ein Bild einfügen. Wir laden ein zweites Bild in unsere DXImageList Komponente und geben ihm den Namen "Stein". Dann erzeugen wir unser zweites Bild auf unsere DXDraw Oberfläche: }

TAnimation = class(TImageSprite)
public
  procedure DoMove(MoveCount: Integer); override; {war schon da}
  constructor Create(AParent: TSprite ); override; {war schon da}
  procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
end;

TGegenstand = class(TImageSprite)
public
constructor Create(AParent: TSprite ); override;
end;

var
  Form1: TForm1;
  Animation:tanimation;
  Gegen: TGegenstand;

implementation


constructor TGegenstand.Create(AParent: TSprite );
begin
  inherited Create(AParent);
  Image:=Form1.DXImageList1.Items.Find('Stein');
  Width := Image.Width;
  Height := Image. Height;
  Visible:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TAnimation.Create(DXSpriteEngine1.Engine) do
    begin
      x:=0;
      y:=0;
    end;
  with TGegenstand.Create(DXSpriteEngine1.Engine) do
    begin
      x:=40;
      y:=40;
    end;
end;
{ Wie vielleicht schon gesehen wurde, haben wir eine neue Prozedur: DoCollision
Die sollte wie folgt aussehen: }

procedure TAnimation.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
  if sprite is TGegenstand then
    begin
      beep;
      dead;   // DAS HIER KLAPPT NICHT !!! :-(((   ??????!!!!!!!!
    end;
end;
{ Mit Sprite kann man überprüfen gegen wen TAnimation gestoßen ist. In diesem Beispiel also gegen unser zweites Bild.
Mit dead wird TAnimation gelöscht.

Damit jedes mal auf Kollision überprüft wird, wenn sich unser Sprite bewegt, müssen wir in die Move Prozedur folgendes einfügen: }

procedure TAnimation.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount); 
  If isUp in Form1.DXInput1.States Then
    Y := Y -10;
  If isDown in Form1.DXInput1.States Then
    Y := Y + 10;
  If isLeft in Form1.DXInput1.States Then
    X := X -10;
  If isRight in Form1.DXInput1.States Then
    X := X +10;
  AnimCount := 5;
  AnimLooped := True;
  AnimSpeed := 20/1000;
  AnimStart := 0;

  Collision;
end;					

1:

DxSpriteEngine1.dead;