new features

creative_areas/init.lua

@@ -1,67 +1,119 @@
 local storage = minetest.get_mod_storage()
 local cr_areas = minetest.deserialize(storage:get_string("cr_areas")) or {}
+local privtbl = {["interact"] = false, ["fast"] = false, ["fly"] = false, 
+["noclip"] = false, ["creative"] = false, ["teleport"] = false, ["worldedit"] = false}
+
 ---------------
 -- Functions
 ---------------
+-- Check for intersecting creative areas
+function intersects_cr_area(areaID)
+	local ID = areaID
+	local newarea = areas.areas[ID]
+	local np1, np2 = newarea["pos1"], newarea["pos2"]
+	if cr_areas == {} then
+		return false
+	end
+	for k, v in pairs(cr_areas) do
+		local id = tonumber(k)
+		local area = areas.areas[tonumber(id)]
+		if area ~= nil then
+			local p1, p2 = area["pos1"], area["pos2"]
+			for cx = p1.x, p2.x do
+				for cy = p1.y, p2.y do
+					for cz = p1.z, p2.z do
+						for nx = np1.x, np2.x do
+							for ny = np1.y, np2.y do
+								for nz = np1.z, np2.z do
+									if cx == nx and cy == ny and cz == nz then
+										return true
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+	return false
+end
 -- Add creative area to list.
 local function make_cr_area(name, areaID)
 	local id = tonumber(areaID)
+	local intersects = intersects_cr_area(id)
+	if intersects == true then
+		return minetest.chat_send_player(name, "This area interesects another creative area.")
+	end
+	if privs == nil then privs = privtbl end
 	if areas.areas[id] ~= nil then
+		id = tostring(id)
 		if cr_areas ~= {} then
-			for i = 1, #cr_areas do
-				if cr_areas[i] == id then
-					return minetest.chat_send_player(name, "Area " ..id.." is already a creative area.")
-				end
+			if cr_areas[id] then
+				cr_areas[id]["privs"] = privs
+				return minetest.chat_send_player(name, "Creative Area " ..id.." updated")
 			end
-		end	
-		table.insert(cr_areas, id)
+		end
+		local cr_area = {}
+		cr_area["privs"] = privs	
+		cr_areas[id] = cr_area
 		storage:set_string("cr_areas", minetest.serialize(cr_areas))
 		minetest.chat_send_player(name, "Area added to Creative Areas!")
 	else minetest.chat_send_player(name, "Not a valid area ID")	 
 	end
 end
 --Removes Creative Area
-local function rm_cr_area(name, areaID)
-	local id = tonumber(areaID) 
-	for i = 1, #cr_areas do
-		if cr_areas[i] == id then
-			table.remove(cr_areas, i)
-			storage:set_string("cr_areas", minetest.serialize(cr_areas))
-			return minetest.chat_send_player(name, "Creative area removed!")
+local function rm_cr_area(name, ID)
+	local id = tostring(ID)
+	local i = 1
+	if cr_areas[id] then
+		for k,v in pairs(cr_areas) do
+			if k == id then
+				cr_areas[k] = nil
+				storage:set_string("cr_areas", minetest.serialize(cr_areas))
+				return minetest.chat_send_player(name, "Creative area removed!")
+			end
 		end
+	else
+		return minetest.chat_send_player(name, "Not a creative area ID")
 	end
-	return minetest.chat_send_player(name, "Not a creative area ID")
+end
+--Remove creative area which are no longer stored by areas mod
+local function rm_nil_areas(areaID)
+	if areas.areas[areaID] == nil then 
+		cr_areas[tostring(areaID)] = nil
+		storage:set_string("cr_areas", minetest.serialize(cr_areas))
+	end 
 end
 -- Checks players location against listed creative areas.
-function check_cr_area(player)
+local function check_cr_area(player)
 	local pos = player:get_pos()
 	local area_at_pos = areas:getAreasAtPos(pos)
 	local status = false
-	if cr_areas ~= {} then
-		for i = 1, #cr_areas do
-			local areaID = cr_areas[i]
-			-- Clean up creative areas which are have been deleted from Areas mod
-			if areas.areas[areaID] == nil then 
-				table.remove(cr_areas, i)
-				storage:set_string("cr_areas", minetest.serialize(cr_areas))
-			end 
-			-- Compare Areas which  player are in with Creative Area. Grant/revoke creative priv accordingly."
-			for _, in_area in pairs(area_at_pos) do
-				if in_area["pos1"] == areas.areas[areaID]["pos1"] --make sure the areas are not just the same name.
-				 and in_area["name"] == areas.areas[areaID]["name"] then
-					status = true
+	local ID = 0
+	--if area_at_pos ~= {} then
+		for k, v in pairs(cr_areas) do
+			if tonumber(k) ~= nil then
+			local areaID = tonumber(k)
+--Compare Areas which  player are in with Creative Area. Grant/revoke creative priv accordingly."
+				for _, in_area in pairs(area_at_pos) do
+					if in_area["pos1"] == areas.areas[areaID]["pos1"] --make sure the areas are not just the same name.
+					and in_area["name"] == areas.areas[areaID]["name"] then
+						status = true
+						ID = tostring(areaID)
+					end
 				end
 			end
 		end
-	end
-	return status
+	
+	return status, ID
 end
 --------------------
 -- Chat Commands
 -------------------
 minetest.register_chatcommand("creative_area", {
 	description = "Sets area to grant players creative priv while inside it",
-	params = "<AreaID>",
+	params = "<AreaID> <Privs>",
 	privs = {privs = true},
 	func = function(name, param)
 		make_cr_area(name, param)
@@ -84,17 +136,46 @@ minetest.register_chatcommand("ls_creative_areas", {
 		local list = ""
 		if cr_areas ~= {} then
 			for i = 1, #cr_areas do
-				local id = tonumber(cr_areas[i])
-				local area_name = areas.areas[ id ]["name"]
-				list = list .. " " .. area_name .. " (ID="..id..")"
+				for k, v in pairs(cr_areas[i]) do
+					if k == "id" then
+						local id = tonumber(v)
+						local area_name = areas.areas[id]["name"]
+						list = list .. " " .. area_name .. " (ID="..id..")"
+					end
+				end
+				minetest.chat_send_player(name, "Creative Area (ID): "..list)
 			end
-			minetest.chat_send_player(name, "Creative Area (ID): "..list)
 		else minetest.chat_send_player(name, "No creative areas found")
 		end
 	end
 })
+------------------------------------------------------------------------
+-- Store players default privs on joining first time incase spawning in creative area.
+------------------------------------------------------------------------
+local function store_privs(player)
+	local status = check_cr_area(player) 
+	if status == false then
+		pname = player:get_player_name()
+		cr_areas[pname] = minetest.get_player_privs(pname)
+		storage:set_string("cr_areas", minetest.serialize(cr_areas))
+	end
+end
+
+
+minetest.register_on_newplayer(function(player)
+	store_privs(player)
+end)
+
+minetest.register_on_leaveplayer(function(player)
+	local status = check_cr_area(player)
+	if status == false then
+		pname = player:get_player_name()
+		cr_areas[pname] = nil
+		storage:set_string("cr_areas", minetest.serialize(cr_areas))
+	end
+end)
 -------------------------------------------------
--- Check location and Grant/revoke creative priv
+-- Check location and Grant/revoke indicated privs
 -------------------------------------------------
 local timer = 0
 minetest.register_globalstep(function(dtime)
@@ -105,8 +186,30 @@ minetest.register_globalstep(function(dtime)
 			local privs = minetest.get_player_privs(pname)	
 			local inv = minetest.get_inventory({type="player", name=pname})
 			if minetest.get_player_privs(pname).privs == nil then --Players with the "privs" priv will not have privileges effected.
-				if 	check_cr_area(player) == true then
-					if not minetest.check_player_privs(pname, {creative = true}) then
+				local status, id = check_cr_area(player) 					
+				if status == true then
+					if not cr_areas[pname] then
+						store_privs(player)
+					end
+					for k, v in pairs(cr_areas[id]["privs"]) do
+						if v == true then
+						privs[k] = true
+						end
+					end
+					minetest.set_player_privs(pname, privs)
+					-- Reload inventory formspec
+					if not minetest.get_modpath("unified_inventory") then
+						local context = {page = sfinv.get_homepage_name(player)}--minetest.get_inventory{{type="detached", name="creative_"..pname}}--{page = sfinv.pages["creative_"..pname]}						
+						sfinv.set_player_inventory_formspec(player, context)
+					end
+					-- Store inventory for restoration after leaving creative area
+					local invlist = inv:get_list("main")
+						inv:set_list("saved", invlist)
+						local list = ""
+						for i = 1, #invlist do
+							list = list .." "..dump(invlist[i]) 
+						end	
+					--[[]if not minetest.check_player_privs(pname, {creative = true}) then
 						privs.creative = true
 						minetest.set_player_privs(pname, privs)
 						if not minetest.get_modpath("unified_inventory") then
@@ -123,9 +226,14 @@ minetest.register_globalstep(function(dtime)
 						--write_file(inv_file,)
 						minetest.chat_send_player(pname, "You are in creative area.")
 						
+					end]]--
+				elseif status == false then
+					if cr_areas[pname] then
+						minetest.set_player_privs(pname, cr_areas[pname])
 					end
-				else
-					if minetest.check_player_privs(pname, {creative=true}) then
+				end
+						
+					--[[]	if minetest.check_player_privs(pname, {creative=true}) then
 						privs.creative = nil
 						minetest.set_player_privs(pname, privs)
 						local saved = inv:get_list("saved")
@@ -138,10 +246,104 @@ minetest.register_globalstep(function(dtime)
 						end
 						--unified_inventory.get_formspec(player, page)
 						minetest.chat_send_player(pname, "You have left creative area.")
-					end
-				end
+]]--					
 			end
 		end
 		timer = 0
 	end
 end)
+
+----------------------------------
+--Formspec for SVINV
+----------------------------------
+
+local function set_switches(area_id)
+	local tbl = privtbl
+	local id = tostring(area_id)
+	local X, Y = 0.5, 5.5
+	local j = 1
+	local switches, state = "", ""
+	local function form(t)
+		local switches = ""
+		for k, v in pairs(tbl) do
+			local priv = k
+			if v == true then
+				state = "on"
+			else state = "off"
+			end
+			switches = switches .. "label["..tostring(X)..","..tostring(Y-0.5)..";"..priv.."]"
+		.."image_button["..tostring(X)..","..tostring(Y)..";0.8,0.5;switch_"..state..".png;"..priv..";]"
+			if X < 5.75 then
+			X=X+2
+			else X = 0.5
+			end
+			if j == 4 or j == 8 then
+				Y = Y + 1.25
+			end
+			if j < 12 then
+				j = j+1
+			elseif j >= 12 then break 
+			end
+		end
+		return switches
+	end
+	if id ~= 0 then
+		if cr_areas[id] then
+			tbl = cr_areas[id]["privs"]
+		end
+	end
+	local switches = form(tbl)
+	return switches
+end
+
+local function toggle_switch(ID, priv)
+	
+end
+
+sfinv.register_page("creative_areas:areas", {
+	title = "Creative Areas",
+	is_in_nav = function(self, player, context)
+		local privs = minetest.get_player_privs(player:get_player_name())
+		return privs.privs
+	end,
+	get = function(self, player, context)
+		local status, areaid = check_cr_area(player)
+		local privs = privtbl
+		
+		local formspec = {
+			"label[1.75,1;Add or Remove a Creative Area]"
+			.."label[0.5,2;Area ID]"
+			.."field[2.5,2;1,1;areaid;;"..areaid.."]"
+			
+			.."label[0.5,4;Check privs to be granted in this area]"
+			..set_switches(areaid)
+			.."button[3.5,1.75;2,1;mkcrarea;Add]"
+			.."button[5.5,1.75;2,1;rmcrarea;Remove]"
+		}
+		return sfinv.make_formspec(player, context, table.concat(formspec, ""), false)
+	end,
+	on_player_receive_fields = function(self, player, formname, fields)
+		local tbl = {}
+		if fields.rmcrarea and fields.areaid then 
+			return rm_cr_area(player:get_player_name(), fields.areaid)
+		elseif fields.mkcrarea and fields.areaid then
+			return make_cr_area(player:get_player_name(), fields.areaid)
+		elseif fields.areaid then
+			local id = fields.areaid
+			if cr_areas[id] ~= nil then  
+				for k, v in pairs(cr_areas[id]["privs"]) do
+					if fields[k] then
+						minetest.chat_send_all(k)
+						if v == false then
+							cr_areas[id]["privs"][k] = true
+						elseif v == true then 
+							cr_areas[id]["privs"][k] = false
+						end
+						storage:set_string("cr_areas", minetest.serialize(cr_areas))
+						sfinv.set_player_inventory_formspec(player)
+					end
+				end
+			end
+		end
+	end
+})