Collisionsabfrage

[Luckie]

So Gegner habe ich auch schon - zu mindest einen .

Zum Schiessen verwende ich jbg's Code und um zu prüfen, ob ich ihn getroffen habe, verwende ich folgenden Code in einem Timer:

Code:

[b]procedure[/b] TForm1.tmrDefenderHittingTimer(Sender: TObject);
[b]var[/b]
  ii: DWORD;
  p: PPoint;
[b]begin[/b]
  [b]for[/b] ii := 0 [b]to[/b] AllShoots.Count -1 [b]do[/b]
  [b]begin[/b]
    p := PPoint(AllShoots.Items[ii]);
    [b]if[/b] (p^.x > Image2.Left)
      [b]and[/b] (p^.x < Image2.Left + Image2.Width)
      [b]and[/b] (p^.y < Image2.Top)
      [b]then[/b]
    [b]begin[/b]
      Image2.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'expl1.bmp');
      bHit := TRUE;
      tmrDefenderHitting.Enabled := FALSE;
    [b]end[/b];
  [b]end[/b];
[b]end[/b];

In einem anderen Timer wird bHit geprüft und wenn das TRUE ist der Gegner wieder neu positioniert und der Collisions-Timer neu gestartet und alles geht von vorne los.

Nun mein Problem:
Wenn ich den Gegner einmal getroffen habe und schon mehr mals geschossen habe, explodiert er von alleine mehr mals. Ich habe so das dumpfe Gefühl, dass nach dem der Gegner neu gestartet wurde, noch Schüsse in der Liste sind, die dann auch noch die Bedingung erfüllen.

Löschen der Liste:

Code:

[b]procedure[/b] TForm1.DeleteDeadShoots(DeleteAll: Boolean);
[b]var[/b]
  p, penemy: PPoint;
  ii: Integer;
[b]begin[/b]
  [b]for[/b] ii := AllShoots.Count - 1 [b]downto[/b] 0 [b]do[/b]
  [b]begin[/b]
    p := PPoint(AllShoots.Items[ii]);
    [b]if[/b] (p^.y < 0) [b]or[/b] (DeleteAll) [b]then[/b]
    [b]begin[/b]
     Fire; [color=#000080][i]// deswegen die Schleife rückwärts durchlaufen[/i][/color]
     Dispose(p);
    [b]end[/b];
  [b]end[/b];

  [b]for[/b] ii := AllShootsEnemy.Count - 1 [b]downto[/b] 0 [b]do[/b]
  [b]begin[/b]
    penemy := PPoint(AllShootsEnemy.Items[ii]);
    [b]if[/b] (penemy^.y > Width) [b]or[/b] (DeleteAll) [b]then[/b]
    [b]begin[/b]
     FireEnemy; [color=#000080][i]// deswegen die Schleife rückwärts durchlaufen[/i][/color]
     Dispose(penemy);
    [b]end[/b];
  [b]end[/b];
[b]end[/b];

Rufe ich das aber nach einem Treffer auf, bekomme ich eine Zugriffsverletzung.

by Daniel B; ich habe mir erlaubt aus den Variablen i ein ii zu machen, da sonst die Formatierung nicht funktioniert hätte.