init.lua

minetest.register_privilege("delprotect","Ignore player protection")
minetest.register_privilege("toggle","Grant/Remove delprotect and protection_bypass privs")

protector = {}
protector.mod = "redo"
protector.radius = (tonumber(minetest.setting_get("protector_radius")) or 5)
protector.drop = minetest.setting_getbool("protector_drop") or false
protector.hurt = (tonumber(minetest.setting_get("protector_hurt")) or 0)

protector.registered_protectors = {}
protector.registered_protectors_names = {}
protector.max_registered_radius = protector.radius

protector.get_member_list = function(meta)

	return meta:get_string("members"):split(" ")
end

protector.set_member_list = function(meta, list)

	meta:set_string("members", table.concat(list, " "))
end

protector.is_member = function (meta, name)

	for _, n in pairs(protector.get_member_list(meta)) do

		if n == name then
			return true
		end
	end

	return false
end

protector.add_member = function(meta, name)

	if protector.is_member(meta, name) then
		return
	end

	local list = protector.get_member_list(meta)

	table.insert(list, name)

	protector.set_member_list(meta, list)
end

protector.del_member = function(meta, name)

	local list = protector.get_member_list(meta)

	for i, n in pairs(list) do

		if n == name then
			table.remove(list, i)
			break
		end
	end

	protector.set_member_list(meta, list)
end

-- Protector Interface

protector.generate_formspec = function(meta)

	local formspec = "size[8,7]"
		.. default.gui_bg
		.. default.gui_bg_img
		.. default.gui_slots
		.. "label[2.5,0;-- Protector interface --]"
		.. "label[0,1;PUNCH node to show protected area or USE for area check]"
		.. "label[0,2;Members:]"
		.. "button_exit[2.5,6.2;3,0.5;close_me;Close]"

	local members = protector.get_member_list(meta)
	local npp = 12 -- max users added onto protector list
	local i = 0

	for n = 1, #members do

		if i < npp then

			-- show username
			formspec = formspec .. "button[" .. (i % 4 * 2)
			.. "," .. math.floor(i / 4 + 3)
			.. ";1.5,.5;protector_member;" .. members[n] .. "]"

			-- username remove button
			.. "button[" .. (i % 4 * 2 + 1.25) .. ","
			.. math.floor(i / 4 + 3)
			.. ";.75,.5;protector_del_member_" .. members[n] .. ";X]"
		end

		i = i + 1
	end
	
	if i < npp then

		-- user name entry field
		formspec = formspec .. "field[" .. (i % 4 * 2 + 1 / 3) .. ","
		.. (math.floor(i / 4 + 3) + 1 / 3)
		.. ";1.433,.5;protector_add_member;;]"

		-- username add button
		.."button[" .. (i % 4 * 2 + 1.25) .. ","
		.. math.floor(i / 4 + 3) .. ";.75,.5;protector_submit;+]"

	end

	return formspec
end

-- Infolevel:
-- 0 for no info
-- 1 for "This area is owned by <owner> !" if you can't dig
-- 2 for "This area is owned by <owner>.
-- 3 for checking protector overlaps

protector.can_dig = function(r, pos, digger, onlyowner, infolevel, addradius)

	if not digger
	or not pos then
		return false
	end

	-- Delprotect privileged users can override protections

	if ( minetest.check_player_privs(digger, {delprotect = true})
	or minetest.check_player_privs(digger, {protection_bypass = true}) )
	and infolevel == 1 then
		return true
	end

	if infolevel == 3 then infolevel = 1 end

	-- Find the protector nodes

	local basepos = pos
	local pos = minetest.find_nodes_in_area(
		{x = pos.x - r, y = pos.y - r, z = pos.z - r},
		{x = pos.x + r, y = pos.y + r, z = pos.z + r},
		protector.registered_protectors_names)

	local meta, owner, members

	for n = 1, #pos do

		local protrad = (protector.registered_protectors[minetest.get_node(pos[n]).name] or 0)
		  + (addradius or 0)
		if math.abs(basepos.x-pos[n].x) <= protrad and
		   math.abs(basepos.y-pos[n].y) <= protrad and
		   math.abs(basepos.z-pos[n].z) <= protrad then -- Check if distance if <= that protector's radius

		meta = minetest.get_meta(pos[n])
		owner = meta:get_string("owner") or ""
		members = meta:get_string("members") or ""

		if owner ~= digger then

			if onlyowner
			or not protector.is_member(meta, digger) then

				if infolevel == 1 then

					minetest.chat_send_player(digger,
					"This area is owned by " .. owner .. "!")

				elseif infolevel == 2 then

					minetest.chat_send_player(digger,
					"This area is owned by " .. owner .. ".")

					minetest.chat_send_player(digger,
					"Protection located at: " .. minetest.pos_to_string(pos[n]))

					if members ~= "" then

						minetest.chat_send_player(digger,
						"Members: " .. members .. ".")
					end
				end

				return false
			end
		end


		if infolevel == 2 then

			minetest.chat_send_player(digger,
			"This area is owned by " .. (owner or "nobody") .. ".")

			minetest.chat_send_player(digger,
			"Protection located at: " .. minetest.pos_to_string(pos[n]))

			if members ~= "" then

				minetest.chat_send_player(digger,
				"Members: " .. members .. ".")
			end

			return false
		end
		end
	end

	if infolevel == 2 then

		if #pos < 1 then

			minetest.chat_send_player(digger,
			"This area is not protected.")
		end

		minetest.chat_send_player(digger, "You can build here.")
	end

	return true
end

-- Can node be added or removed, if so return node else true (for protected)

protector.old_is_protected = minetest.is_protected

function minetest.is_protected(pos, digger)

	if not protector.can_dig(protector.max_registered_radius, pos, digger, false, 1) then

		local player = minetest.get_player_by_name(digger)

		-- hurt player if protection violated
		if protector.hurt > 0
		and player then
			player:set_hp(player:get_hp() - protector.hurt)
		end

		-- drop tool/item if protection violated
		if protector.drop == true
		and player then

			local holding = player:get_wielded_item()

			if holding:to_string() ~= "" then

				-- take stack
				local sta = holding:take_item(holding:get_count())
				player:set_wielded_item(holding)

				-- incase of lag, reset stack
				minetest.after(0.1, function()
					player:set_wielded_item(holding)

					-- drop stack
					local obj = minetest.add_item(player:getpos(), sta)
					if obj then
						obj:setvelocity({x = 0, y = 5, z = 0})
					end
				end)

			end

		end

		return true
	end

	return protector.old_is_protected(pos, digger)

end

-- Make sure protection block doesn't overlap another protector's area

function protector.check_overlap(itemstack, placer, pointed_thing)

	if pointed_thing.type ~= "node" then
		return itemstack
	end

	local protradius = protector.registered_protectors[itemstack:get_name()] or 0

	if not protector.can_dig(protector.max_registered_radius * 2 + 2, pointed_thing.under,
	placer:get_player_name(), true, 3, protradius)
	or not protector.can_dig(protector.max_registered_radius * 2 + 2, pointed_thing.above,
	placer:get_player_name(), true, 3, protradius) then

		minetest.chat_send_player(placer:get_player_name(),
			"Overlaps into above player's protected area")

		return
	end

	return minetest.item_place(itemstack, placer, pointed_thing)

end

--= Protector registering API

local display_pairs = {}

local function register_display_pair(color, radius)
	local pairname = color .. "_" .. radius
	if display_pairs[pairname] then
		return
	end
	local pair = {
		node = "protector:display_node_" .. pairname,
		entity = "protector:display_" .. pairname
	}

	-- Display-zone node, Do NOT place the display as a node,
	-- it is made to be used as an entity (see below)
	local x = radius
	minetest.register_node(":" .. pair.node, {
		tiles = {"protector_display_mask.png^[colorize:#" .. color },
		use_texture_alpha = true,
		walkable = false,
		drawtype = "nodebox",
		node_box = {
			type = "fixed",
			fixed = {
				-- sides
				{-(x+.55), -(x+.55), -(x+.55), -(x+.45), (x+.55), (x+.55)},
				{-(x+.55), -(x+.55), (x+.45), (x+.55), (x+.55), (x+.55)},
				{(x+.45), -(x+.55), -(x+.55), (x+.55), (x+.55), (x+.55)},
				{-(x+.55), -(x+.55), -(x+.55), (x+.55), (x+.55), -(x+.45)},
				-- top
				{-(x+.55), (x+.45), -(x+.55), (x+.55), (x+.55), (x+.55)},
				-- bottom
				{-(x+.55), -(x+.55), -(x+.55), (x+.55), -(x+.45), (x+.55)},
				-- middle (surround protector)
				{-.55,-.55,-.55, .55,.55,.55},
			},
		},
		selection_box = {
			type = "regular",
		},
		paramtype = "light",
		groups = {dig_immediate = 3, not_in_creative_inventory = 1},
		drop = ""
	})

	-- Display entity shown when protector node is punched
	minetest.register_entity(":" .. pair.entity, {
		physical = false,
		collisionbox = {0, 0, 0, 0, 0, 0},
		visual = "wielditem",
		-- wielditem seems to be scaled to 1.5 times original node size
		visual_size = {x = 1.0 / 1.5, y = 1.0 / 1.5},
		textures = {pair.node},
		timer = 0,

		on_activate = function(self, staticdata)

			-- Xanadu server only
			if rawget(_G, "mobs") and mobs.entity and mobs.entity == false then
				self.object:remove()
			end
		end,

		on_step = function(self, dtime)

			self.timer = self.timer + dtime

			if self.timer > 5 then
				self.object:remove()
			end
		end
	})

	display_pairs[pairname] = true
end

-- Registers a protector node.
-- "name" is the node name, without mod namespace
-- "nodedef" is a table of node properties passed to minetest.register_node
-- "protdef" is a table of protector properties, in the following format
--   (this parameter and/or its properties are optional;
--    values shown below are default values if said property is ommitted):
-- {
--   radius = protector.radius,
--   displaycolor = "D619FF"
-- }
function protector.register_protector(name, nodedef, protdef)
	local copy = function(t)
		local u = {}
		if type(t) == 'table' then
			for k, v in pairs(t) do u[k] = v end
		end
		return u
	end
	local mkcallback = function(fn1, fn2)
		if fn2 then
			return function(...)
				fn1(...)
				fn2(...)
			end
		else
			return fn1
		end
	end

	local pd = copy(protdef)
	pd.radius = pd.radius or protector.radius
	pd.displaycolor = pd.displaycolor or "D619FF"
	register_display_pair(pd.displaycolor, pd.radius)

	local nd = copy(nodedef)
	nd.on_place = mkcallback(protector.check_overlap, nd.on_place)

	nd.after_place_node = mkcallback(function(pos, placer)

		local meta = minetest.get_meta(pos)

		meta:set_string("owner", placer:get_player_name() or "")
		meta:set_string("infotext", "Protection (owned by " .. meta:get_string("owner") .. ")")
		meta:set_string("members", "")
	end, nd.after_place_node)

	nd.on_use = mkcallback(function(itemstack, user, pointed_thing)

		if pointed_thing.type ~= "node" then
			return
		end

		protector.can_dig(protector.max_registered_radius, pointed_thing.under, user:get_player_name(), false, 2)
	end, nd.on_use)

	nd.on_rightclick = mkcallback(function(pos, node, clicker, itemstack)

		local meta = minetest.get_meta(pos)

		if meta
		and protector.can_dig(1, pos,clicker:get_player_name(), true, 1) then
			minetest.show_formspec(clicker:get_player_name(), 
			"protector:node_" .. minetest.pos_to_string(pos), protector.generate_formspec(meta))
		end
	end, nd.on_rightclick)

	nd.on_punch = mkcallback(function(pos, node, puncher)

		if minetest.is_protected(pos, puncher:get_player_name()) then
			return
		end

		minetest.add_entity(pos, "protector:display_" .. pd.displaycolor .. "_" .. pd.radius)
	end, nd.on_punch)

	nd.can_dig = mkcallback(function(pos, player)

		return protector.can_dig(1, pos, player:get_player_name(), true, 1)
	end, nd.can_dig)

	nd.on_blast = mkcallback(function() end, nd.on_blast)

	minetest.register_node(":protector:" .. name, nd)
	protector.registered_protectors["protector:" .. name] = pd.radius
	table.insert(protector.registered_protectors_names, "protector:" .. name)
	protector.max_registered_radius = math.max(protector.max_registered_radius, pd.radius)
end

--= Protection Block

protector.register_protector("protect", {
	description = "Protection Block",
	drawtype = "nodebox",
	tiles = {
		"moreblocks_circle_stone_bricks.png",
		"moreblocks_circle_stone_bricks.png",
		"moreblocks_circle_stone_bricks.png^protector_logo.png"
	},
	sounds = default.node_sound_stone_defaults(),
	groups = {dig_immediate = 2, unbreakable = 1},
	is_ground_content = false,
	paramtype = "light",
	light_source = 4,

	node_box = {
		type = "fixed",
		fixed = {
			{-0.5 ,-0.5, -0.5, 0.5, 0.5, 0.5},
		}
	}
})

minetest.register_craft({
	output = "protector:protect " .. (minetest.setting_get("protector_protect_craft_count") or "1"),
	recipe = {
		{"default:stone", "default:stone", "default:stone"},
		{"default:stone", "default:steel_ingot", "default:stone"},
		{"default:stone", "default:stone", "default:stone"},
	}
})

--= Protection Logo

protector.register_protector("protect2", {
	description = "Protection Logo",
	tiles = {"protector_logo.png"},
	wield_image = "protector_logo.png",
	inventory_image = "protector_logo.png",
	sounds = default.node_sound_stone_defaults(),
	groups = {dig_immediate = 2, unbreakable = 1},
	paramtype = 'light',
	paramtype2 = "wallmounted",
	legacy_wallmounted = true,
	light_source = 4,
	drawtype = "nodebox",
	sunlight_propagates = true,
	walkable = true,
	node_box = {
		type = "wallmounted",
		wall_top    = {-0.375, 0.4375, -0.5, 0.375, 0.5, 0.5},
		wall_bottom = {-0.375, -0.5, -0.5, 0.375, -0.4375, 0.5},
		wall_side   = {-0.5, -0.5, -0.375, -0.4375, 0.5, 0.375},
	},
	selection_box = {type = "wallmounted"}
})

minetest.register_craft({
	output = "protector:protect2 " .. (minetest.setting_get("protector_protect2_craft_count") or "1"),
	recipe = {
		{"default:stone", "default:stone", "default:stone"},
		{"default:stone", "default:copper_ingot", "default:stone"},
		{"default:stone", "default:stone", "default:stone"},
	}
})

-- If name entered or button press

minetest.register_on_player_receive_fields(function(player, formname, fields)

	if string.sub(formname, 0, string.len("protector:node_")) == "protector:node_" then

		local pos_s = string.sub(formname, string.len("protector:node_") + 1)
		local pos = minetest.string_to_pos(pos_s)
		local meta = minetest.get_meta(pos)

		if not protector.can_dig(1, pos, player:get_player_name(), true, 1) then
			return
		end

		if fields.protector_add_member then

			for _, i in pairs(fields.protector_add_member:split(" ")) do
				protector.add_member(meta, i)
			end
		end

		for field, value in pairs(fields) do

			if string.sub(field, 0, string.len("protector_del_member_")) == "protector_del_member_" then
				protector.del_member(meta, string.sub(field,string.len("protector_del_member_") + 1))
			end
		end
		
		if not fields.close_me then
			minetest.show_formspec(player:get_player_name(), formname, protector.generate_formspec(meta))
		end

	end

end)

dofile(minetest.get_modpath("protector") .. "/doors_chest.lua")
dofile(minetest.get_modpath("protector") .. "/pvp.lua")
dofile(minetest.get_modpath("protector") .. "/admin.lua")

-- GUI Toggler for delprotect
-- Requires Unified Inventory to be loaded

if minetest.get_modpath("unified_inventory") then
	unified_inventory.register_button("protection_bypass_toggle", {
		type = "image",
		image = "protector_bypass_toggler.png",
		show_with = "toggle",
		tooltip = "Toggle Protection Bypass",
		action = function(player)
			local pname = player:get_player_name()
			local privs = minetest.get_player_privs(pname)
			if privs["protection_bypass"] or privs["delprotect"] then
				privs["protection_bypass"] = nil
				privs["delprotect"] = nil
				minetest.chat_send_player(pname, "Protection Bypass deactivated")
			else
				privs["protection_bypass"] = true
				privs["delprotect"] = true
				minetest.chat_send_player(pname, "Protection Bypass activated")
			end
			minetest.set_player_privs(pname, privs)
		end,
	})
end

print ("[MOD] Protector Redo loaded")