dfcaverns/collectible_lore/items.lua

local S = minetest.get_translator(minetest.get_current_modname())
local modmeta =  minetest.get_mod_storage()

cairn_spacing = tonumber(minetest.settings:get("collectible_lore_cairn_spacing")) or 500

local cairn_area = AreaStore()

local existing_area = modmeta:get("areastore_cairn")
if existing_area then
	cairn_area:from_string(existing_area)
end

local get_cairn_looted_by_list = function(pos)
	local loot_list_string = modmeta:get("cairn_" .. minetest.pos_to_string(pos))
	if not loot_list_string then
		return {}
	end
	return minetest.deserialize(loot_list_string)
end

local set_cairn_looted_by_list = function(pos, list)
	modmeta:set_string("cairn_" .. minetest.pos_to_string(pos), minetest.serialize(list))
end

local cairn_loot = function(pos, player)
	local player_name = player:get_player_name()
	if not player_name then return end

	local list = get_cairn_looted_by_list(pos)
--	if list[player_name] then
--		minetest.chat_send_player(player_name, S("You've already collected the contents of this cairn."))
--		return false
--	end
	list[player_name] = true
	
	local uncollected = collectible_lore.get_player_uncollected_list(player_name)
	--minetest.debug(dump(uncollected))
	if next(uncollected) then
		local random_lorebook = uncollected[math.random(#uncollected)]
		collectible_lore.collect(player_name, collectible_lore.lorebooks[random_lorebook].id)
		minetest.show_formspec(player_name, "collectible_lore:collected",
			"formspec_version[6]size[8,2]label[0.5,0.5;" .. S("You've found a collectible item of lore titled:\n@1", collectible_lore.lorebooks[random_lorebook].title) .. "]")
		list[player_name] = true
		set_cairn_looted_by_list(pos, list)
	else
		minetest.show_formspec(player_name, "collectible_lore:collected",
			"formspec_version[6]size[8,2]label[0.5,0.5;" .. S("You've found all of the collectible items contained in cairns like this one").."]")
	end	
	
	local leftover = player:get_inventory():add_item("main", "collectible_lore:satchel")
	if not leftover:is_empty() then
		minetest.item_drop(leftover, player, vector.add(pos, vector.new(0,1,0)))
	end	
	return true
end

minetest.register_node("collectible_lore:cairn", {
	description = S("Cairn"),
	drawtype = "nodebox",
	tiles = {df_dependencies.texture_cobble},
	drop = df_dependencies.node_name_cobble,
	paramtype = "light",
	paramtype2 = "facedir",
	node_box = {
		type = "fixed",
		fixed = {
			{-0.5, -0.5, -0.5, 0.5, 0, 0.5},
			{-0.4375, 0, -0.4375, 0.4375, 0.5, 0.4375},
			{-0.25, 0.5, -0.25, 0.25, 1, 0.25}
		}
	},
	collision_box = {
		type = "fixed",
		fixed = {
			{-0.5, -0.5, -0.5, 0.5, 1, 0.5}
		}
	},
	selection_box = {
		type = "fixed",
		fixed = {
			{-0.5, -0.5, -0.5, 0.5, 1, 0.5}
		}
	},
	on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
		cairn_loot(pos, clicker)
	end,
	
	is_ground_content = true,
	groups = {cracky = 3},
	can_dig = function(pos, player)
		return minetest.check_player_privs(player, {server = true})
	end,
	on_destruct = function(pos)
		modmeta:set_string("cairn_" .. minetest.pos_to_string(pos), "")
		local this_cairn = cairn_area:get_areas_for_pos(pos)
		for index, data in pairs(this_cairn) do
			minetest.debug("removing " .. dump(index))
			cairn_area:remove_area(index)
			modmeta:set_string("areastore_cairn", cairn_area:to_string())
		end
	end,
	on_construct = function(pos)
		local nearby = cairn_area:get_areas_in_area(vector.subtract(pos, cairn_spacing/2), vector.add(pos, cairn_spacing/2))
		if next(nearby) then
			minetest.log("error", "Cairn placed too close to other cairns. Placed at: " .. minetest.pos_to_string(pos) .."\nnearby:\n" .. dump(nearby))
		end
		cairn_area:insert_area(pos, pos, "")
		modmeta:set_string("areastore_cairn", cairn_area:to_string())
	end,
})

collectible_lore.get_nearby_cairns = function(pos, spacing)
	local nearby = cairn_area:get_areas_in_area(vector.subtract(pos, spacing/2), vector.add(pos, spacing/2))
	if next(nearby) then
		return nearby
	end
	return nil
end

collectible_lore.place_cairn = function(pos)
	local nearby = collectible_lore.get_nearby_cairns(pos, cairn_spacing)
	if nearby then return end
	minetest.place_node(pos, {name="collectible_lore:cairn"})
end

local player_state = {}

local get_formspec_for_player = function(player_name)
	local selected
	local state = player_state[player_name] or 1
	local collected = collectible_lore.get_player_collected(player_name)
	local collected_count = 0
	for index, val in pairs(collected) do
		collected_count = collected_count + 1
	end

	local form = {}
	table.insert(form, "formspec_version[6]size[14,8]")
	table.insert(form, "textlist[0.5,0.5;5,6.5;list;")
	if collected_count > 0 then
		local count = 1
		for index, value in pairs(collectible_lore.lorebooks) do
			local iscollected = collected[value.id]
			if iscollected and state == count then
				selected = value
			end
			count = count + 1
			if iscollected then
				table.insert(form, minetest.formspec_escape(value.title))
			else
				table.insert(form, S("<Not found yet>"))
			end
			table.insert(form, ",")
		end
		table.remove(form) -- removes trailing comma
	end
	table.insert(form, ";" .. state .. "]")
	if selected then
		table.insert(form, "label[6,0.5;" .. minetest.formspec_escape(selected.title) .. "]")
		if selected.text then
			table.insert(form, "textarea[6,1;7.5,6.5;;;" .. minetest.formspec_escape(selected.text) .. "]")
		elseif selected.image then
			table.insert(form, "image[6.5,1;6.5,6.5;" .. selected.image .. "]")
		end
	end
	table.insert(form, "label[0.5,7.5;" .. S("Collected: @1/@2", collected_count, #(collectible_lore.lorebooks)) .. "]")
	
	return table.concat(form)
end

minetest.register_craftitem("collectible_lore:satchel", {
	description = S("Collectibles Satchel"),
	inventory_image = "collectible_lore_satchel.png",
	stack_max = 99,
	on_use = function(itemstack, user, pointed_thing)
		local player_name = user:get_player_name()
		minetest.show_formspec(player_name, "collectible_lore:formspec", get_formspec_for_player(player_name))
	end
})

minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname ~= "collectible_lore:formspec" then return end
	
	if fields.list then
		local exploded = minetest.explode_textlist_event(fields.list)
		if exploded.type == "CHG" then
			local player_name = player:get_player_name()
			player_state[player_name] = exploded.index
			minetest.show_formspec(player_name, "collectible_lore:formspec", get_formspec_for_player(player_name))
		end
	end
end)