Conway's Game of Life

Thu, 23 Apr 2015 22:36:37 UTC

Conway's Game of Life

by iseyler

[Click to Play]

I'm not 100% sure this is working correctly but it was a good first try.

-- conway's game of life
-- by ian seyler

maxinit=1400

cls()
for t=1,maxinit do
 x=rnd(127)
 y=rnd(127)
 pset(x,y,15)
end

while(1) do
 for y=0,127 do
  for x=0,127 do
   neigh=0
   for tx=-1,1 do
    for ty=-1,1 do
     if(pget(x+tx,y+ty)==15) then
      neigh+=1
     end
    end
   end
   if(pget(x,y)==15) then
    neigh-=1
    if(neigh<2 or neigh>3) then
     pset(x,y,0)
    end
   elseif(pget(x,y)==0) then
    if(neigh==3) then
     pset(x,y,15)
    end
   end
  end
 end
end

iseyler [Lexaloffle Blog Feed]

Conway's Game of Life