Scratch

I'm currently attempting  simulation of the game of life, and what I have so far isn't detecting when it has numbers.

when gf clicked
set [paused v] to [yes]
clear
hide
delete (all v) of [oldgrid v]
delete (all v) of [newgrid v]
set [pixradius v] to [160]
set [cellradius v] to [4]
set [placementscale v] to (((2) * (pixradius)) / ((2) * (cellradius)))
repeat (((cellradius) * (cellradius)) * (4))  
add [0] to [oldgrid v]
add [0] to [newgrid v]
end
forever  
if <(paused) = [yes]>
set [out of bounds v] to [no]
go to x: (((round (((mouse x) + ((placementscale) / (2))) / (placementscale))) * (placementscale)) - ((placementscale) / (2))) y: ((((round (((mouse y) + ((placementscale) / (2))) / (placementscale))) * (placementscale)) - ((placementscale) / (2))) + (1))
if <( [abs v] of (x position)) > (pixradius)> 
set [out of bounds v] to [yes]
if <(x position) > (pixradius)>
set x to (pixradius)
else
set x to ((0) - (pixradius))
end
end
if <( [abs v] of (y position)) > ((pixradius) + (1))> 
set [out of bounds v] to [yes]
if <(y position) > ((pixradius) + (1))>
set y to ((pixradius) + (1))
else
set y to ((0) - (pixradius))
end
end
if <mouse down?> 
if <(out of bounds) = [no]> 
if <(round ((((round (((x position) + ((placementscale) / (2))) / (placementscale))) * (placementscale)) - ((placementscale) / (2))) / (placementscale))) > [0]>
set [mouse column v] to ((4) + (round ((((round (((x position) + ((placementscale) / (2))) / (placementscale))) * (placementscale)) - ((placementscale) / (2))) / (placementscale))))
else
set [mouse column v] to ((5) + (round ((((round (((x position) + ((placementscale) / (2))) / (placementscale))) * (placementscale)) - ((placementscale) / (2))) / (placementscale))))
end
set [mouse row v] to ( [abs v] of ((4) - (round (((((round (((mouse y) + ((placementscale) / (2))) / (placementscale))) * (placementscale)) - ((placementscale) / (2))) + (1)) / (placementscale)))))
if <touching color [#000008]?>
switch to costume [background2 v]
replace item ((( [sqrt v] of (length of [oldgrid v] )) * (mouse row)) + (mouse column)) of [oldgrid v] with [0]
else
switch to costume [background1 v]
replace item ((( [sqrt v] of (length of [oldgrid v] )) * (mouse row)) + (mouse column)) of [oldgrid v] with [1]
end
stamp
wait until <not <mouse down?>>
end
end
else
set [currentrowcheck v] to [0]
set [currentcolumncheck v] to [1]
repeat (length of [oldgrid v] )  
set [temporaryneighborvalue v] to [0]
if <(currentrowcheck) = [0]>
set [tempscanrow v] to (( [sqrt v] of (length of [oldgrid v] )) - (1))
else
set [tempscanrow v] to ((currentrowcheck) + (1))
end
if <(currentcolumncheck) = [1]>
set [tempscancolumn v] to ( [sqrt v] of (length of [oldgrid v] ))
else
set [tempscancolumn v] to ((currentcolumncheck) - (1))
end
if <(item (((tempscanrow) * ( [sqrt v] of (length of [oldgrid v] ))) + (tempscancolumn)) of [newgrid v] ) = [1]> 
change [temporaryneighborvalue v] by (1)
end
set [tempscancolumn v] to (currentcolumncheck)
if <(item (((tempscanrow) * ( [sqrt v] of (length of [oldgrid v] ))) + (tempscancolumn)) of [newgrid v] ) = [1]> 
change [temporaryneighborvalue v] by (1)
end
if <(currentcolumncheck) = ( [sqrt v] of (length of [oldgrid v] ))>
set [tempscancolumn v] to [1]
else
set [tempscancolumn v] to ((currentcolumncheck) + (1))
end
if <(item (((tempscanrow) * ( [sqrt v] of (length of [oldgrid v] ))) + (tempscancolumn)) of [newgrid v] ) = [1]> 
change [temporaryneighborvalue v] by (1)
end
set [tempscanrow v] to (currentrowcheck)
end
end
end

Last edited by zubblewu (2012-10-28 19:06:22)