Show: both long and short cmds in help

Add new features to claim and unclaim.
Sort help from a-z.
Sort functions into diff lua files.

LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2019 Coder12
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

README.md

@@ -0,0 +1,4 @@
+# factions
+modpack for minetest
+
+Mods for handling in game factions.

chatcommands.lua

@@ -1,472 +0,0 @@
--------------------------------------------------------------------------------
--- factions Mod by Sapier
---
--- License WTFPL
---
---! @file chatcommnd.lua
---! @brief factions chat interface
---! @copyright Sapier
---! @author Sapier
---! @date 2013-05-08
---
--- Contact sapier a t gmx net
--------------------------------------------------------------------------------
-
---! @class factions_chat
---! @brief chat interface class
-factions_chat = {}
-
--------------------------------------------------------------------------------
--- name: init()
---
---! @brief initialize chat interface
---! @memberof factions_chat
---! @public
--------------------------------------------------------------------------------
-function factions_chat.init()
-
-	minetest.register_privilege("faction_user",
-		{
-			description = "this user is allowed to interact with faction mod",
-			give_to_singleplayer = true,
-		}
-	)
-	
-	minetest.register_privilege("faction_admin",
-		{
-			description = "this user is allowed to create or delete factions",
-			give_to_singleplayer = true,
-		}
-	)
-	
-	minetest.register_chatcommand("factions",
-		{
-			params = "<cmd> <parameter 1> .. <parameter n>",
-			description = "faction administration functions",
-			privs = { interact=true },
-			func = factions_chat.cmdhandler,
-		}
-	)
-	
-	minetest.register_chatcommand("af",
-		{
-			params = "text",
-			description = "send message to all factions",
-			privs = { faction_user=true },
-			func = factions_chat.allfactions_chathandler,
-		}
-	)
-	
-	minetest.register_chatcommand("f",
-		{
-			params = "<factionname> text",
-			description = "send message to a specific faction",
-			privs = { faction_user=true },
-			func = factions_chat.chathandler,
-		}
-	)
-end
-
--------------------------------------------------------------------------------
--- name: cmdhandler(playername,parameter)
---
---! @brief chat command handler
---! @memberof factions_chat
---! @private
---
---! @param playername name
---! @param parameter data supplied to command
--------------------------------------------------------------------------------
-function factions_chat.cmdhandler(playername,parameter)
-
-	local player = minetest.env:get_player_by_name(playername)
-	local params = parameter:split(" ")
-	local cmd = params[1]
-	
-	--handle common commands
-	if parameter == nil or
-		parameter == "" then
-		
-		local playerfactions = factions.get_factions(player)
-		
-		local tosend = "Factions: " .. playername .. " factions:"
-		for i,v in ipairs(playerfactions) do
-			if i ~= #playerfactions then
-				tosend = tosend .. " " .. v .. ","
-			else
-				tosend = tosend .. " " .. v
-			end
-		end	
-		minetest.chat_send_player(playername, tosend, false)
-		return
-	end
-	
-	if cmd == "claim" then
-		minetest.chat_send_player(playername,"Trust me, we're working on it",false)
-		return
-	end
-	if cmd == "unclaim" then
-		return
-	end
-	--list all known factions
-	if cmd == "list" then
-		local list = factions.get_faction_list()
-		local tosend = "Factions: current available factions:"
-		
-		for i,v in ipairs(list) do
-			if i ~= #list then
-				tosend = tosend .. " " .. v .. ","
-			else
-				tosend = tosend .. " " .. v
-			end
-		end	
-		minetest.chat_send_player(playername, tosend, false)
-		return
-	end
-	
-	--show factions mod version
-	if cmd == "version" then
-		minetest.chat_send_player(playername, "Factions: version " .. factions_version , false)
-		return
-	end
-	
-	--show description  of faction
-	if cmd == "info" then
-		if params[2] ~= nil then
-			minetest.chat_send_player(playername,
-				"Factions: " .. params[2] .. ": " ..
-				factions.get_description(params[2]), false)
-			return
-		end
-	end
-	
-	if cmd == "leave" then
-		if params[2] ~= nil then
-			if params[3] ~= nil then
-				local toremove = minetest.env:get_player_by_name(params[3])
-				--allowed if faction_admin, admin of faction or player itself
-				if minetest.check_player_privs(playername,{ faction_admin=true }) or
-					factions.is_admin(params[2],playername) and
-					toremove ~= nil then
-					
-					factions.member_remove(params[2],toremove)
-					minetest.chat_send_player(playername, 
-						"Factions: " .. params[3] .. " has been removed from " 
-						.. params[2], false)
-					return
-				end
-			else
-				factions.member_remove(params[2],player)
-				minetest.chat_send_player(playername, 
-						"Factions: You have left " .. params[2], false)
-				return
-			end
-		end
-	end
-	
-	--handle superadmin only commands
-	if minetest.check_player_privs(playername,{ faction_admin=true }) then
-		--create new faction
-		if cmd == "create" then
-			if params[2] ~= nil then
-				if factions.add_faction(params[2]) then
-					minetest.chat_send_player(playername,
-						"Factions: created faction " .. params[2],
-						false)
-					return
-				else
-					minetest.chat_send_player(playername,
-						"Factions: FAILED to created faction " .. params[2],
-						false)
-					return
-				end
-			end
-		end
-	end
-	
-	if cmd == "join" then
-		if params[2] ~= nil then	
-			if params[3] ~= nil and
-				minetest.check_player_privs(playername,{ faction_admin=true }) then
-				
-				local toadd = minetest.env:get_player_by_name(params[3])
-				
-				if toadd ~= nil then
-					if factions.member_add(params[2],toadd) then
-						minetest.chat_send_player(playername,
-							"Factions: " .. params[3] .. " joined faction " ..
-							params[2],
-							false)
-						return
-					end
-				end
-				minetest.chat_send_player(playername,
-					"Factions: " .. params[3] .. " FAILED to join faction " ..
-					params[2],
-					false)
-				return
-			else
-				--check for invitation
-				if factions.is_invited(params[2],playername) then
-					if factions.member_add(params[2],player) then
-						minetest.chat_send_player(playername,
-							"Factions: joined faction " ..
-							params[2],
-							false)
-						return
-					else
-						minetest.chat_send_player(playername,
-							"Factions: FAILED to join faction " ..
-							params[2],
-							false)
-						return
-					end
-				else
-					minetest.chat_send_player(playername,
-						"Factions: you are not allowed to join " .. params[2],
-						false)
-					return
-				end	
-			end
-		end
-	end
-	
-	--all following commands require at least two parameters
-	if params[2] ~= nil then
-		if minetest.check_player_privs(playername,{ faction_admin=true }) or
-			factions.is_admin(params[2],playername) then
-			
-			--delete faction
-			if cmd == "delete" then
-				if factions.delete_faction(params[2]) then
-					minetest.chat_send_player(playername,
-						"Factions: deleted faction " .. params[2],
-						false)
-					return
-				else
-					minetest.chat_send_player(playername,
-						"Factions: FAILED to deleted faction " .. params[2],
-						false)
-					return
-				end
-			end
-			
-			if cmd == "set_free" then
-				if params[3] ~= nil  and
-					(params[3] == "true" or params[3] == "false")then
-					
-					local value = false
-					if params[3] == "true" then
-						value = true
-					end
-					
-					if factions.set_free(params[2],value) then
-						minetest.chat_send_player(playername,
-							"Factions: free to join for " .. params[2] .. 
-							" has been set to " .. params[3],
-							false)
-					else
-						minetest.chat_send_player(playername,
-							"Factions: FAILED to set free to join for " ..
-							params[2],
-							false)
-					end
-				end
-			end
-			
-			--set player admin status
-			if cmd == "admin" then
-				if params[3] ~= nil and params[4] ~= nil and
-					(params[4] == "true" or params[4] == "false") then
-					
-					local value = false
-					if params[4] == "true" then
-						value = true
-					end
-					
-					if factions.set_admin(params[2],params[3],value) then
-						minetest.chat_send_player(playername,
-							"Factions: adminstate of " .. params[3] .. 
-							" has been set to " .. params[4],
-							false)
-					else
-						minetest.chat_send_player(playername,
-							"Factions: FAILED to set admin privileges for " ..
-							params[3],
-							false)
-					end
-				end
-				return
-			end
-			
-			if cmd == "description" and
-				params[2] ~= nil and
-				params[3] ~= nil then
-				
-				local desc = params[3]
-				for i=4, #params, 1 do
-					desc = desc .. " " .. params[i]
-				end
-				if factions.set_description(params[2],desc) then
-					minetest.chat_send_player(playername,
-							"Factions: updated description of faction " .. 
-							params[2],
-							false)
-					return
-				else
-					minetest.chat_send_player(playername,
-							"Factions: FAILED to update description of faction " .. 
-							params[2],
-							false)
-					return
-				end
-			end
-			
-			if cmd == "invite" and
-				params[2] ~= nil and
-				params[3] ~= nil then
-				if factions.member_invite(params[2],params[3]) then
-					minetest.chat_send_player(params[3],
-							"Factions: " .. params[3] .. 
-							" you have been invited to join faction " .. params[2],
-							false)
-					minetest.chat_send_player(playername,
-							"Factions: " .. params[3] .. 
-							" has been invited to join faction " .. params[2],
-							false)
-					return
-				else
-					minetest.chat_send_player(playername,
-							"Factions: FAILED to invite " .. params[3] ..
-							" to join faction " .. params[2],
-							false)
-					return
-				end
-			end
-		end
-	end
-
-	factions_chat.show_help(playername)
-end
-
--------------------------------------------------------------------------------
--- name: allfactions_chathandler(playername,parameter)
---
---! @brief chat handler
---! @memberof factions_chat
---! @private
---
---! @param playername name
---! @param parameter data supplied to command
--------------------------------------------------------------------------------
-function factions_chat.allfactions_chathandler(playername,parameter)
-	
-	local player = minetest.env:get_player_by_name(playername)
-	
-	if player ~= nil then
-	  local recipients = {}
-	  
-	  for faction,value in pairs(factions.get_factions(player)) do
-		  for name,value in pairs(factions.dynamic_data.membertable[faction]) do
-			  local object_to_check = mientest.env:get_player_by_name(name)
-			  
-			  if object_to_check ~= nil then
-				  recipients[name] = true
-			  end
-		  end
-	  end
-	  
-	  for recipient,value in pairs(recipients) do
-		  if recipient ~= playername then
-			  minetest.chat_send_player(recipient,playername ..": " .. parameter,false)
-		  end
-	  end
-	  return
-	end
-	factions_chat.show_help(playername)
-end
-
--------------------------------------------------------------------------------
--- name: chathandler(playername,parameter)
---
---! @brief chat handler
---! @memberof factions_chat
---! @private
---
---! @param playername name
---! @param parameter data supplied to command
--------------------------------------------------------------------------------
-function factions_chat.chathandler(playername,parameter)
-	
-	local player = minetest.env:get_player_by_name(playername)	
-	
-	if player ~= nil then
-	  local line = parameter:split(" ")	
-	  local target_faction = line[1]	
-
-	  local text = line[2]
-	  for i=3,#line,1 do
-		  text = text .. " " .. line[i]
-	  end
-	  
-	  local valid_faction = false
-	  
-	  for faction,value in pairs(factions.get_factions(player)) do
-		  if target_faction == faction then
-			  valid_faction = true
-		  end
-	  end
-	  
-	  if faction ~= nil and valid_faction and
-	      factions.dynamic_data.membertable[faction] ~= nil then
-		  for name,value in pairs(factions.dynamic_data.membertable[faction]) do
-			  local object_to_check = mientest.env:get_player_by_name(name)
-			  factions_chat.show_help(playername)
-			  if object_to_check ~= nil and
-				  name ~= playername then
-				  minetest.chat_send_player(name,playername ..": " .. text,false)
-			  end
-		  end
-	  else
-		  minetest.chat_send_player(playername,
-			  "Factions: you're not a member of " .. dump(faction),false)
-	  end
-	  return
-	end
-	factions_chat.show_help(playername)
-end
-
--------------------------------------------------------------------------------
--- name: show_help(playername,parameter)
---
---! @brief send help message to player
---! @memberof factions_chat
---! @private
---
---! @param playername name
--------------------------------------------------------------------------------
-function factions_chat.show_help(playername)
-
-	local MSG = function(text)
-		minetest.chat_send_player(playername,text,false)
-	end
-	
-	MSG("Factions mod")
-	MSG("Usage:")
-	MSG("\tUser commands:")
-	MSG("\t\t/factions                      -> info on your current factions")
-	MSG("\t\t/factions info <factionname>   -> show description of faction")
-	MSG("\t\t/factions list                 -> show list of factions")
-	MSG("\t\t/factions leave <factionname>  -> leave specified faction")
-	MSG("\t\t/factions join <factionname>   -> join specified faction")
-	MSG("\t\t/factions version              -> show version number of mod")
-	
-	MSG("\tAdmin commands:")
-	MSG("\t\t/factions create <factionname> -> create a new faction")
-	MSG("\t\t/factions delete <factionname> -> delete a faction faction")
-	MSG("\t\t/factions leave <factionname> <playername> -> remove player from faction")
-	MSG("\t\t/factions invite <factionname> <playername> -> invite player to faction")
-	MSG("\t\t/factions set_free <factionname> <value> -> set faction free to join")
-	MSG("\t\t/factions admin <factionname> <playername> <value> -> make player admin of faction")
-	MSG("\t\t/factions description <factionname> <text> -> set description for faction")
-end

description.txt

@@ -1,5 +0,0 @@
-Version 1.1.5
-
-Mod for handling in game factions and reputation
-
-

fac/init.lua

@@ -0,0 +1,484 @@
+---------------------
+--! @brief returns whether a faction can be created or not (allows for implementation of blacklists and the like)
+--! @param name String containing the faction's name
+factions.can_create_faction = function(name)
+    if #name > factions_config.faction_name_max_length then
+        return false
+    elseif factions.factions.get(name) ~= nil then
+        return false
+    else
+        return true
+    end
+end
+
+starting_ranks = {["leader"] = {"build", "door", "container", "name", "description", "motd", "invite", "kick"
+						, "spawn", "with_draw", "territory", "claim", "access", "disband", "flags", "ranks", "promote"},
+                 ["moderator"] = {"claim", "door", "build", "spawn", "invite", "kick", "promote", "container"},
+                 ["member"] = {"build", "container", "door"}}
+
+-- Faction permissions:
+--
+-- build: dig and place nodes
+-- pain_build: dig and place nodes but take damage doing so
+-- door: open/close or dig doors
+-- container: be able to use containers like chest
+-- name: set the faction's name
+-- description: Set the faction description
+-- motd: set the faction's message of the day
+-- invite: (un)invite players to join the faction
+-- kick: kick players off the faction
+-- spawn: set the faction's spawn
+-- with_draw: withdraw money from the faction's bank
+-- territory: claim or unclaim territory
+-- claim: (un)claim parcels of land
+-- access: manage access to territory and parcels of land to players or factions
+-- disband: disband the faction
+-- flags: manage faction's flags
+-- ranks: create, edit, and delete ranks
+-- promote: set a player's rank
+-- diplomacy: be able to control the faction's diplomacy
+factions.permissions = {}
+factions.permissions["build"] = "dig and place nodes"
+factions.permissions["pain_build"] = "dig and place nodes but take damage doing so"
+factions.permissions["door"] = "open, close, or dig faction doors"
+factions.permissions["container"] = "be able to interact with containers on claimed parcels"
+factions.permissions["name"] = "set the faction's name"
+factions.permissions["description"] = "Set the faction description"
+factions.permissions["motd"] = "set the faction's message of the day"
+factions.permissions["invite"] = "(un)invite players to join the faction"
+factions.permissions["kick"] = "kick players off the faction"
+factions.permissions["spawn"] = "set the faction's spawn"
+factions.permissions["with_draw"] = "withdraw money from the faction's bank"
+factions.permissions["territory"] = "claim or unclaim territory"
+factions.permissions["claim"] = "(un)claim parcels of land"
+factions.permissions["access"] = "manage access to territory and parcels of land to players or factions"
+factions.permissions["disband"] = "disband the faction"
+factions.permissions["flags"] = "manage the faction's flags"
+factions.permissions["ranks"] = "create, edit, or delete ranks"
+factions.permissions["promote"] = "set a player's rank"
+-- open: can the faction be joined without an invite?
+-- monsters: can monsters spawn on your land?
+-- tax_kick: will players be kicked for not paying tax?
+-- animals: can animals spawn on your land?
+factions.flags = {}
+factions.flags["open"] = "can the faction be joined without an invite?"
+factions.flags["monsters"] = "can monsters spawn on your land?(unused)"
+factions.flags["tax_kick"] = "will players be kicked for not paying tax?(unused)"
+factions.flags["animals"] = "can animals spawn on your land?(unused)"
+if factions_config.faction_diplomacy == true then
+	factions.permissions["diplomacy"] = "be able to control the faction's diplomacy"
+	local lt = starting_ranks["leader"]
+	table.insert(lt, "diplomacy")
+	starting_ranks["leader"] = lt
+end
+--! @brief create a new empty faction
+function factions.new_faction(name)
+    local faction = factions.create_faction_table()
+	
+    faction.name = name
+    factions.factions.set(name, faction)
+    factions.on_create(name)
+	minetest.after(1, 
+		function(name)
+			factions.on_no_parcel(name)
+	end, name)
+	
+	factions.onlineplayers[name] = {}
+	
+	return faction
+end
+
+function factions.set_name(oldname, name)
+	local faction = factions.factions.get(oldname)
+	faction.name = name
+	
+	for v, i in factions.factions.iterate() do
+		if v ~= oldname then
+			local fac = factions.factions.get(v)
+			
+			if fac.neutral[oldname] then
+				fac.neutral[oldname] = nil
+				fac.neutral[name] = true
+			end
+			
+			if fac.allies[oldname] then
+				fac.allies[oldname] = nil
+				fac.allies[name] = true
+			end
+			
+			if fac.enemies[oldname] then
+				fac.enemies[oldname] = nil
+				fac.enemies[name] = true
+			end
+			
+			if fac.request_inbox[oldname] then
+				local value = fac.request_inbox[oldname]
+				fac.request_inbox[oldname] = nil
+				fac.request_inbox[name] = value
+			end
+			
+			factions.factions.set(v, fac)
+		end
+	end
+	
+	for parcel in pairs(faction.land) do
+		local data = factions.create_parcel_table()
+		data.faction = name
+		factions.parcels.set(parcel, data)
+	end
+	
+	for playername in pairs(faction.players) do
+		local data = factions.players.get(playername) or factions.create_player_table()
+		data.faction = name
+		factions.players.set(playername, data)
+	end
+	
+	for playername in pairs(factions.onlineplayers[oldname]) do
+		updateFactionName(playername, name)
+	end
+	
+	factions.onlineplayers[name] = factions.onlineplayers[oldname]
+	factions.onlineplayers[oldname] = nil
+	
+	factions.factions.remove(oldname)
+	
+	factions.factions.set(name, faction)
+	factions.on_set_name(name, oldname)
+	
+end
+
+function factions.count_land(name)
+    local count = 0.
+    for k, v in pairs(factions.factions.get(name).land) do
+        count = count + 1
+    end
+    return count
+end
+
+function factions.add_player(name, player, rank)
+	local faction = factions.factions.get(name)
+	
+	if factions.onlineplayers[name] == nil then
+		factions.onlineplayers[name] = {}
+	end
+	
+    factions.onlineplayers[name][player] = true
+	
+	factions.on_player_join(name, player)
+
+	if factions_config.enable_power_per_player then
+		local ip = factions.player_ips.get(player)
+		local notsame = true
+		for i, k in pairs(faction.players) do
+			local other_ip = factions.player_ips.get(i)
+			if other_ip == ip then
+				notsame = false
+				break
+			end
+		end
+		if notsame then
+			factions.increase_maxpower(name, factions_config.powermax_per_player)
+		end
+	end
+	
+	faction.players[player] = rank or faction.default_rank
+
+	local data = factions.players.get(player) or factions.create_player_table()
+	data.faction = name
+	factions.players.set(player, data)
+
+    faction.invited_players[player] = nil
+	local pdata = minetest.get_player_by_name(player)
+	if pdata then
+		local ipc = pdata:is_player_connected()
+		if ipc then
+			createHudFactionName(pdata, name)
+			createHudPower(pdata, faction)
+		end
+	end
+    
+	factions.factions.set(name, faction)
+end
+
+function factions.check_players_in_faction(name)
+	for i, k in pairs(factions.factions.get(name).players) do
+		return true
+	end
+	factions.disband(name, "Zero players on faction.")
+	return false
+end
+
+function factions.remove_player(name, player)
+	local faction = factions.factions.get(name)
+	
+	if factions.onlineplayers[name] == nil then
+		factions.onlineplayers[name] = {}
+	end
+	
+	factions.onlineplayers[name][player] = nil
+
+    faction.players[player] = nil
+	
+	factions.factions.set(name, faction)
+	
+	factions.remove_key(factions.players, player, nil, "faction", true)
+	factions.on_player_leave(name, player)
+	
+	if factions_config.enable_power_per_player then
+		local ip = factions.player_ips.get(player)
+		local notsame = true
+		for i,k in pairs(faction.players) do
+			local other_ip = factions.player_ips.get(i)
+			if other_ip == ip then
+				notsame = false
+				break
+			end
+		end
+		if notsame then
+			factions.decrease_maxpower(name, factions_config.powermax_per_player)
+		end
+	end
+	
+	local pdata = minetest.get_player_by_name(player)
+	if pdata then
+		local ipc = pdata:is_player_connected()
+		
+		if ipc then
+			removeHud(pdata,"factionName")
+			removeHud(pdata,"powerWatch")
+		end
+	end
+	
+	factions.check_players_in_faction(name)
+end
+
+local parcel_size = factions_config.parcel_size
+
+--! @brief disband faction, updates global players and parcels table
+function factions.disband(name, reason)
+	local faction = factions.factions.get(name)
+	
+	if not faction.is_admin then
+		for v, i in factions.factions.iterate() do
+			local fac = factions.factions.get(v)
+			if fac ~= nil and fac.name ~= name then
+				if fac.enemies[name] then
+					factions.end_enemy(fac.name, name)
+				end
+				
+				if fac.allies[name] then
+					factions.end_alliance(fac.name, name)
+				end
+				
+				if fac.neutral[name] then
+					factions.end_neutral(fac.name, name)
+				end
+				
+				if fac.request_inbox[name] then
+					fac.request_inbox[name] = nil
+				end
+			end
+			factions.factions.set(v, fac)
+		end
+		
+		for k, _ in pairs(faction.players) do -- remove players affiliation
+			factions.remove_key(factions.players, k, nil, "faction", true)
+		end
+		
+		for k, v in pairs(faction.land) do -- remove parcel claims
+			factions.remove_key(factions.parcels, k, nil, "faction", true)
+		end
+		
+		factions.on_disband(name, reason)
+		
+		if factions.onlineplayers ~= nil and factions.onlineplayers[name] ~= nil then
+			for i, l in pairs(factions.onlineplayers[name]) do
+				removeHud(i, "factionName")
+				removeHud(i, "powerWatch")
+			end
+			
+			factions.onlineplayers[name] = nil
+		end
+		
+		factions.factions.remove(name)
+	end
+end
+
+--! @brief change the faction leader
+function factions.set_leader(name, player)
+	local faction = factions.factions.get(name)
+	
+    if faction.leader then
+        faction.players[faction.leader] = faction.default_rank
+    end
+    faction.leader = player
+    faction.players[player] = faction.default_leader_rank
+    factions.on_new_leader()
+	
+	factions.factions.set(name, faction)
+end
+
+function factions.set_message_of_the_day(name, text)
+    local faction = factions.factions.get(name)
+	faction.message_of_the_day = text
+	factions.factions.set(name, faction)
+end
+
+--! @brief check permissions for a given player
+--! @return boolean indicating permissions. Players not in faction always receive false
+function factions.has_permission(name, player, permission)
+	local faction = factions.factions.get(name)
+    local p = faction.players[player]
+    if not p then
+        return false
+    end
+    local perms = faction.ranks[p]
+	if perms then
+		for i in ipairs(perms) do
+			if perms[i] == permission then
+				return true
+			end
+		end
+	else
+		return false
+	end
+end
+
+function factions.set_description(name, new)
+	local faction = factions.factions.get(name)
+    faction.description = new
+    factions.on_change_description(name)
+	factions.factions.set(name, faction)
+end
+
+--! @brief set faction openness
+function factions.toggle_join_free(name, bool)
+    local faction = factions.factions.get(name)
+	faction.join_free = bool
+    factions.on_toggle_join_free(name)
+	factions.factions.set(name, faction)
+end
+
+--! @return true if a player can use /f join, false otherwise
+function factions.can_join(name, player)
+    local faction = factions.factions.get(name)
+	return faction.join_free or faction.invited_players[player]
+end
+
+--! @brief faction's member will now spawn in a new place
+function factions.set_spawn(name, pos)
+    local faction = factions.factions.get(name)
+	
+	faction.spawn = {x = pos.x, y = pos.y, z = pos.z}
+    factions.on_set_spawn(name)
+    
+	factions.factions.set(name, faction)
+end
+
+function factions.tp_spawn(name, playername)
+	local faction = factions.factions.get(name)
+	
+	player = minetest.get_player_by_name(playername)
+	
+	if player then
+		player:set_pos(faction.spawn)
+	end
+end
+
+--! @brief send a message to all members
+function factions.broadcast(name, msg, sender)
+	if factions.onlineplayers[name] == nil then
+		factions.onlineplayers[name] = {}
+	end
+	
+	local message = name .. "> ".. msg
+	
+    if sender then
+        message = sender .. "@" .. message
+    end
+	
+    message = "Faction<" .. message
+	
+	minetest.log(message)
+	
+    for k, _ in pairs(factions.onlineplayers[name]) do
+        minetest.chat_send_player(k, message)
+    end
+end
+
+--! @brief checks whether a faction has at least one connected player
+function factions.is_online(name)
+	if factions.onlineplayers[name] == nil then
+		factions.onlineplayers[name] = {}
+	end
+    for playername, _ in pairs(factions.onlineplayers[name]) do
+		return true
+    end
+    return false
+end
+
+function factions.get_parcel_pos(pos)
+	if factions_config.protection_style == "3d" then
+		return math.floor(pos.x / parcel_size) * parcel_size .. "," .. math.floor(pos.y / parcel_size) * parcel_size .. "," .. math.floor(pos.z / parcel_size) * parcel_size
+	else
+		return math.floor(pos.x / parcel_size) * parcel_size .. "," .. math.floor(pos.z / parcel_size) * parcel_size
+	end
+end
+
+function factions.get_player_faction(playername)
+    local data = factions.players.get(playername)
+	if data then
+		local facname = data.faction
+        local faction = factions.factions.get(facname)
+        return faction, facname
+    end
+    return nil
+end
+
+function factions.get_faction(facname)
+    return factions.factions.get(facname)
+end
+
+function factions.get_faction_at(pos)
+	local y = pos.y
+    if factions_config.protection_depth_height_limit and (pos.y < factions_config.protection_max_depth or pos.y > factions_config.protection_max_height) then
+		return nil
+    end
+    local parcelpos = factions.get_parcel_pos(pos)
+    return factions.get_parcel_faction(parcelpos)
+end
+
+function factions.faction_tick()
+    local now = os.time()
+    for facname, i in factions.factions.iterate() do
+        local faction = factions.factions.get(facname)
+		
+		if faction ~= nil then
+			if factions.is_online(facname) then
+				if factions_config.enable_power_per_player then
+					local count = 0
+					for _ in pairs(factions.onlineplayers[facname]) do count = count + 1 end
+					factions.increase_power(facname, factions_config.power_per_player * count)
+				else
+					factions.increase_power(facname, factions_config.power_per_tick)
+				end
+			end
+			if now - faction.last_logon > factions_config.maximum_faction_inactivity or (faction.no_parcel ~= -1 and now - faction.no_parcel > factions_config.maximum_parcelless_faction_time)  then
+				local r = ""
+				if now - faction.last_logon > factions_config.maximum_faction_inactivity  then
+					r = "inactivity"
+				else
+					r = "no parcel claims"
+				end
+				factions.disband(facname, r)
+			end
+		end
+    end
+end
+
+function factionUpdate()
+	factions.faction_tick()
+	minetest.after(factions_config.tick_time, factionUpdate)
+end
+
+minetest.after(factions_config.tick_time, factionUpdate)

fac/mod.conf

@@ -0,0 +1,2 @@
+name = fac
+depends = fac_config

fac_chat/init.lua

@@ -0,0 +1,293 @@
+factions_chat = {}
+factions.commands = {}
+
+local function register_command(cmd_name, cmd)
+    factions.commands[cmd_name] = { -- default command
+        name = cmd_name,
+        faction_permissions = {},
+        global_privileges = {},
+        format = {},
+        infaction = true,
+		description = "This command has no description.",
+		ignore_param_limit = false,
+		or_perm = false,
+		dont_show_in_help = false,
+        run = function(self, player, argv)
+            if self.global_privileges then
+                local tmp = {}
+                for i in ipairs(self.global_privileges) do
+                    tmp[self.global_privileges[i]] = true
+                end
+                local bool, missing_privs = minetest.check_player_privs(player, tmp)
+                if not bool then
+                    minetest.chat_send_player(player, "Unauthorized.")
+                    return false
+                end
+            end
+            -- checks argument formats
+            local args = {
+                factions = {},
+                players = {},
+                strings = {},
+				unknowns = {},
+                other = {}
+            }
+			if not self.ignore_param_limit then
+				if #argv < #(self.format) then
+					minetest.chat_send_player(player, "Not enough parameters.")
+					return false
+				end
+				else
+				if self.format[1] then
+					local fm = self.format[1]
+					for i in ipairs(argv) do
+						if #argv > #(self.format) then
+							table.insert(self.format, fm)
+						else
+							break
+						end
+					end
+				end
+			end
+            for i in ipairs(self.format) do
+                local argtype = self.format[i]
+                local arg = argv[i]
+                if argtype == "faction" then
+                    local fac = factions.get_faction(arg)
+                    if not fac then
+                        minetest.chat_send_player(player, "Specified faction " .. arg .. " does not exist")
+                        return false
+                    else
+                        table.insert(args.factions, fac)
+                    end
+                elseif argtype == "player" then
+					local data = minetest.get_auth_handler().get_auth(arg)
+					if data then
+						table.insert(args.players, arg)
+					else
+						minetest.chat_send_player(player, "Player does not exist.")
+						return false
+					end
+                elseif argtype == "string" then
+                    table.insert(args.strings, arg)
+                else
+					table.insert(args.unknowns, arg)
+                end
+            end
+            for i=2, #argv do
+				if argv[i] then
+					table.insert(args.other, argv[i])
+				end
+            end
+            -- checks permissions
+            local player_faction, facname = factions.get_player_faction(player)
+            if self.infaction and not player_faction then
+                minetest.chat_send_player(player, "This command is only available within a faction")
+                return false
+            end
+			local one_p = false
+            if self.faction_permissions then
+                for i in ipairs(self.faction_permissions) do
+					local perm = self.faction_permissions[i]
+                    if not self.or_perm and not factions.has_permission(facname, player, perm) then
+                        minetest.chat_send_player(player, "You do not have the faction permission " .. perm)
+                        return false
+					elseif self.or_perm and factions.has_permission(facname, player, perm) then
+						one_p = true
+						break
+                    end
+                end
+            end
+			if self.or_perm and one_p == false then
+			    minetest.chat_send_player(player, "You do not have any of faction permissions required.")
+                return false
+			end
+            -- get some more data
+            local pos = minetest.get_player_by_name(player):get_pos()
+            local parcelpos = factions.get_parcel_pos(pos)
+            return self.on_success(player, player_faction, pos, parcelpos, args)
+        end,
+        on_success = function(player, faction, pos, parcelpos, args)
+            minetest.chat_send_player(player, "Not implemented yet!")
+        end
+	}
+	-- count cmd spaces.
+	local words = cmd_name:split(" ")
+	local word_spaces = 0
+	for k in pairs(words) do
+		word_spaces = word_spaces + 1
+	end
+	cmd.word_spaces = word_spaces
+    -- override defaults
+    for k, v in pairs(cmd) do
+        factions.commands[cmd_name][k] = v
+    end
+end
+
+function factions.register_command(cmd_name, cmd)
+	local cmd_type = type(cmd_name)
+	local next = false
+	if cmd_type == "string" then
+	register_command(cmd_name, cmd)
+	elseif cmd_type == "table" then
+		for k, v in pairs(cmd_name) do
+			if next and cmd.dont_show_in_help == nil then
+				cmd.dont_show_in_help = true
+			end
+			register_command(v, cmd)
+			next = true
+		end
+	end
+end
+
+local init_commands
+init_commands = function()
+	if factions_config.faction_user_priv == true then
+		minetest.register_privilege("faction_user",
+			{
+				description = "this user is allowed to interact with faction mod",
+				give_to_singleplayer = true,
+			}
+		)
+	end
+	minetest.register_privilege("faction_admin",
+		{
+			description = "this user is allowed to create or delete factions",
+			give_to_singleplayer = true,
+		}
+	)
+	local def_privs = {interact = true}
+	if factions_config.faction_user_priv == true then
+		def_privs.faction_user = true
+	end
+	minetest.register_chatcommand("f",
+		{
+			params = "<command> parameters",
+			description = "Factions commands. Type /f help for available commands.",
+            privs = def_privs,
+			func = factions_chat.cmdhandler,
+		}
+	)
+	minetest.register_chatcommand("faction",
+		{
+			params = "<command> parameters",
+			description = "Factions commands. Type /faction help for available commands.",
+            privs = def_privs,
+			func = factions_chat.cmdhandler,
+		}
+	)
+end
+
+local def_global_privileges = nil
+if factions_config.faction_user_priv == true then
+	minetest.register_on_newplayer(function(player)
+		local name = player:get_player_name()
+		local privs = minetest.get_player_privs(name)
+		privs.faction_user = true
+		minetest.set_player_privs(name, privs)
+	end)
+	def_global_privileges = {"faction_user"}
+end
+local path = minetest.get_modpath("fac_chat")
+dofile(path .. "/commands.lua")
+dofile(path .. "/subcommands.lua")
+
+-------------------------------------------------------------------------------
+-- name: cmdhandler(playername, parameter)
+--
+--! @brief chat command handler
+--! @memberof factions_chat
+--! @private
+--
+--! @param playername name
+--! @param parameter data supplied to command
+-------------------------------------------------------------------------------
+function factions_chat.cmdhandler(playername, parameter)
+	local player = minetest.env:get_player_by_name(playername)
+	local params = parameter:split(" ")
+    local player_faction, facname = factions.get_player_faction(playername)
+	if parameter == nil or parameter == "" then
+        if player_faction then
+            minetest.chat_send_player(playername, "You are in faction " .. player_faction.name .. ". Type /f help for a list of commands.")
+        else
+            minetest.chat_send_player(playername, "You are part of no faction")
+        end
+		return
+	end
+	local cmd = factions.commands[parameter]
+	if not cmd then
+		local cmd_text = ""
+		for i = 1, #params, 1 do
+			if cmd_text == "" then
+				cmd_text = params[i]
+			else
+				cmd_text = cmd_text .. " " .. params[i]
+			end
+			if factions.commands[cmd_text] then
+				cmd = factions.commands[cmd_text]
+			end
+		end
+		if not cmd then
+			minetest.chat_send_player(playername, "Unknown command.")
+			return false
+		end
+	end
+    local argv = {}
+    for i = 1 + cmd.word_spaces, #params, 1 do
+        table.insert(argv, params[i])
+    end
+	cmd:run(playername, argv)
+end
+
+function table_Contains(t, v)
+	for k, a in pairs(t) do
+		if a == v then
+			return true
+		end		
+	end
+	return false
+end
+
+local premade_help = ""
+local premade_help_admin = ""
+local a_z = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e"
+			, "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
+function factions.create_help_text()
+	for l, j in pairs(a_z) do
+		for k, v in pairs(factions.commands) do
+			if k:sub(1, 1) == j then
+				if not v.dont_show_in_help then
+					if not table_Contains(v.global_privileges, "faction_admin") then
+						premade_help = premade_help .. "\t/f " .. v.name .. v.description_arg .. " " .. v.description .. "\n"
+					end
+					premade_help_admin = premade_help_admin .. "\t/f " .. v.name .. v.description_arg .. " " .. v.description .. "\n"
+				end
+			end
+		end
+	end
+end
+
+minetest.register_on_mods_loaded(function()
+	factions.create_help_text()
+end)
+-------------------------------------------------------------------------------
+-- name: show_help(playername, parameter)
+--
+--! @brief send help message to player
+--! @memberof factions_chat
+--! @private
+--
+--! @param playername name
+-------------------------------------------------------------------------------
+function factions_chat.show_help(playername)
+	local msg = "factions mod\nUsage:\n"
+	local has, missing = minetest.check_player_privs(playername, {faction_admin = true})
+	if has then
+		msg = msg .. premade_help_admin
+	else
+		msg = msg .. premade_help
+	end
+	minetest.chat_send_player(playername, msg, false)
+end
+
+init_commands()

fac_chat/mod.conf

@@ -0,0 +1 @@
+name = fac_chat

fac_chat/subcommands.lua

@@ -0,0 +1,220 @@
+local def_global_privileges = nil
+if factions_config.faction_user_priv == true then
+    def_global_privileges = {"faction_user"}
+end
+
+factions.register_command({"claim o", "claim one"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		return claim_helper(player, faction, parcelpos)
+    end
+})
+factions.register_command({"claim a", "claim auto"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		factions.claim_auto(player, faction)
+    end
+})
+factions.register_command({"claim f", "claim fill"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		factions.claim_fill(player, faction)
+    end
+})
+factions.register_command({"claim s", "claim square"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    format = {"string"},
+    on_success = function(player, faction, pos, parcelpos, args)
+		local arg = args.strings[1]
+        if arg then
+            local r = tonumber(arg)
+            if not r then
+                minetest.chat_send_player(player, "Only use numbers in the second cmd parameter [0-9].")
+                return
+            end
+            factions.claim_square(player, faction, r)
+        else
+            factions.claim_square(player, faction, 3)
+        end
+    end
+})
+factions.register_command({"claim c", "claim circle"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    format = {"string"},
+    on_success = function(player, faction, pos, parcelpos, args)
+		local arg = args.strings[1]
+        if arg then
+            local r = tonumber(arg)
+            if not r then
+                minetest.chat_send_player(player, "Only use numbers in the second cmd parameter [0-9].")
+                return
+            end
+            factions.claim_circle(player, faction, r)
+        else
+            factions.claim_circle(player, faction, 3)
+        end
+    end
+})
+factions.register_command("claim all", {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		factions.claim_all(player, faction)
+    end
+})
+factions.register_command({"claim l", "claim list"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+        local aclaims = "All claims:\n"
+        for i in pairs(faction.land) do
+            aclaims = aclaims .. i .. "\n"
+        end
+        minetest.chat_send_player(player, aclaims)
+    end
+})
+factions.register_command({"claim h", "claim help"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		factions.claim_help(player, arg_two)
+    end
+})
+
+factions.register_command({"unclaim o", "unclaim one"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		return unclaim_helper(player, faction, parcelpos)
+    end
+})
+factions.register_command ({"unclaim a", "unclaim auto"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		factions.unclaim_auto(player, faction)
+    end
+})
+factions.register_command({"unclaim f", "unclaim fill"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		factions.unclaim_fill(player, faction)
+    end
+})
+factions.register_command({"unclaim s", "unclaim square"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    format = {"string"},
+    on_success = function(player, faction, pos, parcelpos, args)
+		local arg = args.strings[1]
+        if arg then
+            local r = tonumber(arg)
+            if not r then
+                minetest.chat_send_player(player, "Only use numbers in the second cmd parameter [0-9].")
+                return
+            end
+            factions.unclaim_square(player, faction, r)
+        else
+            factions.unclaim_square(player, faction, 3)
+        end
+    end
+})
+factions.register_command({"unclaim c", "unclaim circle"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    format = {"string"},
+    on_success = function(player, faction, pos, parcelpos, args)
+		local arg = args.strings[1]
+        if arg then
+            local r = tonumber(arg)
+            if not r then
+                minetest.chat_send_player(player, "Only use numbers in the second cmd parameter [0-9].")
+                return
+            end
+            factions.unclaim_circle(player, faction, r)
+        else
+            factions.unclaim_circle(player, faction, 3)
+        end
+    end
+})
+factions.register_command("unclaim all", {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		factions.unclaim_all(player, faction)
+    end
+})
+factions.register_command({"unclaim l", "unclaim list"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+        local aclaims = "All claims:\n"
+        for i in pairs(faction.land) do
+            aclaims = aclaims .. i .. "\n"
+        end
+        minetest.chat_send_player(player, aclaims)
+    end
+})
+factions.register_command({"unclaim h", "unclaim help"}, {
+    faction_permissions = {"claim"},
+    global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+		factions.unclaim_help(player, arg_two)
+    end
+})
+
+factions.register_command({"flag help", "flag flags"}, {
+    faction_permissions = {"flags"},
+	global_privileges = def_global_privileges,
+	dont_show_in_help = true,
+    on_success = function(player, faction, pos, parcelpos, args)
+        local msg = ""
+        for i, k in pairs(factions.flags) do
+            msg = msg .. i .. ": " .. k .. "\n"
+        end
+        minetest.chat_send_player(player, msg)
+    end
+})
+factions.register_command("flag open", {
+    faction_permissions = {"flags"},
+	global_privileges = def_global_privileges,
+    dont_show_in_help = true,
+    format = {"string"},
+    on_success = function(player, faction, pos, parcelpos, args)
+		local bool = args.strings[1]
+		if bool then
+			local yes = false
+			if bool == "yes" then
+				yes = true
+			elseif bool == "no" then
+				yes = false
+			else
+				minetest.chat_send_player(player, "Set the flags only to yes or no.")
+				return false
+			end
+			factions.toggle_join_free(faction.name, yes)
+		end
+    end
+})

fac_config/init.lua

@@ -0,0 +1,24 @@
+factions_config = {}
+factions_config.protection_max_depth = tonumber(minetest.settings:get("factions.protection_max_depth")) or -512
+factions_config.protection_max_height = tonumber(minetest.settings:get("factions.protection_max_height")) or 10000
+factions_config.power_per_parcel = tonumber(minetest.settings:get("factions.power_per_parcel")) or 1
+factions_config.power_per_death = tonumber(minetest.settings:get("factions.power_per_death")) or 1
+factions_config.power_per_tick = tonumber(minetest.settings:get("factions.power_per_tick")) or 2
+factions_config.tick_time = tonumber(minetest.settings:get("factions.tick_time")) or 60
+factions_config.power_per_attack = tonumber(minetest.settings:get("factions.power_per_attack")) or 10
+factions_config.faction_name_max_length = tonumber(minetest.settings:get("factions.faction_name_max_length")) or 50
+factions_config.rank_name_max_length = tonumber(minetest.settings:get("factions.rank_name_max_length")) or 25
+factions_config.maximum_faction_inactivity = tonumber(minetest.settings:get("factions.maximum_faction_inactivity")) or 604800
+factions_config.maximum_parcelless_faction_time = tonumber(minetest.settings:get("factions.maximum_parcelless_faction_time")) or 10800
+factions_config.power = tonumber(minetest.settings:get("factions.power")) or 12
+factions_config.maxpower = tonumber(minetest.settings:get("factions.maxpower")) or 0
+factions_config.power_per_player = tonumber(minetest.settings:get("factions.power_per_player")) or 1
+factions_config.powermax_per_player = tonumber(minetest.settings:get("factions.powermax_per_player")) or 12
+factions_config.parcel_size = tonumber(minetest.settings:get("factions.parcel_size")) or 16
+factions_config.protection_depth_height_limit = minetest.settings:get_bool("factions.protection_depth_height_limit") or true
+factions_config.enable_power_per_player = minetest.settings:get_bool("factions.power_per_playerb") or true
+factions_config.attack_parcel = minetest.settings:get_bool("factions.attack_parcel") or false
+factions_config.faction_diplomacy = minetest.settings:get_bool("factions.faction_diplomacy") or true
+factions_config.spawn_teleport =  minetest.settings:get_bool("factions.spawn_teleport") or false
+factions_config.protection_style = minetest.settings:get("factions.protection_style") or "2d"
+factions_config.faction_user_priv = minetest.settings:get("factions.faction_user_priv") or false

fac_config/mod.conf

@@ -0,0 +1 @@
+name = fac_config

fac_config/settingtypes.txt

@@ -0,0 +1,57 @@
+[ValueSettings]
+
+# The max depth of protection from a parcel.
+factions.protection_max_depth (Protection max depth) float 512
+# The max height of protection from a parcel.
+factions.protection_max_height (Protection max height) float 10000
+# Cost of power to claim a parcel of land.
+factions.power_per_parcel (Power-per-parcel) float 1
+# Power lost on death.
+factions.power_per_death (Power-per-death) float 1
+# Power regeneration rate.
+factions.power_per_tick (Power-per-tick) float 2
+# Faction timer. This timer regenerates power.
+factions.tick_time (Faction timer) float 60
+# Not in use.
+factions.power_per_attack (Power-per-attack) float 10
+# Limit how long a faction name can be.
+factions.faction_name_max_length (Faction name max) int 50
+# Limit how long a rank name can be.
+factions.rank_name_max_length (Rank name max length) int 25
+# The maximum amount of inactivity before disbanning a faction.
+factions.maximum_faction_inactivity (Maximum faction inactivity) int 604800
+# The maximum amount of time for a parcelless faction to disban.
+factions.maximum_parcelless_faction_time (Maximum parcelless faction time) int 10800
+# Power of a starting faction (needed for parcel claiming).
+factions.power (Starting power) float 12
+# Maximum power of a starting faction.
+factions.maxpower (Starting Maximum power) float 0
+# How much power the players make.
+factions.power_per_player (power-per-player) float 1
+# How much max power is created per new player.
+factions.powermax_per_player (powermax-per-player) float 12
+# parcel size
+factions.parcel_size (parcel-size) float 16
+
+[BoolSettings]
+
+# Enable or disabled power-per-player.
+factions.power_per_playerb (Enable power-per-player) bool true
+# Enable or disabled attack_parcel function.
+factions.attack_parcel (Enable attack parcel) bool false
+# Enable or disabled faction diplomacy.
+factions.faction_diplomacy (Enable faction diplomacy) bool true
+# Enable or disabled the max depth and height limit for a parcel
+factions.protection_depth_height_limit (Enable protection depth height limit) bool true
+# Enable or disabled faction spawn teleport
+factions.spawn_teleport (Enable spawn teleport) bool false
+# Enable or disabled the need for faction_user priv
+factions.faction_user_priv (Enable faction user priv) bool false
+# Enable or disabled Store player ips to prevent players from gaining more max power from alts
+factions.store_ip (store player ip) bool true
+
+[StringSettings]
+# Set the way that the parcel protection works (2d, 3d).
+# 2d limits how far x and z can go but protection on the y goes up and down far.
+# 3d limits all three axis.
+factions.protection_style (Protection style) enum 2d 3d,2d

fac_database/init.lua

@@ -0,0 +1,159 @@
+--! @class factions
+--! @brief main class for factions
+factions = {}
+
+-- database
+factions.factions = {}
+factions.parcels = {}
+factions.players = {}
+factions.player_ips = {}
+
+dofile(minetest.get_modpath("fac_database") .. "/storagedb.lua")
+factions.factions = storagedb.Storagedb("factions")
+factions.parcels = storagedb.Storagedb("parcels")
+factions.players = storagedb.Storagedb("players")
+factions.player_ips = storagedb.Storagedb("ips")
+
+-- Memory only storage.
+factions.onlineplayers = {}
+
+-- Table creation.
+
+-- Create a empty faction.
+function factions.create_faction_table() 
+    local table = {
+		name = "",
+        --! @brief power of a faction (needed for parcel claiming)
+        power = factions_config.power,
+        --! @brief maximum power of a faction
+        maxpower = factions_config.maxpower,
+        --! @brief power currently in use
+        usedpower = 0,
+        --! @brief list of player names
+        players = {},
+        --! @brief table of ranks/permissions
+        ranks = starting_ranks,
+        --! @brief name of the leader
+        leader = nil,
+		--! @brief spawn of the faction
+		spawn = {x = 0, y = 0, z = 0},
+        --! @brief default joining rank for new members
+        default_rank = "member",
+        --! @brief default rank assigned to the leader
+        default_leader_rank = "leader",
+        --! @brief faction's description string
+        description = "Default faction description.",
+		--! @brief faction's message of the day.
+		message_of_the_day = "",
+        --! @brief list of players currently invited (can join with /f join)
+        invited_players = {},
+        --! @brief table of claimed parcels (keys are parcelpos strings)
+        land = {},
+        --! @brief table of allies
+        allies = {},
+		--
+		request_inbox = {},
+        --! @brief table of enemies
+        enemies = {},
+		--!
+		neutral = {},
+        --! @brief table of parcels/factions that are under attack
+        attacked_parcels = {},
+        --! @brief whether faction is closed or open (boolean)
+        join_free = false,
+        --! @brief gives certain privileges
+        is_admin = false,
+        --! @brief last time anyone logged on
+        last_logon = os.time(),
+		--! @brief how long this has been without parcels
+        no_parcel = os.time(),
+        --! @brief access table
+        access = {players = {}, factions = {}},
+    }
+    return table
+end
+
+-- Create a empty ip table.
+function factions.create_ip_table() 
+    local table = {
+        ip = ""
+    }
+    return table
+end
+
+-- Create a empty player table.
+function factions.create_player_table() 
+    local table = {
+        faction = ""
+    }
+    return table
+end
+
+-- Create a empty claim table.
+function factions.create_parcel_table() 
+    local table = {
+        faction = ""
+    }
+    return table
+end
+
+-- helper functions
+function factions.db_is_empty(table)
+    for k, v in pairs(table) do
+        return false
+    end
+    return true
+end
+
+function factions.remove_key(db, db_name, db_data, key, write)
+    if not db_data then
+        db_data = db.get(db_name)
+    end
+    db_data[key] = nil
+    if factions.db_is_empty(db_data) then
+        db.remove(db_name)
+        return nil
+    end
+    if write then
+        db.set(db_name, db_data)
+    end
+    return db_data
+end
+
+-- faction data check on load
+local function update_data(db, db_name, db_data, empty_table, write)
+    local needs_update = false
+    if not db_data then
+        db_data = db.get(db_name)
+    end
+    for k, v in pairs(empty_table) do
+        if db_data[k] == nil then
+            db_data[k] = v
+            needs_update = true
+            minetest.log("Adding property " .. k .. " to " .. db_name .. " file.")
+        end
+    end
+    if write and needs_update then
+        db.set(db_name, db_data)
+    end
+    return db_data
+end
+
+minetest.register_on_mods_loaded(function()
+    minetest.log("Checking faction files.")
+    for k, v in factions.factions.iterate() do
+        update_data(factions.factions, k, nil, factions.create_faction_table(), true)
+    end
+    minetest.log("Checking parcel files.")
+    for k, v in factions.parcels.iterate() do
+        update_data(factions.parcels, k, nil, factions.create_parcel_table(), true)
+    end
+    minetest.log("Checking player files.")
+    for k, v in factions.players.iterate() do
+        update_data(factions.players, k, nil, factions.create_player_table(), true)
+    end
+    minetest.log("Checking ip files.")
+    for k, v in factions.player_ips.iterate() do
+        update_data(factions.player_ips, k, nil, factions.create_ip_table(), true)
+    end
+end)

fac_database/mod.conf

@@ -0,0 +1,2 @@
+name = fac_database
+depends = fac_config

fac_database/storagedb.lua

@@ -0,0 +1,192 @@
+local storage = minetest.get_mod_storage()
+storagedb = {}
+
+function storagedb.Storagedb(dir)
+	local self = {}
+	
+	local directory = dir
+	local mem_pool = {}
+	local mem_pool_del = {}
+	local add_to_mem_pool = true
+	local serializer = minetest.serialize
+	local deserializer = minetest.deserialize
+	
+	-- make tables weak so the garbage-collector will remove unused data
+	setmetatable(mem_pool, {__mode = "kv"})
+	setmetatable(mem_pool_del, {__mode = "kv"})
+
+	local function storekey(key)
+        local list = deserializer(storage:get_string(directory))
+        if not list then
+            list = {}
+            list[key] = key
+        else
+            list[key] = key
+        end
+        storage:set_string(directory, serializer(list))
+    end
+    local function removekey(key)
+        local list = deserializer(storage:get_string(directory))
+        if not list then
+            list = {}
+        else
+            list[key] = nil
+        end
+        storage:set_string(directory, serializer(list))
+    end
+    local function getkeys()
+        local list = deserializer(storage:get_string(directory))
+        if not list then
+            list = {}
+        end
+        return list
+    end
+	local function load_into_mem(name, _table)
+		if add_to_mem_pool then
+			mem_pool[name] = {mem = _table}
+		end
+	end
+	local function load_table(name)
+		local f = storage:get_string(string.format("%s/%s", directory, name))
+		if f then
+			local data = deserializer(f)
+			return data
+		end
+		return nil
+	end
+	local function save_table(name, _table)
+		if save_table == nil or name == nil then
+			return false
+		end
+		storekey(name)
+		storage:set_string(string.format("%s/%s", directory, name), serializer(_table))
+	end
+	local function save_key(name)
+		storage:set_string(string.format("%s/%s", directory, name), "")
+	end
+	local function load_key(name)
+		local f = storage:get_string(string.format("%s/%s", directory, name))
+		if f ~= "" then
+			return true
+		end
+		return false
+	end
+	self.get_memory_pool = function()
+		return mem_pool
+	end
+	self.set_memory_pool = function(pool)
+		mem_pool = pool
+	end
+	self.add_to_memory_pool = function(value)
+		if value then
+			add_to_mem_pool = value
+		end
+		return add_to_mem_pool
+	end
+	self.get_serializer = function()
+		return serializer, deserializer
+	end
+	self.set_serializer = function(coder, decoder)
+		serializer = coder
+		deserializer = decoder
+	end
+	self.set_mem = function(name, _table)
+		load_into_mem(name, _table)
+		mem_pool_del[name] = nil
+	end
+	self.save_mem = function(name)
+		if mem_pool[name] ~= nil then
+			save_table(name, mem_pool[name].mem)
+		end
+		mem_pool_del[name] = nil
+	end
+	
+	self.clear_mem = function(name)
+		mem_pool[name] = nil
+		mem_pool_del[name] = nil
+	end
+
+	self.set = function(name, _table)
+		save_table(name, _table)
+		if add_to_mem_pool then
+			load_into_mem(name, _table)
+		end
+		mem_pool_del[name] = nil
+	end
+
+	self.set_key = function(name)
+		save_key(name)
+		if add_to_mem_pool then
+			load_into_mem(name, "")
+		end
+		mem_pool_del[name] = nil
+	end
+
+	self.get = function(name, callback)
+		if mem_pool_del[name] then
+			if callback then
+				callback(nil)
+			end
+			return nil
+		end
+		local pm = mem_pool[name]
+		if pm then
+			if callback then
+				callback(pm.mem)
+			end
+			return pm.mem
+		else
+			local _table = load_table(name)
+			if _table then
+				load_into_mem(name, _table)
+				if callback then
+					callback(_table)
+				end
+				return _table
+			end
+		end
+		mem_pool_del[name] = true
+		return nil
+	end
+
+	self.remove = function(name)
+		mem_pool[name] = nil
+		mem_pool_del[name] = true
+		removekey(name)
+		storage:set_string(string.format("%s/%s", directory, name), "")
+	end
+
+	self.sub_database = function(path)
+		local db = storagedb.Storagedb(dir .. "/" .. path)
+		return db
+	end
+	self.to_array = function()
+		local entries = {}
+
+		for k, v in pairs(getkeys()) do
+			entries[#entries + 1] = v
+		end
+
+		return entries
+	end
+	self.to_table = function()
+		local entries = {}
+
+		for k, v in pairs(getkeys()) do
+			entries[v] = true
+		end
+
+		return entries
+	end
+	self.iterate = function()
+		local entries = {}
+
+		for k, v in pairs(getkeys()) do
+			entries[v] = true
+		end
+
+		return pairs(entries)
+	end
+	
+	return self
+end

fac_events/claim_events.lua

@@ -0,0 +1,375 @@
+--! @param parcelpos position of the wanted parcel
+--! @return whether this faction can claim a parcelpos
+function factions.can_claim_parcel(name, parcelpos)
+    local fn = factions.parcels.get(parcelpos)
+	if fn == nil then
+		return true
+	end
+	local faction = factions.factions.get(name)
+	if fn then
+		local fac = factions.factions.get(fn.faction)
+        if fac.power < 0. and faction.power >= factions_config.power_per_parcel and not faction.allies[fn] and not faction.neutral[fn] then
+            return true
+        else
+            return false
+        end
+    elseif faction.power < factions_config.power_per_parcel then
+        return false
+    end
+    return true
+end
+--! @brief claim a parcel, update power and update global parcels table
+function factions.claim_parcel(name, parcelpos)
+    -- check if claiming over other faction's territory
+	local otherfac = factions.parcels.get(parcelpos)
+	if otherfac then
+		local otherfac_name = otherfac.faction
+        factions.unclaim_parcel(otherfac_name, parcelpos)
+		factions.parcelless_check(otherfac_name)
+	end
+	local data = factions.create_parcel_table()
+	data.faction = name
+    factions.parcels.set(parcelpos, data)
+	local faction = factions.factions.get(name)
+    faction.land[parcelpos] = true
+	factions.factions.set(name, faction)
+    factions.decrease_power(name, factions_config.power_per_parcel)
+    factions.increase_usedpower(name, factions_config.power_per_parcel)
+    factions.on_claim_parcel(name, parcelpos)
+	factions.parcelless_check(name)
+end
+--! @brief claim a parcel, update power and update global parcels table
+function factions.unclaim_parcel(name, parcelpos)
+	factions.remove_key(factions.parcels, parcelpos, nil, "faction", true)
+	local faction = factions.factions.get(name)
+    faction.land[parcelpos] = nil
+	factions.factions.set(name, faction)
+    factions.increase_power(name, factions_config.power_per_parcel)
+    factions.decrease_usedpower(name, factions_config.power_per_parcel)
+    factions.on_unclaim_parcel(name, parcelpos)
+	factions.parcelless_check(name)
+end
+
+function factions.parcelless_check(name)
+	local faction = factions.factions.get(name)
+	if faction.land then
+		local count = 0
+		for index, value in pairs(faction.land) do
+			count = count + 1
+			break
+		end
+		if count > 0 then
+			if faction.no_parcel ~= -1 then
+				factions.broadcast(name, "Faction " .. name .. " will not be disbanded because it now has parcels.")
+			end
+			faction.no_parcel = -1
+		else
+			faction.no_parcel = os.time()
+			factions.on_no_parcel(name)
+		end
+		factions.factions.set(name, faction)
+	end
+end
+
+function factions.get_parcel_faction(parcelpos)
+    local data = factions.parcels.get(parcelpos)
+	if data then
+		local facname = data.faction
+        local faction = factions.factions.get(facname)
+        return faction, facname
+    end
+    return nil
+end
+
+function claim_helper(player, faction, parcelpos, no_msgs)
+	faction = factions.factions.get(faction.name)
+	if not faction then
+		return false
+	end
+	if faction.power < factions_config.power_per_parcel then
+		if not no_msgs then
+			minetest.chat_send_player(player, "Not enough power.")
+		end
+		return false
+	end
+	local p = parcelpos
+	local can_claim = factions.can_claim_parcel(faction.name, p)
+	
+	if can_claim then
+		minetest.chat_send_player(player, "Claming parcel " .. p)
+		factions.claim_parcel(faction.name, p)
+		return true
+	else
+		local parcel_faction = factions.get_parcel_faction(p)
+		if parcel_faction and parcel_faction.name == faction.name then
+			if not no_msgs then
+				minetest.chat_send_player(player, "This parcel already belongs to your faction")
+			end
+			return false
+		elseif parcel_faction and parcel_faction.name ~= faction.name then
+			if not no_msgs then
+				minetest.chat_send_player(player, "This parcel belongs to another faction")
+			end
+			return false
+		else
+			if not no_msgs then
+				minetest.chat_send_player(player, "Your faction cannot claim any (more) parcel(s).")
+			end
+			return false
+		end
+	end
+end
+
+function unclaim_helper(player, faction, parcelpos, no_msgs)
+	faction = factions.factions.get(faction.name)
+	if not faction then
+		return false
+	end
+	local parcel_faction = factions.get_parcel_faction(parcelpos)
+	if not parcel_faction then
+		if not no_msgs then
+			minetest.chat_send_player(player, "This parcel does not exist.")
+		end
+		return false
+	end
+	if parcel_faction.name ~= faction.name then
+		if not no_msgs then
+			minetest.chat_send_player(player, "This parcel does not belong to you.")
+		end
+		return false
+	else
+		factions.unclaim_parcel(faction.name, parcelpos)
+		return true
+	end
+end
+
+local parcel_size = factions_config.parcel_size
+
+function factions.claim_square(player, faction, r)
+	local rplayer = minetest.get_player_by_name(player)
+	local pos = vector.round(rplayer:get_pos())
+	pos.x = math.floor(pos.x / parcel_size) * parcel_size
+	pos.z = math.floor(pos.z / parcel_size) * parcel_size
+	pos.x = pos.x - (parcel_size * (r - math.floor(r / 2)))
+	pos.z = pos.z - (parcel_size * (r - math.floor(r / 2)))
+	local timer = 0
+	for i = 1, r do
+		for l = 1, r do
+			local p = {x = pos.x + (parcel_size * l), y = pos.y, z = pos.z + (parcel_size * i)}
+			minetest.after(timer, claim_helper, player, faction, factions.get_parcel_pos(p), true)
+			
+			timer = timer + 0.1
+		end
+	end
+end
+local auto_list = {}
+local function _claim_auto(player, faction)
+	if auto_list[player] then
+		local rplayer = minetest.get_player_by_name(player)
+		local parcelpos = vector.round(rplayer:get_pos())
+		claim_helper(player, faction, factions.get_parcel_pos(parcelpos), true)
+		minetest.after(0.1, _claim_auto, player, faction)
+	end
+end
+function factions.claim_auto(player, faction)
+	if auto_list[player] then
+		auto_list[player] = nil
+		minetest.chat_send_player(player, "Auto claim disabled.")
+	else
+		auto_list[player] = true
+		minetest.chat_send_player(player, "Auto claim enabled.")
+		_claim_auto(player, faction)
+	end
+end
+local function _claim_fill(player, faction, pos)
+	if claim_helper(player, faction, factions.get_parcel_pos(pos), true) then
+		local pos1 = {x = pos.x - parcel_size, y = pos.y, z = pos.z}
+		minetest.after(math.random(0, 11) / 10, _claim_fill, player, faction, pos1)
+		local pos2 = {x = pos.x + parcel_size, y = pos.y, z = pos.z}
+		minetest.after(math.random(0, 11) / 10, _claim_fill, player, faction, pos2)
+		local pos3 = {x = pos.x, y = pos.y, z = pos.z - parcel_size}
+		minetest.after(math.random(0, 11) / 10, _claim_fill, player, faction, pos3)
+		local pos4 = {x = pos.x, y = pos.y, z = pos.z + parcel_size}
+		minetest.after(math.random(0, 11) / 10, _claim_fill, player, faction, pos4)
+	end
+end
+function factions.claim_fill(player, faction)
+	local rplayer = minetest.get_player_by_name(player)
+	local pos = vector.round(rplayer:get_pos())
+	
+	pos.x = math.floor(pos.x / parcel_size) * parcel_size
+	pos.z = math.floor(pos.z / parcel_size) * parcel_size
+	
+	_claim_fill(player, faction, pos)
+end
+
+local parcel_size_center = parcel_size / 2
+
+function factions.claim_circle(player, faction, r)
+	local rplayer = minetest.get_player_by_name(player)
+	local pos = vector.round(rplayer:get_pos())
+	
+	pos.x = (math.floor(pos.x / parcel_size) * parcel_size) + parcel_size_center
+	pos.z = (math.floor(pos.z / parcel_size) * parcel_size) + parcel_size_center
+	
+	for i = 1, 360 do
+		local angle = i * math.pi / 180
+		local rpos = {x = pos.x + r * math.cos(angle), y = pos.y, z = pos.z + r * math.sin(angle)}
+		claim_helper(player, faction, factions.get_parcel_pos(rpos), true)
+	end
+end
+
+local function _claim_all(player, faction, pos)
+	if faction.power >= factions_config.power_per_parcel then
+		claim_helper(player, faction, factions.get_parcel_pos(pos), true)
+		local pos1 = {x = pos.x - parcel_size, y = pos.y, z = pos.z}
+		minetest.after(math.random(0, 11) / 10, _claim_all, player, faction, pos1)
+		local pos2 = {x = pos.x + parcel_size, y = pos.y, z = pos.z}
+		minetest.after(math.random(0, 11) / 10, _claim_all, player, faction, pos2)
+		local pos3 = {x = pos.x, y = pos.y, z = pos.z - parcel_size}
+		minetest.after(math.random(0, 11) / 10, _claim_all, player, faction, pos3)
+		local pos4 = {x = pos.x, y = pos.y, z = pos.z + parcel_size}
+		minetest.after(math.random(0, 11) / 10, _claim_all, player, faction, pos4)
+	end
+end
+
+function factions.claim_all(player, faction)
+	local rplayer = minetest.get_player_by_name(player)
+	local pos = vector.round(rplayer:get_pos())
+	pos.x = math.floor(pos.x / parcel_size) * parcel_size
+	pos.z = math.floor(pos.z / parcel_size) * parcel_size
+	_claim_all(player, faction, pos)
+end
+
+function factions.claim_help(player, func)
+	local text = "All params for /f claim: <o,one, a,auto, f,fill, s,square, c,circle, all, l,list, h,help>, <none, number>"
+	if func == "o" or func == "one" then
+		text = "/f claim o\n/f claim one\n Claim one parcel."
+	elseif func == "a" or func == "auto" then
+		text = "/f claim a\n/f claim auto\nClaim as you walk around."
+	elseif func == "f" or func == "fill" then
+		text = "/f claim f\n/f claim fill\nClaim by filling."
+	elseif func == "s" or func == "square" then
+		text = "/f claim s <number>\n/f claim square <number>\nClaim by square and radius."
+	elseif func == "c" or func == "circle" then
+		text = "/f claim c <number>\n/f claim circle <number>\nClaim by circle and radius."
+	elseif func == "l" or func == "list" then
+		text = "/f claim l\n/f claim list\nList all the faction's claimed land."
+	elseif func == "all" then
+		text = "/f claim all\nClaim all faction land."
+	end
+	minetest.chat_send_player(player, text)
+end
+
+function factions.unclaim_square(player, faction, r)
+	local rplayer = minetest.get_player_by_name(player)
+	local pos = vector.round(rplayer:get_pos())
+	pos.x = math.floor(pos.x / parcel_size) * parcel_size
+	pos.z = math.floor(pos.z / parcel_size) * parcel_size
+	pos.x = pos.x - (parcel_size * (r - math.floor(r / 2)))
+	pos.z = pos.z - (parcel_size * (r - math.floor(r / 2)))
+	local timer = 0
+	for i = 1, r do
+		for l = 1, r do
+			local p = {x = pos.x + (parcel_size * l), y = pos.y, z = pos.z + (parcel_size * i)}
+			minetest.after(timer, unclaim_helper, player, faction, factions.get_parcel_pos(p), true)
+			
+			timer = timer + 0.1
+		end
+	end
+end
+
+local function _unclaim_auto(player, faction)
+	if auto_list[player] then
+		local rplayer = minetest.get_player_by_name(player)
+		local parcelpos = vector.round(rplayer:get_pos())
+		unclaim_helper(player, faction, factions.get_parcel_pos(parcelpos), true)
+		minetest.after(0.1, _unclaim_auto, player, faction)
+	end
+end
+
+function factions.unclaim_auto(player, faction)
+	if auto_list[player] then
+		auto_list[player] = nil
+		minetest.chat_send_player(player, "Auto unclaim disabled.")
+	else
+		auto_list[player] = true
+		minetest.chat_send_player(player, "Auto unclaim enabled.")
+		_unclaim_auto(player, faction)
+	end
+end
+
+local function _unclaim_fill(player, faction, pos)
+	if unclaim_helper(player, faction, factions.get_parcel_pos(pos), true) then
+		local pos1 = {x = pos.x - parcel_size, y = pos.y, z = pos.z}
+		minetest.after(math.random(0, 11) / 10, _unclaim_fill, player, faction, pos1)
+		local pos2 = {x = pos.x + parcel_size, y = pos.y, z = pos.z}
+		minetest.after(math.random(0, 11) / 10, _unclaim_fill, player, faction, pos2)
+		local pos3 = {x = pos.x, y = pos.y, z = pos.z - parcel_size}
+		minetest.after(math.random(0, 11) / 10, _unclaim_fill, player, faction, pos3)
+		local pos4 = {x = pos.x, y = pos.y, z = pos.z + parcel_size}
+		minetest.after(math.random(0, 11) / 10, _unclaim_fill, player, faction, pos4)
+	end
+end
+
+function factions.unclaim_fill(player, faction)
+	local rplayer = minetest.get_player_by_name(player)
+	local pos = vector.round(rplayer:get_pos())
+	pos.x = math.floor(pos.x / parcel_size) * parcel_size
+	pos.z = math.floor(pos.z / parcel_size) * parcel_size
+	_unclaim_fill(player, faction, pos)
+end
+
+local parcel_size_center = parcel_size / 2
+
+function factions.unclaim_circle(player, faction, r)
+	local rplayer = minetest.get_player_by_name(player)
+	local pos = vector.round(rplayer:get_pos())
+	pos.x = (math.floor(pos.x / parcel_size) * parcel_size) + parcel_size_center
+	pos.z = (math.floor(pos.z / parcel_size) * parcel_size) + parcel_size_center
+	for i = 1, 360 do
+		local angle = i * math.pi / 180
+		local rpos = {x = pos.x + r * math.cos(angle), y = pos.y, z = pos.z + r * math.sin(angle)}
+		unclaim_helper(player, faction, factions.get_parcel_pos(rpos), true)
+	end
+end
+
+local function _unclaim_all(player, faction)
+	local timer = 0
+	for i in pairs(faction.land) do
+		minetest.after(timer, factions.unclaim_parcel, faction.name, i)
+		timer = timer + 0.1
+	end
+end
+
+function factions.unclaim_all(player, faction)
+	local rplayer = minetest.get_player_by_name(player)
+	local pos = vector.round(rplayer:get_pos())
+	pos.x = math.floor(pos.x / parcel_size) * parcel_size
+	pos.z = math.floor(pos.z / parcel_size) * parcel_size
+	_unclaim_all(player, faction, pos)
+end
+
+function factions.unclaim_help(player, func)
+	local text = "All params for /f unclaim: <o,one, a,auto, f,fill, s,square, c,circle, all, l,list, h,help>, <none, number>"
+	if func == "o" or func == "one" then
+		text = "/f unclaim o\n/f unclaim one\n Unclaim one parcel."
+	elseif func == "a" or func == "auto" then
+		text = "/f unclaim a\n/f unclaim auto\nUnclaim as you walk around."
+	elseif func == "f" or func == "fill" then
+		text = "/f unclaim f\n/f unclaim fill\nUnclaim by filling."
+	elseif func == "s" or func == "square" then
+		text = "/f unclaim s <number>\n/f unclaim square <number>\nUnclaim by square and radius."
+	elseif func == "c" or func == "circle" then
+		text = "/f unclaim c <number>\n/f unclaim circle <number>\nUnclaim by circle and radius."
+	elseif func == "l" or func == "list" then
+		text = "/f claim l\n/f claim list\nList all the faction's claimed land."
+	elseif func == "all" then
+		text = "/f unclaim all\nUnclaim all faction land."
+	end
+	minetest.chat_send_player(player, text)
+end
+
+minetest.register_on_leaveplayer(function(player)
+	auto_list[player:get_player_name()] = nil
+end)

fac_events/diplomacy_events.lua

@@ -0,0 +1,74 @@
+function factions.start_diplomacy(name, faction)
+	for l, i in factions.factions.iterate() do
+		local fac = factions.factions.get(l)
+		if l ~= name and not (faction.neutral[l] or faction.allies[l] or faction.enemies[l]) then
+			if factions_config.faction_diplomacy == true then
+				factions.new_neutral(name, l)
+				factions.new_neutral(l, name)
+			else
+				factions.new_enemy(name, l)
+				factions.new_enemy(l, name)
+			end
+		end
+	end
+end
+
+function factions.new_alliance(name, faction)
+	local bfaction = factions.factions.get(name)
+    bfaction.allies[faction] = true
+    factions.on_new_alliance(name, faction)
+    if bfaction.enemies[faction] then
+        factions.end_enemy(name, faction)
+    end
+	if bfaction.neutral[faction] then
+        factions.end_neutral(name, faction)
+    end
+	factions.factions.set(name, bfaction)
+end
+
+function factions.end_alliance(name, faction)
+    local bfaction = factions.factions.get(name)
+	bfaction.allies[faction] = nil
+    factions.on_end_alliance(name, faction)
+	factions.factions.set(name, bfaction)
+end
+
+function factions.new_neutral(name, faction)
+	local bfaction = factions.factions.get(name)
+    bfaction.neutral[faction] = true
+	factions.on_new_neutral(name, faction)
+    if bfaction.allies[faction] then
+        factions.end_alliance(name, faction)
+    end
+    if bfaction.enemies[faction] then
+        factions.end_enemy(name, faction)
+    end
+	factions.factions.set(name, bfaction)
+end
+
+function factions.end_neutral(name, faction)
+    local bfaction = factions.factions.get(name)
+	bfaction.neutral[faction] = nil
+    factions.on_end_neutral(name, faction)
+	factions.factions.set(name, bfaction)
+end
+
+function factions.new_enemy(name, faction)
+	local bfaction = factions.factions.get(name)
+	bfaction.enemies[faction] = true
+    factions.on_new_enemy(name, faction)
+    if bfaction.allies[faction] then
+        factions.end_alliance(name, faction)
+    end
+	if bfaction.neutral[faction] then
+        factions.end_neutral(name, faction)
+    end
+	factions.factions.set(name, bfaction)
+end
+
+function factions.end_enemy(name, faction)
+    local bfaction = factions.factions.get(name)
+	bfaction.enemies[faction] = nil
+    factions.on_end_enemy(name, faction)
+	factions.factions.set(name, bfaction)
+end

fac_events/eventcallbacks.lua

@@ -0,0 +1,107 @@
+function factions.on_create(name)  --! @brief called when the faction is added to the global faction list
+    minetest.chat_send_all("Faction " .. name .. " has been created.")
+end
+function factions.on_set_name(name, oldname)
+    minetest.chat_send_all("Faction " .. oldname .. " has been changed its name to ".. name ..".")
+end
+function factions.on_no_parcel(name)
+	local faction = factions.factions.get(name)
+	local now = os.time() - faction.no_parcel
+	local l = factions_config.maximum_parcelless_faction_time
+    factions.broadcast(name, "This faction will disband in " .. l - now .. " seconds, because it has no parcels.")
+end
+function factions.on_player_leave(name, player)
+    factions.broadcast(name, player .. " has left this faction")
+end
+function factions.on_player_join(name, player)
+    factions.broadcast(name, player .. " has joined this faction")
+end
+function factions.on_claim_parcel(name, pos)
+    factions.broadcast(name, "Parcel (" .. pos .. ") has been claimed.")
+end
+function factions.on_unclaim_parcel(name, pos)
+    factions.broadcast(name, "Parcel ("..pos..") has been unclaimed.")
+end
+function factions.on_disband(name, reason)
+    local msg = "Faction " .. name .. " has been disbanded."
+    if reason then
+        msg = msg .. " (" .. reason .. ")"
+    end
+    minetest.chat_send_all(msg)
+end
+function factions.on_new_leader(name)
+    local faction = factions.factions.get(name)
+	factions.broadcast(name, faction.leader .. " is now the leader of this faction")
+end
+function factions.on_change_description(name)
+    local faction = factions.factions.get(name)
+	factions.broadcast(name, "Faction description has been modified to: " .. faction.description)
+end
+function factions.on_player_invited(name, player)
+    local faction = factions.factions.get(name)
+	minetest.chat_send_player(player, "You have been invited to faction " .. faction.name)
+end
+function factions.on_toggle_join_free(name, player)
+    local faction = factions.factions.get(name)
+	if faction.join_free then
+        factions.broadcast(name, "This faction is now invite-free.")
+    else
+        factions.broadcast(name, "This faction is no longer invite-free.")
+    end
+end
+function factions.on_new_alliance(name, faction)
+    factions.broadcast(name, "This faction is now allied with " .. faction)
+end
+function factions.on_end_alliance(name, faction)
+    factions.broadcast(name, "This faction is no longer allied with " .. faction .. "!")
+end
+function factions.on_new_neutral(name, faction)
+    factions.broadcast(name, "This faction is now neutral with ".. faction)
+end
+function factions.on_end_neutral(name, faction)
+    factions.broadcast(name, "This faction is no longer neutral with " .. faction .. "!")
+end
+function factions.on_new_enemy(name, faction)
+    factions.broadcast(name, "This faction is now at war with " .. faction)
+end
+function factions.on_end_enemy(name, faction)
+    factions.broadcast(name, "This faction is no longer at war with " .. faction .. "!")
+end
+function factions.on_set_spawn(name)
+    local faction = factions.factions.get(name)
+    local spawn_str = faction.spawn.x .. ", " .. faction.spawn.y .. ", " .. faction.spawn.z
+    factions.broadcast(name, "The faction spawn has been set to (" .. spawn_str .. ").")
+end
+function factions.on_add_rank(name, rank)
+	local faction = factions.factions.get(name)
+    factions.broadcast(name, "The rank " .. rank .. " has been created with privileges: " .. table.concat(faction.ranks[rank], ", "))
+end
+function factions.on_replace_privs(name, rank)
+	local faction = factions.factions.get(name)
+    factions.broadcast(name, "The privileges in rank " .. rank .. " have been delete and changed to: " .. table.concat(faction.ranks[rank], ", "))
+end
+function factions.on_remove_privs(name, rank, privs)
+    factions.broadcast(name, "The privileges in rank " .. rank .. " have been revoked: " .. table.concat(privs, ", "))
+end
+function factions.on_add_privs(name, rank, privs)
+    factions.broadcast(name, "The privileges in rank " .. rank .. " have been added: " .. table.concat(privs, ", "))
+end
+function factions.on_set_rank_name(name, rank,newrank)
+    factions.broadcast(name, "The name of rank " .. rank .. " has been changed to " .. newrank)
+end
+function factions.on_delete_rank(name, rank, newrank)
+    factions.broadcast(name, "The rank " .. rank .. " has been deleted and replaced by " .. newrank)
+end
+function factions.on_set_def_rank(name, rank)
+    factions.broadcast(name, "The default rank given to new players has been changed to " .. rank)
+end
+function factions.on_reset_ranks(name)
+    factions.broadcast(name, "All of the faction's ranks have been reset to the default ones.")
+end
+function factions.on_promote(name, member)
+	local faction = factions.factions.get(name)
+    minetest.chat_send_player(member, "You have been promoted to " .. faction.players[member])
+end
+function factions.on_revoke_invite(name, player)
+    minetest.chat_send_player(player, "You are no longer invited to faction " .. name)
+end

fac_events/init.lua

@@ -0,0 +1,8 @@
+local path = minetest.get_modpath("fac_events")
+dofile (path .. "/claim_events.lua")
+dofile (path .. "/diplomacy_events.lua")
+dofile (path .. "/eventcallbacks.lua")
+dofile (path .. "/invite_events.lua")
+dofile (path .. "/player_events.lua")
+dofile (path .. "/power_events.lua")
+dofile (path .. "/rank_events.lua")

fac_events/invite_events.lua

@@ -0,0 +1,15 @@
+--! @brief places player in invite list
+function factions.invite_player(name, player)
+	local faction = factions.factions.get(name)
+    faction.invited_players[player] = true
+    factions.on_player_invited(name, player)
+	factions.factions.set(name, faction)
+end
+
+--! @brief removes player from invite list (can no longer join via /f join)
+function factions.revoke_invite(name, player)
+    local faction = factions.factions.get(name)
+	faction.invited_players[player] = nil
+    factions.on_revoke_invite(name, player)
+	factions.factions.set(name, faction)
+end

fac_events/mod.conf

@@ -0,0 +1,2 @@
+name = fac_events
+depends = fac

fac_events/player_events.lua

@@ -0,0 +1,85 @@
+local on_death = {}
+
+minetest.register_on_prejoinplayer(function(name, ip)
+	local data = factions.create_ip_table()
+	data.ip = ip
+	factions.player_ips.set(name, data)
+end)
+minetest.register_on_joinplayer(function(player)
+	local name = player:get_player_name()
+	minetest.after(5, createHudfactionLand, player)
+    local faction, facname = factions.get_player_faction(name)
+    if faction then
+		if factions.onlineplayers[facname] == nil then
+			factions.onlineplayers[facname] = {}
+		end
+		factions.onlineplayers[facname][name] = true
+        faction.last_logon = os.time()
+		factions.factions.set(facname, faction)
+		minetest.after(5, createHudFactionName, player, facname)
+		minetest.after(5, createHudPower, player, faction)
+		if faction.no_parcel ~= -1 then
+			local now = os.time() - faction.no_parcel
+			local l = factions_config.maximum_parcelless_faction_time
+			minetest.chat_send_player(name, "This faction will disband in " .. l - now .. " seconds, because it has no parcels.")
+		end
+		
+		if factions.has_permission(facname, name, "diplomacy") then
+			for _ in pairs(faction.request_inbox) do minetest.chat_send_player(name, "You have diplomatic requests in the inbox.") break end
+		end
+		
+		if faction.message_of_the_day and (faction.message_of_the_day ~= "" or faction.message_of_the_day ~= " ") then
+			minetest.chat_send_player(name, faction.message_of_the_day)
+		end
+    end
+end)
+minetest.register_on_leaveplayer(function(player)
+	local name = player:get_player_name()
+	local faction, facname = factions.get_player_faction(name)
+	local id_name1 = name .. "factionLand"
+	if hud_ids[id_name1] then
+		hud_ids[id_name1] = nil
+	end
+	if faction then
+		faction.last_logon = os.time()
+		factions.factions.set(facname, faction)
+		factions.onlineplayers[facname][name] = nil
+		
+		hud_ids[name .. "factionName"] = nil
+		hud_ids[name .. "powerWatch"] = nil
+	else
+		factions.remove_key(factions.player_ips, name, nil, "ip", true)
+	end
+	on_death[name] = nil
+end)
+
+minetest.register_on_respawnplayer(function(player)
+	local name = player:get_player_name()
+	local faction, facname = factions.get_player_faction(name)
+	if not faction then
+		return false
+	else
+		on_death[name] = nil
+		if not faction.spawn then
+			return false
+		else
+			player:set_pos(faction.spawn)
+			return true
+		end
+	end
+end)
+
+minetest.register_on_dieplayer(function(player)
+	local pname = player:get_player_name()
+	if on_death[pname] then
+		return
+	end
+    local faction, name = factions.get_player_faction(pname)
+    if not faction then
+        return
+    end
+    factions.decrease_power(name, factions_config.power_per_death)
+	on_death[pname] = true
+    return
+end
+)

fac_events/power_events.lua

@@ -0,0 +1,62 @@
+function factions.increase_power(name, power)
+	local faction = factions.factions.get(name)
+    faction.power = faction.power + power
+    if faction.power > faction.maxpower  - faction.usedpower then
+        faction.power = faction.maxpower - faction.usedpower
+    end
+	for i in pairs(factions.onlineplayers[name]) do
+		updateHudPower(minetest.get_player_by_name(i), faction)
+	end
+	factions.factions.set(name, faction)
+end
+
+function factions.decrease_power(name, power)
+    local faction = factions.factions.get(name)
+	faction.power = faction.power - power
+	for i in pairs(factions.onlineplayers[name]) do
+		updateHudPower(minetest.get_player_by_name(i), faction)
+	end
+	factions.factions.set(name, faction)
+end
+
+function factions.increase_maxpower(name, power)
+    local faction = factions.factions.get(name)
+	faction.maxpower = faction.maxpower + power
+	for i in pairs(factions.onlineplayers[name]) do
+		updateHudPower(minetest.get_player_by_name(i), faction)
+	end
+	factions.factions.set(name, faction)
+end
+
+function factions.decrease_maxpower(name, power)
+    local faction = factions.factions.get(name)
+	faction.maxpower = faction.maxpower - power
+    if faction.maxpower < 0 then -- should not happen
+        faction.maxpower = 0
+    end
+	for i in pairs(factions.onlineplayers[name]) do
+		updateHudPower(minetest.get_player_by_name(i), faction)
+	end
+	factions.factions.set(name, faction)
+end
+
+function factions.increase_usedpower(name, power)
+	local faction = factions.factions.get(name)
+    faction.usedpower = faction.usedpower + power
+	for i in pairs(factions.onlineplayers[name]) do
+		updateHudPower(minetest.get_player_by_name(i), faction)
+	end
+	factions.factions.set(name, faction)
+end
+
+function factions.decrease_usedpower(name, power)
+   local faction = factions.factions.get(name)
+   faction.usedpower = faction.usedpower - power
+    if faction.usedpower < 0 then
+        faction.usedpower = 0
+    end
+	for i in pairs(factions.onlineplayers[name]) do
+		updateHudPower(minetest.get_player_by_name(i), faction)
+	end
+	factions.factions.set(name, faction)
+end

fac_events/rank_events.lua

@@ -0,0 +1,138 @@
+--! @brief create a new rank with permissions
+--! @param rank the name of the new rank
+--! @param rank a list with the permissions of the new rank
+function factions.add_rank(name, rank, perms)
+    local faction = factions.factions.get(name)
+	faction.ranks[rank] = perms
+    factions.on_add_rank(name, rank)
+	factions.factions.set(name, faction)
+end
+
+--! @brief replace an rank's permissions
+--! @param rank the name of the rank to edit
+--! @param add or remove permissions to the rank
+function factions.replace_privs(name, rank, perms)
+    local faction = factions.factions.get(name)
+	faction.ranks[rank] = perms
+    factions.on_replace_privs(name, rank)
+	factions.factions.set(name, faction)
+end
+
+function factions.remove_privs(name, rank, perms)
+	local faction = factions.factions.get(name)
+	local revoked = false
+	local p = faction.ranks[rank]
+	for index, perm in pairs(p) do
+		if table_Contains(perms, perm) then
+			revoked = true
+			table.remove(p, index)
+		end
+	end
+	faction.ranks[rank] = p
+	if revoked then
+		factions.on_remove_privs(name, rank, perms)
+	else
+		factions.broadcast(name, "No privilege was revoked from rank " .. rank .. ".")
+	end
+	factions.factions.set(name, faction)
+end
+
+function factions.add_privs(name, rank, perms)
+	local faction = factions.factions.get(name)
+	local added = false
+	local p = faction.ranks[rank]
+	for index, perm in pairs(perms) do
+		if not table_Contains(p, perm) then
+			added = true
+			table.insert(p, perm)
+		end
+	end
+	faction.ranks[rank] = p
+	if added then
+		factions.on_add_privs(name, rank, perms)
+	else
+		factions.broadcast(name, "The rank " .. rank .. " already has these privileges.")
+	end
+	factions.factions.set(name, faction)
+end
+
+function factions.set_rank_name(name, oldrank, newrank)
+	local faction = factions.factions.get(name)
+	local copyrank = faction.ranks[oldrank]
+	faction.ranks[newrank] = copyrank
+	faction.ranks[oldrank] = nil
+	for player, r in pairs(faction.players) do
+        if r == oldrank then
+            faction.players[player] = newrank
+        end
+    end
+	if oldrank == faction.default_leader_rank then
+		faction.default_leader_rank = newrank
+		factions.broadcast(name, "The default leader rank has been set to " .. newrank)
+	end
+	if oldrank == faction.default_rank then
+		faction.default_rank = newrank
+		factions.broadcast(name, "The default rank given to new players is set to " .. newrank)
+	end
+    factions.on_set_rank_name(name, oldrank, newrank)
+	factions.factions.set(name, faction)
+end
+
+function factions.set_def_rank(name, rank)
+	local faction = factions.factions.get(name)
+    for player, r in pairs(faction.players) do
+        if r == rank or r == nil or not faction.ranks[r] then
+            faction.players[player] = rank
+        end
+    end
+	faction.default_rank = rank
+	factions.on_set_def_rank(name, rank)
+	factions.factions.set(name, faction)
+end
+
+function factions.reset_ranks(name)
+	local faction = factions.factions.get(name)
+	faction.ranks = starting_ranks
+	faction.default_rank = "member"
+	faction.default_leader_rank_rank = "leader"
+    for player, r in pairs(faction.players) do
+        if not player == leader and (r == nil or not faction.ranks[r]) then
+            faction.players[player] = faction.default_rank
+		elseif player == leader then
+			faction.players[player] = faction.default_leader_rank_rank
+        end
+    end
+	factions.on_reset_ranks(name)
+	factions.factions.set(name, faction)
+end
+
+--! @brief delete a rank and replace it
+--! @param rank the name of the rank to be deleted
+--! @param newrank the rank given to players who were previously "rank"
+function factions.delete_rank(name, rank, newrank)
+	local faction = factions.factions.get(name)
+    for player, r in pairs(faction.players) do
+        if r == rank then
+            faction.players[player] = newrank
+        end
+    end
+    faction.ranks[rank] = nil
+    factions.on_delete_rank(name, rank, newrank)
+	if rank == faction.default_leader_rank then
+		faction.default_leader_rank = newrank
+		factions.broadcast(name, "The default leader rank has been set to "..newrank)
+	end
+	if rank == faction.default_rank then
+		faction.default_rank = newrank
+		factions.broadcast(name, "The default rank given to new players is set to "..newrank)
+	end
+	factions.factions.set(name, faction)
+end
+
+--! @brief set a player's rank
+function factions.promote(name, member, rank)
+    local faction = factions.factions.get(name)
+	faction.players[member] = rank
+    factions.on_promote(name, member)
+	factions.factions.set(name, faction)
+end

fac_hud/init.lua

@@ -0,0 +1,126 @@
+hud_ids = {}
+
+function createHudfactionLand(player)
+	if player then
+		local name = player:get_player_name()
+		local id_name = name .. "factionLand"
+		if not hud_ids[id_name] then
+			hud_ids[id_name] = player:hud_add({
+				hud_elem_type = "text",
+				name = "factionLand",
+				number = 0xFFFFFF,
+				position = {x=0.1, y = .98},
+				text = "Parcel:",
+				scale = {x=1, y=1},
+				alignment = {x=0, y=0},
+			})
+		end
+	end
+end
+
+function createHudFactionName(player, factionname)
+	if player and factionname then
+		local name = player:get_player_name()
+		local id_name = name .. "factionName"
+		if not hud_ids[id_name] then
+			hud_ids[id_name] = player:hud_add({
+				hud_elem_type = "text",
+				name = "factionName",
+				number = 0xFFFFFF,
+				position = {x=1, y = 0},
+				text = "Faction " .. factionname,
+				scale = {x=1, y=1},
+				alignment = {x=-1, y=0},
+				offset = {x = -20, y = 20}
+			})
+		end
+	end
+end
+
+function createHudPower(player, faction)
+	if player and faction then
+		local name = player:get_player_name()
+		local id_name = name .. "powerWatch"
+		if not hud_ids[id_name] then
+			hud_ids[id_name] = player:hud_add({
+				hud_elem_type = "text",
+				name = "powerWatch",
+				number = 0xFFFFFF,
+				position = {x=0.9, y = .98},
+				text = "Power: " .. faction.power .. " / " .. faction.maxpower - faction.usedpower,
+				scale = {x=1, y=1},
+				alignment = {x=-1, y=0},
+				offset = {x = 0, y = 0}
+			})
+		end
+	end
+end
+
+function removeHud(player, hudname)
+	local name = ""
+	local p = {}
+	
+	if type(player) ~= "string" then
+		name = player:get_player_name()
+		p = player
+	else
+		name = player
+		p = minetest.get_player_by_name(player)
+	end
+	
+	local id_name = name .. hudname
+	
+	if hud_ids[id_name] then
+		p:hud_remove(hud_ids[id_name])
+		hud_ids[id_name] = nil
+	end
+end
+
+function updateHudPower(player, faction)
+	local name = player:get_player_name()
+	local id_name = name .. "powerWatch"
+	
+	if hud_ids[id_name] then
+		player:hud_change(hud_ids[id_name], "text", "Power: " .. faction.power .. " / " .. faction.maxpower - faction.usedpower)
+	end
+end
+
+function updateFactionName(player, factionname)
+	local name = ""
+	local p = {}
+	
+	if type(player) ~= "string" then
+		name = player:get_player_name()
+		p = player
+	else
+		name = player
+		p = minetest.get_player_by_name(player)
+	end
+	
+	local id_name = name .. "factionName"
+	
+	if hud_ids[id_name] then
+		p:hud_change(hud_ids[id_name], "text", "Faction " .. factionname)
+	end
+end
+
+function hudUpdateClaimInfo()
+	local playerslist = minetest.get_connected_players()
+	for i in pairs(playerslist) do
+		local player = playerslist[i]
+		local name = player:get_player_name()
+		local faction, facname = factions.get_faction_at(player:get_pos())
+		local id_name = name .. "factionLand"
+		
+		if hud_ids[id_name] then
+			local display = "Parcel:"
+			if facname then
+				display = display .. facname
+			end
+			player:hud_change(hud_ids[id_name], "text", display)
+		end
+	end
+	minetest.after(3, hudUpdateClaimInfo)
+end
+
+hudUpdateClaimInfo()

fac_hud/mod.conf

@@ -0,0 +1 @@
+name = fac_hud

fac_objects/init.lua

@@ -0,0 +1,248 @@
+function factions.can_use_node(pos, player, permission)
+    if not player then
+        return false
+    end
+    local parcel_faction = factions.get_faction_at(pos)
+	if not parcel_faction then
+        return true
+    end
+    local player_faction, facname = factions.get_player_faction(player)
+	if player_faction and (parcel_faction.name == facname or parcel_faction.allies[facname]) and factions.has_permission(facname, player, permission) then
+		return true
+	end
+end
+
+minetest.register_on_mods_loaded(function()
+	-- Make default chest the faction chest.
+	if minetest.registered_nodes["default:chest"] then
+		local dc = minetest.registered_nodes["default:chest"]
+		local def_on_rightclick = dc.on_rightclick
+		local after_place_node = function(pos, placer)
+			local parcel_faction = factions.get_faction_at(pos)
+			if parcel_faction then
+				local meta = minetest.get_meta(pos)
+				local name = parcel_faction.name
+				meta:set_string("faction", name)
+				meta:set_string("infotext", "Faction Container (owned by faction " ..
+					name .. ")")
+			end
+		end
+		local can_dig = function(pos, player)
+			local meta = minetest.get_meta(pos)
+			local inv = meta:get_inventory()
+			return inv:is_empty("main") and
+					factions.can_use_node(pos, player:get_player_name(), "container")
+		end
+		local allow_metadata_inventory_move
+		local def_allow_metadata_inventory_move = dc.allow_metadata_inventory_move
+		if def_allow_metadata_inventory_move then
+			allow_metadata_inventory_move = function(pos, from_list, from_index,
+					to_list, to_index, count, player)
+				if not factions.can_use_node(pos, player:get_player_name(), "container") and not minetest.check_player_privs(player, "protection_bypass") then
+					return 0
+				end
+				return def_allow_metadata_inventory_move(pos, from_list, from_index, to_list, to_index, count, player)
+			end
+		else
+			allow_metadata_inventory_move = function(pos, from_list, from_index,
+					to_list, to_index, count, player)
+				if not factions.can_use_node(pos, player:get_player_name(), "container") and not minetest.check_player_privs(player, "protection_bypass") then
+					return 0
+				end
+				return count
+			end
+		end
+		local allow_metadata_inventory_put
+		local def_allow_metadata_inventory_put = dc.allow_metadata_inventory_put
+		if def_allow_metadata_inventory_put then
+			allow_metadata_inventory_put = function(pos, listname, index, stack, player)
+				if not factions.can_use_node(pos, player:get_player_name(), "container") and not minetest.check_player_privs(player, "protection_bypass") then
+					return 0
+				end
+				return def_allow_metadata_inventory_put(pos, listname, index, stack, player)
+			end
+		else
+			allow_metadata_inventory_put = function(pos, listname, index, stack, player)
+				if not factions.can_use_node(pos, player:get_player_name(), "container") and not minetest.check_player_privs(player, "protection_bypass") then
+					return 0
+				end
+				return stack:get_count()
+			end
+		end
+		local allow_metadata_inventory_take
+		local def_allow_metadata_inventory_take = dc.allow_metadata_inventory_take
+		if def_allow_metadata_inventory_take then
+			allow_metadata_inventory_take = function(pos, listname, index, stack, player)
+				if not factions.can_use_node(pos, player:get_player_name(), "container") and not minetest.check_player_privs(player, "protection_bypass") then
+					return 0
+				end
+				return def_allow_metadata_inventory_take(pos, listname, index, stack, player)
+			end
+		else
+			allow_metadata_inventory_take = function(pos, listname, index, stack, player)
+				if not factions.can_use_node(pos, player:get_player_name(), "container") and not minetest.check_player_privs(player, "protection_bypass") then
+					return 0
+				end
+				return stack:get_count()
+			end
+		end
+		local on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
+			if not factions.can_use_node(pos, clicker:get_player_name(), "container") and not minetest.check_player_privs(clicker, "protection_bypass") then
+				return itemstack
+			end
+			return def_on_rightclick(pos, node, clicker, itemstack, pointed_thing)
+		end
+		minetest.override_item("default:chest", {after_place_node = after_place_node,
+			can_dig = can_dig,
+			allow_metadata_inventory_move = allow_metadata_inventory_move,
+			allow_metadata_inventory_put = allow_metadata_inventory_put,
+			allow_metadata_inventory_take = allow_metadata_inventory_take,
+			on_rightclick = on_rightclick})
+	end
+
+	local door_items = {"doors:door_wood", "doors:door_steel", "doors:door_glass", "doors:door_obsidian_glass", "doors:woodglass_door", "doors:slide_door",
+						"doors:screen_door", "doors:rusty_prison_door", "doors:prison_door", "doors:japanese_door", "ts_doors:door_default_aspen_wood", "ts_doors:door_full_default_aspen_wood", 
+						"ts_doors:door_default_pine_wood", "ts_doors:door_full_default_pine_wood", "ts_doors:door_default_acacia_wood", "ts_doors:door_full_default_acacia_wood", 
+						"ts_doors:door_default_wood", "ts_doors:door_full_default_wood", "ts_doors:door_default_junglewood", "ts_doors:door_full_default_junglewood", 
+						"ts_doors:door_default_bronzeblock", "ts_doors:door_full_default_bronzeblock", "ts_doors:door_default_copperblock", "ts_doors:door_full_default_copperblock", 
+						"ts_doors:door_default_diamondblock", "ts_doors:door_full_default_diamondblock", "ts_doors:door_full_default_goldblock", "ts_doors:door_default_steelblock", "ts_doors:door_full_default_steelblock"}
+
+	local trapdoor_items = {"doors:trapdoor", "doors:trapdoor_steel", "ts_doors:trapdoor_default_aspen_wood", "ts_doors:trapdoor_full_default_aspen_wood",
+						"ts_doors:trapdoor_default_wood", "ts_doors:trapdoor_full_default_wood", "ts_doors:trapdoor_default_acacia_wood", "ts_doors:trapdoor_full_default_acacia_wood",
+						"ts_doors:trapdoor_default_bronzeblock", "ts_doors:trapdoor_full_default_bronzeblock", "ts_doors:trapdoor_default_copperblock", "ts_doors:trapdoor_full_default_copperblock", "ts_doors:trapdoor_full_default_diamondblock",
+						"ts_doors:door_default_goldblock", "ts_doors:trapdoor_default_steelblock", "ts_doors:trapdoor_full_default_steelblock", "ts_doors:trapdoor_default_pine_wood", "ts_doors:trapdoor_full_default_pine_wood",
+						"ts_doors:trapdoor_full_default_goldblock", "ts_doors:trapdoor_default_junglewood", "ts_doors:trapdoor_full_default_junglewood",
+						"ts_doors:trapdoor_default_diamondblock", "ts_doors:trapdoor_default_goldblock"}					
+						
+	-- Edit default doors and trapdoors to make them require the door permission.
+	local doors = {}
+	local all_items = {}
+	local item_count = 1
+	local old_i = 0
+
+	for i, l in ipairs(door_items) do
+		doors[item_count] = l .. "_a"
+		doors[item_count + 1] = l .. "_b"
+		all_items[i] = l
+		item_count = item_count + 2
+		old_i = old_i + 1
+	end
+
+	for i, l in ipairs(trapdoor_items) do
+		doors[item_count] = l
+		doors[item_count + 1] = l .. "_open"
+		all_items[old_i + i] = l
+		item_count = item_count + 2
+	end
+
+	for i, l in ipairs(doors) do
+		local dw = minetest.registered_nodes[l]
+		if dw then
+			local def_on_rightclick = dw.on_rightclick
+			local def_can_dig = dw.can_dig
+			
+			local on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
+				if factions.can_use_node(pos, clicker:get_player_name(), "door") or minetest.check_player_privs(clicker, "protection_bypass") then
+					def_on_rightclick(pos, node, clicker, itemstack, pointed_thing)
+				end
+				return itemstack
+			end
+			
+			local can_dig = nil
+			
+			if def_can_dig then
+				can_dig = function(pos, digger)
+					if factions.can_use_node(pos, digger:get_player_name(), "door") then
+						return def_can_dig(pos, digger)
+					end
+					return false
+				end
+			else
+				can_dig = function(pos, digger)
+					if factions.can_use_node(pos, digger:get_player_name(), "door") then
+						return true
+					end
+					return false
+				end
+			end
+			minetest.override_item(l, {on_rightclick = on_rightclick,
+				can_dig = can_dig})
+		end
+	end
+
+	for i, l in ipairs(all_items) do
+		local it = minetest.registered_items[l]
+		if it then
+			local def_on_place = it.on_place
+			if def_on_place ~= nil then
+				local on_place = function(itemstack, placer, pointed_thing)
+					local r = def_on_place(itemstack, placer, pointed_thing)
+					local pos = pointed_thing.above
+					local parcel_faction = factions.get_faction_at(pos)
+					if parcel_faction then
+						local meta = minetest.get_meta(pos)
+						local name = parcel_faction.name
+						meta:set_string("faction", name)
+						meta:set_string("infotext", "Faction Door (owned by faction " ..
+							name .. ")")
+					end
+					return r
+				end
+				minetest.override_item(l, {on_place = on_place})
+			end
+		end
+	end
+
+end)
+-- Code below was copied from TenPlus1's protector mod(MIT) and changed up a bit.
+
+local x = math.floor(factions_config.parcel_size / 2.1)
+
+minetest.register_node("fac_objects:display_node", {
+	tiles = {"factions_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 parcel)
+			{-.55,-.55,-.55, .55,.55,.55},
+		},
+	},
+	selection_box = {
+		type = "regular",
+	},
+	paramtype = "light",
+	groups = {dig_immediate = 3, not_in_creative_inventory = 1},
+	drop = "",
+})
+
+minetest.register_entity("fac_objects:display", {
+	physical = false,
+	collisionbox = {0, 0, 0, 0, 0, 0},
+	visual = "wielditem",
+	visual_size = {x = 1.0 / 1.5, y = 1.0 / 1.5},
+	textures = {"fac_objects:display_node"},
+	timer = 0,
+
+	on_step = function(self, dtime)
+
+		self.timer = self.timer + dtime
+
+		if self.timer > 6 then
+			self.object:remove()
+		end
+	end,
+})
+
+-- End

fac_objects/mod.conf

@@ -0,0 +1,2 @@
+name = fac_objects
+depends = fac

fac_objects/textures/license.txt

@@ -0,0 +1,2 @@
+following Textures created by Coder12a (CC BY-SA 3.0):
+factions_display.png

fac_protect/init.lua

@@ -0,0 +1,41 @@
+local default_is_protected = minetest.is_protected
+
+minetest.is_protected = function(pos, player)
+    if minetest.check_player_privs(player, "protection_bypass") then
+        return default_is_protected(pos, player)
+    end
+    local y = pos.y
+    if factions_config.protection_depth_height_limit and (pos.y < factions_config.protection_max_depth or pos.y > factions_config.protection_max_height) then
+        return default_is_protected(pos, player)
+    end
+    local parcelpos = factions.get_parcel_pos(pos)
+    local parcel_faction, parcel_fac_name = factions.get_parcel_faction(parcelpos)
+    local player_faction
+    local player_fac_name
+    if player then
+        player_faction, player_fac_name = factions.get_player_faction(player)
+    end
+    -- no faction
+    if not parcel_faction then
+        return default_is_protected(pos, player)
+    elseif player_faction then
+        if parcel_faction.name == player_faction.name then
+			if factions.has_permission(parcel_fac_name, player, "pain_build") then
+				local p = minetest.get_player_by_name(player)
+				p:set_hp(p:get_hp() - 0.5)
+			end
+            return not (factions.has_permission(parcel_fac_name, player, "build") or factions.has_permission(parcel_fac_name, player, "pain_build"))
+        elseif parcel_faction.allies[player_faction.name] then
+			if factions.has_permission(player_fac_name, player, "pain_build") then
+				local p = minetest.get_player_by_name(player)
+				p:set_hp(p:get_hp() - 0.5)
+			end
+			return not (factions.has_permission(player_fac_name, player, "build") or factions.has_permission(player_fac_name, player, "pain_build"))
+		else
+			return true
+        end
+    else
+        return true
+    end
+    return default_is_protected(pos, player)
+end

fac_protect/mod.conf

@@ -0,0 +1 @@
+name = fac_protect

factions.lua

@@ -1,779 +0,0 @@
--------------------------------------------------------------------------------
--- factions Mod by Sapier
---
--- License WTFPL
---
---! @file factions.lua
---! @brief factions core file containing datastorage
---! @copyright Sapier
---! @author Sapier
---! @date 2013-05-08
---
--- Contact sapier a t gmx net
--------------------------------------------------------------------------------
-
---read some basic information
-local factions_worldid = minetest.get_worldpath()
-
---! @class factions
---! @brief main class for factions
-factions = {}
-
---! @brief runtime data
-factions.data = {}
-factions.data.factions = {}
-factions.data.objects = {}
-factions.dynamic_data = {}
-factions.dynamic_data.membertable = {}
-
-factions.print = function(text)
-	print("Factions: " .. dump(text))
-end
-
-factions.dbg_lvl1 = function() end --factions.print  -- errors
-factions.dbg_lvl2 = function() end --factions.print  -- non cyclic trace
-factions.dbg_lvl3 = function() end --factions.print  -- cyclic trace
-
--------------------------------------------------------------------------------
--- name: add_faction(name)
---
---! @brief add a faction
---! @memberof factions
---! @public
---
---! @param name of faction to add
---!
---! @return true/false (succesfully added faction or not)
--------------------------------------------------------------------------------
-function factions.add_faction(name)
-
-	if factions.data.factions[name] == nil then
-		factions.data.factions[name] = {}
-		factions.data.factions[name].reputation = {}
-		factions.data.factions[name].base_reputation = {}
-		factions.data.factions[name].adminlist = {}
-		factions.data.factions[name].invitations = {}
-		
-		factions.dynamic_data.membertable[name] = {}
-		
-		factions.save()
-		
-		return true
-	end
-
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: set_base_reputation(faction1,faction2,value)
---
---! @brief set base reputation between two factions
---! @memberof factions
---! @public
---
---! @param faction1 first faction
---! @param faction2 second faction
---! @param value value to use
---!
---! @return true/false (succesfully added faction or not)
--------------------------------------------------------------------------------
-function factions.set_base_reputation(faction1,faction2,value)
-
-	if factions.data.factions[faction1] ~= nil and
-		factions.data.factions[faction2] ~= nil then
-		
-		factions.data.factions[faction1].base_reputation[faction2] = value
-		factions.data.factions[faction2].base_reputation[faction1] = value
-		factions.save()
-		return true
-	end
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: get_base_reputation(faction1,faction2)
---
---! @brief get base reputation between two factions
---! @memberof factions
---! @public
---
---! @param faction1 first faction
---! @param faction2 second faction
---!
---! @return reputation/0 if none set
--------------------------------------------------------------------------------
-function factions.get_base_reputation(faction1,faction2)
-	factions.dbg_lvl3("get_base_reputation: "  .. faction1 .. "<-->" .. faction2)
-	if factions.data.factions[faction1] ~= nil and
-		factions.data.factions[faction2] ~= nil then
-		if factions.data.factions[faction1].base_reputation[faction2] ~= nil then
-			return factions.data.factions[faction1].base_reputation[faction2]
-		end
-	end
-	return 0
-end
-
--------------------------------------------------------------------------------
--- name: set_description(name,description)
---
---! @brief set description for a faction
---! @memberof factions
---! @public
---
---! @param name of faction
---! @param description text describing a faction
---!
---! @return true/false (succesfully set description)
--------------------------------------------------------------------------------
-function factions.set_description(name,description)
-
-	if factions.data.factions[name] ~= nil then
-		factions.data.factions[name].description = description
-		factions.save()
-		return true
-	end
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: get_description(name)
---
---! @brief get description for a faction
---! @memberof factions
---! @public
---
---! @param name of faction
---!
---! @return description or ""
--------------------------------------------------------------------------------
-function factions.get_description(name)
-
-	if factions.data.factions[name] ~= nil and
-		factions.data.factions[name].description ~= nil then
-		return factions.data.factions[name].description
-	end
-	return ""
-end
-
--------------------------------------------------------------------------------
--- name: exists(name)
---
---! @brief check if a faction exists
---! @memberof factions
---! @public
---! @param name name to check
---!
---! @return true/false
--------------------------------------------------------------------------------
-function factions.exists(name)
-	
-	for key,value in pairs(factions.data.factions) do
-		if key == name then
-			return true
-		end
-	end
-	
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: get_faction_list()
---
---! @brief get list of factions
---! @memberof factions
---! @public
---!
---! @return list of factions
--------------------------------------------------------------------------------
-function factions.get_faction_list()
-
-	local retval = {}
-	
-	for key,value in pairs(factions.data.factions) do
-		table.insert(retval,key)
-	end
-	
-	return retval
-end
-
--------------------------------------------------------------------------------
--- name: delete_faction(name)
---
---! @brief delete a faction
---! @memberof factions
---! @public
---
---! @param name of faction to delete
---!
---! @return true/false (succesfully added faction or not)
--------------------------------------------------------------------------------
-function factions.delete_faction(name)
-
-	factions.data.factions[name] = nil
-	
-	factions.save()
-	
-	if factions.data.factions[name] == nil then
-		return true
-	end
-
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: member_add(name,object)
---
---! @brief add an entity or player to a faction
---! @memberof factions
---! @public
---
---! @param name of faction to add object to
---! @param object to add to faction
---!
---! @return true/false (succesfully added faction or not)
--------------------------------------------------------------------------------
-function factions.claim()
-end
-function factions.unclaim()
-end
-function factions.member_add(name, object)
-	local new_entry = {}
-	new_entry.factions = {}
-	
-	if object.object ~= nil then
-		object = object.object
-	end
-	
-	if not factions.exists(name) then
-		print("Unable to add to NON existant faction >" .. name .. "<")
-		return false
-	end
-	
-	new_entry.name,new_entry.temporary = factions.get_name(object)
-	
-	factions.dbg_lvl2("Adding name=" .. dump(new_entry.name) .. " to faction: " .. name )
-	
-	if new_entry.name ~= nil then
-		if factions.data.objects[new_entry.name] == nil then
-			factions.data.objects[new_entry.name] = new_entry
-		end
-		
-		if factions.data.objects[new_entry.name].factions[name] == nil then
-			factions.data.objects[new_entry.name].factions[name] = true
-			factions.dynamic_data.membertable[name][new_entry.name] = true
-			factions.data.factions[name].invitations[new_entry.name] = nil
-			factions.save()
-			return true
-		end
-	end
-	
-	--return false if no valid object or already member
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: member_invite(name,playername)
---
---! @brief invite a player for joining a faction
---! @memberof factions
---! @public
---
---! @param name of faction to add object to
---! @param name of player to invite
---!
---! @return true/false (succesfully added invitation or not)
--------------------------------------------------------------------------------
-function factions.member_invite(name, playername)
-
-	if factions.data.factions[name] ~= nil and
-		factions.data.factions[name].invitations[playername] == nil then
-		factions.data.factions[name].invitations[playername] = true
-		factions.save()
-		return true
-	end
-	
-	--return false if not a valid faction or player already invited
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: member_remove(name,object)
---
---! @brief remove an entity or player to a faction
---! @memberof factions
---! @public
---
---! @param name of faction to add object to
---! @param object to add to faction
---!
---! @return true/false (succesfully added faction or not)
--------------------------------------------------------------------------------
-function factions.member_remove(name,object)
-
-	local id,type = factions.get_name(object)
-	
-	factions.dbg_lvl2("removing name=" .. dump(id) .. " to faction: " .. name )
-	
-	if id ~= nil and
-		factions.data.objects[id] ~= nil and
-		factions.data.objects[id].factions[name] ~= nil then
-		factions.data.objects[id].factions[name] = nil
-		factions.dynamic_data.membertable[name][id] = nil
-		factions.save()
-		return true
-	end
-	
-	if id ~= nil and
-		factions.data.factions[name].invitations[id] ~= nil then
-		factions.data.factions[name].invitations[id] = nil
-		factions.save()
-		return true
-	end
-
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: set_admin(name,playername,value)
---
---! @brief set admin priviles for a playername
---! @memberof factions
---! @public
---
---! @param name of faction to add object to
---! @param playername to change rights
---! @param value true/false has or has not admin privileges
---!
---! @return true/false (succesfully changed privileges)
--------------------------------------------------------------------------------
-function factions.set_admin(name,playername,value)
-	mobf_assert_backtrace(type(playername) == "string")
-	if factions.data.factions[name] ~= nil then
-		if value then
-			factions.data.factions[name].adminlist[playername] = true
-			factions.save()
-			return true
-		else
-			factions.data.factions[name].adminlist[playername] = nil
-			factions.save()
-			return true
-		end
-	else
-		print("FACTIONS: no faction >" .. name .. "< found")
-	end
-
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: set_free(name,value)
---
---! @brief set faction to be joinable by everyone
---! @memberof factions
---! @public
---
---! @param name of faction to add object to
---! @param value true/false has or has not admin privileges
---!
---! @return true/false (succesfully added faction or not)
--------------------------------------------------------------------------------
-function factions.set_free(name,value)
-
-	if factions.data.factions[name] ~= nil then
-		if value then
-			if factions.data.factions[name].open == nil then
-				factions.data.factions[name].open = true
-				factions.save()
-				return true
-			else
-				return false
-			end
-		else
-			if factions.data.factions[name].open == nil then
-				return false
-			else
-				factions.data.factions[name].open = nil
-				factions.save()
-				return true
-			end
-		end
-	end
-
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: is_free(name)
---
---! @brief check if a fraction is free to join
---! @memberof factions
---! @public
---
---! @param name of faction to add object to
---
---! @return true/false (free or not)
--------------------------------------------------------------------------------
-function factions.is_free(name)
-	if factions.data.factions[name] ~= nil and
-		factions.data.factions[name].open then
-			return true
-	end
-	
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: is_admin(name,playername)
---
---! @brief read admin privilege of player
---! @memberof factions
---! @public
---
---! @param name of faction to check rights
---! @param playername to change rights
---!
---! @return true/false (succesfully added faction or not)
--------------------------------------------------------------------------------
-function factions.is_admin(name,playername)
-
-	if factions.data.factions[name] ~= nil and
-		factions.data.factions[name].adminlist[playername] == true then
-		return true
-	end
-	
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: is_invited(name,playername)
---
---! @brief read invitation status of player
---! @memberof factions
---! @public
---
---! @param name of faction to check for invitation
---! @param playername to change rights
---!
---! @return true/false (succesfully added faction or not)
--------------------------------------------------------------------------------
-function factions.is_invited(name,playername)
-
-	if factions.data.factions[name] ~= nil and
-		( factions.data.factions[name].invitations[playername] == true or
-		factions.data.factions[name].open == true) then
-		return true
-	end
-	
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: get_factions(object)
---
---! @brief get list of factions for an object
---! @memberof factions
---! @public
---
---! @param object to get list for
---!
---! @return list of factions
--------------------------------------------------------------------------------
-function factions.get_factions(object)
-
-	local id,type = factions.get_name(object)
-	
-	local retval = {}
-	if id ~= nil and
-		factions.data.objects[id] ~= nil then
-		for key,value in pairs(factions.data.objects[id].factions) do
-			table.insert(retval,key)
-		end
-	end
-	
-	return retval
-end
-
--------------------------------------------------------------------------------
--- name: is_member(name,object)
---
---! @brief check if object is member of name
---! @memberof factions
---! @public
---
---! @param name of faction to check
---! @param object to check
---!
---! @return true/false
--------------------------------------------------------------------------------
-function factions.is_member(name,object)
-
-	local retval = false
-	
-	local id,type = factions.get_name(object)
-
-	if id ~= nil and
-		factions.data.objects[id] ~= nil then
-		for key,value in pairs(factions.data.objects[id].factions) do
-			if key == name then
-				retval = true
-				break
-			end
-		end
-	end
-	
-	return retval
-end
-
-
--------------------------------------------------------------------------------
--- name: get_reputation(name,object)
---
---! @brief get reputation of an object
---! @memberof factions
---! @public
---
---! @param name name of faction to check for reputation
---! @param object object to get reputation for
---!
---! @return number value -100 to 100 0 being neutral, -100 beeing enemy 100 friend
--------------------------------------------------------------------------------
-function factions.get_reputation(name,object)
-
-	local id,type = factions.get_name(object)
-	
-	factions.dbg_lvl3("get_reputation: "  .. name .. "<-->" .. dump(id))
-	
-	if id ~= nil and
-		factions.data.factions[name] ~= nil then
-		
-		factions.dbg_lvl3("get_reputation: object reputation: "  .. dump(factions.data.factions[name].reputation[id]))
-		
-		if factions.data.factions[name].reputation[id] == nil then
-			factions.data.factions[name].reputation[id]
-				= factions.calc_base_reputation(name,object)
-		end
-
-		return factions.data.factions[name].reputation[id]
-	else
-		factions.dbg_lvl3("get_reputation: didn't find any factions for: "  .. name)
-	end
-
-	return 0
-end
-
--------------------------------------------------------------------------------
--- name: modify_reputation(name,object,delta)
---
---! @brief modify reputation of an object for a faction
---! @memberof factions
---! @public
---
---! @param name name of faction to modify reputation
---! @param object object to change reputation
---! @param delta value to change reputation
---!
---! @return true/false
--------------------------------------------------------------------------------
-function factions.modify_reputation(name,object,delta)
-	
-	local id,type = factions.get_name(object)
-	
-	if factions.data.factions[name] ~= nil then
-		if factions.data.factions[name].reputation[id] == nil then
-			factions.data.factions[name].reputation[id]
-				= factions.calc_base_reputation(name,object)
-		end
-		
-		factions.data.factions[name].reputation[id]
-			= factions.data.factions[name].reputation[id] + delta
-		factions.save()
-		return true
-	end
-	
-	return false
-end
-
--------------------------------------------------------------------------------
--- name: get_name(object)
---
---! @brief get textual name of object
---! @memberof factions
---! @private
---
---! @param object fetch name for this
---!
---! @return name or nil,is temporary element
--------------------------------------------------------------------------------
-function factions.get_name(object)
-	if object == nil then
-		return nil,true
-	end
-	
-	if object.object ~= nil then
-		object = object.object
-	end
-	
-	if object:is_player() then
-		return object:get_player_name(),false
-	else
-		local luaentity = object:get_luaentity()
-		
-		if luaentity ~= nil then
-			return tostring(luaentity),true
-		end
-	end
-	
-	return nil,true
-end
-
--------------------------------------------------------------------------------
--- name: calc_base_reputation(name,object)
---
---! @brief calculate initial reputation of object within a faction
---! @memberof factions
---! @private
---
---! @param name name of faction
---! @param object calc reputation for this
---!
---! @return reputation value
--------------------------------------------------------------------------------
-function factions.calc_base_reputation(name,object)
-
-	--calculate initial reputation based uppon all groups
-	local object_factions = factions.get_factions(object)
-	local rep_value = 0
-	
-	factions.dbg_lvl3("calc_base_reputation: " .. name .. " <--> " .. tostring(object))
-	
-	if object_factions ~= nil then
-		factions.dbg_lvl3("calc_base_reputation: " .. tostring(object) .. " is in " .. #object_factions .. " factions")
-		for k,v in pairs(object_factions) do
-			if factions.data.factions[v] == nil then
-				print("FACTIONS: warning object is member of faction " .. v .. " which doesn't exist")
-			else
-				factions.dbg_lvl3("calc_base_reputation: " .. name .. " <--> " .. v .. " rep=" .. dump(factions.data.factions[v].base_reputation[name]))
-				if factions.data.factions[v].base_reputation[name] ~= nil then
-				rep_value =
-					rep_value + factions.data.factions[v].base_reputation[name]
-				end
-			end
-		end
-		
-		rep_value = rep_value / #object_factions
-	end
-	
-	return rep_value
-end
-
--------------------------------------------------------------------------------
--- name: save()
---
---! @brief save data to file
---! @memberof factions
---! @private
--------------------------------------------------------------------------------
-function factions.save()
-
-	--saving is done much more often than reading data to avoid delay
-	--due to figuring out which data to save and which is temporary only
-	--all data is saved here
-	--this implies data needs to be cleant up on load
-	
-	local file,error = io.open(factions_worldid .. "/" .. "factions.conf","w")
-	
-	if file ~= nil then
-		file:write(minetest.serialize(factions.data))
-		file:close()
-	else
-		minetest.log("error","MOD factions: unable to save factions world specific data!: " .. error)
-	end
-	
-end
-
--------------------------------------------------------------------------------
--- name: load()
---
---! @brief load data from file
---! @memberof factions
---! @private
---
---! @return true/false
--------------------------------------------------------------------------------
-function factions.load()
-	local file,error = io.open(factions_worldid .. "/" .. "factions.conf","r")
-	
-	if file ~= nil then
-		local raw_data = file:read("*a")
-		file:close()
-		
-		if raw_data ~= nil and
-			raw_data ~= "" then
-			
-			local raw_table = minetest.deserialize(raw_data)
-			
-			
-			--read object data
-			local temp_objects = {}
-			
-			if raw_table.objects ~= nil then
-				for key,value in pairs(raw_table.objects) do
-				
-					if value.temporary == false then
-						factions.data.objects[key] = value
-					else
-						temp_objects[key] = true
-					end
-				end
-			end
-			
-			if raw_table.factions ~= nil then
-				for key,value in pairs(raw_table.factions) do
-					factions.data.factions[key] = {}
-					factions.data.factions[key].base_reputation = value.base_reputation
-					factions.data.factions[key].adminlist = value.adminlist
-					factions.data.factions[key].open = value.open
-					factions.data.factions[key].invitations = value.invitations
-					
-					factions.data.factions[key].reputation = {}
-					for repkey,repvalue in pairs(value.reputation) do
-						if temp_objects[repkey] == nil then
-							factions.data.factions[key].reputation[repkey] = repvalue
-						end
-					end
-					
-					factions.dynamic_data.membertable[key] = {}
-				end
-			end
-			
-			--populate dynamic faction member table
-			for id,object in pairs(factions.data.objects) do
-				for name,value in pairs(factions.data.objects[id].factions) do
-					if value then
-						factions.dynamic_data.membertable[name][id] = true
-					end
-				end
-			end
-		end
-	else
-		local file,error = io.open(factions_worldid .. "/" .. "factions.conf","w")
-		
-		if file ~= nil then
-			file:close()
-		else
-			minetest.log("error","MOD factions: unable to save factions world specific data!: " .. error)
-		end
-	end
-
-	--create special faction players
-	factions.add_faction("players")
-
-	--autojoin players to faction players
-	minetest.register_on_joinplayer(
-		function(player)
-			if player:is_player() then
-				factions.member_add("players",player)
-			end
-		end
-	)
-end

init.lua

@@ -1,29 +0,0 @@
--------------------------------------------------------------------------------
--- factions Mod by Sapier
---
--- License WTFPL
---
---! @file init.lua
---! @brief factions mod to be used by other mods
---! @copyright Sapier
---! @author Sapier
---! @date 2013-05-08
---!
--- Contact sapier a t gmx net
--------------------------------------------------------------------------------
-
-local factions_version = "0.1.6"
-
-core.log("action", "MOD: factions (by sapier) loading ...")
-
---!path of mod
-factions_modpath = minetest.get_modpath("factions")
-
-
-dofile (factions_modpath .. "/factions.lua")
-dofile (factions_modpath .. "/chatcommands.lua")
-
-factions.load()
-factions_chat.init()
-
-core.log("action","MOD: factions (by sapier) " .. factions_version .. " loaded.")

modpack.conf

@@ -0,0 +1 @@
+name = factions