codeandfix
/
node_ownership
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
node_ownership/init.lua

618 lines
20 KiB
Lua
Raw Permalink Blame History

-- load static configuration
dofile(minetest.get_modpath("node_ownership").."/settings.lua")
if _STATIC_DEBUG then print("node_ownership: DEBUG: true") end
-- declare local variables
minetest.register_privilege("griefing", {
description = "Griefing Mode",
give_to_singleplayer = true
})
--// exportstring( string )
--// returns a "Lua" portable version of the string
local function exportstring( s )
s = string.format( "%q",s )
-- to replace
s = string.gsub( s,"\\\n","\\n" )
s = string.gsub( s,"\r","\\r" )
s = string.gsub( s,string.char(26),"\"..string.char(26)..\"" )
return s
end
--// The Save Function
local function table_save( tbl,filename )
local charS,charE = " ","\n"
local file,err
-- create a pseudo file that writes to a string and return the string
if not filename then
file = { write = function( self,newstr ) self.str = self.str..newstr end, str = "" }
charS,charE = "",""
-- write table to tmpfile
elseif filename == true or filename == 1 then
charS,charE,file = "","",io.tmpfile()
-- write table to file
-- use io.open here rather than io.output, since in windows when clicking on a file opened with io.output will create an error
else
file,err = io.open( filename, "w" )
if err then return _,err end
end
-- initiate variables for save procedure
local tables,lookup = { tbl },{ [tbl] = 1 }
file:write( "return {"..charE )
for idx,t in ipairs( tables ) do
if filename and filename ~= true and filename ~= 1 then
file:write( "-- Table: {"..idx.."}"..charE )
end
file:write( "{"..charE )
local thandled = {}
for i,v in ipairs( t ) do
thandled[i] = true
-- escape functions and userdata
if type( v ) ~= "userdata" then
-- only handle value
if type( v ) == "table" then
if not lookup[v] then
table.insert( tables, v )
lookup[v] = #tables
end
file:write( charS.."{"..lookup[v].."},"..charE )
elseif type( v ) == "function" then
file:write( charS.."loadstring("..exportstring(string.dump( v )).."),"..charE )
else
local value = ( type( v ) == "string" and exportstring( v ) ) or tostring( v )
file:write( charS..value..","..charE )
end
end
end
for i,v in pairs( t ) do
-- escape functions and userdata
if (not thandled[i]) and type( v ) ~= "userdata" then
-- handle index
if type( i ) == "table" then
if not lookup[i] then
table.insert( tables,i )
lookup[i] = #tables
end
file:write( charS.."[{"..lookup[i].."}]=" )
else
local index = ( type( i ) == "string" and "["..exportstring( i ).."]" ) or string.format( "[%d]",i )
file:write( charS..index.."=" )
end
-- handle value
if type( v ) == "table" then
if not lookup[v] then
table.insert( tables,v )
lookup[v] = #tables
end
file:write( "{"..lookup[v].."},"..charE )
elseif type( v ) == "function" then
file:write( "loadstring("..exportstring(string.dump( v )).."),"..charE )
else
local value = ( type( v ) == "string" and exportstring( v ) ) or tostring( v )
file:write( value..","..charE )
end
end
end
file:write( "},"..charE )
end
file:write( "}" )
-- Return Values
-- return stringtable from string
if not filename then
-- set marker for stringtable
return file.str.."--|"
-- return stringttable from file
elseif filename == true or filename == 1 then
file:seek ( "set" )
-- no need to close file, it gets closed and removed automatically
-- set marker for stringtable
return file:read( "*a" ).."--|"
-- close file and return 1
else
file:close()
return 1
end
end
--// The Load Function
local function table_load( sfile )
-- catch marker for stringtable
if string.sub( sfile,-3,-1 ) == "--|" then
tables,err = loadstring( sfile )
else
tables,err = loadfile( sfile )
end
if err then return _,err
end
tables = tables()
for idx = 1,#tables do
local tolinkv,tolinki = {},{}
for i,v in pairs( tables[idx] ) do
if type( v ) == "table" and tables[v[1]] then
table.insert( tolinkv,{ i,tables[v[1]] } )
end
if type( i ) == "table" and tables[i[1]] then
table.insert( tolinki,{ i,tables[i[1]] } )
end
end
-- link values, first due to possible changes of indices
for _,v in ipairs( tolinkv ) do
tables[idx][v[1]] = v[2]
end
-- link indices
for _,v in ipairs( tolinki ) do
tables[idx][v[2]],tables[idx][v[1]] = tables[idx][v[1]],nil
end
end
return tables[1]
end
local owners_db_filename = minetest.get_worldpath("node_ownership") .. "/owners.tbl"
owner_defs = table_load(owners_db_filename)
if type(owner_defs) ~= "table" then
owner_defs = {}
end
function IsPlayerNodeOwner(pos, name)
r = false
for _,def in pairs(owner_defs) do
if pos.x >= def.x1 and pos.x <= def.x2 or
pos.x <= def.x1 and pos.x >= def.x2 then
if pos.y >= def.y1 and pos.y <= def.y2 or
pos.y <= def.y1 and pos.y >= def.y2 then
if pos.z >= def.z1 and pos.z <= def.z2 or
pos.z <= def.z1 and pos.z >= def.z2 then
if name == def.owner then
return true
else
r = false
end
end
end
end
end
return r
end
function GetNodeOwnerName(pos)
r = false
for _,def in pairs(owner_defs) do
if pos.x >= def.x1 and pos.x <= def.x2 or
pos.x <= def.x1 and pos.x >= def.x2 then
if pos.y >= def.y1 and pos.y <= def.y2 or
pos.y <= def.y1 and pos.y >= def.y2 then
if pos.z >= def.z1 and pos.z <= def.z2 or
pos.z <= def.z1 and pos.z >= def.z2 then
if def.owner == nil then
r = false
else
return def.owner
end
end
end
end
end
return r
end
function HasOwner(pos)
for _,def in pairs(owner_defs) do
if pos.x >= def.x1 and pos.x <= def.x2 or
pos.x <= def.x1 and pos.x >= def.x2 then
if pos.y >= def.y1 and pos.y <= def.y2 or
pos.y <= def.y1 and pos.y >= def.y2 then
if pos.z >= def.z1 and pos.z <= def.z2 or
pos.z <= def.z1 and pos.z >= def.z2 then
return true
end
end
end
end
return false
end
local old_node_place = minetest.item_place
function minetest.item_place(itemstack, placer, pointed_thing)
if itemstack:get_definition().type == "node" then
local pos = pointed_thing.above
if not minetest.check_player_privs(placer:get_player_name(), {griefing=true}) then
if HasOwner(pos) then
if not ( IsPlayerNodeOwner(pos, placer:get_player_name()) or IsPlayerNodeOwner(pos, "Sandbox") ) then
minetest.chat_send_player(placer:get_player_name(), "You need a concession to place nodes here - Grantor: ".._STATIC_grantor.." - ".."Concessionaire: "..GetNodeOwnerName(pos).." (X"..pos.x.." Y"..pos.y.." Z"..pos.z..") ")
return itemstack
end
else
minetest.chat_send_player(placer:get_player_name(), "You need a concession to place nodes here - Grantor: ".._STATIC_grantor.." (X"..pos.x.." Y"..pos.y.." Z"..pos.z..")")
return itemstack
end
end
return old_node_place(itemstack, placer, pointed_thing)
end
return old_node_place(itemstack, placer, pointed_thing)
end
local old_node_dig = minetest.node_dig
function minetest.node_dig(pos, node, digger)
if not minetest.check_player_privs(digger:get_player_name(), {griefing=true}) then
if HasOwner(pos) then
if not ( IsPlayerNodeOwner(pos, digger:get_player_name()) or IsPlayerNodeOwner(pos, "Sandbox") ) then
minetest.chat_send_player(digger:get_player_name(), "You need a concession to dig nodes here - Grantor: ".._STATIC_grantor.." - ".."Concessionaire: "..GetNodeOwnerName(pos).." (X"..pos.x.." Y"..pos.y.." Z"..pos.z..")")
return
end
else
minetest.chat_send_player(digger:get_player_name(), "You need a concession to dig nodes here - Grantor: ".._STATIC_grantor.." (X"..pos.x.." Y"..pos.y.." Z"..pos.z..")")
return
end
end
old_node_dig(pos, node, digger)
end
local old_node_punch = minetest.node_punch
function minetest.node_punch(pos, node, puncher)
-- print (string.sub(node.name,1,17))
if string.sub(node.name,1,17) == "mesecons_delayer:" then
if not minetest.check_player_privs(puncher:get_player_name(), {griefing=true}) then
if HasOwner(pos) then
if not ( IsPlayerNodeOwner(pos, puncher:get_player_name()) or IsPlayerNodeOwner(pos, "Sandbox") ) then
minetest.chat_send_player(puncher:get_player_name(), "You need a concession to punch this node here - Grantor: ".._STATIC_grantor.." - ".."Concessionaire: "..GetNodeOwnerName(pos).." (X"..pos.x.." Y"..pos.y.." Z"..pos.z..")")
return
end
else
minetest.chat_send_player(puncher:get_player_name(), "You need a concession to punch this node here - Grantor: ".._STATIC_grantor.." (X"..pos.x.." Y"..pos.y.." Z"..pos.z..")")
return
end
end
end
old_node_punch(pos, node, puncher)
end
function CheckCollisions(pos1, pos2)
-- Find all 8 cube corners and make sure all 8 are not already in someone elses zone
pos3 = {x=pos2.x,y=pos1.y,z=pos1.z}
pos4 = {x=pos1.x,y=pos2.y,z=pos1.z}
pos5 = {x=pos1.x,y=pos2.y,z=pos2.z}
pos6 = {x=pos1.x,y=pos1.y,z=pos2.z}
pos7 = {x=pos2.x,y=pos2.y,z=pos1.z}
pos8 = {x=pos2.x,y=pos1.y,z=pos2.z}
if HasOwner(pos1) == false and
HasOwner(pos2) == false and
HasOwner(pos3) == false and
HasOwner(pos4) == false and
HasOwner(pos5) == false and
HasOwner(pos6) == false and
HasOwner(pos7) == false and
HasOwner(pos8) == false then
return false
end
return true
end
function RemoveTableEntry(r_id)
--Find child entries and remove them
local nomorechild = true
repeat
nomorechild = true
for n,def in pairs(owner_defs) do
if def.parent == r_id then
table.remove(owner_defs, n) --RemoveTableEntryRe(def.id)
nomorechild = false
break
end
end
until nomorechild
-- now remove main entry
for n,def in pairs(owner_defs) do
if def.id == r_id then
table.remove(owner_defs, n)
break
end
end
--Re-number ids to match place in table
for n,ndef in pairs(owner_defs) do
if ndef.id ~= n then
for p,pdef in pairs(owner_defs) do
if pdef.parent == ndef.id then
pdef.parent = n
end
end
ndef.id = n
end
end
table_save( owner_defs, owners_db_filename )
end
minetest.register_on_chat_message(function(name, message)
local cmd = "/set_owner"
if message:sub(0, #cmd) == cmd then
if not minetest.check_player_privs(name, {privs=true}) then
minetest.chat_send_player(name, "you don't have permission to do this")
return true -- Handled chat message
end
local ownername, sx, sy, sz, ex, ey, ez = string.match(message, cmd.." (.-) ([0-9%-]-)%,([0-9%-]-)%,([0-9%-]-) ([0-9%-]-)%,([0-9%-]-)%,([0-9%-]*)")
if ownername == nil or string.len(ownername) == 0
or sx == nil or string.len(sx) == 0
or sy == nil or string.len(sy) == 0
or sz == nil or string.len(sz) == 0
or ex == nil or string.len(ex) == 0
or ey == nil or string.len(ey) == 0
or ez == nil or string.len(ez) == 0
then
minetest.chat_send_player(name, 'usage: '..cmd..' playername startpos endpos')
return true -- Handled chat message
end
if _STATIC_DEBUG then print("WARNING: Please look inside code for comment to fix this soon "..name..ownername) end -- Problem: If the Playername is not online at the moment it wont set. this should be fixed. but dont remove the function because it protects against bad strings
local player = minetest.env:get_player_by_name(ownername)
if ownername == "Sandbox" then
player = "Sandbox"
end
if player == nil then
print("player is nil")
return true -- Handled chat message
end
print(cmd.." invoked, owner=" .. ownername .. " startpos=" .. sx .. "," .. sy .. "," .. sz .. " endpos=" .. ex .. "," .. ey .. "," .. ez)
sx = tonumber(sx)
sy = tonumber(sy)
sz = tonumber(sz)
ex = tonumber(ex)
ey = tonumber(ey)
ez = tonumber(ez)
if (CheckCollisions({x=sx,y=sy,z=sz}, {x=ex,y=ey,z=ez})) == true then
minetest.chat_send_player(name, "Owner Collision")
return true -- Handled chat message
end
table.insert(owner_defs, {x1=sx, y1=sy, z1=sz, x2=ex, y2=ey, z2=ez, owner=ownername})
owner_defs[table.maxn(owner_defs)].id = table.maxn(owner_defs)
table_save( owner_defs, owners_db_filename )
minetest.chat_send_player(ownername, "A concession has been granted to you! Type /list_areas to show your concessions.")
minetest.chat_send_player(name, "You granted "..ownername.." a concession successfully!")
return true -- Handled chat message
end
local cmd = "/add_owner"
if message:sub(0, #cmd) == cmd then
local new_ownername, sx, sy, sz, ex, ey, ez = string.match(message, cmd.." (.-) ([0-9%-]-)%,([0-9%-]-)%,([0-9%-]-) ([0-9%-]-)%,([0-9%-]-)%,([0-9%-]*)")
if new_ownername == nil or string.len(new_ownername) == 0
or sx == nil or string.len(sx) == 0
or sy == nil or string.len(sy) == 0
or sz == nil or string.len(sz) == 0
or ex == nil or string.len(ex) == 0
or ey == nil or string.len(ey) == 0
or ez == nil or string.len(ez) == 0
then
minetest.chat_send_player(name, 'usage: '..cmd..' playername startpos endpos')
return true -- Handled chat message
end
local player = minetest.env:get_player_by_name(new_ownername)
if new_ownername == "Sandbox" then
player = "Sandbox"
end
if player == nil then
print("player is nil")
return true -- Handled chat message
end
print(cmd.." invoked, new_ownername=" .. new_ownername .. " startpos=" .. sx .. "," .. sy .. "," .. sz .. " endpos=" .. ex .. "," .. ey .. "," .. ez)
sx = tonumber(sx)
sy = tonumber(sy)
sz = tonumber(sz)
ex = tonumber(ex)
ey = tonumber(ey)
ez = tonumber(ez)
area_pos1 = {x=sx, y=sy, z=sz}
area_pos2 = {x=ex, y=ey, z=ez}
p=nil
--Look to see if this new area is inside an area owned by the player using this function
for n,def in pairs(owner_defs) do
if (area_pos1.x >= def.x1 and area_pos1.x <= def.x2 or
area_pos1.x <= def.x1 and area_pos1.x >= def.x2) and
(area_pos2.x >= def.x1 and area_pos2.x <= def.x2 or
area_pos2.x <= def.x1 and area_pos2.x >= def.x2) then
if (area_pos1.y >= def.y1 and area_pos1.y <= def.y2 or
area_pos1.y <= def.y1 and area_pos1.y >= def.y2) and
(area_pos2.y >= def.y1 and area_pos2.y <= def.y2 or
area_pos2.y <= def.y1 and area_pos2.y >= def.y2) then
if (area_pos1.z >= def.z1 and area_pos1.z <= def.z2 or
area_pos1.z <= def.z1 and area_pos1.z >= def.z2) and
(area_pos2.z >= def.z1 and area_pos2.z <= def.z2 or
area_pos2.z <= def.z1 and area_pos2.z >= def.z2) then
--OK, found entry that has both area_poss
if def.owner == name or minetest.check_player_privs(name, {privs=true}) then
p=def.id
if _STATIC_DEBUG then print ("DEBUG (add_owner): Owner ID is: "..def.id) end
if def.parent ~= nil then
p=nil --disallow child of childs
if _STATIC_DEBUG then print("DEBUG (add_owner): Owner Parent is: "..def.parent) end
else
print("DEBUG (add_owner): Unset Parent")
end
break
end
end
end
end
end
if p == nil then
minetest.chat_send_player(name, "You don't have permission to do this")
return true -- Handled chat message
end
table.insert(owner_defs, {x1=sx, y1=sy, z1=sz, x2=ex, y2=ey, z2=ez, owner=new_ownername})
if p ~= nil then
owner_defs[table.maxn(owner_defs)].parent = p
end
owner_defs[table.maxn(owner_defs)].id = table.maxn(owner_defs)
table_save( owner_defs, owners_db_filename )
minetest.chat_send_player(new_ownername, name.." granted you a subconcession!")
minetest.chat_send_player(name, "You granted "..new_ownername.." a subconcession successfully!")
return true -- Handled chat message
end
local cmd = "/list_areas"
if message:sub(0, #cmd) == cmd then
show_all = false
if minetest.get_player_privs(name)["privs"] then
show_all = true
minetest.chat_send_player(name, "Showing all owner entries")
for n,def in pairs(owner_defs) do
entry = def.id .. ": " .. def.owner .. " (" .. def.x1 .. "," .. def.y1 .. "," .. def.z1 .. ") (" .. def.x2 .. "," .. def.y2 .. "," .. def.z2 .. ")"
if def.parent ~= nil then
entry = entry .. " parent: " .. def.parent
end
minetest.chat_send_player(name, entry)
end
else
minetest.chat_send_player(name, "Showing your owner entries (You can delete only these)")
for n,def in pairs(owner_defs) do
if def.owner == name then
entry = def.id .. ": " .. def.owner .. " (" .. def.x1 .. "," .. def.y1 .. "," .. def.z1 .. ") (" .. def.x2 .. "," .. def.y2 .. "," .. def.z2 .. ")"
if def.parent ~= nil then
entry = entry .. " parent: " .. def.parent
end
minetest.chat_send_player(name, entry)
for n,defc in pairs(owner_defs) do
if defc.parent == def.id then
entry = "->" .. defc.id .. ": " .. defc.owner .. " (" .. defc.x1 .. "," .. defc.y1 .. "," .. defc.z1 .. ") (" .. defc.x2 .. "," .. defc.y2 .. "," .. defc.z2 .. ")"
if defc.parent ~= nil then
entry = entry .. " parent: " .. defc.parent
end
minetest.chat_send_player(name, entry)
end
end
end
end
end
return true -- Handled chat message
end
local cmd = "/remove_areas"
if message:sub(0, #cmd) == cmd then
your_ids = {}
for n,def in pairs(owner_defs) do
if def.owner == name or minetest.check_player_privs(name, {privs=true}) then
table.insert(your_ids, def.id)
for n,defc in pairs(owner_defs) do
if defc.parent == def.id then
table.insert(your_ids, defc.id)
end
end
end
end
local e = string.match(message, cmd.." (.*)")
if e == nil or string.len(e) == 0 then
minetest.chat_send_player(name, 'usage: '..cmd..' entry_number')
minetest.chat_send_player(name, 'use /list_areas to see entries')
return true -- Handled chat message
end
e = tonumber(e)
found = false
for _,k in pairs(your_ids) do
if k == e then
RemoveTableEntry(e)
table_save( owner_defs, owners_db_filename )
return true -- Handled chat message
end
end
return true -- Handled chat message
end
local cmd = "/change_area_owner"
if message:sub(0, #cmd) == cmd then
your_ids = {}
for n,def in pairs(owner_defs) do
if def.owner == name or minetest.check_player_privs(name, {privs=true}) then
table.insert(your_ids, def.id)
for n,defc in pairs(owner_defs) do
if defc.parent == def.id then
table.insert(your_ids, defc.id)
end
end
end
end
local e, new_owner = string.match(message, cmd.." (.-) (.*)")
if e == nil or new_owner == nil or
string.len(e) == 0 or string.len(new_owner) == 0 then
minetest.chat_send_player(name, 'usage: '..cmd..' entry_number new_owner')
minetest.chat_send_player(name, 'use /list_areas to see entries')
return true -- Handled chat message
end
local player = minetest.env:get_player_by_name(new_owner)
if player == nil then
print("new_owner is nil")
return true -- Handled chat message
end
e = tonumber(e)
found = false
for _,k in pairs(your_ids) do
if k == e then
for n,def in pairs(owner_defs) do
if def.id == e then
owner_defs[n].owner = new_owner
table_save( owner_defs, owners_db_filename )
return true -- Handled chat message
end
end
end
end
return true -- Handled chat message
end
end)
Reference in New Issue View Git Blame Copy Permalink