Add Protector Block

init.lua

@@ -15,6 +15,7 @@ dofile(areas.modpath.."/chatcommands.lua")
 dofile(areas.modpath.."/pos.lua")
 dofile(areas.modpath.."/interact.lua")
 dofile(areas.modpath.."/hud.lua")
+dofile(areas.modpath.."/protector.lua")
 
 areas:load()
 

protector.lua

@@ -0,0 +1,157 @@
+local creative_mode = minetest.setting_getbool("creative_mode")
+
+local function cyan(str)
+	return minetest.colorize("#00FFFF", str)
+end
+
+local function red(str)
+	return minetest.colorize("#FF5555", str)
+end
+
+local radius = minetest.setting_get("areasprotector_radius") or 8
+
+local function remove_display(pos)
+	local objs = minetest.get_objects_inside_radius(pos, 0.5)
+	for _, o in pairs(objs) do
+		o:remove()
+	end
+end
+
+minetest.register_node(":areasprotector:protector", {
+	description = "Protector Block",
+	groups = {cracky = 1},
+	tiles = {
+		"default_stonebrick_carved.png",
+		"default_stonebrick_carved.png",
+		"default_stonebrick_carved.png^areasprotector_stone.png"
+	},
+	paramtype = "light",
+	drawtype = "nodebox",
+	node_box = {
+		type = "fixed",
+		fixed = {-0.5, -0.5, -0.5, 0.5, 0.5, 0.5}
+	},
+
+	on_place = function(itemstack, player, pointed)
+		local pos = pointed.above
+		local pos1 = vector.add(pos, vector.new(radius, radius, radius))
+		local pos2 = vector.add(pos, vector.new(-1 * radius, -1 * radius, -1 * radius))
+		local name = player:get_player_name()
+		local perm, err = areas:canPlayerAddArea(pos1, pos2, name)
+		if not perm then
+			minetest.chat_send_player(name, red("You are not allowed to protect that area: ") .. err)
+			return itemstack
+		end
+		local id = areas:add(name, "Protected by Protector Block", pos1, pos2)
+		areas:save()
+		local msg = string.format("The area from %s to %s has been protected as #%s", cyan(minetest.pos_to_string(pos1)), cyan(minetest.pos_to_string(pos2)), cyan(id))
+		minetest.chat_send_player(name, msg)
+		minetest.set_node(pos, {name = "areasprotector:protector"})
+		local meta = minetest.get_meta(pos)
+		local infotext = string.format("Protecting area %d owned by %s", id, name)
+		meta:set_string("infotext", infotext)
+		meta:set_int("area_id", id)
+		meta:set_string("owner", name)
+		itemstack:take_item()
+		return itemstack
+	end,
+
+	after_dig_node = function(pos, oldnode, oldmetadata, digger)
+		if oldmetadata and oldmetadata.fields then
+			local owner = oldmetadata.fields.owner
+			local id = tonumber(oldmetadata.fields.area_id)
+			local playername = digger:get_player_name()
+			if areas.areas[id] and areas:isAreaOwner(id, owner) then
+				if digger:get_player_control().sneak then
+					local inv = digger:get_inventory()
+					if not creative_mode then
+						if inv:room_for_item("main", "default:steel_ingot 6") then
+							inv:remove_item("main", "areasprotector:protector 1")
+							inv:add_item("main", "default:steel_ingot 6")
+						else
+							minetest.chat_send_player(playername, "No room for the replacement ingots, just digging the protector and deleting the area normally.")
+							areas:remove(id)
+							areas:save()
+						end
+					else
+						inv:remove_item("main", "areasprotector:protector 1")
+					end
+				else
+					areas:remove(id)
+					areas:save()
+				end
+			end
+		end
+	end,
+
+	on_punch = function(pos, node, puncher)
+		local objs = minetest.get_objects_inside_radius(pos, .5) -- a radius of .5 since the entity serialization seems to be not that precise
+		local removed = false
+		for _, o in pairs(objs) do
+			if (not o:is_player()) and o:get_luaentity().name == "areasprotector:display" then
+				o:remove()
+				removed = true
+			end
+		end
+		if not removed then -- nothing was removed: there wasn't the entity
+			minetest.add_entity(pos, "areasprotector:display")
+			minetest.after(4, remove_display, pos)
+		end
+	end
+})
+
+-- entities code below (and above) mostly copied-pasted from Zeg9's protector mod
+
+minetest.register_entity(":areasprotector:display", {
+	physical = false,
+	collisionbox = {0, 0, 0, 0, 0, 0},
+	visual = "wielditem",
+	visual_size = {x = 1.0 / 1.5, y = 1.0 / 1.5}, -- wielditem seems to be scaled to 1.5 times original node size
+	textures = {"areasprotector:display_node"},
+	on_step = function(self, dtime)
+		if minetest.get_node(self.object:getpos()).name ~= "areasprotector:protector" then
+			self.object:remove()
+			return
+		end
+	end
+})
+
+local nb_radius = radius + 0.55
+
+minetest.register_node(":areasprotector:display_node", {
+	tiles = {"areasprotector_display.png"},
+	walkable = false,
+	drawtype = "nodebox",
+	node_box = {
+		type = "fixed",
+		fixed = {
+			-- sides
+			{-nb_radius, -nb_radius, -nb_radius, -nb_radius, nb_radius, nb_radius},
+			{-nb_radius, -nb_radius, nb_radius, nb_radius, nb_radius, nb_radius},
+			{nb_radius, -nb_radius, -nb_radius, nb_radius, nb_radius, nb_radius},
+			{-nb_radius, -nb_radius, -nb_radius, nb_radius, nb_radius, -nb_radius},
+			-- top
+			{-nb_radius, nb_radius, -nb_radius, nb_radius, nb_radius, nb_radius},
+			-- bottom
+			{-nb_radius, -nb_radius, -nb_radius, nb_radius, -nb_radius, nb_radius},
+			-- 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 = ""
+})
+
+minetest.register_craft({
+	output = "areasprotector:protector",
+	type = "shapeless",
+	recipe = {
+		"default:stonebrickcarved", "default:stonebrickcarved", "default:stonebrickcarved",
+		"default:stonebrickcarved", "mesecons:wire_00000000_off", "default:stonebrickcarved",
+		"default:stonebrickcarved", "default:stonebrickcarved", "default:stonebrickcarved"
+	}
+})