LÖVE

Code: Select all

local m = love.math
local value = m.noise(x*self.scale, y*self.scale, self.seed)
if value < 0.35 then --water
  self[x][y] = {type="water", tile = self.tiles["water"], color = {255, 255, 255}}
elseif value < 0.45 then --sand
  self[x][y] = {type="sand", tile = self.tiles["sand"], color = {255, 255, 255}}
elseif value < 0.6 then --ground
  self[x][y] = {type="ground", tile = self.tiles["ground"], color = {255, 255, 255}}
elseif value < 0.75 then --forest
  self[x][y] = {type="forest", tile = self.tiles["forest"], color = {255, 255, 255}}
else --mountain
  self[x][y] = {type="mountain", tile = self.tiles["mountain"], color = {255, 255, 255}}
end

Code: Select all

function love.load(arg)

	function GenerateWorld()
		World = {}

		for X = 1, 160 do
			World[X] = {}
			for Y = 1, 90 do
				local Value = randomInt(0, 100)
				if Value < 45 then
					World[X][Y] = {Alive = true}
				else
					World[X][Y] = {Alive = false}
				end
			end
		end
		
		WorldTimer = 0
		WorldUpdateCounter = 0
	end
	
	WorldTimer = 0
	WorldTimerLimit = 0.001
	WorldUpdateCounter = 0
	WorldUpdateLimit = 2
	
	GenerateWorld()

end

function love.update(dt)

	if WorldUpdateCounter ~= WorldUpdateLimit and WorldTimer >= WorldTimerLimit then
		for X = 1, #World do
			for Y = 1, #World[X] do
				local Tile = World[X][Y]
				local NeighborsAlive = 0
				for I = 0, 9 do
					if I ~= 4 then
						XI = math.floor(I%3) - 1
						YI = math.floor(I/3) - 1
						
						if World[X+XI] and World[X+XI][Y+YI] and World[X+XI][Y+YI].Alive then
							NeighborsAlive = NeighborsAlive + 1
						end
					end
				end
				
				if Tile.Alive and NeighborsAlive < 3 then
					World[X][Y].Alive = false
				end
				if not Tile.Alive and NeighborsAlive > 5 then
					World[X][Y].Alive = true
				end
			end
		end
		
		WorldTimer = WorldTimer - WorldTimerLimit
		WorldUpdateCounter = WorldUpdateCounter + 1
	end
	
	WorldTimer = WorldTimer + dt

end

function love.render(dt)

	for X = 1, #World do
		for Y = 1, #World[X] do
			local Tile = World[X][Y]
			if Tile.Alive then
				graphics.setColor(255, 255, 255)
			else
				graphics.setColor(100, 100, 100)
			end
			graphics.rectangle("fill", (X-1) * 8, (Y-1) * 8, 8, 8)
		end
	end

end

function love.keypressed(key)

	if key == " " then
		GenerateWorld()
	end

end

Code: Select all

if Tile.Alive and NeighborsAlive <= 3 then
               World[X][Y].Alive = false
            end
            if not Tile.Alive and NeighborsAlive >= 5 then
               World[X][Y].Alive = true
            end