JSE - Game of Life

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|251\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Game of Life
Sat, 27 Apr 2024, 13:50
Jayenkai	JSE - Game of Life // Game of Life // by John Horton Conway // Created 1970 gw=52;gh=32 Graphics 16(gw+2),16(gh+2),1 SetControllerMethod Mouse dim grida(gw+2,gh+2) dim gridb(gw+2,gh+2) for x=0 to gw+1 for y=0 to gh+1 grida(x,y)=0 next next for x=1 to gw for y=1 to gh grida(x,y)=0;if Rnd(0,10)<5 then grida(x,y)=1 next next Repeat if MouseDown()==0 for x=1 to gw for y=1 to gh c=grida(x-1,y-1)+grida(x-1,y)+grida(x-1,y+1) c=c+grida(x,y-1)+grida(x,y+1) c=c+grida(x+1,y-1)+grida(x+1,y)+grida(x+1,y+1) s=0 if grida(x,y)==1 and (c==2 or c==3) then s=1 if grida(x,y)==0 and c==3 then s=1 gridb(x,y)=s Next if x%10==0 then flip Next endif CLS for x=1 to gw for y=1 to gh if grida(x,y)==1 then Rect x16,y16,12,12,0 grida(x,y)=gridb(x,y) next next if MouseDown==1 x=Floor((MouseX())/16) y=Floor((MouseY())/16) grida(x,y)=1;gridb(x,y)=1 endif Flip Forever --v Was wondering if I could use this as a music visualiser, but I'm not really sure I can.. Oh well. -=-=- ''Load, Next List!''
Fri, 03 May 2024, 02:41
AndyH	Nicely done.