Initial commit

Was a bit long, but it's read

.gitignore

@@ -0,0 +1 @@
+*~

protector/depends.txt

@@ -0,0 +1 @@
+default

protector/init.lua

@@ -0,0 +1,230 @@
+-- Zeg9's protector mod
+-- based on glomie's mod of the same name
+-- Released under WTFPL
+
+--[[table.contains = function(list, what)
+	for _, i in ipairs(list) do
+		if i == what then
+			return true
+		end
+	end
+	return false
+end]]
+
+protector = {}
+
+protector.node = "protector:protect"
+protector.item = "protector:stick"
+
+protector.get_member_list = function(meta)
+	s = meta:get_string("members")
+	list = s:split(" ")
+	print(dump(list))
+	return list
+end
+
+protector.set_member_list = function(meta, list)
+	s = ""
+	for _, i in ipairs(list) do
+		s = s .. i .. " "
+	end
+	s = s:sub(0,s:len()-1) -- remove last space
+	print ("Members: " .. s .. ";")
+	meta:set_string("members",s)
+end
+
+protector.is_member = function (meta, name)
+	list = protector.get_member_list(meta)
+	for _, n in ipairs(list) 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
+	list = protector.get_member_list(meta)
+	table.insert(list,name)
+	protector.set_member_list(meta,list)
+end
+
+protector.del_member = function(meta,name)
+	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.generate_formspec = function (meta)
+	if meta:get_int("page") == nil then meta:set_int("page",0) end
+	formspec = "size[8,8]"
+	formspec = formspec .. "label[0,0;Protection owned by "..meta:get_string("owner")..".]"
+		.."label[0,1;Add a member:]"
+		.."field[3,1.33;2,1;add_member;;]"
+		.."button[5,1;1,1;submit;Ok]"
+		.."label[0,2;Members (click to remove):]"
+	members = protector.get_member_list(meta)
+	
+	s = 0
+	i = 0
+	for _, member in ipairs(members) do
+		if s < meta:get_int("page")*16 then s = s +1 else
+			if i < 16 then
+				formspec = formspec .. "button["..(i%4*2)..","..math.floor(i/4+3)..";2,.5;del_member;"..member.."]"
+			end
+			i = i +1
+		end
+	end
+	
+	if s > 0 then
+		formspec = formspec .. "button[0,7;1,1;page_prev;<<]"
+	else
+		formspec = formspec .. "button[0,7;1,1;;<<]"
+	end
+	if i > 16 then
+		formspec = formspec .. "button[7,7;1,1;page_next;>>]"
+	else
+		formspec = formspec .. "button[7,7;1,1;;>>]"
+	end
+	formspec = formspec .. "label[3,7;Page "..(meta:get_int("page")+1).."/"..math.floor((s+i-1)/16+1).."]"
+	return formspec
+end
+
+protector.can_dig = function(r,pos,digger,onlyowner)
+	local ok=true
+	for ix = pos.x-r,pos.x+r do
+		for iy = pos.y-r,pos.y+r do
+			for iz = pos.z-r,pos.z+r do
+				local node_name = minetest.env:get_node({x=ix,y=iy,z=iz})
+				if node_name.name == protector.node then
+					local meta = minetest.env:get_meta({x=ix,y=iy,z=iz})
+					if digger ~= nil then
+						local owner = (meta:get_string("owner"))					
+							if owner ~= digger:get_player_name() then 
+								ok=false
+								if not onlyowner and protector.is_member(meta, digger:get_player_name()) then
+									ok=true
+								end
+								if not ok then
+									minetest.chat_send_player(digger:get_player_name(), "This area is owned by "..owner.." !")
+									return false
+								end
+							end
+						end			
+				end
+			end
+		end
+	end
+	return true
+end
+
+local old_node_dig = minetest.node_dig
+function minetest.node_dig(pos, node, digger)
+	local ok=true
+	if node.name ~= protector.node then
+	ok = protector.can_dig(5,pos,digger)
+	else ok = protector.can_dig(5,pos,digger,true)
+	end
+	if ok == true then
+		old_node_dig(pos, node, digger)
+	end
+end
+
+local old_node_place = minetest.item_place
+function minetest.item_place(itemstack, placer, pointed_thing)
+	if itemstack:get_definition().type == "node" then
+		local ok=true
+		if itemstack:get_name() ~= protector.node then
+			local pos = pointed_thing.above
+			ok = protector.can_dig(5,pos,placer)
+		else
+			local pos = pointed_thing.above
+			ok = protector.can_dig(10,pos,placer,true)
+		end 
+		if ok == true then
+			return old_node_place(itemstack, placer, pointed_thing)
+		else
+			return
+		end	
+	end	
+	return old_node_place(itemstack, placer, pointed_thing)
+end
+protect = {}
+minetest.register_node(protector.node, {
+	description = "Protection",
+	tile_images = {"protector_top.png","protector_top.png","protector_side.png"},
+	sounds = default.node_sound_stone_defaults(),
+	groups = {dig_immediate=2},
+	after_place_node = function(pos, placer)
+		local meta = minetest.env: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", "")
+		meta:set_string("formspec",protector.generate_formspec(meta))
+	end,
+	on_receive_fields = function(pos,formname,fields,sender)
+		local meta = minetest.env:get_meta(pos)
+		if meta:get_int("page") == nil then meta:set_int("page",0) end
+		if sender:get_player_name() == meta:get_string("owner") then
+			if fields.add_member then
+				for _, i in ipairs(fields.add_member:split(" ")) do
+					protector.add_member(meta,i)
+				end
+			end
+			if fields.del_member then
+				protector.del_member(meta, fields.del_member)
+			end
+			if fields.page_prev then
+				meta:set_int("page",meta:get_int("page")-1)
+			end
+			if fields.page_next then
+				meta:set_int("page",meta:get_int("page")+1)
+			end
+		end
+		meta:set_string("formspec",protector.generate_formspec(meta))
+	end,
+})
+
+minetest.register_craftitem(protector.item, {
+	description = "Protection tool",
+	inventory_image = "protector_stick.png",
+	on_use = function(itemstack, user, pointed_thing)
+		if pointed_thing.type ~= "node" then
+			return
+		end
+		pos = pointed_thing.under
+		r = 5
+		for ix = pos.x-r,pos.x+r do
+			for iy = pos.y-r,pos.y+r do
+				for iz = pos.z-r,pos.z+r do
+					local node_name = minetest.env:get_node({x=ix,y=iy,z=iz})
+					if node_name.name == protector.node then
+						local meta = minetest.env:get_meta({x=ix,y=iy,z=iz})
+						minetest.chat_send_player(user:get_player_name(),"This area is owned by "..meta:get_string("owner")..".")
+						if meta:get_string("members") ~= "" then
+							minetest.chat_send_player(user:get_player_name(),"Members are: "..meta:get_string("members")..".")
+						end
+						return
+					end
+				end
+			end
+		end
+		minetest.chat_send_player(user:get_player_name(),"This area is not protected.")
+	end,
+})
+
+minetest.register_craft({
+	output = protector.item,
+	recipe = {
+		{protector.node},
+		{'default:stick'},
+	}
+})
+