Game of Life

BlitzPlus Forums/BlitzPlus Programming/Game of Life

Heliotrope

(Posted 2013) [#1]

Recently I was making a Conway's Game of Life sim. I think that I got the rules right. The problem is that the display keeps flashing. The cause of this is the 'Cls' at line 13 which is fixed by moving it to line 41. I thought that this would fix the problem(it fixed the blinking) but it also made the game lag, skip frames and the rules to break.

The code...

SetBuffer BackBuffer ()
Graphics 600,600,16,2
Dim arr(299,299,2)
	For x = 0 To 299
		For y = 0 To 299
			arr (x,y,0) = Rnd (0,1)
		Next
	Next
Repeat
	Cls
	For x = 1 To 298
		For y = 1 To 298
		
		If arr (x - 1,y - 1,0) = 1 Then surr = surr + 1
		If arr (x - 1,y,0) = 1 Then surr = surr + 1
		If arr (x - 1,y + 1,0) = 1 Then surr = surr + 1
		If arr (x,y - 1,0) = 1 Then surr = surr + 1
		If arr (x,y + 1,0) = 1 Then surr = surr + 1
		If arr (x + 1,y - 1,0) = 1 Then surr = surr + 1
		If arr (x + 1,y,0) = 1 Then surr = surr + 1
		If arr (x + 1,y + 1,0) = 1 Then surr = surr + 1
		
		If surr < 2 Or surr > 3 Then arr(x,y,1) = 0
		If surr = 3 And arr(x,y,0) = 0 Then arr(x,y,1) = 1
		
		surr = 0
		Next
	Next
	x = 0
	y = 0
	For x = 0 To 299
		For y = 0 To 299
		
		arr (x,y,0) = arr (x,y,1)
		arr (x,y,2) = arr (x,y,1)
		Next
	Next 
	
	For x = 0 To 299
		For y = 0 To 299
		If arr (x,y,2) = 1 Then Rect x * 6,y * 6,6,6
		Next
	Next
	
	count = count + 1
	Color 0,255,0
	Text 0,0,"Step: " + count
	Color 255,255,255
	
	Flip  
	Delay 50
	
Until KeyHit (1)
End

Can anyone see the problem?

xlsior

(Posted 2013) [#2]

Try just putting the CLS right after the flip -- at that point you'll start with a clean slate for the next iteration?

Heliotrope

(Posted 2013) [#3]

No, CLS just after the flip still has the annoying blinking and just before the flip has a blank screen with occasional glimpses of squares.
Update - putting the CLS after the delay has the same effect of line 13 and changing the VWAIT of the flip seams to have no effect.

xlsior

(Posted 2013) [#4]

try flipping the first two lines:

First initialize the graphics mode, THEN tell it to draw to the backbuffer.

Midimaster

(Posted 2013) [#5]

upps, xlsior was faster...

Midimaster

(Posted 2013) [#6]

your problem is because you wrote the SETBUFFER before GRAPHICS.
With this each FLIP jumps between a invalid and the correct backbuffer.
Always define the buffer after defining the graphic device.

this works:

Graphics 600,600

SetBuffer BackBuffer()

FPS=CreateTimer(20)
Dim arr(300,300,3)
.....
Repeat
	For x = 1 To 298
	.....
	.....
	Text 0,0,"Step: " + count +" " + MilliSecs()
	Color 255,255,255
	Flip  0
	WaitTimer FPS
	Cls
Until KeyHit (1)
End

Heliotrope

(Posted 2013) [#7]

Thanks xlsior and midimaster, that explains years of failed graphics progarms.
I always though that the setbuffer went before graphics.

Heliotrope

(Posted 2013) [#8]

Also one last thing, is there a way to convert an .exe file into a screensaver as this program would make an awesome screensaver.
idea - if the conversion is possible what about pacman or space invaders that plays itself as a screen saver.

xlsior

(Posted 2013) [#9]

Yes, there is.

A screensaver really is just a .exe renamed to .scr, with a couple of minor tweaks -- I don't remember the specifics, but basically there are two command line parameters that your program needs to support. One of them triggers the 'demo' mode where it starts immediately, the other should bring up the configuration/settings screen.

Optionally, there's a flag that tells the program to run and embed itself into a canvas which is what gets shown in the small preview window.

I'm fairly sure that there are full fledged instructions and possibly even a framework for screensavers for blitzmax that has been posted to the forums in the past.
Other than possibly embedding the preview canvas, you should be able to create a full-blown compliant screensaver in Blitzplus with that info as well.

Heliotrope

(Posted 2013) [#10]

Thanks xlsior, one last thing is never one last thing.
I have made the screensaver one but have not yet converted it and,
I am making a game of life that you can interact with and I was wondering
if you could change the size of the array so that nothing will ever go off the array.
The gliders reach the edge and are turned into squares.

Update - solved it - You copy the data to a second array and then make the first again, only with two extra rows. then copy the data back with an offset of one.

Heliotrope

(Posted 2013) [#11]

Hi again, is there a command in blitz that allows you to create a text file? I swear that I've seen it before!

virtlands

(Posted 2013) [#12]

It's elementary.

To create a text file, use any of the following::

fp = WriteFile(filename$)
.... Writeline(fp, " string ");
.... Writeline(fp, " string ");
closefile(fp)

--- I shall check out your game of life soon.

Heliotrope

(Posted 2013) [#13]

Virtlands, I hope to have it finished soon.

Heliotrope

(Posted 2013) [#14]

Hi all,
As of this post most of the functionality in the code is done. The areas that i am having trouble with are the colour sliders, zoom function, mouse pan and then array resizing. Apart from that it is done. if someone could help me with these areas that would be great.

Here is the code.


Graphics 800,600,16,2
AppTitle "Tessellation v1 - Conway's Game of Life Simulation","Are you sure you want to exit?"
SetBuffer BackBuffer () ;Drawing buffer set as backbuffer
SeedRnd MilliSecs () ;Random values 
;The Varibles 
Global cellred = 230, cellgreen = 230, cellblue = 230
Global gridred = 200, gridgreen = 200, gridblue = 200
Global bgred = 80, bggreen = 80, bgblue = 80
;preference file
If FileType ("Game of life") = 0 Then CreateDir "Game of life"
If FileType ("Game of life/perf.txt") = 0 Then colourdefaults
If FileType ("Game of life/perf.txt") = 1 Then loadpref
Global scale = 7, scaledir = 0
Global speed = 2 ,timetillren = 0
Global count = 0 Global updatecount = 0 
Global arrst = 199
Global arrx = arrst, arry = arrst
Global xpos = 200, ypos = 0
Global pause = 1
Global tab = 0, tab3tab = 0
Global tool = 2 Global colourtag = 0
Global livecells = 0, deadcells = 0 Global margincells = 0
Global gridvis = 1 ,axisvis = 1 Global screenshow = 0
Global scncntx = 500, scncnty = 300
Global orix = arrx / 2 
Global oriy = arry / 2 
xpos = scncntx - orix * scale
ypos = scncnty - oriy * scale
; Create the Arrays used in the program 
Dim arr(arrx,arry,1);Main array
Dim Inte (arrx,arry,0);copy array
Dim beg (arrx,arry,0);starting grid
Dim filekeep$ (200) ;list of files
; Enter the main loop - does stuff
framerate = CreateTimer (100)
ClsColor bgred,bggreen,bgblue
Repeat
	Cls
	If pause = 1 Then Goto updateskip
	If timetillren > speed Then updategen 
	.updateskip 
	
	drawgrid
	
	drawscreen
	
	checklife
	
	checkboarder 
	
	If pause = 0 And count < 1 Then startarr
	If KeyHit (19) And count > 0 Then resizearr

	;mouse clicks 
	If MouseHit (1) Or MouseDown (1) Then clickevent
	;Move the viewpoint
	If KeyDown (205) Then xpos = xpos - 20 ;/ scale
	If KeyDown (203) Then xpos = xpos + 20 ;/ scale
	If KeyDown (208) Then ypos = ypos - 20 ;/ scale
	If KeyDown (200) Then ypos = ypos + 20 ;/ scale
	;zoom function
	zoom
	;other keyboard functions 
	If KeyHit (57)  Then pause = pause + 1
	If pause > 1 Then pause = 0 
	If livecells < 1 And pause = 0 Then pause = 1
	If KeyHit (15) Then tab = tab + 1
	If tab > 2 Then tab = 0 
	If pause = 1 Then Goto skipcount
	.skipcount 
	Flip 0
	timetillren = timetillren + 1
	WaitTimer (framerate)
	
Forever 
End 

Function updategen ()
	
	For x = 1 To arrx - 1
		For y = 1 To arry - 1
		
		;count the number of live cells surronding target cell
		;uses a Moore neighborhood 
			If arr (x - 1,y - 1,0) = 1 Then surr = surr + 1;NW
			If arr (x - 1,y,0) = 1 Then surr = surr + 1    ;N
			If arr (x - 1,y + 1,0) = 1 Then surr = surr + 1;NE
			If arr (x,y - 1,0) = 1 Then surr = surr + 1    ;W
			If arr (x,y + 1,0) = 1 Then surr = surr + 1    ;E
			If arr (x + 1,y - 1,0) = 1 Then surr = surr + 1;SW
			If arr (x + 1,y,0) = 1 Then surr = surr + 1    ;S
			If arr (x + 1,y + 1,0) = 1 Then surr = surr + 1;SE
		
		;condition for the cell to live on to next generation 
		If surr < 2 Or surr > 3 Then arr(x,y,1) = 0
		
		;condition for a new cell to be born 
		If surr = 3 And arr(x,y,0) = 0 Then arr(x,y,1) = 1
		
		surr = 0
		Next
	Next
	
	;Make two tables the same
	For x = 0 To arrx
		For y = 0 To arry
		arr (x,y,0) = arr (x,y,1)
		Next
	Next 
	;count the steps 
	count = count + 1
	timetillren = 0
	
End Function 

Function drawscreen ()
	
	Color 255,0,0
	Rect scale + xpos,scale + ypos,x * scale,y * scale,0 
	;Draw the array to the screen 
	Color cellred,cellgreen,cellblue
	For x = 0 To arrx
		For y = 0 To arry
		If arr (x,y,0) = 1 Then Rect x * scale + xpos,y * scale + ypos,scale,scale
		Next
	Next
	Color 255,0,0
	;Draw the outline and axis
	Rect xpos,ypos,x * scale,y * scale,0
	If axisvis = 0 Then Goto skipdrawaxis
		Rect xpos,ypos,x * scale / 2 + 1,y * scale / 2 + 1,0
		Rect xpos + (arrx / 2 * scale) + scale,ypos + (arry / 2 * scale) + scale,x * scale / 2,y * scale / 2,0
	.skipdrawaxis
	;draw the menu 
	Color 240,240,240
	Rect 0,0,200,600
	Color 135,140,144
	Rect 200,0,3,800
	;tab buttons 
	Color 240,240,240
	Rect 5,5,54,20
	Rect 58,5,70,20
	Rect 128,5,62,20
	Color 135,140,144
	Line 5,5,190,5
	Line 5,5,5,25
	Line 5,25,0,25
	Line 190,25,200,25
	Line 58,5,58,25
	Line 128,5,128,25
	Line 190,5,190,25
	
	If tab = 0 Then Line 58,25,190,25
	If tab = 1 
		Line 5,25,58,25 
		Line 128,25,190,25
	End If 
	If tab = 2 Then Line 5,25,128,25
	Color 0,0,0
	Text 15,10,"Home"
	Text 60,10,"Settings"
	Text 135,10,"Help" 
	;draw the tab contents
	If tab <> 0 Then Goto skipdrawtab1
		Color 225,225,225
		Rect 4,545,50,20
		Rect 140,158,20,20 
		Rect 170,158,20,20
		Rect 5,206,150,20
		Rect 5,230,90,20
		Rect 55,545,40,20
		Rect 78,570,20,20
		Rect 102,570,20,20
		Rect 47,253,40,20
		Rect 5,253,40,20
		Rect 5,30,55,17
		Rect 63,30,40,17
		Rect 107,30,40,17
		Rect 97,230,95,20
		Rect 105,547,20,20
		Color 0,0,0
		Text 7,32,"Select"
		Text 65,32,"Move"
		Text 110,32,"Edit"
		Text 5,60,"Cells total: Live: Dead"
		Text 50,75,livecells + deadcells
		Text 105,75,livecells
		Text 160,75,deadcells
		Text 5,185,"Generation: " + count
		Text 5,100,"Mouse Grid Position: "
		Text 5,130,"Mouse Pixel Position: "
		Text 5,160,"Zoom Factor: " + scale 
		Text 7,210,"Fill Grid Randomly"
		Text 7,235,"Clear Grid" 
		Text 100,235,"Center Grid"
		Text 7,255,"Open"
		Text 50,255,"Save"
		Text 0,290,"More features coming soon"
		If count > 0 Then Text 170,257, ">"
		If pause = 1 Then Text 15,550, "Run"
		If pause = 0 Then Text 5,550, "Pause" 
		Text 60,550,"Stop"
		Text 110,550,">"
		Text 5,570,"Speed: " + speed 
		If MouseX () > 200 Then Text 10,115,(((MouseX () - xpos) / scale) - (arrx / 2)) + "," + (((MouseY() - ypos) / scale) - (arry / 2))
		If MouseX () > 200 Then Text 10,145,MouseX () - xpos + "," + MouseY()
		Color 135,140,144
		If livecells > 0 Then Rect 4,545,50,20,0
		If pause = 0 Then Rect 55,545,40,20,0
		If count = 0 Then Rect 5,206,150,20,0
		If livecells > 0 Then Rect 5,230,90,20,0
		If livecells = 0 And count > 1 Then Rect 5,230,90,20,0
		If tool <> 0 Then Rect 5,30,55,17,0
		If tool <> 1 Then Rect 63,30,40,17,0
		If tool <> 2 Then Rect 107,30,40,17,0
		Rect 7,310,186,220,0
		Rect 97,230,95,20,0
		Rect 5,253,40,20,0
		Rect 47,253,40,20,0
		If livecells > 0 Then Rect 105,547,20,20,0
		If count > 0 Then Rect 165,255,20,20,0
		If speed > 1 Then Rect 78,570,20,20,0
		If speed < 20 Then Rect 102,570,20,20,0
		Text 82,573,"-"
		Text 107,573,"+"
		If scale > 1 Then Rect 140,158,20,20,0
		If scale < 10 Then Rect 170,158,20,20,0
		If scale = 1 Then Color 128,128,128
			Text 145,161, "-"
			Color 135,140,144
		If scale = 15 Then Color 128,128,128
			Text 175,161, "+"
			Color 135,140,144
		Line 5,180,195,180
		Line 5,50,195,50
		Line 5,95,195,95
		Line 5,278,195,278
		Line 5,540,195,540
	.skipdrawtab1
	If tab <> 1 Then Goto skipdrawtab2
		Color 255,255,255
		Rect 95,37,10,10
		Rect 95,52,10,10
		Color 200,200,200
		
		Rect 5,86,145,20
		Rect 5,65,95,20
		Rect 105,65,95,20
		
		Rect 7,285,120,20
		Color 0,0,0
		Text 10,35,"Hide Grid:"
		Text 10,50,"Hide Axis:"
		Text 8,70,"Grid Colour"
		Text 108,70,"Life Colour"
		Text 8,90,"Background Colour"
		Text 25,110,"Red   Green   Blue"
		Text 10,290,"Reset Defaults" 
		Color 135,140,144
		Rect 95,37,10,10,0
		Rect 95,52,10,10,0
		Rect 7,285,120,20,0
		Line 35,130,35,258
		Line 95,130,95,258
		Line 155,130,155,258
		If colourtag = 0 
			Color 255,255,255
			Rect 25,130 + (gridred / 2),20,10
			Rect 85,130 + (gridgreen / 2),20,10
			Rect 145,130 + (gridblue / 2),20,10
			Color 135,140,144
			Rect 25,130 + (gridred / 2),20,10,0
			Rect 85,130 + (gridgreen / 2),20,10,0
			Rect 145,130 + (gridblue / 2),20,10,0
			
			Rect 105,65,95,20,0
			Rect 5,86,145,20,0
		End If 
		
		If colourtag = 1 
			Color 255,255,255
			Rect 25,130 + (cellred / 2),20,10
			Rect 85,130 + (cellgreen / 2),20,10
			Rect 145,130 + (cellblue / 2),20,10
			Color 135,140,144
			Rect 25,130 + (cellred / 2),20,10,0
			Rect 85,130 + (cellgreen / 2),20,10,0
			Rect 145,130 + (cellblue / 2),20,10,0
			
			Rect 105,65,95,20,0
			Rect 5,65,95,20,0
		End If 
		
		If colourtag = 2 
			Color 255,255,255
			Rect 25,130 + (bgred / 2),20,10
			Rect 85,130 + (bggreen / 2),20,10
			Rect 145,130 + (bgblue / 2),20,10
			Color 135,140,144
			Rect 25,130 + (bgred / 2),20,10,0
			Rect 85,130 + (bggreen / 2),20,10,0
			Rect 145,130 + (bgblue / 2),20,10,0
			
			Rect 5,86,145,20,0
			Rect 5,65,95,20,0
		End If 

		If gridvis = 0 
			Color 0,0,0
			Line 96,42,100,46 
			Line 100,46,105,37
		End If 
		If axisvis = 0 
			Color 0,0,0
			Line 96,57,100,61
			Line 100,61,105,52
		End If 
		
	.skipdrawtab2
	If tab <> 2 Then Goto skipdrawtab3
		If tab3tab <> 0 Then Goto t3t0
			Color 225,225,225
			Rect 5,33,190,18
			Rect 5,53,190,18
			Rect 5,73,190,18
			Color 0,0,0
			Text 7,35,"About"
			Text 7,55,"Controls"
			Text 7,75,"Structures" 
			Color 135,140,144
			Line 5,50,195,50
			Line 5,70,195,70
		.t3t0
		If tab3tab <> 1 Then Goto t3t1
			Color 225,225,225
			Rect 5,33,190,18
			Rect 5,353,190,18
			Rect 5,373,190,18
			Color 0,0,0
			Text 7,35,"About"
			Text 7,355,"Controls"
			Text 7,375,"Structures" 
			Text 7,50,"Tessellation is a" 
			Text 7,65,"Conway's game of life"
			Text 7,80,"simulation, desinged to"
			Text 7,95,"closely follow the rules"
			Text 7,110,"of the original game."
			Text 7,125,"Made by Marco"
			Color 135,140,144
			Line 5,352,195,352
			Line 5,372,195,372
		.t3t1
		If tab3tab <> 2 Then Goto t3t2
			Color 225,225,225
			Rect 5,33,190,18
			Rect 5,53,190,18
			Rect 5,373,190,18
			Color 0,0,0
			Text 7,35,"About"
			Text 7,55,"Controls"
			Text 7,375,"Structures" 
			Text 7,70,"Mouse - Move,edit and" 
			Text 60,85,"Select"
			Text 7,100,"Arrow keys - Move around"
			Text 7,115,"Space bar - Play and"
			Text 60,130,"Pause"
			Text 7,145,"Buttons - On the Buttons"
			Color 135,140,144
			Line 5,50,195,50
			Line 5,372,195,372
		.t3t2
		If tab3tab <> 3 Then Goto t3t3
			Color 225,225,225
			Rect 5,33,190,18
			Rect 5,53,190,18
			Rect 5,73,190,18
			Color 0,0,0
			Text 7,35,"About"
			Text 7,55,"Controls"
			Text 7,75,"Structures" 
			Text 7,90,"The structers in the"
			Text 7,105,"game follow simple rules"
			Text 7,120,"to create very complex"
			Text 7,135,"pattens. The pattens in"
			Text 7,150,"then game follow three"
			Text 7,165,"rules which are..."
			Text 7,180,"1. Any live cell with"
			Text 7,195,"less than 2 or greater"
			Text 7,210,"than 3 neighbours dies."
			Text 7,225,"2. Any live cell with"
			Text 7,240,"2 or 3 neighbours lives"
			Text 7,255,"onto the next generation"
			Text 7,270,"3. And any dead cell "
			Text 7,285,"3 neighbours becomes"
			Text 7,300,"alive."
			Color 135,140,144
			Line 5,50,195,50
			Line 5,70,195,70
		.t3t3
	.skipdrawtab3
End Function 

Function clickevent ()
	Delay 50
	If MouseX () < 200 Then Goto skipclickgrid
	If tool <> 0 Then Goto skipselectgrid
	
	.skipselectgrid
	If tool <> 1 Then Goto skipmovegrid
		If MouseDown (1) Then xpos = xpos + MouseXSpeed () 
		If MouseDown (1) Then ypos = ypos + MouseYSpeed ()
	.skipmovegrid
	;deals with any clicks on the grid
	If tool <> 2 Then Goto skipclickgrid
	If count > 0 Then Goto skipclickgrid
		Local xgrid
		Local ygrid
		xgrid = (MouseX () - xpos) / scale
		ygrid = (MouseY() - ypos) / scale
		If xgrid > arrx Then Goto skipclickgrid
		If xgrid < 0 Then Goto skipclickgrid
		If ygrid > arry Then Goto skipclickgrid
		If ygrid < 0 Then Goto skipclickgrid
		Color 0,255,0
		If arr (xgrid,ygrid,0) = 0 
			arr (xgrid,ygrid,1) = 1
		End If
		Color 255,0,0
		If arr (xgrid,ygrid,0) = 1
			arr (xgrid,ygrid,1) = 0
		End If
		;Make two tables the same
		arr (xgrid,ygrid,0) = arr (xgrid,ygrid,1)
		Delay 5
	.skipclickgrid
	
	If MouseX () > 200 Then Goto clickskipmenu
	;deals with any clicks on the menu
		mx = MouseX()
		my = MouseY()
		Color 240,240,240
		Rect mx,my,5,5
		If RectsOverlap (MouseX(),MouseY(),2,2,5,5,54,20) And tab <> 0 Then tab = 0 
		If RectsOverlap (MouseX(),MouseY(),2,2,58,5,70,20) And tab <> 1 Then tab = 1
		If RectsOverlap (MouseX(),MouseY(),2,2,128,5,62,20) And tab <> 2 Then tab = 2
		
			If tab <> 0 Then Goto skipclicktab1
			If RectsOverlap (Mx,my,2,2,4,545,50,20) Then pause = pause + 1
			If RectsOverlap (Mx,my,2,2,140,158,20,20) Then scaledir = -1;scale = scale ;- 1
			If RectsOverlap (Mx,my,2,2,170,158,20,20) Then scaledir = 1;scale = scale ;+ 1
			If RectsOverlap (Mx,my,2,2,75,570,20,20) Then speed = speed - 1
			If RectsOverlap (Mx,my,2,2,100,570,20,20) Then speed = speed + 1
			If RectsOverlap (Mx,my,2,2,5,206,150,20) Then fillrnd
			If RectsOverlap (Mx,my,2,2,5,230,90,20) Then cleargrid
			If RectsOverlap (Mx,my,2,2,55,545,40,20) And pause = 0 Then Stoparr
			If RectsOverlap (Mx,my,2,2,47,253,40,20) Then savefile
			If RectsOverlap (Mx,my,2,2,5,253,40,20) Then loadfile
			If RectsOverlap (Mx,my,2,2,5,30,55,17) Then tool = 0
			If RectsOverlap (Mx,my,2,2,63,30,40,17) Then tool = 1
			If RectsOverlap (Mx,my,2,2,107,30,40,17) Then tool = 2
			If RectsOverlap (Mx,my,2,2,97,230,95,20) Then centregrid
			If RectsOverlap (Mx,my,2,2,105,547,20,20) Then updategen 
	
			If speed < 1 Then speed = 1
			If speed > 20 Then speed = 20
		.skipclicktab1
		If tab <> 1 Then Goto skipclicktab2
			If RectsOverlap (Mx,my,2,2,95,37,10,10) Then gridvis = gridvis + 1
			If RectsOverlap (Mx,my,2,2,95,52,10,10) Then axisvis = axisvis + 1
			If gridvis > 1 Then gridvis = 0 
			If axisvis > 1 Then axisvis = 0 
			
			If RectsOverlap (Mx,my,2,2,5,65,95,20) Then colourtag = 0
			If RectsOverlap (Mx,my,2,2,5,86,145,20) Then colourtag = 1
			If RectsOverlap (Mx,my,2,2,105,65,95,20) Then colourtag = 2
			If RectsOverlap (Mx,my,2,2,7,285,120,20) Then colourdefaults
			
			If colourtag <> 0 Then Goto skipcolour0
				Mx = MouseX () 
				my = MouseY () 
				ms1 = MouseXSpeed ()
				If MouseDown (1) And RectsOverlap (Mx,my,2,2,25,130 + gridred / 2,20,10) 
					gridred = 130 - MouseX () * 2;(2 / MouseX ()) - 130
				End If 	
				If gridred < 0 Then gridred = 0
				If gridred > 255 Then gridred = 255
				ms2 = MouseXSpeed ()
			.skipcolour0
			
			
			ClsColor bgred,bggreen,bgblue
		.skipclicktab2
		If tab <> 2 Then Goto skipclicktab3
			If tab3tab <> 0 Then Goto ct3t0
			If RectsOverlap (Mx,my,2,2,5,33,190,18) Then tab3tab = 1
			If RectsOverlap (Mx,my,2,2,5,53,190,18) Then tab3tab = 2
			If RectsOverlap (Mx,my,2,2,5,73,190,18) Then tab3tab = 3
			.ct3t0
			If tab3tab <> 1 Then Goto ct3t1
			If RectsOverlap (Mx,my,2,2,5,353,190,18) Then tab3tab = 2
			If RectsOverlap (Mx,my,2,2,5,373,190,18) Then tab3tab = 3
			.ct3t1
			If tab3tab <> 2 Then Goto ct3t2
			If RectsOverlap (Mx,my,2,2,5,33,190,18) Then tab3tab = 1
			If RectsOverlap (Mx,my,2,2,5,373,190,18) Then tab3tab = 3
			.ct3t2
			If tab3tab <> 3 Then Goto ct3t3
			If RectsOverlap (Mx,my,2,2,5,33,190,18) Then tab3tab = 1
			If RectsOverlap (Mx,my,2,2,5,53,190,18) Then tab3tab = 2
			.ct3t3
		.skipclicktab3
	.clickskipmenu
	FlushMouse 
End Function 

;Fill the array with random life
Function fillrnd ()
	Delay 50
	If count > 0 Then Goto skipfillrnd
	For x = 10 To arrx - 10
		For y = 10 To arry - 10
			arr (x,y,0) = Rnd (0,1)
		Next
	Next
	.skipfillrnd
End Function 
;clear the grid
Function cleargrid ()
	Delay 50
	If pause = 0 Then Goto skipcleargrid
	For x = 0 To arrx
		For y = 0 To arry
			arr (x,y,0) = 0
		Next
	Next
	count = 0
	pause = 1
	.skipcleargrid
End Function 

Function zoom ()
	;Delay 50
	Local vpcntx = 600
	Local vpcntz = 400
	;If Not MouseZSpeed() = 0 Then scale = scale + MouseZ ()
	If Sgn (MouseZSpeed ()) < 0 Then scaledir = - 1
	If Sgn (MouseZSpeed ()) > 0 Then scaledir = 1
	If KeyHit (12) Then scaledir = -1
	If KeyHit (13) Then scaledir = 1

	If scale = 10 Then Goto skipzoomin
	If scaledir = 1 Then 
		;vpcntx = 600 + (scale - 1) * xpos
		;vpcnty = 400 + (scale - 1) * ypos
		scaledir = 0 
		scale = scale + 1
		xpos = (arrx / scale) ; - 2
		ypos = (arry / scale); - 2
		;xpos = (scale + 1) / 600 - vpcntx
		;ypos = (scale + 1) / 400 - vpcnty
	End If 
	.skipzoomin
	If scale = 1 Then Goto skipzoomout
	If scaledir = -1 Then 
		;vpcntx = 600 + (scale + 1) * xpos
		;vpcnty = 400 + (scale + 1) * ypos
		scaledir = 0
		scale = scale - 1
		xpos = (arrx / scale); - 2
		ypos = (arry / scale); - 2
		;xpos = (scale - 1) / 600 - vpcntx
		;ypos = (scale - 1) / 400 - vpcnty
	End If 
	.skipzoomout
	If scale < 1 Then scale = 1
	If scale > 15 Then scale = 15

	MouseZSpeed ()
	
End Function

Function checklife ()
	livecells = 0
	deadcells = 0
	For x = 0 To arrx
		For y = 0 To arry
			If arr (x,y,0) = 1 Then livecells = livecells + 1
			If arr (x,y,0) = 0 Then deadcells = deadcells + 1
		Next
	Next
	
End Function

Function checkboarder ()
	margincells = 0
	;top
	For x = 0 To arrx
		For y = 0 To 4
		 If arr (x,y,0) = 1 Then margincells = margincells + 1
		Next 
	Next
	;botton 
	For x = arrx - 4 To arrx
		For y = 0 To 4
		 If arr (x,y,0) = 1 Then margincells = margincells + 1
		Next 
	Next
	;left
	For x = 0 To 4
		For y = 0 To arry
		 If arr (x,y,0) = 1 Then margincells = margincells + 1
		Next 
	Next
	;right
	For x = 0 To 4
		For y = arry - 4 To arry
		 If arr (x,y,0) = 1 Then margincells = margincells + 1
		Next 
	Next
	;If margincell > 0 Then resizearr
End Function 

Function resizearr ()
	
	Dim inte (arrx,arry,0)
	
	For x = 0 To arrx ;-1
		For y = 0 To arry ;-1
			Inte (x,y,0) = arr (x,y,0)
		Next
	Next
	
	Dim arr (arrx + 10,arry + 10,1)
	
	For x = 0 To arrx ;- 1
		For y = 0 To arry ;- 1
			arr (x+5,y+5,0) = inte (x,y,0)
		Next
	Next
	arrx = arrx + 10
	arry = arry + 10
	margincells = 0
	xpos = xpos - (5 * scale)
	ypos = ypos - (5 * scale)
	
End Function 

Function drawgrid ()
	If gridvis <> 1 Then Goto skipdrawgrid
	If scale < 4 Then Goto skipdrawgrid
	Color gridred,gridgreen,gridblue
	For x = 0 To arrx 
		Line   x * scale + xpos,scale + ypos,x * scale + xpos,arrx * scale + ypos
	Next
	
	For y = 0 To arrx 
		Line   scale + xpos,y * scale + ypos,arry * scale + xpos,y * scale + ypos
	Next

	.skipdrawgrid
End Function 

Function centregrid ()
	
	Delay 50
	scale = scale + 1
	xpos = scncntx - (arrx * scale) / 2
	ypos = scncnty - (arry * scale) / 2

	scale = scale - 1
	xpos = scncntx - (arrx * scale) / 2
	ypos = scncnty - (arry * scale) / 2

End Function

Function loadfile ()
	Delay 50
	FlushKeys 
	Local c = 0
	Local c2 = 0
	Local s = 1
	Local folder$
	For x = 0 To 200 
		filekeep$ (x) = ""
	Next
	If FileType ("Game of life") = 0 Then CreateDir "Game of life"
	If FileType ("Game of life") = 2 Then folder$ = ReadDir ("Game of life" )
	Repeat 
		file$ = NextFile (folder$) 
		If Right$ (file$,4) = ".txt" Or Right$ (file$,4) = ".mtx"
			filekeep$ (c) = file$
			c = c + 1
		End If 
	Until file$ = ""
	Cls
	If c = 0 
		Print "No files found to load - Press any key to go back."
		WaitKey ()
	End If
	If c = 0 Then Goto skipfileopen 
	Locate 0,0
	Repeat 
		Print filekeep$ (c2)
		c2 = c2 + 1
	Until c2 = c
	Print "To cancel the open press enter."
	.nofile
	filename$ = Input$ ("What file do you want to open?  ")
	If filename$ = "" Then Goto skipfileopen 
	If FileType ("Game of life/" + filename$) = 0 
		Print "File does not exist" 
		Goto nofile
	End If 
	filein = ReadFile ("Game of life/" + filename$)
	For x = 1 To arrx -1
		For y = 1 To arry - 1
		dat = ReadByte (filein)
		
		arr (x,y,0) = dat ;ReadByte (filein)
		SeekFile (filein,s)
		s=s+1
		Next
	Next
	CloseFile filein
	.skipfileopen 
	CloseDir folder$
End Function 

Function savefile ()
	Delay 50
	FlushKeys 
	Local c = 0
	Local c2 = 0
	Local folder$
	For x = 0 To 200 
		filekeep$ (x) = ""
	Next
	If FileType ("Game of life") = 0 Then CreateDir "Game of life"
	If FileType ("Game of life") = 2 Then folder$ = ReadDir ("Game of life" )
	Repeat 
		file$ = NextFile (folder$) 
		If Right$ (file$,4) = ".txt" Or Right$ (file$,4) = ".mtx"
			filekeep$ (c) = file$ 
			c = c + 1
		End If 
		
	Until file$ = ""
	c2 = 0
	Cls
	Locate 0,0
	Repeat 
		Tex = filekeep$ (c2)
		Print tex
		c2 = c2 + 1
	Until c2 > c
	Print "To cancel save press enter."
	filename$ = Input$ ("What do you want to call the file?  ")
	If filename$ = "" Then Goto skipwrite
	If Right (filename$,4) <> ".txt" Or Right (filename$,4) <> ".mtx" Then filename$ = filename$ + ".mtx"
	fileout = WriteFile ("Game of life/" + filename$)
	For x = 1 To arrx -1
		For y = 1 To arry - 1
		WriteByte fileout,arr (x,y,0)
		s=s+1
		Next
	Next
	CloseFile fileout 
	.skipwrite 
	CloseDir folder$
End Function 

Function stoparr ()
	Delay 50
	If arrx > arrst And arry > arrst Then Dim arr (arrst,arrst,1)
	arry = arrst
	arrx = arrst

	For x = 1 To arrx -1
		For y = 1 To arry -1
			arr (x,y,0) = beg (x,y,0)
		Next
	Next
	pause = pause + 1
	count = 0
	
End Function 

Function startarr ()
	Delay 50
	If arrx > arrst And arry > arrst Then Dim arr (arrst,arrst,1)
	arry = arrst
	arrx = arrst
	For x = 1 To arrst -1
		For y = 1 To arrst -1
			beg (x,y,0) = arr (x,y,0)
		Next
	Next
	
End Function 

Function colourdefaults ()
	
	Delay 50
	cellred = 230
	cellgreen = 230
	cellblue = 230
	gridred = 200
	gridgreen = 200
	gridblue = 200
	bgred = 080
	bggreen = 080
	bgblue = 080
	If FileType ("Game of life/pref.txt") = 1 Then DeleteFile "Game of life/pref.txt"
	pref = WriteFile ("Game of life/pref.txt")
	WriteShort pref,cellred
	WriteShort pref,cellgreen
	WriteShort pref,cellblue
	WriteShort pref,gridred
	WriteShort pref,gridgreen
	WriteShort pref,gridblue
	WriteShort pref,bgred
	WriteShort pref,bggreen
	WriteShort pref,bgblue
	CloseFile pref 
	
End Function 

Function loadpref ()
	
	pref = ReadFile ("Game of life/pref.txt")
	cellred = ReadShort (pref)
	cellgreen = ReadShort (pref)
	cellblue = ReadShort (pref)
	gridred = ReadShort (pref)
	gridgreen = ReadShort (pref)
	gridblue = ReadShort (pref)
	bgred = ReadShort (pref)
	bggreen = ReadShort (pref)
	bgblue = ReadShort (pref)
	CloseFile pref
	
End Function 

Function savepref ()

	pref = WriteFile ("Game of life/pref.txt")
	WriteShort pref,cellred
	WriteShort pref,cellgreen
	WriteShort pref,cellblue
	WriteShort pref,gridred
	WriteShort pref,gridgreen
	WriteShort pref,gridblue
	WriteShort pref,bgred
	WriteShort pref,bggreen
	WriteShort pref,bgblue
	CloseFile pref 

End Function

Heliotrope

(Posted 2013) [#15]

Hi again guys,
With the screensaver idea, is there anything more that I have to do other than rename the .exe file to a .scr file?

Blitzplotter

(Posted 2016) [#16]

Just happened across this - nice work ;)