forked from Mineclonia/Mineclonia
229 lines
7.3 KiB
Lua
229 lines
7.3 KiB
Lua
minetest.register_chatcommand("say", {
|
|
params = "<text>",
|
|
description = "Say <text> as the server",
|
|
privs = {server=true},
|
|
func = function(name, param)
|
|
minetest.chat_send_all(name .. ": " .. param)
|
|
end
|
|
})
|
|
|
|
minetest.register_chatcommand("tell", {
|
|
params = "<name> <text>",
|
|
description = "Say <text> to <name> privately",
|
|
func = function(name, param)
|
|
local found, _, target, message = param:find("^([^%s]+)%s+(.*)$")
|
|
if found == nil then
|
|
minetest.chat_send_player(name, "Invalid usage: " .. param)
|
|
return
|
|
end
|
|
if not minetest.get_player_by_name(target) then
|
|
minetest.chat_send_player(name, "Invalid target: " .. target)
|
|
end
|
|
minetest.chat_send_player(target, name .. " whispers: " .. message, false)
|
|
end
|
|
})
|
|
|
|
minetest.register_chatcommand("hp", {
|
|
params = "<name> <value>",
|
|
description = "Set health of <name> to <value> hitpoints",
|
|
privs = {ban=true},
|
|
func = function(name, param)
|
|
local found, _, target, value = param:find("^([^%s]+)%s+(%d+)$")
|
|
if found == nil then
|
|
minetest.chat_send_player(name, "Invalid usage: " .. param)
|
|
return
|
|
end
|
|
local player = minetest.get_player_by_name(target)
|
|
if player then
|
|
player:set_hp(value)
|
|
else
|
|
minetest.chat_send_player(name, "Invalid target: " .. target)
|
|
end
|
|
end
|
|
})
|
|
|
|
local function initialize_data(meta)
|
|
local commands = minetest.formspec_escape(meta:get_string("commands"))
|
|
meta:set_string("formspec",
|
|
"invsize[9,5;]" ..
|
|
"textarea[0.5,0.5;8.5,4;commands;Commands;"..commands.."]" ..
|
|
"label[1,3.8;@nearest, @farthest, and @random are replaced by the respective player names]" ..
|
|
"button_exit[3.3,4.5;2,1;submit;Submit]")
|
|
local owner = meta:get_string("owner")
|
|
if owner == "" then
|
|
owner = "not owned"
|
|
else
|
|
owner = "owned by " .. owner
|
|
end
|
|
end
|
|
|
|
local function construct(pos)
|
|
local meta = minetest.get_meta(pos)
|
|
|
|
meta:set_string("commands", "")
|
|
|
|
meta:set_string("owner", "")
|
|
|
|
initialize_data(meta)
|
|
end
|
|
|
|
local function after_place(pos, placer)
|
|
if placer then
|
|
local meta = minetest.get_meta(pos)
|
|
meta:set_string("owner", placer:get_player_name())
|
|
initialize_data(meta)
|
|
end
|
|
end
|
|
|
|
local function receive_fields(pos, formname, fields, sender)
|
|
if not fields.submit then
|
|
return
|
|
end
|
|
local meta = minetest.get_meta(pos)
|
|
local owner = meta:get_string("owner")
|
|
if owner ~= "" and sender:get_player_name() ~= owner then
|
|
return
|
|
end
|
|
meta:set_string("commands", fields.commands)
|
|
|
|
initialize_data(meta)
|
|
end
|
|
|
|
local function resolve_commands(commands, pos)
|
|
local players = minetest.get_connected_players()
|
|
|
|
-- No players online: remove all commands containing
|
|
-- @nearest, @farthest and @random
|
|
if #players == 0 then
|
|
commands = commands:gsub("[^\r\n]+", function (line)
|
|
if line:find("@nearest") then return "" end
|
|
if line:find("@farthest") then return "" end
|
|
if line:find("@random") then return "" end
|
|
return line
|
|
end)
|
|
return commands
|
|
end
|
|
|
|
local nearest, farthest = nil, nil
|
|
local min_distance, max_distance = math.huge, -1
|
|
for index, player in pairs(players) do
|
|
local distance = vector.distance(pos, player:getpos())
|
|
if distance < min_distance then
|
|
min_distance = distance
|
|
nearest = player:get_player_name()
|
|
end
|
|
if distance > max_distance then
|
|
max_distance = distance
|
|
farthest = player:get_player_name()
|
|
end
|
|
end
|
|
local random = players[math.random(#players)]:get_player_name()
|
|
commands = commands:gsub("@nearest", nearest)
|
|
commands = commands:gsub("@farthest", farthest)
|
|
commands = commands:gsub("@random", random)
|
|
return commands
|
|
end
|
|
|
|
local function commandblock_action_on(pos, node)
|
|
if node.name ~= "mesecons_commandblock:commandblock_off" then
|
|
return
|
|
end
|
|
|
|
minetest.swap_node(pos, {name = "mesecons_commandblock:commandblock_on"})
|
|
|
|
local meta = minetest.get_meta(pos)
|
|
local owner = meta:get_string("owner")
|
|
if owner == "" then
|
|
return
|
|
end
|
|
|
|
local commands = resolve_commands(meta:get_string("commands"), pos)
|
|
for _, command in pairs(commands:split("\n")) do
|
|
local pos = command:find(" ")
|
|
local cmd, param = command, ""
|
|
if pos then
|
|
cmd = command:sub(1, pos - 1)
|
|
param = command:sub(pos + 1)
|
|
end
|
|
local cmddef = minetest.chatcommands[cmd]
|
|
if not cmddef then
|
|
minetest.chat_send_player(owner, "The command "..cmd.." does not exist")
|
|
return
|
|
end
|
|
local has_privs, missing_privs = minetest.check_player_privs(owner, cmddef.privs)
|
|
if not has_privs then
|
|
minetest.chat_send_player(owner, "You don't have permission "
|
|
.."to run "..cmd
|
|
.." (missing privileges: "
|
|
..table.concat(missing_privs, ", ")..")")
|
|
return
|
|
end
|
|
cmddef.func(owner, param)
|
|
end
|
|
end
|
|
|
|
local function commandblock_action_off(pos, node)
|
|
if node.name == "mesecons_commandblock:commandblock_on" then
|
|
minetest.swap_node(pos, {name = "mesecons_commandblock:commandblock_off"})
|
|
end
|
|
end
|
|
|
|
local function can_dig(pos, player)
|
|
local meta = minetest.get_meta(pos)
|
|
local owner = meta:get_string("owner")
|
|
return owner == "" or owner == player:get_player_name()
|
|
end
|
|
|
|
minetest.register_node("mesecons_commandblock:commandblock_off", {
|
|
description = "Command Block",
|
|
|
|
_doc_items_longdesc =
|
|
"Command blocks are mighty redstone components which are able to alter reality itself. In other words, they cause the server to execute server commands when they are supplied with redstone power.",
|
|
_doc_items_usagehelp =
|
|
[[Initially, a command block does not have any commands and does nothing. Rightclick the command block to edit its commands. Refer to the help entry about server commands to understand how they work. Each line contains a single command, the commands will be executed from top to bottom. The commands DO NOT require a leading slash.
|
|
|
|
You can optionally use the following placeholders in your commands:
|
|
• “@nearest” is replaced by the name of the player nearest to the command block
|
|
• “@farthest” is replaced by the name of the player farthest away from the command block
|
|
• “@random” is replaced by the name of a random player currently connected
|
|
|
|
To execute the commands, supply the command block with redstone power once. To execute them again, you have to turn the power off and on again.]],
|
|
|
|
tiles = {{name="jeija_commandblock_off.png", animation={type="vertical_frames", aspect_w=32, aspect_h=32, length=2}}},
|
|
groups = {creative_breakable=1, mesecon_effector_off=1, not_in_creative_inventory=1},
|
|
drop = "",
|
|
on_blast = function() end,
|
|
on_construct = construct,
|
|
is_ground_content = false,
|
|
after_place_node = after_place,
|
|
on_receive_fields = receive_fields,
|
|
can_dig = can_dig,
|
|
sounds = mcl_sounds.node_sound_stone_defaults(),
|
|
mesecons = {effector = {
|
|
action_on = commandblock_action_on
|
|
}},
|
|
mcl_blast_resistance = 18000000,
|
|
})
|
|
|
|
minetest.register_node("mesecons_commandblock:commandblock_on", {
|
|
tiles = {{name="jeija_commandblock_off.png", animation={type="vertical_frames", aspect_w=32, aspect_h=32, length=2}}},
|
|
groups = {creative_breakable=1, mesecon_effector_on=1, not_in_creative_inventory=1},
|
|
drop = "",
|
|
on_blast = function() end,
|
|
on_construct = construct,
|
|
is_ground_content = false,
|
|
after_place_node = after_place,
|
|
on_receive_fields = receive_fields,
|
|
can_dig = can_dig,
|
|
sounds = mcl_sounds.node_sound_stone_defaults(),
|
|
mesecons = {effector = {
|
|
action_off = commandblock_action_off
|
|
}},
|
|
mcl_blast_resistance = 18000000,
|
|
})
|
|
|
|
-- Add entry alias for the Help
|
|
if minetest.get_modpath("doc") then
|
|
doc.add_entry_alias("nodes", "mesecons_commandblock:commandblock_off", "nodes", "mesecons_commandblock:commandblock_on")
|
|
end
|