-- Item frames.

-- Hint:
-- If your item appears behind or too far in front of the item frame, add
--     _xdecor_itemframe_offset = <number>
-- to your item definition to fix it.

local itemframe, tmp = {}, {}
local S = minetest.get_translator("xdecor")
screwdriver = screwdriver or {}

-- Description of item frame node
local DESC_ITEM_FRAME = S("Item Frame")

local function remove_item(pos, node)
	local objs = minetest.get_objects_inside_radius(pos, 0.5)
	if not objs then return end

	for _, obj in pairs(objs) do
		local ent = obj:get_luaentity()
		if obj and ent and ent.name == "xdecor:f_item" then
			obj:remove() break
		end
	end
end

local facedir = {
	[0] = {x = 0,  y = 0, z = 1},
	      {x = 1,  y = 0, z = 0},
	      {x = 0,  y = 0, z = -1},
	      {x = -1, y = 0, z = 0}
}

local function update_item(pos, node)
	remove_item(pos, node)
	local meta = minetest.get_meta(pos)
	local itemstring = meta:get_string("item")
	local posad = facedir[node.param2]
	if not posad or itemstring == "" then return end

	local itemdef = ItemStack(itemstring):get_definition()
	local offset_plus = 0
	if itemdef and itemdef._xdecor_itemframe_offset then
		offset_plus = itemdef._xdecor_itemframe_offset
		offset_plus = math.min(6, math.max(-6, offset_plus))
	end
	local offset = (6.5+offset_plus)/16

	pos = vector.add(pos, vector.multiply(posad, offset))
	tmp.nodename = node.name
	tmp.texture = ItemStack(itemstring):get_name()

	local entity = minetest.add_entity(pos, "xdecor:f_item")
	local yaw = (math.pi * 2) - node.param2 * (math.pi / 2)
	entity:set_yaw(yaw)

	local timer = minetest.get_node_timer(pos)
	timer:start(15.0)
end

local function drop_item(pos, node)
	local meta = minetest.get_meta(pos)
	local item = meta:get_string("item")
	if item == "" then return end

	minetest.add_item(pos, item)
	meta:set_string("item", "")
	remove_item(pos, node)

	local timer = minetest.get_node_timer(pos)
	timer:stop()
end

function itemframe.set_infotext(meta)
	local itemstring = meta:get_string("item")
	local owner = meta:get_string("owner")
	if itemstring == "" then
		if owner ~= "" then
			meta:set_string("infotext",
				--~ Item frame infotext. @1 = item frame name, @2 = owner name (player)
				S("@1 (owned by @2)",
				--~ Block that can display an item
				DESC_ITEM_FRAME, owner))
		else
			meta:set_string("infotext", DESC_ITEM_FRAME)
		end
	else
		local itemstack = ItemStack(itemstring)
		local tooltip = itemstack:get_short_description()
		if tooltip == "" then
			tooltip = itemstack:get_name()
		end
		if itemstring == "" then
			tooltip = DESC_ITEM_FRAME
		end
		if owner ~= "" then
			meta:set_string("infotext", S("@1 (owned by @2)", tooltip, owner))
		else
			meta:set_string("infotext", tooltip)
		end
	end
end

function itemframe.after_place(pos, placer, itemstack)
	local meta = minetest.get_meta(pos)
	local name = placer:get_player_name()
	meta:set_string("owner", name)
	itemframe.set_infotext(meta)
end

function itemframe.timer(pos)
	local node = minetest.get_node(pos)
	local meta = minetest.get_meta(pos)
	local num = #minetest.get_objects_inside_radius(pos, 0.5)

	if num == 0 and meta:get_string("item") ~= "" then
		update_item(pos, node)
	end

	return true
end

function itemframe.rightclick(pos, node, clicker, itemstack)
	local meta = minetest.get_meta(pos)
	local player_name = clicker:get_player_name()
	local owner = meta:get_string("owner")
	local admin = minetest.check_player_privs(player_name, "protection_bypass")

	if not admin and (player_name ~= owner or not itemstack) then
		return itemstack
	end

	drop_item(pos, node)
	local itemstring = itemstack:take_item():to_string()
	meta:set_string("item", itemstring)
	itemframe.set_infotext(meta)
	update_item(pos, node)
	return itemstack
end

function itemframe.punch(pos, node, puncher)
	local meta = minetest.get_meta(pos)
	local player_name = puncher:get_player_name()
	local owner = meta:get_string("owner")
	local admin = minetest.check_player_privs(player_name, "protection_bypass")

	if admin or player_name == owner then
		drop_item(pos, node)
	end
end

function itemframe.dig(pos, player)
	if not player then return end
	local meta = minetest.get_meta(pos)
	local player_name = player and player:get_player_name()
	local owner = meta:get_string("owner")
	local admin = minetest.check_player_privs(player_name, "protection_bypass")

	return admin or player_name == owner
end

function itemframe.blast(pos)
	return
end

xdecor.register("itemframe", {
	description = DESC_ITEM_FRAME,
	--~ Item frame tooltip
	_tt_help = S("For presenting a single item"),
	groups = {choppy = 3, oddly_breakable_by_hand = 2, flammable = 3},
	is_ground_content = false,
	sounds = default.node_sound_wood_defaults(),
	on_rotate = screwdriver.disallow,
	sunlight_propagates = true,
	inventory_image = "xdecor_itemframe.png",
	node_box = xdecor.nodebox.slab_z(0.9375),
	tiles = {
		"xdecor_wood.png", "xdecor_wood.png", "xdecor_wood.png",
		"xdecor_wood.png", "xdecor_wood.png", "xdecor_itemframe.png"
	},
	after_place_node = itemframe.after_place,
	on_timer = itemframe.timer,
	on_rightclick = itemframe.rightclick,
	on_punch = itemframe.punch,
	can_dig = itemframe.dig,
	on_blast = itemframe.blast,
	on_destruct = function(pos)
		local node = minetest.get_node(pos)
		drop_item(pos, node)
	end,
	after_destruct = remove_item,
	_xdecor_itemframe_offset = -3.5,
})

minetest.register_entity("xdecor:f_item", {
	initial_properties = {
		visual = "wielditem",
		visual_size = {x = 0.33, y = 0.33},
		collisionbox = {0,0,0,0,0,0},
		pointable = false,
		physical = false,
		textures = {"air"},
	},
	on_activate = function(self, staticdata)
		local pos = self.object:get_pos()
		if minetest.get_node(pos).name ~= "xdecor:itemframe" then
			self.object:remove()
			return
		end

		if tmp.nodename and tmp.texture then
			self.nodename = tmp.nodename
			tmp.nodename = nil
			self.texture = tmp.texture
			tmp.texture = nil
		elseif staticdata and staticdata ~= "" then
			local data = staticdata:split(";")
			if data and data[1] and data[2] then
				self.nodename = data[1]
				self.texture = data[2]
			end
		end
		if self.texture then
			self.object:set_properties({
				textures = {self.texture}
			})
		end

		self.object:set_armor_groups({immortal=1})
	end,
	get_staticdata = function(self)
		if self.nodename and self.texture then
			return self.nodename .. ";" .. self.texture
		end

		return ""
	end,

	-- Minetest Game support: Prevent entity being pushed or damaged by TNT explosion
	on_blast = function()
		return false, false, {}
	end,
})

-- Recipes

minetest.register_craft({
	output = "xdecor:itemframe",
	recipe = {
		{"group:stick", "group:stick", "group:stick"},
		{"group:stick", "default:paper", "group:stick"},
		{"group:stick", "group:stick", "group:stick"}
	}
})

minetest.register_lbm({
	label = "Update itemframe infotexts",
	name = "xdecor:update_itemframe_infotexts",
	nodenames = {"xdecor:itemframe"},
	run_at_every_load = true,
	action = function(pos, node)
		local meta = minetest.get_meta(pos)
		itemframe.set_infotext(meta)
	end,
})