--GUI for collected items
item_collect_gui = {}
--Add GUI table on join player
minetest.register_on_joinplayer(function(player)
	item_collect_gui[player:get_player_name()] = {}
	item_collect_gui[player:get_player_name()]["counter"] = 1 --starts at one so positioning works correctly
	item_collect_gui[player:get_player_name()]["items"] = {}
end)
local gui_collection = function(player,item)
	--local variables
	local name     = player:get_player_name()
	local count    = ItemStack(item):get_count()
	local itemname = ItemStack(item):get_name()
	local description = minetest.registered_items[itemname].description
	--check to see if there was already a hud with a count
	local oldcount = 0
	if item_collect_gui[name]["items"][itemname] ~= nil then
		oldcount = item_collect_gui[name]["items"][itemname]["count"] 
	end
	--update or add the hud
	local id = {}
	if item_collect_gui[name]["items"][itemname] ~= nil then
		player:hud_change(item_collect_gui[name]["items"][itemname]["id"], "text", description.." "..(count + oldcount))
		item_collect_gui[name]["items"][itemname]["age"] = 0
	else
		id = player:hud_add({
					hud_elem_type = "text",
					position = {x = 0.5, y =(item_collect_gui[player:get_player_name()]["counter"]*2)/100},
					scale = {
						x = -100,
						y = -100
					},
				text = description.." "..(count + oldcount),
				})
		--add elements to hud table
		if item_collect_gui[name]["items"][itemname] == nil then
			item_collect_gui[name]["items"][itemname] = {}
			item_collect_gui[player:get_player_name()]["counter"] = item_collect_gui[player:get_player_name()]["counter"] + 1
		end
		item_collect_gui[name]["items"][itemname]["id"] = id
		item_collect_gui[name]["items"][itemname]["age"] = 0
		item_collect_gui[name]["items"][itemname]["name"] = itemname
	end

	item_collect_gui[name]["items"][itemname]["count"] = count + oldcount
end
--Updating the age of each hud element along with deleting old huds and shifting up text on deletion
local update_collection_gui = function(player,dtime)
	local name = player:get_player_name()
	local max_age = 3
	local update = false
	--add gui time + remove expired gui
	if item_collect_gui[name] ~= nil then
		for index,value in pairs(item_collect_gui[name]["items"]) do
			value["age"] = value["age"] + dtime
			if value["age"] > max_age then
				player:hud_remove(item_collect_gui[name]["items"][value["name"]]["id"])
				item_collect_gui[name]["items"][value["name"]] = nil
				update = true
			end
		end
	end
	--shift all table items up
	--change background size
	local count = 1
	if update == true then
		if item_collect_gui[name] ~= nil then
			for index,value in pairs(item_collect_gui[name]["items"]) do
				player:hud_change(item_collect_gui[name]["items"][value["name"]]["id"],"position",{x = 0.5, y =(count*2)/100})
				  count = count + 1
			end
		end
		item_collect_gui[player:get_player_name()]["counter"] = count
	end
end
--Item collection
minetest.register_globalstep(function(dtime)
	--basic settings
	local age                   = 1 --how old an item has to be before collecting
	local radius_magnet         = 2.5 --radius of item magnet
	local radius_collect        = 0.2 --radius of collection
	local player_collect_height = 1.6 --added to their pos y value
	local gui                   = true --Show what items are collected
	for _,player in ipairs(minetest.get_connected_players()) do
		if player:get_hp() > 0 then
			local pos = player:getpos()
			local inv = player:get_inventory()
			if gui == true then
				update_collection_gui(player,dtime)
			end
			--collection
			for _,object in ipairs(minetest.env:get_objects_inside_radius({x=pos.x,y=pos.y + player_collect_height,z=pos.z}, radius_collect)) do
				if not object:is_player() and object:get_luaentity() and object:get_luaentity().name == "__builtin:item" then
					if object:get_luaentity().age > age then
						if inv and inv:room_for_item("main", ItemStack(object:get_luaentity().itemstring)) then
							
							if object:get_luaentity().itemstring ~= "" then
								inv:add_item("main", ItemStack(object:get_luaentity().itemstring))
								minetest.sound_play("item_drop_pickup", {
									pos = pos,
									max_hear_distance = 100,
									gain = 10.0,
								})
								if gui == true then
									gui_collection(player,object:get_luaentity().itemstring)
								end
								object:get_luaentity().itemstring = ""
								object:remove()
							end
							
							
						end
					end
				end
			end
			--magnet
			for _,object in ipairs(minetest.env:get_objects_inside_radius({x=pos.x,y=pos.y + player_collect_height,z=pos.z}, radius_magnet)) do
				if not object:is_player() and object:get_luaentity() and object:get_luaentity().name == "__builtin:item" then
					if object:get_luaentity().age > age then
						if inv and inv:room_for_item("main", ItemStack(object:get_luaentity().itemstring)) then
							local pos1 = pos
							local pos2 = object:getpos()
							local vec = {x=pos1.x-pos2.x, y=(pos1.y+player_collect_height)-pos2.y, z=pos1.z-pos2.z}
							vec.x = pos2.x + (vec.x/2)
							vec.y = pos2.y + (vec.y/2)
							vec.z = pos2.z + (vec.z/2)
							object:moveto(vec)
							object:get_luaentity().physical_state = false
							object:get_luaentity().object:set_properties({
								physical = false
							})
						end
					end
				end
			end
		end
	end
end)

--Drop items on dig
--This only works in survival
if minetest.setting_getbool("creative_mode") == false then
	function minetest.handle_node_drops(pos, drops, digger)
		local inv
		if minetest.setting_getbool("creative_mode") and digger and digger:is_player() then
			inv = digger:get_inventory()
		end
		for _,item in ipairs(drops) do
			local count, name
			if type(item) == "string" then
				count = 1
				name = item
			else
				count = item:get_count()
				name = item:get_name()
			end
			if not inv or not inv:contains_item("main", ItemStack(name)) then
				for i=1,count do
					local obj = minetest.env:add_item(pos, name)
					if obj ~= nil then
						--obj:get_luaentity().timer = 
						obj:get_luaentity().collect = true
						local x = math.random(1, 5)
						if math.random(1,2) == 1 then
							x = -x
						end
						local z = math.random(1, 5)
						if math.random(1,2) == 1 then
							z = -z
						end
						obj:setvelocity({x=1/x, y=obj:getvelocity().y, z=1/z})
						obj:get_luaentity().age = 0.6
						-- FIXME this doesnt work for deactiveted objects
						if minetest.setting_get("remove_items") and tonumber(minetest.setting_get("remove_items")) then
							minetest.after(tonumber(minetest.setting_get("remove_items")), function(obj)
								obj:remove()
							end, obj)
						end
					end
				end
			end
		end
	end
end

--throw items using player's velocity
function minetest.item_drop(itemstack, dropper, pos)
	if dropper and dropper:is_player() then
		local v = dropper:get_look_dir()
		local vel = dropper:get_player_velocity()
		local p = {x=pos.x, y=pos.y+1.3, z=pos.z}

		local item = itemstack:to_string()
		local obj = core.add_item(p, item)
		if obj then
			v.x = (v.x*5)+vel.x
			v.y = ((v.y*5)+2)+vel.y
			v.z = (v.z*5)+vel.z
			obj:setvelocity(v)
			--obj:get_luaentity().collect = true
			itemstack:clear()
			return itemstack
		end
	end
end

if minetest.setting_get("log_mods") then
	minetest.log("action", "Item Drop loaded")
end