-- Node definitions for Homedecor doors

-- Boilerplate to support localized strings if intllib mod is installed.
local S
if (minetest.get_modpath("intllib")) then
    dofile(minetest.get_modpath("intllib").."/intllib.lua")
    S = intllib.Getter(minetest.get_current_modname())
else
    S = function ( s ) return s end
end

local sides = {"left", "right"}
local rsides = {"right", "left"}

-- cheater's method of detecting if default doors are right-click-to-open:
-- default.generate_ore() was exposed to the modding API one day prior to the
-- right-click thing.

local use_rightclick = type(default.generate_ore)

for i in ipairs(sides) do
	local side = sides[i]
	local rside = rsides[i]

	for j in ipairs(homedecor_door_models) do
		local doorname =		homedecor_door_models[j][1]
		local doordesc =		homedecor_door_models[j][2]
		local nodeboxes_top = nil
		local nodeboxes_bottom = nil

		if side == "left" then
			nodeboxes_top =	homedecor_door_models[j][3]
			nodeboxes_bottomtom =	homedecor_door_models[j][4]
		else
			nodeboxes_top =	homedecor_door_models[j][5]
			nodeboxes_bottomtom =	homedecor_door_models[j][6]
		end

		local tiles_top = {
				"homedecor_door_"..doorname.."_tb.png",
				"homedecor_door_"..doorname.."_tb.png",
				"homedecor_door_"..doorname.."_lrt.png",
				"homedecor_door_"..doorname.."_lrt.png",
				"homedecor_door_"..doorname.."_"..rside.."_top.png",
				"homedecor_door_"..doorname.."_"..side.."_top.png",
				}

		local tiles_bottom = {
				"homedecor_door_"..doorname.."_tb.png",
				"homedecor_door_"..doorname.."_tb.png",
				"homedecor_door_"..doorname.."_lrb.png",
				"homedecor_door_"..doorname.."_lrb.png",
				"homedecor_door_"..doorname.."_"..rside.."_bottom.png",
				"homedecor_door_"..doorname.."_"..side.."_bottom.png",
				}

		local selectboxes_top = {
				type = "fixed",
				fixed = { -0.5, -1.5, 6/16, 0.5, 0.5, 8/16}
			}

		local selectboxes_bottom = {
				type = "fixed",
				fixed = { -0.5, -0.5, 6/16, 0.5, 1.5, 8/16}
			}

		if use_rightclick == nil then -- register the version that uses on_punch

			minetest.register_node("homedecor:door_"..doorname.."_top_"..side, {
				description = doordesc.." "..S("(Top Half, %s-opening)"):format(side),
				drawtype = "nodebox",
				tiles = tiles_top,
				paramtype = "light",
				paramtype2 = "facedir",
				groups = {snappy=3, not_in_creative_inventory=1},
				sounds = default.node_sound_wood_defaults(),
				walkable = true,
				selection_box = selectboxes_top,
				node_box = {
					type = "fixed",
					fixed = nodeboxes_top
				},
				drop = "homedecor:door_"..doorname.."_bottom_"..side,
				after_dig_node = function(pos, oldnode, oldmetadata, digger)
					if minetest.env:get_node({x=pos.x, y=pos.y-1, z=pos.z}).name == "homedecor:door_"..doorname.."_bottom_"..side then
						minetest.env:remove_node({x=pos.x, y=pos.y-1, z=pos.z})
					end
				end,
				on_punch = function(pos, node, puncher)
					homedecor_flip_door({x=pos.x, y=pos.y-1, z=pos.z}, node, puncher, doorname, side)
				end
			})

			minetest.register_node("homedecor:door_"..doorname.."_bottom_"..side, {
				description = doordesc.." "..S("(%s-opening)"):format(side),
				drawtype = "nodebox",
				tiles = tiles_bottom,
				inventory_image = "homedecor_door_"..doorname.."_"..side.."_inv.png",
				paramtype = "light",
				paramtype2 = "facedir",
				groups = {snappy=3},
				sounds = default.node_sound_wood_defaults(),
				walkable = true,
				selection_box = selectboxes_bottom,
				node_box = {
					type = "fixed",
					fixed = nodeboxes_bottomtom
				},
				after_dig_node = function(pos, oldnode, oldmetadata, digger)
					if minetest.env:get_node({x=pos.x, y=pos.y+1, z=pos.z}).name == "homedecor:door_"..doorname.."_top_"..side then
						minetest.env:remove_node({x=pos.x, y=pos.y+1, z=pos.z})
					end
				end,
				on_punch = function(pos, node, puncher)
					homedecor_flip_door(pos, node, puncher, doorname, side)
				end,
				on_place = function(itemstack, placer, pointed_thing)
					return homedecor_place_door(itemstack, placer, pointed_thing, doorname, side)
				end,
			})

		else	-- register the version that uses on_rightclick

			minetest.register_node("homedecor:door_"..doorname.."_top_"..side, {
				description = doordesc.." "..S("(Top Half, %s-opening)"):format(side),
				drawtype = "nodebox",
				tiles = tiles_top,
				paramtype = "light",
				paramtype2 = "facedir",
				groups = {snappy=3, not_in_creative_inventory=1},
				sounds = default.node_sound_wood_defaults(),
				walkable = true,
				selection_box = selectboxes_top,
				node_box = {
					type = "fixed",
					fixed = nodeboxes_top
				},
				drop = "homedecor:door_"..doorname.."_bottom_"..side,
				after_dig_node = function(pos, oldnode, oldmetadata, digger)
					if minetest.env:get_node({x=pos.x, y=pos.y-1, z=pos.z}).name == "homedecor:door_"..doorname.."_bottom_"..side then
						minetest.env:remove_node({x=pos.x, y=pos.y-1, z=pos.z})
					end
				end,
				on_rightclick = function(pos, node, clicker)
					homedecor_flip_door({x=pos.x, y=pos.y-1, z=pos.z}, node, clicker, doorname, side)
				end
			})

			minetest.register_node("homedecor:door_"..doorname.."_bottom_"..side, {
				description = doordesc.." "..S("(%s-opening)"):format(side),
				drawtype = "nodebox",
				tiles = tiles_bottom,
				inventory_image = "homedecor_door_"..doorname.."_"..side.."_inv.png",
				paramtype = "light",
				paramtype2 = "facedir",
				groups = {snappy=3},
				sounds = default.node_sound_wood_defaults(),
				walkable = true,
				selection_box = selectboxes_bottom,
				node_box = {
					type = "fixed",
					fixed = nodeboxes_bottomtom
				},
				after_dig_node = function(pos, oldnode, oldmetadata, digger)
					if minetest.env:get_node({x=pos.x, y=pos.y+1, z=pos.z}).name == "homedecor:door_"..doorname.."_top_"..side then
						minetest.env:remove_node({x=pos.x, y=pos.y+1, z=pos.z})
					end
				end,
				on_place = function(itemstack, placer, pointed_thing)

					local node=minetest.env:get_node(pointed_thing.under)
					if not minetest.registered_nodes[node.name].on_rightclick then
						return homedecor_place_door(itemstack, placer, pointed_thing, doorname, side)
					else 
						minetest.registered_nodes[node.name].on_rightclick(pointed_thing.under, node, placer)
					end
				end,
				on_rightclick = function(pos, node, clicker)
					homedecor_flip_door(pos, node, clicker, doorname, side)
				end
			})
		end
	end
end

function homedecor_place_door(itemstack, placer, pointed_thing, name, side)
	local pos = pointed_thing.above
	if homedecor_node_is_owned(pointed_thing.under, placer) == false then

		local nodename = minetest.env:get_node(pointed_thing.under).name
		local field = minetest.registered_nodes[nodename].on_rightclick

		if field == nil then
			fdir = minetest.dir_to_facedir(placer:get_look_dir())
			if minetest.env:get_node({x=pos.x, y=pos.y+1, z=pos.z}).name ~= "air" then
				minetest.chat_send_player( placer:get_player_name(), S('Not enough vertical space to place a door!') )
				return
			end
			minetest.env:add_node({x=pos.x, y=pos.y+1, z=pos.z}, { name = "homedecor:door_"..name.."_top_"..side, param2=fdir})
			minetest.env:add_node(pos, { name = "homedecor:door_"..name.."_bottom_"..side, param2=fdir})
			itemstack:take_item()
			return itemstack
		end
		return minetest.item_place(itemstack, placer, pointed_thing)
	end
end

function homedecor_flip_door(pos, node, player, name, side)
	local rside = nil
	local nfdir = nil
	if side == "left" then
		rside = "right"
		nfdir=node.param2 - 1
		if nfdir < 0 then nfdir = 3 end
	else
		rside = "left"
		nfdir=node.param2 + 1
		if nfdir > 3 then nfdir = 0 end
	end
	minetest.env:add_node({x=pos.x, y=pos.y+1, z=pos.z}, { name =  "homedecor:door_"..name.."_top_"..rside, param2=nfdir})
	minetest.env:add_node(pos, { name = "homedecor:door_"..name.."_bottom_"..rside, param2=nfdir})
end