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 |
P#10170 2015-04-23 22:36 ( Edited 2015-04-25 02:06)