initial

README.md

@@ -0,0 +1,17 @@
+Protector urban planning mod [protect]
+
+Protector redo for minetest is a mod that protects a players builds by placing
+a block that stops other players from digging or placing blocks in that area.
+
+based on glomie's mod, remade by Zeg9 and reworked by TenPlus1. Urban planning features added by rnd.
+
+
+Released under WTFPL
+
+Urban planning features:
+- set up several centers around which placing protectors is costly ( requires upgrade )
+- upon placing/digging protectors a network of protectors is built and counts of all nearby protectors is updated
+- if certain protector count is exceeded in the network placing new protectors requires upgrade. If protector is placed far away from
+	existing network new network is formed with its own count
+- protector requiring upgrade does not add to protection ( it obstructs it, since it has no owner ), but it can be dug up by anyone.
+- upon upgrade ( paying it with enough mese crystals ) the ownership is assigned to player who completed upgrade

depends.txt

@@ -0,0 +1,3 @@
+default
+doors
+mobs?

init.lua

@@ -0,0 +1,876 @@
+minetest.register_privilege("delprotect","Ignore player protection")
+
+-- get static spawn position
+local statspawn = (minetest.setting_get_pos("static_spawnpoint") or {x = 0, y = 2, z = 0})
+
+protector = {}
+protector.mod = "redo"
+protector.radius = (tonumber(minetest.setting_get("protector_radius")) or 3)
+protector.pvp = minetest.setting_getbool("protector_pvp")
+protector.spawn = (tonumber(minetest.setting_get("protector_pvp_spawn")) or 0)
+
+-- luxury settings
+
+protector.luxury_centers = {statspawn} -- simply add points here, for example { spawn, {x=0,y=100,z=0} }
+protector.luxury_radius = 75; -- outside this radius around luxury centers players can place protectors normally without worrying about upgrading
+protector.luxury_border_cost = 4; -- protector placement cost at luxury radius
+protector.luxury_center_cost = 100; -- cost at luxury center
+protector.maxcount = 10; -- allowed count in a group before update cost required
+protector.maxcount_price = 1; -- extra cost for placing protectors per 1 exceeded maxcount
+
+
+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 ipairs(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 ipairs(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: (type player name then press Enter to add)]"
+
+	local members = protector.get_member_list(meta)
+	local npp = 12
+	local i = 0
+	for _, member in ipairs(members) do
+			if i < npp then
+				formspec = formspec .. "button[" .. (i % 4 * 2)
+				.. "," .. math.floor(i / 4 + 3)
+				.. ";1.5,.5;protector_member;" .. member .. "]"
+				.. "button[" .. (i % 4 * 2 + 1.25) .. ","
+				.. math.floor(i / 4 + 3)
+				.. ";.75,.5;protector_del_member_" .. member .. ";X]"
+			end
+			i = i + 1
+	end
+	
+	if i < npp then
+		formspec = formspec .. "field[" .. (i % 4 * 2 + 1 / 3) .. ","
+		.. (math.floor(i / 4 + 3) + 1 / 3) .. ";1.433,.5;protector_add_member;;]"
+	end
+
+	formspec = formspec .. "button_exit[2.5,6.2;3,0.5;close_me;Close]"
+
+	return formspec
+end
+
+-- ACTUAL PROTECTION SECTION
+
+-- 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)
+
+	if not digger
+	or not pos then
+		return false
+	end
+
+	-- Delprotect privileged users can override protections
+
+	if minetest.check_player_privs(digger, {delprotect = true})
+	and infolevel == 1 then
+		return true
+	end
+
+	if infolevel == 3 then infolevel = 1 end
+
+	-- Find the protector nodes
+
+	local positions = 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:protect"})
+
+	local meta, owner, members
+	for _, pos in ipairs(positions) do
+		meta = minetest.get_meta(pos)
+		owner = meta:get_string("owner")
+		members = meta:get_string("members")
+
+		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))
+					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 .. ".")
+			minetest.chat_send_player(digger,
+			"Protection located at: " .. minetest.pos_to_string(pos))
+			if members ~= "" then
+				minetest.chat_send_player(digger,
+				"Members: " .. members .. ".")
+			end
+
+			return false
+		end
+
+	end
+
+	if infolevel == 2 then
+		if #positions < 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.radius, pos, digger, false, 1) then
+
+		-- hurt player here if required
+		--player = minetest.get_player_by_name(digger)
+		--player:set_hp(player:get_hp() - 2)
+
+		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
+
+	if not protector.can_dig(protector.radius * 2, pointed_thing.under,
+	placer:get_player_name(), true, 3)
+	or not protector.can_dig(protector.radius * 2, pointed_thing.above,
+	placer:get_player_name(), true, 3) then
+		minetest.chat_send_player(placer:get_player_name(),
+			"Overlaps into above players protected area")
+		return
+	end
+
+	return minetest.item_place(itemstack, placer, pointed_thing)
+
+end
+
+--= Protection Block
+
+function protector.check_luxury(pos) -- return minimal block distance to luxury_centers
+	local n = #(protector.luxury_centers);
+	local mindist = protector.luxury_radius;
+	local dist = mindist;
+	for	i = 1,n do
+		local p = protector.luxury_centers[i];
+		dist = math.max(math.abs(pos.x-p.x),math.abs(pos.y-p.y),math.abs(pos.z-p.z))
+		if dist<mindist then mindist = dist end
+	end
+	
+	return mindist
+
+end
+
+-- count the protectors in the neighborhood and update counts. 
+--two neigborhoods will be considered separate if their protectors are at least 15 apart
+function protector.count(pos, mode) 
+
+	-- mode 0: return protector count, mode 1: add new protector, mode 2: remove protector
+	
+	local r = 4*protector.radius+2; -- radius 14,  P = protector, PAAABBBPAAABBBP
+	
+	local positions = 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:protect"})
+
+	local meta, p, maxcount, count -- protector count in the neighborhood
+	
+	if mode == 2 then -- reduce neighbor counts since protector is removed
+		for _, p in ipairs(positions) do
+			meta = minetest.get_meta(p)
+			
+			count = meta:get_int("count")-1;
+			meta:set_int("count", count)
+		end
+	
+		return;
+	end
+	
+
+	maxcount = 0; count = 0; -- find maximum nearby count 
+	for _, p in ipairs(positions) do
+		meta = minetest.get_meta(p)
+		count = meta:get_int("count");
+		if count>maxcount then maxcount = count end
+	end
+	
+	if mode == 0 then return maxcount end -- just return the count
+	
+	--update counts, mode = 1
+	maxcount = maxcount + 1;
+	for _, p in ipairs(positions) do 
+		meta = minetest.get_meta(p)
+		meta:set_int("count", maxcount)
+	end
+	return maxcount;
+end
+
+
+minetest.register_node("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},
+		}
+	},
+
+	on_place = protector.check_overlap,
+
+	after_place_node = function(pos, placer) -- rnd
+		local meta = minetest.get_meta(pos)
+		
+		local count = protector.count(pos, 1); -- upgrade counts after adding protector
+		local luxury_dist = protector.check_luxury(pos);
+
+		if luxury_dist>=protector.luxury_radius and count< protector.maxcount then -- normal placement outside luxury radius or below maxcount
+			meta:set_string("owner", placer:get_player_name() or ""); 
+			local time = os.date("*t");
+			meta:set_string("infotext", "Protection (placed by ".. meta:get_string("owner").." at ".. time.month .. "/" .. time.day .. ", " ..time.hour.. ":".. time.min ..":" .. time.sec..")");
+			return
+		end
+	
+		minetest.chat_send_player(placer:get_player_name(), " PROTECTOR: please right click me to UPGRADE or punch to DIG me.");
+		meta:set_string("owner", ""); -- initially owner is ""
+		meta:set_string("placer", placer:get_player_name() or ""); -- who placed it
+		local cost = 0;
+		
+		if luxury_dist<protector.luxury_radius then -- extra cost because too close to luxury center
+			cost =  math.pow(luxury_dist/protector.luxury_radius,2); -- this is 0 at center and 1 at borders of luxury,1/2 at halfway
+			cost = protector.luxury_border_cost/(cost+1/protector.luxury_center_cost); 
+			cost = cost + math.ceil(cost);
+		end
+		
+		if count>=protector.maxcount then -- extra costs due to exceeded protector count
+			cost = cost + (count-protector.maxcount+1)*protector.maxcount_price;
+		end
+		
+		meta:set_int("cost",cost);
+
+		meta:set_string("infotext", "Protection (placed by ".. meta:get_string("placer") .. ". Please rightclick to upgrade with cost ".. cost .." or dig it. ");
+		meta:set_string("members", "")
+	end,
+
+	on_use = function(itemstack, user, pointed_thing)
+		if pointed_thing.type ~= "node" then return end
+		protector.can_dig(protector.radius, pointed_thing.under, user:get_player_name(), false, 2)
+	end,
+
+	on_rightclick = function(pos, node, clicker, itemstack) -- rnd
+		local meta = minetest.get_meta(pos)
+		
+		if clicker:get_player_name() == meta:get_string("placer") then -- upgrade to full protector
+		
+			--protector.check_luxury(pos)>=protector.luxury_radius
+			local cost = meta:get_int("cost");
+			
+			local text = "You are either trying to build close to luxury center or there are too many nearby protectors."..
+			"You will need to upgrade protector to be usable. "..
+			"\n\n Make sure you have " .. cost .. " mese in your inventory. "..
+			"If price is too high dig protector, find a spot farther away and try again. "..
+			"\n\nWARNING: think well before upgrade, it is not refundable.";
+			
+			local formspec = "size[4.5,5]"
+			..default.gui_bg..default.gui_bg_img..default.gui_slots..
+			"textarea[0,0;5.,5;help;-- Protector upgrade --;".. text .. "]"..
+			"button[ 0,4.5;2,1;upgrade_protector;UPGRADE]"
+
+			minetest.show_formspec(clicker:get_player_name(), 
+				"protector:upgrade_" .. minetest.pos_to_string(pos), formspec)
+			return
+		end
+		
+		
+		if 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,
+
+	on_punch = function(pos, node, puncher)
+		if not protector.can_dig(1, pos, puncher:get_player_name(), true, 1) then
+			return
+		end
+		minetest.add_entity(pos, "protector:display")
+	end,
+
+	can_dig = function(pos, player)
+		local meta = minetest.get_meta(pos);
+		return protector.can_dig(1, pos, player:get_player_name(), true, 1) or (meta:get_string("owner") == "") -- anyone can dig protector until its upgraded!
+	end,
+	
+	after_dig_node = function(pos, oldnode, oldmetadata, digger)
+		protector.count(pos,2); -- update counts after removal
+	end,
+})
+
+minetest.register_craft({
+	output = "protector:protect 4",
+	recipe = {
+		{"default:stone", "default:stone", "default:stone"},
+		{"default:stone", "default:mese", "default:stone"},
+		{"default:stone", "default:stone", "default:stone"},
+	}
+})
+
+
+
+-- If name entered or button press on protector
+
+minetest.register_on_player_receive_fields(function(player, formname, fields)
+
+	
+	-- protector upgrade
+	
+	if string.sub(formname, 0, string.len("protector:upgrade_")) == "protector:upgrade_" then
+	
+		if fields.upgrade_protector ~= "UPGRADE" then return end
+		local pos_s = string.sub(formname, string.len("protector:upgrade_") + 1)
+		local pos = minetest.string_to_pos(pos_s)
+		local meta = minetest.get_meta(pos)
+		local cost = math.floor(meta:get_int("cost"));
+		
+		--check player inventory for mese
+		local inv = player:get_inventory();
+		if not inv:contains_item("main", ItemStack("default:mese_crystal "..cost)) then 
+			minetest.chat_send_player(player:get_player_name(),"PROTECTOR: you need at least " .. cost .. " mese for upgrade ");
+			return 
+		end
+		inv:remove_item("main", ItemStack("default:mese_crystal "..cost));
+		
+		
+		meta:set_string("owner", player:get_player_name() or "");
+		meta:set_string("placer","");
+		local time = os.date("*t");
+		meta:set_string("infotext", "Protection (upgraded by ".. meta:get_string("owner").." at ".. time.month .. "/" .. time.day .. ", " ..time.hour.. ":".. time.min ..":" .. time.sec..")");
+		minetest.chat_send_player(player:get_player_name(),"PROTECTOR: successfuly upgraded");
+		
+		return
+	end
+	
+	
+	
+	
+	-- protector setup
+	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 ipairs(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)
+
+-- Display entity shown when protector node is punched
+
+minetest.register_entity("protector:display", {
+	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 = {"protector:display_node"},
+	timer = 0,
+	on_activate = function(self, staticdata)
+		if 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-zone node, Do NOT place the display as a node,
+-- it is made to be used as an entity (see above)
+
+local x = protector.radius
+minetest.register_node("protector:display_node", {
+	tiles = {"protector_display.png"},
+	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 = "",
+})
+
+
+-- Register Protected Doors
+
+local function on_rightclick(pos, dir, check_name, replace, replace_dir, params)
+	pos.y = pos.y+dir
+	if not minetest.get_node(pos).name == check_name then
+		return
+	end
+	local p2 = minetest.get_node(pos).param2
+	p2 = params[p2 + 1]
+
+	minetest.swap_node(pos, {name = replace_dir, param2 = p2})
+
+	pos.y = pos.y-dir
+	minetest.swap_node(pos, {name = replace, param2 = p2})
+
+	local snd_1 = "doors_door_close"
+	local snd_2 = "doors_door_open" 
+	if params[1] == 3 then
+		snd_1 = "doors_door_open"
+		snd_2 = "doors_door_close"
+	end
+
+	if minetest.get_meta(pos):get_int("right") ~= 0 then
+		minetest.sound_play(snd_1, {
+			pos = pos, gain = 0.3, max_hear_distance = 10})
+	else
+		minetest.sound_play(snd_2, {
+			pos = pos, gain = 0.3, max_hear_distance = 10})
+	end
+end
+
+-- Protected Wooden Door
+
+local name = "protector:door_wood"
+
+doors.register_door(name, {
+	description = "Protected Wooden Door",
+	inventory_image = "doors_wood.png^protector_logo.png",
+	groups = {
+		snappy = 1, choppy = 2, oddly_breakable_by_hand = 2,
+		door = 1, unbreakable = 1
+	},
+	tiles_bottom = {"doors_wood_b.png^protector_logo.png", "doors_brown.png"},
+	tiles_top = {"doors_wood_a.png", "doors_brown.png"},
+	sounds = default.node_sound_wood_defaults(),
+	sunlight = false,
+})
+
+minetest.override_item(name .. "_b_1", {
+	on_rightclick = function(pos, node, clicker)
+		if not minetest.is_protected(pos, clicker:get_player_name()) then
+			on_rightclick(pos, 1,
+			name .. "_t_1", name .. "_b_2", name .. "_t_2", {1, 2, 3, 0})
+		end
+	end,
+})
+
+minetest.override_item(name.."_t_1", {
+	on_rightclick = function(pos, node, clicker)
+		if not minetest.is_protected(pos, clicker:get_player_name()) then
+			on_rightclick(pos, -1,
+			name .. "_b_1", name .. "_t_2", name .. "_b_2", {1, 2, 3, 0})
+		end
+	end,
+})
+
+minetest.override_item(name.."_b_2", {
+	on_rightclick = function(pos, node, clicker)
+		if not minetest.is_protected(pos, clicker:get_player_name()) then
+			on_rightclick(pos, 1,
+			name .. "_t_2", name .. "_b_1", name .. "_t_1", {3, 0, 1, 2})
+		end
+	end,
+})
+
+minetest.override_item(name.."_t_2", {
+	on_rightclick = function(pos, node, clicker)
+		if not minetest.is_protected(pos, clicker:get_player_name()) then
+			on_rightclick(pos, -1,
+			name .. "_b_2", name .. "_t_1", name .. "_b_1", {3, 0, 1, 2})
+		end
+	end,
+})
+
+minetest.register_craft({
+	output = name,
+	recipe = {
+		{"group:wood", "group:wood"},
+		{"group:wood", "default:copper_ingot"},
+		{"group:wood", "group:wood"}
+	}
+})
+
+minetest.register_craft({
+	output = name,
+	recipe = {
+		{"doors:door_wood", "default:copper_ingot"}
+	}
+})
+
+-- Protected Steel Door
+
+local name = "protector:door_steel"
+
+doors.register_door(name, {
+	description = "Protected Steel Door",
+	inventory_image = "doors_steel.png^protector_logo.png",
+	groups = {
+		snappy = 1, bendy = 2, cracky = 1,
+		level = 2, door = 1, unbreakable = 1
+	},
+	tiles_bottom = {"doors_steel_b.png^protector_logo.png", "doors_grey.png"},
+	tiles_top = {"doors_steel_a.png", "doors_grey.png"},
+	sounds = default.node_sound_wood_defaults(),
+	sunlight = false,
+})
+
+minetest.override_item(name.."_b_1", {
+	on_rightclick = function(pos, node, clicker)
+		if not minetest.is_protected(pos, clicker:get_player_name()) then
+			on_rightclick(pos, 1,
+			name .. "_t_1", name .. "_b_2", name .. "_t_2", {1, 2, 3, 0})
+		end
+	end,
+})
+
+minetest.override_item(name.."_t_1", {
+	on_rightclick = function(pos, node, clicker)
+		if not minetest.is_protected(pos, clicker:get_player_name()) then
+			on_rightclick(pos, -1,
+			name .. "_b_1", name .. "_t_2", name .. "_b_2", {1, 2, 3, 0})
+		end
+	end,
+})
+
+minetest.override_item(name.."_b_2", {
+	on_rightclick = function(pos, node, clicker)
+		if not minetest.is_protected(pos, clicker:get_player_name()) then
+			on_rightclick(pos, 1,
+			name .. "_t_2", name .. "_b_1", name .. "_t_1", {3, 0, 1, 2})
+		end
+	end,
+})
+
+minetest.override_item(name.."_t_2", {
+	on_rightclick = function(pos, node, clicker)
+		if not minetest.is_protected(pos, clicker:get_player_name()) then
+			on_rightclick(pos, -1,
+			name .. "_b_2", name .. "_t_1", name .. "_b_1", {3, 0, 1, 2})
+		end
+	end,
+})
+
+minetest.register_craft({
+	output = name,
+	recipe = {
+		{"default:steel_ingot", "default:steel_ingot"},
+		{"default:steel_ingot", "default:copper_ingot"},
+		{"default:steel_ingot", "default:steel_ingot"}
+	}
+})
+
+minetest.register_craft({
+	output = name,
+	recipe = {
+		{"doors:door_steel", "default:copper_ingot"}
+	}
+})
+
+-- Protected Chest
+
+minetest.register_node("protector:chest", {
+	description = "Protected Chest",
+	tiles = {
+		"default_chest_top.png", "default_chest_top.png",
+		"default_chest_side.png", "default_chest_side.png",
+		"default_chest_side.png", "default_chest_front.png^protector_logo.png"
+	},
+	paramtype2 = "facedir",
+	groups = {choppy = 2, oddly_breakable_by_hand = 2, unbreakable = 1},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_wood_defaults(),
+
+	on_construct = function(pos)
+		local meta = minetest.get_meta(pos)
+		meta:set_string("infotext", "Protected Chest")
+		meta:set_string("name", "")
+		local inv = meta:get_inventory()
+		inv:set_size("main", 8 * 4)
+	end,
+
+	can_dig = function(pos,player)
+		local meta = minetest.get_meta(pos)
+		local inv = meta:get_inventory()
+		if inv:is_empty("main") then
+			if not minetest.is_protected(pos, player:get_player_name()) then
+				return true
+			end
+		end
+	end,
+
+	on_metadata_inventory_put = function(pos, listname, index, stack, player)
+		minetest.log("action", player:get_player_name() ..
+		" moves stuff to protected chest at " .. minetest.pos_to_string(pos))
+	end,
+
+	on_metadata_inventory_take = function(pos, listname, index, stack, player)
+		minetest.log("action", player:get_player_name() ..
+		" takes stuff from protected chest at " .. minetest.pos_to_string(pos))
+	end,
+
+	on_rightclick = function(pos, node, clicker)
+		if not minetest.is_protected(pos, clicker:get_player_name()) then
+		local meta = minetest.get_meta(pos)
+		local spos = pos.x .. "," .. pos.y .. "," ..pos.z
+		local formspec = "size[8,9]"..
+			default.gui_bg..default.gui_bg_img..default.gui_slots
+			.. "list[nodemeta:".. spos .. ";main;0,0.3;8,4;]"
+			.. "button[0,4.5;2,0.25;toup;To Chest]"
+			.. "field[2.3,4.8;4,0.25;chestname;;"
+			.. meta:get_string("name") .. "]"
+			.. "button[6,4.5;2,0.25;todn;To Inventory]"
+			.. "list[current_player;main;0,5;8,1;]"
+			.. "list[current_player;main;0,6.08;8,3;8]"
+			.. "listring[nodemeta:" .. spos .. ";main]"
+			.. "listring[current_player;main]"
+			.. default.get_hotbar_bg(0,5)
+
+			minetest.show_formspec(
+				clicker:get_player_name(),
+				"protector:chest_" .. minetest.pos_to_string(pos),
+				formspec)
+		end
+	end,
+})
+
+-- Protected Chest formspec buttons
+
+minetest.register_on_player_receive_fields(function(player, formname, fields)
+
+	if string.sub(formname, 0, string.len("protector:chest_")) == "protector:chest_" then
+
+		local pos_s = string.sub(formname,string.len("protector:chest_") + 1)
+		local pos = minetest.string_to_pos(pos_s)
+		local meta = minetest.get_meta(pos)
+		local chest_inv = meta:get_inventory()
+		local player_inv = player:get_inventory()
+
+		if fields.toup then
+
+			-- copy contents of players inventory to chest
+			for i, v in ipairs (player_inv:get_list("main") or {}) do
+				if (chest_inv and chest_inv:room_for_item('main', v)) then
+					local leftover = chest_inv:add_item('main', v)
+					player_inv:remove_item("main", v)
+					if (leftover and not(leftover:is_empty())) then
+						player_inv:add_item("main", v)
+					end
+				end
+			end
+	
+		elseif fields.todn then
+
+			-- copy contents of chest to players inventory
+			for i, v in ipairs (chest_inv:get_list('main') or {}) do
+				if (player_inv:room_for_item("main", v)) then
+					local leftover = player_inv:add_item("main", v)
+					chest_inv:remove_item('main', v)
+					if( leftover and not(leftover:is_empty())) then
+						chest_inv:add_item('main', v)
+					end
+				end
+			end
+
+		elseif fields.chestname then
+
+			-- change chest infotext to display name
+			if fields.chestname ~= "" then
+				meta:set_string("name", fields.chestname)
+				meta:set_string("infotext",
+				"Protected Chest (" .. fields.chestname .. ")")
+			else
+				meta:set_string("infotext", "Protected Chest")
+			end
+
+		end
+	end
+
+end)
+
+-- Protected Chest recipe
+
+minetest.register_craft({
+	output = 'protector:chest',
+	recipe = {
+		{'group:wood', 'group:wood', 'group:wood'},
+		{'group:wood', 'default:copper_ingot', 'group:wood'},
+		{'group:wood', 'group:wood', 'group:wood'},
+	}
+})
+
+minetest.register_craft({
+	output = 'protector:chest',
+	recipe = {
+		{'default:chest', 'default:copper_ingot', ''},
+	}
+})
+
+-- Disable PVP in your own protected areas
+if minetest.setting_getbool("enable_pvp") and protector.pvp then
+
+	if minetest.register_on_punchplayer then
+
+		minetest.register_on_punchplayer(
+		function(player, hitter, time_from_last_punch, tool_capabilities, dir, damage)
+
+			if not player or not hitter then
+				print("[Protector] on_punchplayer called with nil objects")
+			end
+
+			if not hitter:is_player() then
+				return false
+			end
+
+			-- no pvp at spawn area
+			local pos = player:getpos()
+			if pos.x < statspawn.x + protector.spawn
+			and pos.x > statspawn.x - protector.spawn
+			and pos.y < statspawn.y + protector.spawn
+			and pos.y > statspawn.y - protector.spawn
+			and pos.z < statspawn.z + protector.spawn
+			and pos.z > statspawn.z - protector.spawn then
+				return true
+			end
+
+			if minetest.is_protected(pos, hitter:get_player_name()) then
+				return true
+			else
+				return false
+			end
+
+		end)
+	else
+		print("[Protector] pvp_protect not active, update your version of Minetest")
+
+	end
+else
+	print("[Protector] pvp_protect is disabled")
+end
+
+print ("[MOD] Protector Redo loaded")

license.txt

@@ -0,0 +1,14 @@
+
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+                    Version 2, December 2004
+
+ Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
+
+ Everyone is permitted to copy and distribute verbatim or modified
+ copies of this license document, and changing it is allowed as long
+ as the name is changed.
+
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. You just DO WHAT THE FUCK YOU WANT TO.