Life of Luckie

[Luckie]

Ich habe es vertauscht angegeben:

Delphi-Quellcode:

      // Feld besiedelt 
      if MicrobeArray2[x,y] = 1 then begin
        // und nicht 2 oder 3 Nachbarn, Besiedelung wird aufgehoben
        if not ((Summe = 3) or (Summe = 2)) then MicrobeArray2[x,y] := 0;
      end else begin
      // Feld nicht besiedelt
        // aber genau 3 Nachbarn, Feld wird besiedelt
        if Summe = 3 then  MicrobeArray2[x,y] := 1
      end;