Code: Select all
Var taulu[101,101] As Integer
Var t As Integer
Var mx As Integer
Var my As Integer
Var a As Integer
Repeat
If a == 1 Then
For x = 1 To 99
For y = 1 To 99
t = 0
If taulu[x-1,y-1] > 0 Then t=t+1
If taulu[x,y-1] > 0 Then t=t+1
If taulu[x+1,y-1] > 0 Then t=t+1
If taulu[x-1,y] > 0 Then t=t+1
If taulu[x+1,y] > 0 Then t=t+1
If taulu[x-1,y+1] > 0 Then t=t+1
If taulu[x,y+1] > 0 Then t=t+1
If taulu[x+1,y+1] > 0 Then t=t+1
If t == 3 And taulu[x,y] == 0 Then taulu[x,y]= -1
If taulu[x,y] == 1 And t < 2 Then taulu[x,y]= 2
If taulu[x,y] == 1 And t > 3 Then taulu[x,y]= 2
Next
Next
EndIf
For x = 0 To 100
For y = 0 To 100
If taulu[x,y] == -1 Then taulu[x,y] = 1
If taulu[x,y] == 2 Then taulu[x,y] = 0
If taulu[x,y] == 1 Then Screen.Box x*6.4,y*4.8,6.4,4.8
Next
Next
If Key.Hit(KEY_S) Then a=a+1-a*2
mx=Mouse.X()/6.4
my=Mouse.Y()/4.8
If Mouse.Down(0) Then taulu[mx,my]=1
If Mouse.Down(1) Then taulu[mx,my]=0
Screen.Text 0,0,"Fps:"+Screen.FPS()
Screen.Draw
Forever