Game of Life

[Luckie]

So aus Spaß an der Freude und aus Langerweile habe ich mal das Spiel des Lebens nachprogrammiert. Bevor ich hie rlange erkläre, um was es dabei geht hier ein Link: http://www.bitstorm.org/gameoflife/

So die Regeln sind also:
1.) Hat eine Mikrobe weniger als zwei Nachbarn stirbt sie.
2.) Hat sie 2 oder 3 Nachbarn überlebt sie.
3.) Hat sie vier oder mehr Nachbar stirbt sie.
4.) Hat ein leeres Feld drei benachbarte Felder mit Mikroben besetzt entsteht dort eine Mikrobe.

So. Ich habe jetzt ein 2D Array of Byte. Eins bedeutet von einer Mikrobe bevölkert, null bedeutet leer. So in einer Schleife gehe ich jetzt jedes Feld durch und gehe einmal drumrum, um zu kucken wie es mit den Nachbran aussieht:

Delphi-Quellcode:

procedure NextGeneration;
var
  x, y: Integer;
  Summe: Integer;
  MicrobeArray2: TMicrobe;
begin
  Summe := 0;
  for x := 0 to Fields-1 do
  begin
    for y := 0 to Fields-1 do
    begin
      if (x = 0) and (y = 0) then
      begin
        Summe := MicrobeArray[(x + 1), (y)] + MicrobeArray[(x), (y + 1)] +
          MicrobeArray[(x + 1), (y + 1)];
      end;
      if (x = 0) and (y <> 0) then
      begin
        summe := MicrobeArray[(x), (y - 1)] +
                 MicrobeArray[(x + 1), (y - 1)] +
                 MicrobeArray[(x + 1), (y)] +
                 MicrobeArray[(x), (y+1)] +
                 MicrobeArray[(x + 1), (y+1)];
      end;
      if (x <> 0) and (y = 0) then
      begin
        summe := MicrobeArray[(x - 1), (y)] + MicrobeArray[(x + 1), (y)] +
          MicrobeArray[(x - 1), (y + 1)] + MicrobeArray[(x), (y + 1)] +
          MicrobeArray[(x + 1), (y + 1)];
      end;
      if (x <> 0) and (y <> 0) then
      begin
        summe := MicrobeArray[(x - 1), (y - 1)] + MicrobeArray[(x), (y - 1)] +
          MicrobeArray[(x + 1), (y - 1)] + MicrobeArray[(x - 1), (y)] +
          MicrobeArray[(x + 1), (y)] + MicrobeArray[(x - 1), (y + 1)] +
          MicrobeArray[(x), (y + 1)] + MicrobeArray[(x + 1), (y + 1)];
      end;
      if (Summe = 3) or (Summe = 2)then
        MicrobeArray2[x, y] := 1
      else
        MicrobeArray2[x, y] := 0;
    end;
  end;
  MicrobeArray := MicrobeArray2;
end;

Ich dachte mit der if-Abfrage zum Schluß hätte ich die Regeln alle erledigt, dem ist aber leider nicht so. Ich finde aber auch den Denk- oder Logikfehler in meiner Routine nicht. Das sehe ich, wenn ich es teste. Setzt bei dem obigen Link mal drei Mikroben in eine Reihe:

Code:

+++

Dann sieht das nach ein paar Generationen so aus:

Code:

 +
 +
 +

Nur bei mir nicht, bei mir werden es immer mehr und es entstehen an stellen Mikroben, wo keine entstehen sollten.. Also muß bei mir irgend wo ein Fehler sein.

Danke schon mal für eure Mühe.