very very interesting mod of 'game of life'

Community Forums/Showcase/very very interesting mod of 'game of life'

Nate the Great (Posted 2010) [#1]

this is very interesting, I dont have time to post a download but heres the bmax code, no media required. It is basicly a modification of the rules of the game of life. It seems to look like some sort of fluid or meta balls algorithm result. Im still messing with it but this is certainly the most interesting thing ive come up with so far with the game of life Graphics 200,200,0,60 SeedRnd(MilliSecs()) Global width:Int = 200 Global rgrid:Byte[width+1,width+1] Global orgrid:Byte[width+1,width+1] For Local x:Int = 0 To width For Local y:Int = 0 To width orgrid[x,y] = Rnd(-5,3) Next Next Print "starting" While Not KeyDown(key_escape) Cls update render copy Flip Wend Function update() Local totr,a,b,c,d,e,f,g,h For Local x:Int = 1 To width-1 For Local y:Int = 1 To width-1 a = 0 b = 0 c = 0 d = 0 e = 0 f = 0 g = 0 h = 0 If orgrid[x+1,y+1] Then a = 1 If orgrid[x+1,y-1] Then b = 1 If orgrid[x+1,y] Then c = 1 If orgrid[x-1,y+1] Then d = 1 If orgrid[x-1,y-1] Then e = 1 If orgrid[x-1,y] Then f = 1 If orgrid[x,y+1] Then g = 1 If orgrid[x,y-1] Then h = 1 totr = a+b+c+d+e+f+g+h 'Local totr:Byte = orgrid[x+1,y+1]+orgrid[x+1,y-1]+orgrid[x+1,y]+orgrid[x-1,y+1]+orgrid[x-1,y-1]+orgrid[x-1,y]+orgrid[x,y+1]+orgrid[x,y-1] rgrid[x,y] = 0 If totr = 4 Then rgrid[x,y] = 1 If totr = 3 And orgrid[x,y] = 1 Then rgrid[x,y] = 1 If totr = 5 Then rgrid[x,y] = 2 If totr = 6 And orgrid[x,y] = 2 Then rgrid[x,y] = 2 If totr = 8 Then rgrid[x,y] = 3 If totr = 7 And orgrid[x,y] = 3 Then rgrid[x,y] = 3 Next Next End Function Function copy() For Local x:Int = 0 To width For Local y:Int = 0 To width orgrid[x,y] = rgrid[x,y] Next Next End Function Function render() Local r,g,b For Local x:Int = 0 To width For Local y:Int = 0 To width r = 0 g = 0 b = 0 If rgrid[x,y] = 1 Then r = 255 If rgrid[x,y] = 2 Then g = 255 If rgrid[x,y] = 3 Then b = 255 SetColor r,g,b Plot x,y Next Next End Function

spacerat (Posted 2010) [#2]

I've added a bit of code which lets you draw on to the game, which lets you do things like this: SuperStrict Framework brl.blitz Import brl.glmax2d Import brl.random Const width:Int = 300 Graphics width, width, 0, 60 Global rgrid:Byte[width+1,width+1] Global orgrid:Byte[width+1,width+1] SeedRnd(MilliSecs()) For Local x:Int = 0 To width For Local y:Int = 0 To width orgrid[x,y] = Rnd(-5,3) Next Next While Not (KeyDown(KEY_ESCAPE) Or AppTerminate()) Cls update render copy Flip Wend Function update() Local totr:Int, a:Int, b:Int, c:Int, d:Int, e:Int, f:Int, g:Int, h:Int For Local x:Int = 1 To width-1 For Local y:Int = 1 To width-1 a = 0 b = 0 c = 0 d = 0 e = 0 f = 0 g = 0 h = 0 If orgrid[x+1,y+1] Then a = 1 If orgrid[x+1,y-1] Then b = 1 If orgrid[x+1,y] Then c = 1 If orgrid[x-1,y+1] Then d = 1 If orgrid[x-1,y-1] Then e = 1 If orgrid[x-1,y] Then f = 1 If orgrid[x,y+1] Then g = 1 If orgrid[x,y-1] Then h = 1 totr = a+b+c+d+e+f+g+h 'Local totr:Byte = orgrid[x+1,y+1]+orgrid[x+1,y-1]+orgrid[x+1,y]+orgrid[x-1,y+1]+orgrid[x-1,y-1]+orgrid[x-1,y]+orgrid[x,y+1]+orgrid[x,y-1] rgrid[x,y] = 0 If totr = 4 Then rgrid[x,y] = 1 If totr = 3 And orgrid[x,y] = 1 Then rgrid[x,y] = 1 If totr = 5 Then rgrid[x,y] = 2 If totr = 6 And orgrid[x,y] = 2 Then rgrid[x,y] = 2 If totr = 8 Then rgrid[x,y] = 3 If totr = 7 And orgrid[x, y] = 3 Then rgrid[x, y] = 3 Next Next Local s:Int = 8 + MouseZ()*2 If MouseDown(MOUSE_LEFT) Or MouseDown(MOUSE_RIGHT) For Local xx:Int = -s To s For Local yy:Int = -s To s rgrid[Max(Min(MouseX() + xx, width), 0), Max(Min(MouseY() + yy, width), 0)] = MouseDown(MOUSE_LEFT) Next Next End If End Function Function copy() For Local x:Int = 0 To width For Local y:Int = 0 To width orgrid[x,y] = rgrid[x,y] Next Next End Function Function render() Local r:Int, g:Int, b:Int For Local x:Int = 0 To width For Local y:Int = 0 To width r = 0 g = 0 b = 0 If rgrid[x,y] = 1 Then r = 255 If rgrid[x,y] = 2 Then g = 255 If rgrid[x,y] = 3 Then b = 255 SetColor r,g,b Plot x,y Next Next End Function

nawi (Posted 2010) [#3]

It's cool, but it always seems to reduce itself to a static picture.