areas/chatcommands.lua

488 lines
13 KiB
Lua
Raw Normal View History

2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("protect", {
params = "<AreaName>",
description = "Protect your own area",
privs = {[areas.config.self_protection_privilege]=true},
2013-09-03 01:16:14 +02:00
func = function(name, param)
2013-11-08 21:11:11 +01:00
if param == "" then
2014-05-29 17:04:37 +02:00
return false, "Invalid usage, see /help protect."
2013-11-08 21:11:11 +01:00
end
local pos1, pos2 = areas:getPos(name)
if not (pos1 and pos2) then
2014-05-29 17:04:37 +02:00
return false, "You need to select an area first."
2013-11-08 21:11:11 +01:00
end
2013-09-03 01:16:14 +02:00
2013-11-08 21:11:11 +01:00
minetest.log("action", "/protect invoked, owner="..name..
2014-05-29 17:04:37 +02:00
" AreaName="..param..
" StartPos="..minetest.pos_to_string(pos1)..
" EndPos=" ..minetest.pos_to_string(pos2))
2013-09-03 01:16:14 +02:00
2013-11-08 21:11:11 +01:00
local canAdd, errMsg = areas:canPlayerAddArea(pos1, pos2, name)
if not canAdd then
2014-05-29 17:04:37 +02:00
return false, "You can't protect that area: "..errMsg
2013-09-03 01:16:14 +02:00
end
2013-11-08 21:11:11 +01:00
local id = areas:add(name, param, pos1, pos2, nil)
2013-11-08 21:11:11 +01:00
areas:save()
2014-05-29 17:04:37 +02:00
return true, "Area protected. ID: "..id
end
})
2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("set_owner", {
params = "<PlayerName> <AreaName>",
2013-09-03 07:33:08 +02:00
description = "Protect an area beetween two positions and give"
.." a player access to it without setting the parent of the"
.." area to any existing area",
2014-07-13 01:10:26 +02:00
privs = areas.adminPrivs,
2013-09-03 01:16:14 +02:00
func = function(name, param)
2014-05-29 17:04:37 +02:00
local ownerName, areaName = param:match('^(%S+)%s(.+)$')
2013-09-03 01:16:14 +02:00
2014-05-29 17:04:37 +02:00
if not ownerName then
return false, "Incorrect usage, see /help set_owner."
2013-09-03 07:33:08 +02:00
end
2013-09-03 01:16:14 +02:00
local pos1, pos2 = areas:getPos(name)
if not (pos1 and pos2) then
2014-05-29 17:04:37 +02:00
return false, "You need to select an area first."
2013-09-03 01:16:14 +02:00
end
2013-09-03 07:33:08 +02:00
2014-05-29 17:04:37 +02:00
if not areas:player_exists(ownerName) then
return false, "The player \""
..ownerName.."\" does not exist."
2013-09-03 07:33:08 +02:00
end
2014-05-29 17:04:37 +02:00
minetest.log("action", name.." runs /set_owner. Owner = "..ownerName..
" AreaName = "..areaName..
" StartPos = "..minetest.pos_to_string(pos1)..
" EndPos = " ..minetest.pos_to_string(pos2))
2013-09-03 07:33:08 +02:00
2014-05-29 17:04:37 +02:00
local id = areas:add(ownerName, areaName, pos1, pos2, nil)
2013-09-03 07:33:08 +02:00
areas:save()
2016-08-23 14:28:49 +02:00
2014-05-29 17:04:37 +02:00
minetest.chat_send_player(ownerName,
"You have been granted control over area #"..
id..". Type /list_areas to show your areas.")
2014-05-29 17:04:37 +02:00
return true, "Area protected. ID: "..id
end
})
2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("add_owner", {
params = "<ParentID> <Player> <AreaName>",
2013-09-03 07:33:08 +02:00
description = "Give a player access to a sub-area beetween two"
.." positions that have already been protected,"
.." Use set_owner if you don't want the parent to be set.",
2013-09-03 01:16:14 +02:00
func = function(name, param)
2014-05-29 17:04:37 +02:00
local pid, ownerName, areaName
= param:match('^(%d+) ([^ ]+) (.+)$')
2013-09-03 01:16:14 +02:00
2014-06-23 21:19:19 +02:00
if not pid then
2013-11-17 18:40:25 +01:00
minetest.chat_send_player(name, "Incorrect usage, see /help add_owner")
2013-09-03 07:33:08 +02:00
return
end
2013-09-03 01:16:14 +02:00
local pos1, pos2 = areas:getPos(name)
if not (pos1 and pos2) then
2014-05-29 17:04:37 +02:00
return false, "You need to select an area first."
2013-09-03 07:33:08 +02:00
end
2013-09-03 01:16:14 +02:00
2014-05-29 17:04:37 +02:00
if not areas:player_exists(ownerName) then
return false, "The player \""..ownerName.."\" does not exist."
2013-09-03 07:33:08 +02:00
end
2013-09-03 01:16:14 +02:00
2014-05-29 17:04:37 +02:00
minetest.log("action", name.." runs /add_owner. Owner = "..ownerName..
" AreaName = "..areaName.." ParentID = "..pid..
2013-09-03 07:33:08 +02:00
" StartPos = "..pos1.x..","..pos1.y..","..pos1.z..
" EndPos = " ..pos2.x..","..pos2.y..","..pos2.z)
-- Check if this new area is inside an area owned by the player
pid = tonumber(pid)
if (not areas:isAreaOwner(pid, name)) or
(not areas:isSubarea(pos1, pos2, pid)) then
2014-05-29 17:04:37 +02:00
return false, "You can't protect that area."
2013-09-03 01:16:14 +02:00
end
2013-09-03 07:33:08 +02:00
2014-05-29 17:04:37 +02:00
local id = areas:add(ownerName, areaName, pos1, pos2, pid)
2013-09-03 07:33:08 +02:00
areas:save()
2013-11-08 21:11:11 +01:00
2014-05-29 17:04:37 +02:00
minetest.chat_send_player(ownerName,
"You have been granted control over area #"..
id..". Type /list_areas to show your areas.")
2014-05-29 17:04:37 +02:00
return true, "Area protected. ID: "..id
end
})
2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("rename_area", {
params = "<ID> <newName>",
description = "Rename a area that you own",
func = function(name, param)
2014-05-29 17:04:37 +02:00
local id, newName = param:match("^(%d+)%s(.+)$")
if not id then
2014-05-29 17:04:37 +02:00
return false, "Invalid usage, see /help rename_area."
2013-11-08 21:11:11 +01:00
end
id = tonumber(id)
if not id then
2014-05-29 17:04:37 +02:00
return false, "That area doesn't exist."
2013-11-08 21:11:11 +01:00
end
if not areas:isAreaOwner(id, name) then
2014-05-29 17:04:37 +02:00
return true, "You don't own that area."
2013-11-08 21:11:11 +01:00
end
areas.areas[id].name = newName
2013-11-08 21:11:11 +01:00
areas:save()
2014-05-29 17:04:37 +02:00
return true, "Area renamed."
end
})
2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("find_areas", {
params = "<regexp>",
description = "Find areas using a Lua regular expression",
privs = areas.adminPrivs,
2013-09-03 01:16:14 +02:00
func = function(name, param)
2013-09-03 07:33:08 +02:00
if param == "" then
2014-05-29 17:04:37 +02:00
return false, "A regular expression is required."
2013-09-03 07:33:08 +02:00
end
-- Check expression for validity
local function testRegExp()
("Test [1]: Player (0,0,0) (0,0,0)"):find(param)
end
if not pcall(testRegExp) then
2014-05-29 17:04:37 +02:00
return false, "Invalid regular expression."
end
2014-05-29 17:04:37 +02:00
local matches = {}
for id, area in pairs(areas.areas) do
local str = areas:toString(id)
if str:find(param) then
table.insert(matches, str)
2013-09-03 01:16:14 +02:00
end
2013-09-03 07:33:08 +02:00
end
if #matches > 0 then
2014-05-29 17:04:37 +02:00
return true, table.concat(matches, "\n")
else
return true, "No matches found."
2013-09-03 01:16:14 +02:00
end
2014-05-29 17:04:37 +02:00
end
})
2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("list_areas", {
2013-09-03 07:33:08 +02:00
description = "List your areas, or all areas if you are an admin.",
2013-09-03 01:16:14 +02:00
func = function(name, param)
2014-07-13 01:10:26 +02:00
local admin = minetest.check_player_privs(name, areas.adminPrivs)
2014-05-29 17:04:37 +02:00
local areaStrings = {}
for id, area in pairs(areas.areas) do
if admin or areas:isAreaOwner(id, name) then
2014-05-29 17:04:37 +02:00
table.insert(areaStrings, areas:toString(id))
2013-09-03 01:16:14 +02:00
end
end
2014-05-29 17:04:37 +02:00
if #areaStrings == 0 then
return true, "No visible areas."
end
return true, table.concat(areaStrings, "\n")
end
})
2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("recursive_remove_areas", {
params = "<id>",
description = "Recursively remove areas using an id",
func = function(name, param)
local id = tonumber(param)
if not id then
2014-05-29 17:04:37 +02:00
return false, "Invalid usage, see"
.." /help recursive_remove_areas"
2013-09-03 01:16:14 +02:00
end
if not areas:isAreaOwner(id, name) then
2014-05-29 17:04:37 +02:00
return false, "Area "..id.." does not exist or is"
.." not owned by you."
2013-09-03 01:16:14 +02:00
end
areas:remove(id, true)
areas:save()
2014-05-29 17:04:37 +02:00
return true, "Removed area "..id.." and it's sub areas."
end
})
2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("remove_area", {
params = "<id>",
description = "Remove an area using an id",
func = function(name, param)
local id = tonumber(param)
if not id then
2014-05-29 17:04:37 +02:00
return false, "Invalid usage, see /help remove_area"
2013-09-03 01:16:14 +02:00
end
if not areas:isAreaOwner(id, name) then
2014-05-29 17:04:37 +02:00
return false, "Area "..id.." does not exist or"
.." is not owned by you."
2013-09-03 01:16:14 +02:00
end
areas:remove(id)
areas:save()
2014-05-29 17:04:37 +02:00
return true, "Removed area "..id
end
})
2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("change_owner", {
2014-05-29 17:04:37 +02:00
params = "<ID> <NewOwner>",
description = "Change the owner of an area using it's ID",
2013-09-03 01:16:14 +02:00
func = function(name, param)
2014-05-29 17:04:37 +02:00
local id, newOwner = param:match("^(%d+)%s(%S+)$")
if not id then
return false, "Invalid usage, see"
.." /help change_owner."
2013-09-03 01:16:14 +02:00
end
2014-11-11 23:27:35 +01:00
2014-05-29 17:04:37 +02:00
if not areas:player_exists(newOwner) then
return false, "The player \""..newOwner
.."\" does not exist."
2013-09-03 01:16:14 +02:00
end
id = tonumber(id)
2013-09-03 07:33:08 +02:00
if not areas:isAreaOwner(id, name) then
2014-05-29 17:04:37 +02:00
return false, "Area "..id.." does not exist"
.." or is not owned by you."
2013-09-03 01:16:14 +02:00
end
2014-05-29 17:04:37 +02:00
areas.areas[id].owner = newOwner
2013-09-03 07:33:08 +02:00
areas:save()
2014-05-29 17:04:37 +02:00
minetest.chat_send_player(newOwner,
("%s has given you control over the area %q (ID %d).")
2014-06-15 04:49:06 +02:00
:format(name, areas.areas[id].name, id))
2014-05-29 17:04:37 +02:00
return true, "Owner changed."
end
})
2013-09-03 01:16:14 +02:00
minetest.register_chatcommand("area_open", {
2014-05-29 17:04:37 +02:00
params = "<ID>",
description = "Toggle an area open (anyone can interact) or closed",
func = function(name, param)
local id = tonumber(param)
if not id then
2014-05-29 17:04:37 +02:00
return false, "Invalid usage, see /help area_open."
end
if not areas:isAreaOwner(id, name) then
2014-05-29 17:04:37 +02:00
return false, "Area "..id.." does not exist"
.." or is not owned by you."
end
local open = not areas.areas[id].open
-- Save false as nil to avoid inflating the DB.
areas.areas[id].open = open or nil
areas:save()
2014-05-29 17:04:37 +02:00
return true, ("Area %s."):format(open and "opened" or "closed")
end
})
2014-11-11 23:27:35 +01:00
2016-08-23 14:28:49 +02:00
minetest.register_chatcommand("area_openfarming", {
params = "<ID>",
description = "Toggle an area open (anyone can interact farming) or closed",
func = function(name, param)
local id = tonumber(param)
if not id then
return false, "Invalid usage, see /help area_openfarming."
end
if not areas:isAreaOwner(id, name) then
return false, "Area "..id.." does not exist"
.." or is not owned by you."
end
local openfarming = not areas.areas[id].openfarming
-- Save false as nil to avoid inflating the DB.
areas.areas[id].openfarming = openfarming or nil
areas:save()
return true, ("Area %s to farming."):format(openfarming and "opened" or "closed")
end
})
2014-11-11 23:27:35 +01:00
minetest.register_chatcommand("move_area", {
params = "<ID>",
description = "Move (or resize) an area to the current positions.",
privs = areas.adminPrivs,
func = function(name, param)
local id = tonumber(param)
if not id then
return false, "Invalid usage, see /help move_area."
end
local area = areas.areas[id]
if not area then
return false, "Area does not exist."
end
local pos1, pos2 = areas:getPos(name)
if not pos1 then
return false, "You need to select an area first."
end
2016-06-19 19:12:16 +02:00
areas:move(id, area, pos1, pos2)
2014-11-11 23:27:35 +01:00
areas:save()
2016-06-19 19:12:16 +02:00
2014-11-11 23:27:35 +01:00
return true, "Area successfully moved."
end,
})
2016-06-19 19:12:16 +02:00
2015-03-01 02:33:21 +01:00
minetest.register_chatcommand("area_info", {
description = "Get information about area configuration and usage.",
func = function(name, param)
local lines = {}
local privs = minetest.get_player_privs(name)
-- Short (and fast to access) names
local cfg = areas.config
local self_prot = cfg.self_protection
local prot_priv = cfg.self_protection_privilege
local limit = cfg.self_protection_max_areas
local limit_high = cfg.self_protection_max_areas_high
local size_limit = cfg.self_protection_max_size
local size_limit_high = cfg.self_protection_max_size_high
local has_high_limit = privs.areas_high_limit
local has_prot_priv = not prot_priv or privs[prot_priv]
local can_prot = privs.areas or (self_prot and has_prot_priv)
local max_count = can_prot and
(has_high_limit and limit_high or limit) or 0
local max_size = has_high_limit and
size_limit_high or size_limit
-- Privilege information
local self_prot_line = ("Self protection is %sabled"):format(
self_prot and "en" or "dis")
if self_prot and prot_priv then
self_prot_line = self_prot_line..
(" %s have the neccessary privilege (%q).")
:format(
has_prot_priv and "and you" or
"but you don't",
prot_priv)
else
self_prot_line = self_prot_line.."."
end
table.insert(lines, self_prot_line)
if privs.areas then
table.insert(lines, "You are an area"..
" administrator (\"areas\" privilege).")
elseif has_high_limit then
table.insert(lines,
"You have extended area protection"..
" limits (\"areas_high_limit\" privilege).")
end
-- Area count
local area_num = 0
for id, area in pairs(areas.areas) do
if area.owner == name then
area_num = area_num + 1
end
end
local count_line = ("You have %d area%s"):format(
area_num, area_num == 1 and "" or "s")
if privs.areas then
count_line = count_line..
" and have no area protection limits."
elseif can_prot then
count_line = count_line..(", out of a maximum of %d.")
:format(max_count)
end
table.insert(lines, count_line)
-- Area size limits
local function size_info(str, size)
table.insert(lines, ("%s spanning up to %dx%dx%d.")
:format(str, size.x, size.y, size.z))
end
local function priv_limit_info(priv, max_count, max_size)
size_info(("Players with the %q privilege"..
" can protect up to %d areas"):format(
priv, max_count), max_size)
end
if self_prot then
if privs.areas then
priv_limit_info(prot_priv,
limit, size_limit)
priv_limit_info("areas_high_limit",
limit_high, size_limit_high)
elseif has_prot_priv then
size_info("You can protect areas", max_size)
end
end
return true, table.concat(lines, "\n")
end,
})
2016-08-23 14:28:49 +02:00
--MFF DEBUT crabman(17/09/2015 ) respawn player at in special area(event) if a spawn is set.
minetest.register_chatcommand("area_addspawn", {
params = "<ID>",
privs = areas.adminPrivs,
description = "Define special spawn for area",
func = function(name, param)
local id = param:match("^(%d+)")
if not id then
return false, "Invalid usage, see /help area_addspawn."
end
id = tonumber(id)
if not id then
return false, "Error, Param id must be int."
end
local player = minetest.get_player_by_name(name)
if not player then
return false, "Error, there is not player"
end
local pos = player:getpos()
if not pos then
return false, "Error, there is not pos."
end
if not areas.areas[id] then
return false, "Area ".. id .." does not exist."
end
areas.areas[id].spawn = pos
areas:save()
return true, "spawn of area ".. id .." defined."
end
})
minetest.register_chatcommand("area_delspawn", {
params = "<ID>",
privs = areas.adminPrivs,
description = "Delete special spawn of area",
func = function(name, param)
local id = param:match("^(%d+)")
if not id then
return false, "Invalid usage, see /help area_delspawn."
end
id = tonumber(id)
if not id then
return false, "Error, Param id must be int."
end
if not areas.areas[id] then
return false, "Area ".. id .." does not exist."
end
areas.areas[id].spawn = nil
areas:save()
return true, "spawn of area ".. id .." deleted."
end
})
-- FIN