Graphics 1024,768,0,2

SetBuffer BackBuffer()
SeedRnd MilliSecs()

;###################
Global Size% = 3
Global Raster% = 3
Global DIMG = 199
Dim Felder(DIMG+1,DIMG+1)   
For n=0 To (Dimg/3)^2   ;<----spielt hierdran rum um die Dichte der Startzellen zu verändern!
     
felder(Rand(1,DIMG),Rand(1,DIMG))=1
Next
     



;#######MAIN


Repeat
Cls

For x=0 To DIMG
 For y=0 To DIMG
If Felder(x,y) = 1 Then Color 255,255,255:Rect x*Raster,y*Raster,size,size
 Next
Next



;Nächste Generation
For x=0 To DIMG
 For y=0 To DIMG

If Felder(x,y) = 0 And AnzahlNachbarn(x,y) = 3 Then Felder(x,y) = 1:Goto End ;Neue Zelle


If Felder(x,y) = 1 And AnzahlNachbarn(x,y) < 2 Then Felder(x,y) = 0 ;Einsamkeit

If Felder(x,y) = 1 And AnzahlNachbarn(x,y) > 3 Then Felder(x,y) = 0 ;Überbevölkerung
.End
 Next
Next


Flip
Until KeyHit(1)
End

Function AnzahlNachbarn(Zx,Zy)
Local N%
If Zx<DIMG Then If Felder(Zx+1,Zy) = 1 Then N=N+1
If Zx>0 Then If Felder(Zx-1,Zy) = 1 Then N=N+1
If Zy<DIMG Then If Felder(Zx,Zy+1) = 1 Then N=N+1
If Zy>0 Then If Felder(Zx,Zy-1) = 1 Then N=N+1
If Zx<DIMG And Zy<DIMG Then If Felder(Zx+1,Zy+1) = 1 Then N=N+1
If Zy>0 And Zx<DIMG Then If Felder(Zx+1,Zy-1) = 1 Then N=N+1
If Zx>0 Then If Felder(Zx-1,Zy+1) = 1 Then N=N+1
If Zx>0 And Zy>0 Then If Felder(Zx-1,Zy-1) = 1 Then N=N+1


Return N
End Function