forked from mtcontrib/creative_areas
350 lines
10 KiB
Lua
350 lines
10 KiB
Lua
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
|
|
if cr_areas[id] then
|
|
cr_areas[id]["privs"] = privs
|
|
return minetest.chat_send_player(name, "Creative Area " ..id.." updated")
|
|
end
|
|
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, 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
|
|
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.
|
|
local function check_cr_area(player)
|
|
local pos = player:get_pos()
|
|
local area_at_pos = areas:getAreasAtPos(pos)
|
|
local status = false
|
|
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
|
|
|
|
return status, ID
|
|
end
|
|
--------------------
|
|
-- Chat Commands
|
|
-------------------
|
|
minetest.register_chatcommand("creative_area", {
|
|
description = "Sets area to grant players creative priv while inside it",
|
|
params = "<AreaID> <Privs>",
|
|
privs = {privs = true},
|
|
func = function(name, param)
|
|
make_cr_area(name, param)
|
|
end
|
|
})
|
|
|
|
minetest.register_chatcommand("rm_creative_area", {
|
|
description = "Revokes area from list of creative areas",
|
|
params = "<AreaID>",
|
|
privs = {privs = true},
|
|
func = function(name, param)
|
|
rm_cr_area(name, param)
|
|
end
|
|
})
|
|
|
|
minetest.register_chatcommand("ls_creative_areas", {
|
|
description = "List creative areas and IDs",
|
|
params = "",
|
|
func = function(name, params)
|
|
local list = ""
|
|
if cr_areas ~= {} then
|
|
for i = 1, #cr_areas do
|
|
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
|
|
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 indicated privs
|
|
-------------------------------------------------
|
|
local timer = 0
|
|
minetest.register_globalstep(function(dtime)
|
|
timer = timer + dtime
|
|
if timer >= math.random(1,3) then
|
|
for _, player in ipairs(minetest.get_connected_players()) do
|
|
local pname = player:get_player_name()
|
|
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.
|
|
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
|
|
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
|
|
--unified_inventory.get_formspec(player, page)
|
|
local invlist = inv:get_list("main")
|
|
inv:set_list("saved", invlist)
|
|
local list = ""
|
|
for i = 1, #invlist do
|
|
list = list .." "..dump(invlist[i])
|
|
end
|
|
--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
|
|
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")
|
|
if saved ~= nil then
|
|
inv:set_list("main", saved)
|
|
end
|
|
if not minetest.get_modpath("unified_inventory") then
|
|
local context = {page = sfinv.get_homepage_name(player)}
|
|
sfinv.set_player_inventory_formspec(player, context)
|
|
end
|
|
--unified_inventory.get_formspec(player, page)
|
|
minetest.chat_send_player(pname, "You have left creative area.")
|
|
]]--
|
|
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
|
|
})
|