tilemap.lua

-- Tile map related utility functions
--
-- Tile maps are tables of structure:
--  name[x][y]
--
-- The values of each cell define the fixed features at that position on the map.
--
-- These values are known as map tile types.

maptiletypes = {
			[0]='rock',
			[1]='floor',
			[2]='closed door',
			[3]='open door',
			['T']='tree',
			['W']='water',
			['=']='bridge_horizontal'
	       }

-- Reference table of direction offsets
--  (Order is left, right, up, down, NW, SW, NE, SE)
directions   = {
			{0,-1},
			{0,1},
			{-1,0},
			{1,0},
			{-1,-1},
			{-1,1},
			{1,-1},
			{1,1}
	       }

directions_by_name = {
			left=1,
			right=2,
			up=3,
			down=4,
			upleft=5,
			downleft=6,
			upright=7,
			downright=8
		     }

opposite_directions = { 2,1,4,3,8,7,6,5 }


-- New tilemap
function tilemap_new(width,height,defaultmaptiletype)
	width = width or resolutionTilesX
	width = math.floor(width)
	height = height or resolutionTilesY
	height = math.floor(height)
	defaultmaptiletype = defaultmaptiletype or 0
	local m={}
	for x=1,width,1 do
		m[x] = {}
		for y=1,height,1 do
			m[x][y] = defaultmaptiletype
		end
	end
	return m
end

-- Find all instances of a specific maptiletype on a tilemap
function tilemap_find_maptiletype(tilemap,maptiletype)
	local results = {}
	for x=1,#tilemap,1 do
		for y=1,#tilemap[1],1 do
			if tilemap[x][y] == maptiletype then
				table.insert(results,{x=x,y=y})
			end
		end
	end
	return results
end

-- Fill a rectangle on the tilemap with a certain maptiletype
function tilemap_draw_rectangle(tilemap,sx,sy,width,height,maptiletype)
	if tilemap == nil then
		print("ERROR: tilemap_draw_rectangle(): Passed a nil tilemap.")
		--os.exit()
	end
	--print("tilemap_draw_rectangle() passed tilemap of dimensions " .. #tilemap .. "x" .. #tilemap[1] .. ", sx/sy = " .. sx .. "/" .. sy .. ", w/h = " .. width .. "/" .. height .. ", and maptiletype = '" .. maptiletype .. "'")
	sx = math.floor(sx)
	sy = math.floor(sy)
	width = math.floor(width)
	height = math.floor(height)
	for x=sx,sx+width,1 do
		for y=sy,sy+width,1 do
			if x>0 and y>0 and x<#tilemap and tilemap[1] ~= nil and y<#tilemap[1] then
				--print("tilemap_draw_rectangle() attempting to draw '" .. maptiletype .. "' at position " .. x .. "/" .. y .. " (vs. w/h " .. width .. "/" .. height .. ")")
				tilemap[x][y] = maptiletype
			end
		end
	end

	return tilemap
end


-- Fill a circle on the tilemap with a certain maptiletype
function tilemap_draw_circle(tilemap,sx,sy,radius,maptiletype)
	--[[
	for (i=max(0, x - radius - 1); i < max(DCOLS, x + radius); i++) {
		for (j=max(0, y - radius - 1); j < max(DROWS, y + radius); j++) {
			if ((i-x)*(i-x) + (j-y)*(j-y) < radius * radius + radius) {
				grid[i][j] = value;
			}
		}
	}
	--]]
	for i=math.max(0,sx-radius-1), math.max(#tilemap, sx+radius), 1 do
		for j=math.max(0,sy-radius-1), math.max(#tilemap[1],sy+radius),1 do
			if ((i-sx)*(i-sx) + (j-sy)*(j-sy)) < (radius*radius + radius) then
				tilemap[i][j] = maptiletype
			end
		end
	end

	return tilemap
end


-- Fill
function tilemap_fill(tilemap,maptiletype)
	for x=1,#tilemap,1 do
		for y=1,#tilemap[1],1 do
			tilemap[x][y] = maptiletype
		end
	end
	return tilemap
end


-- Check the validity of a set of coordinates given a specific tilemap
function tilemap_coordinates_valid(tilemap,x,y)
	if x == nil or y == nil then
		return false
	elseif math.floor(x) == x and math.floor(y) == y and x > 0 and y > 0 and x < #tilemap and y < #tilemap[1] then
		if tilemap[x] ~= nil and tilemap[x][y] ~= nil then
			return true
		end
	end
	return false
end


-- Check the direction of a potential doorway.
--  If the indicated tile is a wall on the room stored in grid, and it could be the site of
--  a door out of that room, then return the outbound direction that the door faces.
--  Otherwise, return nil ("no direction").
function tilemap_door_direction(tilemap,x,y)

	-- Input validation
	x = math.floor(x)
	y = math.floor(y)
	if not tilemap_coordinates_valid(tilemap,x,y) then
		print("ERROR: tilemap_door_direction() passed invalid tilemap x/y coordinates: " .. x .. "/" .. y)
		return nil
	end
	
	-- If the square is something other than rock, it's already occupied, and we
	-- return a nil value to represent no direction
	if tilemap[x][y] ~= 0 then
		return nil
	end

	-- for the plain four directions (left, right, up, down)...
	for dir=1, 4, 1 do
--[[
tilemap_draw_rectangle() attempting to draw '1' at position 42/15 (vs. w/h 5/4)
Error: tilemap.lua:145: attempt to perform arithmetic on a nil value
stack traceback:
    tilemap.lua:145: in function 'tilemap_door_direction'
    luaBrogueArchitect.lua:473: in function 'mapgen_broguestyle_attach_rooms'
    luaBrogueArchitect.lua:38: in function 'mapgen_broguestyle'
--]]
--	print("tilemap_door_direction(): dir is " .. dir .. " and #directions is " .. #directions)
		-- calculate coordinate offsets for adjacent tiles
		newx = x + directions[dir][1]
		newy = y + directions[dir][2]
		oppx = x - directions[dir][1]
		oppy = y - directions[dir][2]
		-- if both sets of coordinates lie within the map and the
		-- opposite coordinate is also floor (ie. standable)...
		if tilemap_coordinates_valid(oppx,oppy) and tilemap_coordinates_valid(newx,newy) and tilemap[oppx][oppy] == 1 then
			-- we have a result
			return dir
		end
	end

	return nil
end


-- Get the opposite of a given direction
function tilemap_opposite_direction(numeric_direction)
	if opposite_directions[numeric_direction] ~= nil then
		return opposite_directions[numeric_direction]
	else
		if directions_by_name[numeric_direction] ~= nil then
			return opposite_directions[directions_by_name[numeric_directions]]
		end
	end
end


-- Output a textual representation of a tilemap
--  (Note: Multi-character tiletype values will corrupt alignment)
function tilemap_show(tilemap,title)
	title = title or ''
	print("================================ " .. title .. " ============================================================")
	for y=1,#tilemap[1],1 do -- y is 29
		local line = ''
		for x=1,#tilemap,1 do -- x is 79
			if tilemap[x][y] ~= nil then
				line = line .. tilemap[x][y]
			end
		end
		print(line .. " = line #" .. y)
	end
	print("tilemap supplied was " .. #tilemap .. " (columns/first dimension) x " .. #tilemap[1] .. " (rows/second)")
	print("============================================================================================================")
end

function tilemap_show_cute(tilemap,title)
	local newtilemap = deepcopy(tilemap)
	for y=1,#tilemap[1],1 do
		for x=1,#tilemap,1 do
			if newtilemap[x][y] == 1 then 
				newtilemap[x][y] = '#'
			else
				newtilemap[x][y] = ' '
			end
		end
	end
	tilemap_show(newtilemap,title)
end