local random = map_random
local pits = {}

local function readLayoutFile(file)
	local layoutfile = read_file(file)

	local cleanData = ""
	for i=1, #layoutfile do
		local c = layoutfile:sub(i+1, i+1)
		if c == "#" or c == "-" then
			cleanData = cleanData .. c
		end
	end

	local matrix = {}
	for i=0, #cleanData-1 do
		local c = cleanData:sub(i, i)
		local col = i % 16
		local row = (i - col)/16
		local layout = 1 + (row - (row % 12))/12
		local row = row % 12
		if not matrix[layout] then matrix[layout] = {} end
		if not matrix[layout][col] then matrix[layout][col] = {} end
		if c == "#" then
			matrix[layout][col][row] = true
		else
			matrix[layout][col][row] = false
		end
	end

	return matrix;
end

local module = {}
function module.load_textures(map)
	local t_pit0 = add_texture(map, "Objects/Pit0.png")
	local t_pit1 = add_texture(map, "Objects/Pit1.png")
	local pit_yo = (random(5) + random(3)) * (16 * 2)

	pits = {
		center			= { t_pit0, t_pit1, 16, pit_yo + 16, false, false, false, true },
		top				= { t_pit0, t_pit1, 16, pit_yo, false, false, false, true },
		left			= { t_pit0, t_pit1, 0, pit_yo + 16, false, false, false, true },
		right			= { t_pit0, t_pit1, 32, pit_yo + 16, false, false, false, true },
		topleft			= { t_pit0, t_pit1, 0, pit_yo, false, false, false, true },
		topright		= { t_pit0, t_pit1, 32, pit_yo, false, false, false, true },
		innerleft		= { t_pit0, t_pit1, 80, pit_yo, false, false, false, true },
		innermid		= { t_pit0, t_pit1, 96, pit_yo, false, false, false, true },
		innerright		= { t_pit0, t_pit1, 112, pit_yo, false, false, false, true },
		topcrevice		= { t_pit0, t_pit1, 64, pit_yo, false, false, false, true },
		bottomcrevice	= { t_pit0, t_pit1, 64, pit_yo + 16, false, false, false, true },
	}
end

function module.add_pits_to_room(room)
	if CURRENT_LEVEL < 2 or random(5) ~= 1 then
		return false
	end

	local matrix = readLayoutFile("pitlayouts.dat")

	-- Chose a random layout
	matrix = matrix[random(#matrix)]
	for i=2,13 do
		for j=2,10 do
			if matrix[i][j] then
				room.decor[i][j] = nil
				if not matrix[i-1][j-1] and not matrix[i+1][j-1] and matrix[i-1][j] and matrix[i+1][j] and matrix[i][j-1] then
					room.tiles[i][j] = pits.innermid
				elseif not matrix[i-1][j-1] and matrix[i-1][j] and matrix[i][j-1] then
					room.tiles[i][j] = pits.innerleft
				elseif not matrix[i+1][j-1] and matrix[i+1][j] and matrix[i][j-1] then
					room.tiles[i][j] = pits.innerright
				elseif not matrix[i-1][j] and not matrix[i][j-1] and not matrix[i+1][j] then
					room.tiles[i][j] = pits.topcrevice
				elseif not matrix[i-1][j] and not matrix[i+1][j] then
					room.tiles[i][j] = pits.bottomcrevice
				elseif not matrix[i-1][j] and not matrix[i][j-1] then
					room.tiles[i][j] = pits.topleft
				elseif not matrix[i+1][j] and not matrix[i][j-1] then
					room.tiles[i][j] = pits.topright
				elseif not matrix[i-1][j] then
					room.tiles[i][j] = pits.left
				elseif not matrix[i+1][j] then
					room.tiles[i][j] = pits.right
				elseif not matrix[i][j-1] then
					room.tiles[i][j] = pits.top
				else
					room.tiles[i][j] = pits.center
				end
			end
		end
	end

	return true
end

return module