everamzah-books/init.lua

--[[ Placeable Books by everamzah
	Copyright (C) 2016 James Stevenson
	LGPLv2.1+
	See LICENSE for more information ]]



local lpp = 14 -- Lines per book's page

local function on_place(itemstack, placer, pointed_thing)
	if minetest.is_protected(pointed_thing.above, placer:get_player_name()) then
		-- TODO: record_protection_violation()
		return itemstack
	end

	local meta = itemstack:get_metadata()
	local data = minetest.deserialize(meta)
	local stack = ItemStack({name = "default:book_closed"})
	if data and data.owner then
		stack:set_metadata(meta)
	end

	local _, placed = minetest.item_place(stack, placer, pointed_thing)
	if placed then
		itemstack:take_item()
	end
	return itemstack
end

local function after_place_node(pos, placer, itemstack, pointed_thing)
	local data = minetest.deserialize(itemstack:get_metadata())
	if data then
		local meta = minetest.get_meta(pos)
		meta:set_string("title", data.title)
		meta:set_string("text", data.text)
		meta:set_string("owner", data.owner)
		meta:set_string("infotext", data.title .. "\n\n" ..
				"by " .. data.owner)
	end
end

local function on_rightclick(pos, node, clicker, itemstack, pointed_thing)
	if node.name == "default:book_closed" then
		node.name = "default:book_open"
		minetest.swap_node(pos, node)
		local meta = minetest.get_meta(pos)
		meta:set_string("infotext",
				meta:get_string("text"))
	elseif node.name == "default:book_open" then
		-- Courtesy of minetest_game/mods/default/craftitems.lua
		local player_name = clicker:get_player_name()
		local meta = minetest.get_meta(pos)
		local title, text, owner = "", "", player_name
		local page, page_max, lines, string = 1, 1, {}, ""

		if meta:to_table().fields.owner then
			title = meta:get_string("title")
			text = meta:get_string("text")
			owner = meta:get_string("owner")

			for str in (text .. "\n"):gmatch("([^\n]*)[\n]") do
				lines[#lines+1] = str
			end

			if meta.page then
				page = meta.page
				page_max = meta.page_max

				for i = ((lpp * page) - lpp) + 1, lpp * page do
					if not lines[i] then break end
					string = string .. lines[i] .. "\n"
				end
			end
		end

		local formspec
		if owner == player_name then
			formspec = "size[8,8]" ..
				default.gui_bg ..
				default.gui_bg_img ..
				"field[0.5,1;7.5,0;title;Title:;" ..
					minetest.formspec_escape(title) .. "]" ..
				"textarea[0.5,1.5;7.5,7;text;Contents:;" ..
					minetest.formspec_escape(text) .. "]" ..
				"button_exit[2.5,7.5;3,1;save;Save]"
		else
			formspec = "size[8,8]" ..
				default.gui_bg ..
				default.gui_bg_img ..
				"label[0.5,0.5;by " .. owner .. "]" ..
				"tablecolumns[color;text]" ..
				"tableoptions[background=#00000000;highlight=#00000000;border=false]" ..
				"table[0.4,0;7,0.5;title;#FFFF00," .. minetest.formspec_escape(title) .. "]" ..
				"textarea[0.5,1.5;7.5,7;;" ..
					minetest.formspec_escape(string ~= "" and string or text) .. ";]" ..
				"button[2.4,7.6;0.8,0.8;book_prev;<]" ..
				"label[3.2,7.7;Page " .. page .. " of " .. page_max .. "]" ..
				"button[4.9,7.6;0.8,0.8;book_next;>]"
		end

		minetest.show_formspec(player_name,
				"default:book_" .. minetest.pos_to_string(pos), formspec)
	end
end

local function on_punch(pos, node, puncher, pointed_thing)
	if node.name == "default:book_open" then
		node.name = "default:book_closed"
		minetest.swap_node(pos, node)
		local meta = minetest.get_meta(pos)
		meta:set_string("infotext",
				meta:get_string("title") .. "\n\n" ..
				"by " .. meta:get_string("owner"))
	end
end

local function on_dig(pos, node, digger)
	local meta = minetest.get_meta(pos)
	local data = {
		title = meta:get_string("title"),
		text = meta:get_string("text"),
		owner = meta:get_string("owner"),
		text_len = meta:get_int("text_len"),
		page = meta:get_int("page"),
		page_max = meta:get_int("page_max"),
	}

	local stack
	if data.owner ~= "" then
		stack = ItemStack({name = "default:book_written"})
		stack:set_metadata(minetest.serialize(data))
	else
		stack = ItemStack({name = "default:book"})
	end

	local adder = digger:get_inventory():add_item("main", stack)
	if adder then
		minetest.item_drop(adder, digger, digger:getpos())
	end
	minetest.remove_node(pos)
end



minetest.override_item("default:book", {on_place = on_place})

minetest.override_item("default:book_written", {on_place = on_place})

minetest.register_node(":default:book_open", {
	description = "Book Open (you hacker you!)",
	inventory_image = "default_book.png",
	tiles = {
		"wool_white.png",	-- Top
		"wool_brown.png",	-- Bottom
		"wool_brown.png",	-- Right
		"wool_brown.png",	-- Left
		"wool_brown.png",	-- Back
		"wool_brown.png"	-- Front
	},
	drawtype = "nodebox",
	paramtype = "light",
	paramtype2 = "facedir",
	sunlight_propagates = true,
	node_box = {
		type = "fixed",
		fixed = {
			{-0.375, -0.4375, -0.3125, 0.375, -0.375, 0.3125},
			{-0.4375, -0.5, -0.3125, 0.4375, -0.4375, 0.3125},
		}
	},
	--groups = {attached_node = 1}, -- FIXME
	on_punch = on_punch,
	on_rightclick = on_rightclick,
})

minetest.register_node(":default:book_closed", {
	description = "Book Closed (you hacker you!)",
	inventory_image = "default_book.png",
	tiles = {
		"wool_brown.png",	-- Top
		"wool_brown.png",	-- Bottom
		"wool_white.png",	-- Right
		"wool_brown.png",	-- Left
		"wool_white.png",	-- Back
		"wool_white.png"	-- Front
	},
	drawtype = "nodebox",
	paramtype = "light",
	paramtype2 = "facedir",
	sunlight_propagates = true,
	node_box = {
		type = "fixed",
		fixed = {
			{-0.25, -0.5, -0.3125, 0.25, -0.35, 0.3125},
		}
	},
	groups = {oddly_breakable_by_hand = 3, dig_immediate = 2}, --, attached_node = 1}, -- FIXME
	on_dig = on_dig,
	on_rightclick = on_rightclick,
	after_place_node = after_place_node,
})

minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname:sub(1, 13) ~= "default:book_" then
		return
	end

	if fields.save and fields.title ~= "" and fields.text ~= "" then
		local pos = minetest.string_to_pos(formname:sub(14))
		local node = minetest.get_node(pos)
		local meta = minetest.get_meta(pos)

		meta:set_string("title", fields.title)
		meta:set_string("text", fields.text)
		meta:set_string("owner", player:get_player_name())
		meta:set_string("infotext", fields.text)
		meta:set_int("text_len", fields.text:len())
		meta:set_int("page", 1)
		meta:set_int("page_max", math.ceil((fields.text:gsub("[^\n]", ""):len() + 1) / lpp))
	elseif fields.book_next or fields.book_prev then
		-- TODO
		print("Flipping page.")
	end
end)

--[[
minetest.register_on_player_receive_fields(function(player, formname, fields)
	if formname ~= "default:book" then return end
	local inv = player:get_inventory()
	local stack = player:get_wielded_item()

	if fields.save and fields.title ~= "" and fields.text ~= "" then
		local new_stack, data
		if stack:get_name() ~= "default:book_written" then
			local count = stack:get_count()
			if count == 1 then
				stack:set_name("default:book_written")
			else
				stack:set_count(count - 1)
				new_stack = ItemStack("default:book_written")
			end
		else
			data = minetest.deserialize(stack:get_metadata())
		end

		if not data then data = {} end
		data.title = fields.title
		data.text = fields.text
		data.text_len = #data.text
		data.page = 1
		data.page_max = math.ceil((#data.text:gsub("[^\n]", "") + 1) / lpp)
		data.owner = player:get_player_name()
		local data_str = minetest.serialize(data)

		if new_stack then
			new_stack:set_metadata(data_str)
			if inv:room_for_item("main", new_stack) then
				inv:add_item("main", new_stack)
			else
				minetest.add_item(player:getpos(), new_stack)
			end
		else
			stack:set_metadata(data_str)
		end

	elseif fields.book_next or fields.book_prev then
		local data = minetest.deserialize(stack:get_metadata())
		if not data.page then return end

		if fields.book_next then
			data.page = data.page + 1
			if data.page > data.page_max then
				data.page = 1
			end
		else
			data.page = data.page - 1
			if data.page == 0 then
				data.page = data.page_max
			end
		end

		local data_str = minetest.serialize(data)
		stack:set_metadata(data_str)
		book_on_use(stack, player)
	end

	player:set_wielded_item(stack)
end)
--]]