@ff`l`o`fff`bfb`&"fff >t=0 function TIC() map() mx,my,left=mouse() if left then mset(mx//8,my//8,1) end t=t+1 step=t%5==0 if step and time()>1000 then for x=-2,31 do for y=-2,18 do ns=0 for dx=-1,1 do for dy=-1,1 do if dx~=0 or dy~=0 then ns=ns+mget(x+dx,y+dy) end end end --print(ns,x*8,y*8) ox=120 oy=68 if mget(x,y)==1 then if ns<2 or ns>3 then s=0 else s=1 end else if ns==3 then s=1 else s=0 end end mset(x+ox,y+oy,s) end end for x=-1,30 do for y=-1,18 do mset(x,y,mget(x+ox,y+oy)) end end end end