-- Minetest 0.4 mod: doors
-- See README.txt for licensing and other information.
--------------------------------------------------------------------------------

local WALLMX = 3
local WALLMZ = 5
local WALLPX = 2
local WALLPZ = 4

--------------------------------------------------------------------------------

minetest.register_alias('door', 'doors:door_wood')
minetest.register_alias('door_wood', 'doors:door_wood')

minetest.register_node( 'doors:door_wood', {
	description         = 'Wooden Door',
	drawtype            = 'signlike',
	tiles         		= { 'door_wood.png' },
	inventory_image     = 'door_wood.png',
	wield_image         = 'door_wood.png',
	paramtype2          = 'wallmounted',
	selection_box       = { type = 'wallmounted' },
	groups              = { choppy=2, dig_immediate=2 },
})

minetest.register_craft( {
	output              = 'doors:door_wood',
	recipe = {
		{ 'default:wood', 'default:wood' },
		{ 'default:wood', 'default:wood' },
		{ 'default:wood', 'default:wood' },
	},
})

minetest.register_craft({
	type = 'fuel',
	recipe = 'doors:door_wood',
	burntime = 30,
})

minetest.register_node( 'doors:door_wood_a_c', {
	Description         = 'Top Closed Door',
	drawtype            = 'signlike',
	tiles         		= { 'door_wood_a.png' },
	inventory_image     = 'door_wood_a.png',
	paramtype           = 'light',
	paramtype2          = 'wallmounted',
	walkable            = true,
	selection_box       = { type = "wallmounted", },
	groups              = { choppy=2, dig_immediate=2 },
	legacy_wallmounted  = true,
	drop                = 'doors:door_wood',
})

minetest.register_node( 'doors:door_wood_b_c', {
	Description         = 'Bottom Closed Door',
	drawtype            = 'signlike',
	tiles         		= { 'door_wood_b.png' },
	inventory_image     = 'door_wood_b.png',
	paramtype           = 'light',
	paramtype2          = 'wallmounted',
	walkable            = true,
	selection_box       = { type = "wallmounted", },
	groups              = { choppy=2, dig_immediate=2 },
	legacy_wallmounted  = true,
	drop                = 'doors:door_wood',
})

minetest.register_node( 'doors:door_wood_a_o', {
	Description         = 'Top Open Door',
	drawtype            = 'signlike',
	tiles         		= { 'door_wood_a_r.png' },
	inventory_image     = 'door_wood_a_r.png',
	paramtype           = 'light',
	paramtype2          = 'wallmounted',
	walkable            = false,
	selection_box       = { type = "wallmounted", },
	groups              = { choppy=2, dig_immediate=2 },
	legacy_wallmounted  = true,
	drop                = 'doors:door_wood',
})

minetest.register_node( 'doors:door_wood_b_o', {
	Description         = 'Bottom Open Door',
	drawtype            = 'signlike',
	tiles         		= { 'door_wood_b_r.png' },
	inventory_image     = 'door_wood_b_r.png',
	paramtype           = 'light',
	paramtype2          = 'wallmounted',
	walkable            = false,
	selection_box       = { type = "wallmounted", },
	groups              = { choppy=2, dig_immediate=2 },
	legacy_wallmounted  = true,
	drop                = 'doors:door_wood',
})

--------------------------------------------------------------------------------

local round = function( n )
	if n >= 0 then
		return math.floor( n + 0.5 )
	else
		return math.ceil( n - 0.5 )
	end
end

local on_door_placed = function( pos, node, placer )
	if node.name ~= 'doors:door_wood' then return end

	local upos = { x = pos.x, y = pos.y - 1, z = pos.z }
	local apos = { x = pos.x, y = pos.y + 1, z = pos.z }
	local und = minetest.env:get_node( upos )
	local abv = minetest.env:get_node( apos )

	local dir = placer:get_look_dir()

	if     round( dir.x ) == 1  then
		newparam = WALLMX
	elseif round( dir.x ) == -1 then
		newparam = WALLPX
	elseif round( dir.z ) == 1  then
		newparam = WALLMZ
	elseif round( dir.z ) == -1 then
		newparam = WALLPZ
	end

	if und.name == 'air' then
		minetest.env:add_node( pos,  { name = 'doors:door_wood_a_c', param2 = newparam } )
		minetest.env:add_node( upos, { name = 'doors:door_wood_b_c', param2 = newparam } )
	elseif abv.name == 'air' then
		minetest.env:add_node( pos,  { name = 'doors:door_wood_b_c', param2 = newparam } )
		minetest.env:add_node( apos, { name = 'doors:door_wood_a_c', param2 = newparam } )
	else
		minetest.env:remove_node( pos )
		placer:get_inventory():add_item( "main", 'doors:door_wood' )
		minetest.chat_send_player( placer:get_player_name(), 'not enough space' )
	end
end

local on_door_punched = function( pos, node, puncher )
	if string.find( node.name, 'doors:door_wood' ) == nil then return end

	local upos = { x = pos.x, y = pos.y - 1, z = pos.z }
	local apos = { x = pos.x, y = pos.y + 1, z = pos.z }

	if string.find( node.name, '_c', -2 ) ~= nil then
		if     node.param2 == WALLPX then
			newparam = WALLMZ
		elseif node.param2 == WALLMZ then
			newparam = WALLMX
		elseif node.param2 == WALLMX then
			newparam = WALLPZ
		elseif node.param2 == WALLPZ then
			newparam = WALLPX
		end
	elseif string.find( node.name, '_o', -2 ) ~= nil then
		if     node.param2 == WALLMZ then
			newparam = WALLPX
		elseif node.param2 == WALLMX then
			newparam = WALLMZ
		elseif node.param2 == WALLPZ then
			newparam = WALLMX
		elseif node.param2 == WALLPX then
			newparam = WALLPZ
		end
	end

	if ( node.name == 'doors:door_wood_a_c' ) then
		minetest.env:add_node( pos,  { name = 'doors:door_wood_a_o', param2 = newparam } )
		minetest.env:add_node( upos, { name = 'doors:door_wood_b_o', param2 = newparam } )

	elseif ( node.name == 'doors:door_wood_b_c' ) then
		minetest.env:add_node( pos,  { name = 'doors:door_wood_b_o', param2 = newparam } )
		minetest.env:add_node( apos, { name = 'doors:door_wood_a_o', param2 = newparam } )

	elseif ( node.name == 'doors:door_wood_a_o' ) then
		minetest.env:add_node( pos,  { name = 'doors:door_wood_a_c', param2 = newparam } )
		minetest.env:add_node( upos, { name = 'doors:door_wood_b_c', param2 = newparam } )

	elseif ( node.name == 'doors:door_wood_b_o' ) then
		minetest.env:add_node( pos,  { name = 'doors:door_wood_b_c', param2 = newparam } )
		minetest.env:add_node( apos, { name = 'doors:door_wood_a_c', param2 = newparam } )

	end
end

local on_door_digged = function( pos, node, digger )
	local upos = { x = pos.x, y = pos.y - 1, z = pos.z }
	local apos = { x = pos.x, y = pos.y + 1, z = pos.z }

	if ( node.name == 'doors:door_wood_a_c' ) or ( node.name == 'doors:door_wood_a_o' ) then
		minetest.env:remove_node( upos )
	elseif ( node.name == 'doors:door_wood_b_c' ) or ( node.name == 'doors:door_wood_b_o' ) then
		minetest.env:remove_node( apos )
	end
end

--------------------------------------------------------------------------------

minetest.register_on_placenode( on_door_placed )
minetest.register_on_punchnode( on_door_punched )
minetest.register_on_dignode( on_door_digged )

--------------------------------------------------------------------------------