path: root/init.lua

minetest.register_privilege("delprotect","Ignore player protection")

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

-- Intllib
local S
if minetest.get_modpath("intllib") then
	S = intllib.Getter()
else
	S = function(s, a, ...)
		if a == nil then
			return s
		end
		a = {a, ...}
		return s:gsub("(@?)@(%(?)(%d+)(%)?)",
			function(e, o, n, c)
				if e == ""then
					return a[tonumber(n)] .. (o == "" and c or "")
				else
					return "@" .. o .. n .. c
				end
			end)
		end
end
protector.intllib = S

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, pos)
   local sell = ""
   if not protector.overlaps(pos) then
      sell = "button[7,1;1,1;sell;sell]"
   end
	local formspec = "size[8,7]"
		.. default.gui_bg
		.. default.gui_bg_img
		.. default.gui_slots
		.. "label[2.5,0;" .. S("-- Protector interface --") .. "]"
		.. "label[0,1;" .. S("PUNCH node to show protected area or USE for area check") .. "]"
		.. "label[0,2;" .. S("Members:") .. "]"
		.. "button_exit[2.5,6.2;3,0.5;close_me;" .. S("Close") .. "]" .. sell


	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

protector.generate_sale_formspec = function(meta, pos)
   local price = minetest.deserialize(meta:get_string("price")) or 0
   local formspec = "size[8,7]"
      .. default.gui_bg
      .. default.gui_bg_img
      .. default.gui_slots
      .. "label[2.5,0;" .. S("-- Sell area --") .. "]"
      .. "label[2.5,1;" .. S("Price: $") .. price .. "]" ..
      "item_image_button[2.5,2;1,1;".. "currency:minegeld" ..";i1;\n\n\b\b\b\b\b" .. "1" .."]" ..
      "item_image_button[2.5,3;1,1;".. "currency:minegeld_5" ..";i5;\n\n\b\b\b\b\b" .. "1" .."]" ..
      "item_image_button[2.5,4;1,1;".. "currency:minegeld_10" ..";i10;\n\n\b\b\b\b\b" .. "1" .."]" ..
      "item_image_button[4.5,2;1,1;".. "currency:minegeld" ..";i-1;\n\n\b\b\b\b\b" .. "-1" .."]" ..
      "item_image_button[4.5,3;1,1;".. "currency:minegeld_5" ..";i-5;\n\n\b\b\b\b\b" .. "-1" .."]" ..
      "item_image_button[4.5,4;1,1;".. "currency:minegeld_10" ..";i-10;\n\n\b\b\b\b\b" .. "-1" .."]" ..
      "button_exit[1.5,6.2;3,0.5;dont_sell;" .. S("Don't sell!") .. "]" .. "button_exit[4.6,6.2;3,0.5;ok;Sell!]"
   return formspec
end

protector.generate_buy_formspec = function(meta, player)
   local price = minetest.deserialize(meta:get_string("price")) or 15
   if not atm.balance[player] then
      atm.balance[player] = 0
      atm.saveaccounts()
   end
   local formspec = "size[8,7]"
      .. default.gui_bg
      .. default.gui_bg_img
      .. default.gui_slots
      .. "label[2.5,0;" .. S("-- Sell area --") .. "]"
      .. "label[2.5,1;" .. S("Price: $") .. price .. "]" ..
      "label[2.5,2;" .. S("Your account balance: $") .. atm.balance[player] .. "]" ..
      "button_exit[1.5,6.2;3,0.5;cancel;" .. S("Cancel") .. "]" .. "button_exit[4.6,6.2;3,0.5;ok;Buy]"
   return formspec
end


protector.overlaps = function(p)
   local r = protector.radius * 2
   local pos = minetest.find_nodes_in_area(
      {x = p.x - r, y = p.y - r, z = p.z - r},
      {x = p.x + r, y = p.y + r, z = p.z + r},
      {"protector:protect", "protector:protect2", "protector:protect_sell"})
   if (#pos > 1) then
      return true
   end
   return false
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)

	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 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:protect", "protector:protect2", "protector:protect_sell"})

	local meta, owner, members

	for n = 1, #pos do

		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,
					S("This area is owned by @1!", owner))

				elseif infolevel == 2 then

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

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

					if members ~= "" then

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

				return false
			end
		end

		if infolevel == 2 then

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

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

			if members ~= "" then

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

			return false
		end

	end

	if infolevel == 2 then

		if #pos < 1 then

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

		minetest.chat_send_player(digger, S("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

		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

	if 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(),
			S("Overlaps into above players protected area"))

		return
	end

	return minetest.item_place(itemstack, placer, pointed_thing)

end

--= Protection Block

minetest.register_node("protector:protect", {
	description = S("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)

		local meta = minetest.get_meta(pos)

		meta:set_string("owner", placer:get_player_name() or "")
		meta:set_string("infotext", S("Protection (owned by @1)", meta:get_string("owner")))
		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)

		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, pos))
		end
	end,

	on_punch = function(pos, node, puncher)

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

		minetest.add_entity(pos, "protector:display")
	end,

	can_dig = function(pos, player)

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

	on_blast = function() end,
})

minetest.register_node("protector:protect_sell", {
	description = S("Protection Block For Sale"),
	drawtype = "nodebox",
	tiles = {
		"forsale.png",
		"forsale.png",
		"forsale.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,
	drop = "protector:protect",
	node_box = {
		type = "fixed",
		fixed = {
			{-0.5 ,-0.5, -0.5, 0.5, 0.5, 0.5},
		}
	},

	on_punch = function(pos, node, puncher)

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

		minetest.add_entity(pos, "protector:display")
	end,
	on_rightclick = function(pos, node, clicker, itemstack)
	   
	   local meta = minetest.get_meta(pos)
	   minetest.show_formspec(clicker:get_player_name(), 
				  "protector_sell:node_" .. minetest.pos_to_string(pos), protector.generate_buy_formspec(meta, clicker:get_player_name()))
	end,

	can_dig = function(pos, player)

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

	on_blast = function() end,
})

if protector.craft then
   minetest.register_craft({
	 output = "protector:protect",
	 recipe = {
	    {"default:stone", "default:stone", "default:stone"},
	    {"default:stone", "default:steel_ingot", "default:stone"},
	    {"default:stone", "default:stone", "default:stone"},
	 }
   })
   minetest.register_craft({
	 output = "protector:protect2",
	 recipe = {
	    {"default:stone", "default:stone", "default:stone"},
	    {"default:stone", "default:copper_ingot", "default:stone"},
	    {"default:stone", "default:stone", "default:stone"},
	 }
   })
end
--= Protection Logo

minetest.register_node("protector:protect2", {
	description = S("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"},

	on_place = protector.check_overlap,

	after_place_node = function(pos, placer)

		local meta = minetest.get_meta(pos)
		meta:set_string("price", minetest.serialize(0))
		meta:set_string("owner", placer:get_player_name() or "")
		meta:set_string("infotext", S("Protection (owned by @1)", meta:get_string("owner")))
		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)

		local meta = minetest.get_meta(pos)

		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,pos))
		end
	end,

	on_punch = function(pos, node, puncher)

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

		minetest.add_entity(pos, "protector:display")
	end,

	can_dig = function(pos, player)

		return protector.can_dig(1, pos, player:get_player_name(), true, 1)
	end,
	
	on_blast = function() end,
})


-- If name entered or button press
local function swap_node(pos, name)
   local node = minetest.get_node(pos)
   if node.name == name then
      return
   end
   node.name = name
   minetest.swap_node(pos, node)
end

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 and not fields.sell then
	    minetest.show_formspec(player:get_player_name(), formname, protector.generate_formspec(meta,pos))
	 end

	 if fields.sell then
	    minetest.show_formspec(player:get_player_name(), "sell"..formname, protector.generate_sale_formspec(meta,pos))
	 end


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

	 local pos_s = string.sub(formname, string.len("sellprotector:node_") + 1)
	 local pos = minetest.string_to_pos(pos_s)
	 local meta = minetest.get_meta(pos)
	 local price = minetest.deserialize(meta:get_string("price")) or 0
	 for _,i in pairs({"1","5","10", "-1", "-5", "-10"}) do
	    if fields["i"..i] then
	       price = price + i
	       if price < 0 then
		  price = 0
	       end
	    end
	 end
	 meta:set_string("price", minetest.serialize(price))
	 if fields.ok then
	    swap_node(pos, "protector:protect_sell")
	    meta:set_string("infotext", S("Protection for sale (owned by @1)", meta:get_string("owner")))
	 end
	 if not fields.ok and not fields.dont_sell then
	    minetest.show_formspec(player:get_player_name(), formname, protector.generate_sale_formspec(meta,pos))
	 end
      end

      if string.sub(formname, 0, string.len("protector_sell:node_")) == "protector_sell:node_" then
	 local pos_s = string.sub(formname, string.len("protector_sell:node_") + 1)
	 local pos = minetest.string_to_pos(pos_s)
	 local meta = minetest.get_meta(pos)
	 local price = minetest.deserialize(meta:get_string("price")) or 0
	 local name = player:get_player_name()
	 local oldowner = meta:get_string("owner")
	 if fields.cancel then
	    return
	 end
	 if (price > atm.balance[name]) and not (name == oldowner) then
	    minetest.chat_send_player(name, "Not enough money on your account. Please recharge on the atm")
	    return
	 else
	    atm.balance[name] = atm.balance[name] - price
	    atm.balance[oldowner] = atm.balance[oldowner] + price
	    atm.saveaccounts()
	 end
	 swap_node(pos, "protector:protect")
	 meta:set_string("owner", name)
	 meta:set_string("members", "")
	 meta:set_string("infotext", S("Protection (owned by @1)", meta:get_string("owner")))
	 minetest.chat_send_player(name, "Bought protector")
      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)

		-- Xanadu server only
		if (mobs and mobs.entity and mobs.entity == false)
		or not self 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 = "",
})

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

print (S("[MOD] Protector Redo loaded"))