1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

// Mine Explode?
procedure MineActive ();
var i, j, a: integer;
begin
a:=0; // Anzahl um wie viel das Array verkürzt werden soll
for i:= 0 To High(ShapePlayerMines) do
begin
 if (ShapePlayerMines[i].Visible = false) then
// Sobald ein Gegner in den Bereich um die Mine läuft setzte ich 
// Visible, der Mine auf false;
 begin
  a:=a+1; // Das Array soll um 1 mehr verkürzt werden.
  ShapePlayerMines[i].Free; // Die Mine wird gelöscht
  for j:= i to (High(ShapePlayerMines)-1) do 
// Alle Minen danach sollen nach vorne verschoben werden.
  begin
   ShapePlayerMines[j]:=ShapePlayerMines[j+1];
  end;
 end;
end;
// Ich kürze die Länge des Array um die Anzahl der explodierten Minen.
SetLength(ShapePlayerMines,(Length(ShapePlayerMines)-a));
end; // of procedure					

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:

procedure CheckCPUandLifeOfPlayerUnits ();
var i, a, Amount: integer;
begin

// ... Ich habe hier etwas Code entfernt welcher für einen anderen Teil
// des Spiels zuständig ist.

// Look For Mines
for i:= 0 To High(ShapePlayerMines) do // Alle Minen werden überprüft
begin
 for a:= 0 To High(ShapeEnemies) do // Alle Gegner werden überprüft
 begin
  if ((ShapeEnemies[a].Left > ShapePlayerMines[i].Left - 24) AND
      (ShapeEnemies[a].Left < ShapePlayerMines[i].Left + 26) AND
      (ShapeEnemies[a].Top > ShapePlayerMines[i].Top - 24) AND
      (ShapeEnemies[a].Top < ShapePlayerMines[i].Top + 26)) then
   // if ist true wenn sich der Gegner innerhalb des Bereiches befindet.
   begin
   ShapePlayerMines[i].Visible:=false; // Um sie später in MineActive zu zerstören
   EnemyBots[a, 2]:=EnemyBots[a, 2] - 1; 
   // EnemyBots[a,2] entspricht dem Leben des Gegners
   CheckEnemyAlive (StrToInt(ShapePlayerMines[i].Hint)); 
   // Überprüft ob der Gegner noch lebt 
   // In ShapePlayerMines[i].Hint steht der Index der Einheit, welche die Mine gelegt hat
   // Diese Einheit erhält Erfahrungspunkte.
   end;
 end; // of for
end; // of for
MineActive (); // siehe procedure oben
end; // of procedure