catcommands/init.lua
2017-10-23 02:33:14 +01:00

318 lines
9.7 KiB
Lua

minetest.register_privilege("secret", "Wouldn't you like to know?")
minetest.register_privilege("hidden_one", {description = "Can hide from players.", give_to_singleplayer=false})
local default_sneak_mode = "old" -- change this to "new" if you want new movement.
-- Admin Curses
-- prevents player from jumping
local function hobble(user, target)
local player = minetest.get_player_by_name(target)
player:set_attribute("hobbled", "true")
player:set_physics_override({jump = 0})
end
minetest.register_chatcommand("hobble", {
params = "<person>",
privs = {secret=true},
description = "Prevent player jumping.",
func = function(name, target)
local player = minetest.get_player_by_name(target)
if player == nil then
return false, "Player does not exist."
end
hobble(name, target)
minetest.chat_send_player(target, "Cursed by an admin! No more jumping!")
minetest.chat_send_player(name, "Curse successful!")
end
})
-- reduces player movement speed
local function slowmo(name, target)
local player = minetest.get_player_by_name(target)
player:set_attribute("slowed", "true")
player:set_physics_override({speed = 0.3})
end
minetest.register_chatcommand("slowmo", {
params = "<person>",
privs = {secret=true},
description = "Reduce player movement speed.",
func = function(name, target)
local player = minetest.get_player_by_name(target)
if player == nil then
return false, "Player does not exist."
end
slowmo(name,target)
minetest.chat_send_player(target, "Cursed by an admin! You feel sloooooow!")
minetest.chat_send_player(name, "Curse successful!")
end
})
-- prevent player from changing speed/direction and jumping
local function freeze(name, target)
local player = minetest.get_player_by_name(target)
player:set_attribute("frozen", "true")
player:set_physics_override({jump = 0, speed = 0})
end
minetest.register_chatcommand("freeze", {
params = "<person>",
privs = {secret=true},
description = "Prevent player movement.",
func = function(name, target)
local player = minetest.get_player_by_name(target)
if player == nil then
return false, "Player does not exist."
end
freeze(name, target)
minetest.chat_send_player(target, "Cursed by an admin! You are now frozen!")
minetest.chat_send_player(name, "Curse successful!")
end
})
-- disables minimap for player
local function getlost(name,target)
local player = minetest.get_player_by_name(target)
player:set_attribute("lost", "true")
player:hud_set_flags({minimap = false})
end
minetest.register_chatcommand("getlost", {
params = "<person>",
privs = {secret=true},
description = "Prevent player from using the minimap.",
func = function(name, target)
local player = minetest.get_player_by_name(target)
if player == nil then
return false, "Player does not exist."
end
getlost(name,target)
minetest.chat_send_player(target, "Cursed by an admin! You will get lost now!")
minetest.chat_send_player(name, "Curse successful!")
end
})
-- trigger curse effects when player joins
minetest.register_on_joinplayer(function(player)
local name = player:get_player_name()
if player:get_attribute("hobbled") == "true" then
hobble(name,name)
end
if player:get_attribute("slowed") == "true" then
slowmo(name,name)
end
if player:get_attribute("frozen") == "true" then
freeze(name,name)
end
if player:get_attribute("lost") == "true" then
getlost(name,name)
end
-- set sneak mode if unassigned
if player:get_attribute("sneak_mode") == nil then
player:set_attribute("sneak_mode", default_sneak_mode)
end
-- set movement physics based on sneak_mode
if player:get_attribute("sneak_mode") == "old" then
player:set_physics_override({new_move = false, sneak_glitch = true, sneak = true})
elseif player:get_attribute("sneak_mode") == "new" then
player:set_physics_override({new_move = true, sneak_glitch = false, sneak = true})
elseif player:get_attribute("sneak_mode") == "none" then
player:set_physics_override({sneak = false})
end
end)
-- reset player physics
minetest.register_chatcommand("setfree",{
params = "<person>",
privs = {secret=true},
description = "Reset player movement.",
func = function(name, target)
local player = minetest.get_player_by_name(target)
if player == nil then
return false, "Player does not exist."
end
player:set_attribute("hobbled", "")
player:set_attribute("slowed", "")
player:set_attribute("frozen", "")
player:set_attribute("lost", "")
player:set_physics_override({jump = 1, speed = 1, sneak = true})
player:hud_set_flags({minimap = true})
minetest.chat_send_player(target, "The curse is lifted. You have been set free!")
minetest.chat_send_player(name, "The curse is lifted.")
end
})
-- set sneak mode
local function sneak_mode(player, mode)
player:set_attribute("sneak_mode", mode)
if mode == "old" then
player:set_physics_override({new_move = false, sneak_glitch = true, sneak = true})
elseif mode == "new" then
player:set_physics_override({new_move = true, sneak_glitch = false, sneak = true})
elseif mode == "none" then
player:set_physics_override({sneak = false})
end
end
minetest.register_chatcommand("set_sneak",{
params = "<player> <old | new | none>",
privs = {secret = true},
description = "Set sneak mode for player.",
func = function(name, params)
local target, mode = params:match("(%S+)%s+(.+)")
if not target and not reason then
return false, "Must include player name and sneak mode."
end
local player = minetest.get_player_by_name(target)
if not player then
return false, "Player does not exist."
end
if not mode or (mode ~= "old" and mode ~= "new" and mode ~= "none") then
return false, "Set a mode: old, new or none."
end
sneak_mode(player, mode)
end
})
-- check player status
minetest.register_chatcommand("curses",{
params = "<person>",
privs = {secret = true},
description = "Check player status.",
func = function(user_name, target_name)
local player = minetest.get_player_by_name(target_name)
if player == nil then
return false, "Player does not exist."
end
local result = "Status for player "..target_name..": "
local status_list = {"hobbled", "slowed", "frozen", "lost", "caged"}
for i, status in ipairs(status_list) do
if player:get_attribute(status_list[i]) == "true" then
result = result..status_list[i].." "
end
end
minetest.chat_send_player(user_name, result.." Sneak mode: "..player:get_attribute("sneak_mode"))
return
end
})
-- Cage Commands
-- put a player in the cage
minetest.register_chatcommand("cage", {
params = "<person>",
privs = {secret=true},
description = "Put a player in the cage.",
func = function(warden_name, target_name)
-- prevent self-caging
if warden_name == target_name then
return false, "You can't cage yourself."
end
-- get target player or return
local target = minetest.get_player_by_name(target_name)
if not target then
return false, "Player does not exist."
end
-- return if already caged
if target:get_attribute("caged") == "true" then
return false, "This player is already caged."
end
-- get cage position from config or return
local cagepos = minetest.setting_get_pos("cage_coordinate")
if not cagepos then
return false, "No cage set..."
end
-- save then remove all privs other than shout
local target_privs = minetest.privs_to_string(minetest.get_player_privs(target_name))
target:set_attribute("caged_privs", target_privs)
minetest.chat_send_player(warden_name, target:get_attribute("caged_privs"))
minetest.set_player_privs(target_name,{shout = true})
target:set_attribute("caged", "true")
sneak_mode(target, "none")
target:setpos(cagepos)
end
})
-- free a player from the cage
minetest.register_chatcommand("uncage", {
params = "<person>",
privs = {secret=true},
description = "Free a player from the cage.",
func = function(warden_name, target_name)
-- get target player or return
local target = minetest.get_player_by_name(target_name)
if not target then
return false, "Player does not exist."
end
-- return if not caged
if target:get_attribute("caged") ~= "true" then
return false, "This player is not caged."
end
-- get release position from config or return
local releasepos = minetest.setting_get_pos("release_coordinate")
if not releasepos then
return false, "No release point set..."
end
-- restore privs and release
local original_privs = minetest.string_to_privs(target:get_attribute("caged_privs"))
minetest.set_player_privs(target_name, original_privs)
target:set_attribute("caged_privs", nil)
sneak_mode(target, default_sneak_mode)
target:set_attribute("caged", "")
target:setpos(releasepos)
end
})
-- Other Commands
-- hide player model and nametag (only works in 0.4.14 and above)
vanished_players = {}
minetest.register_chatcommand("vanish", {
params = "",
description = "Make user invisible",
privs = {hidden_one = true},
func = function(user)
local prop
local player = minetest.get_player_by_name(user)
vanished_players[user] = not vanished_players[user]
if vanished_players[user] then
prop = {visual_size = {x = 0, y = 0},
collisionbox = {0,0,0,0,0,0}}
player:set_nametag_attributes({color = {a = 0, r = 255, g = 255, b = 255}})
else
-- default player size.
prop = {visual_size = {x = 1, y = 1},
collisionbox = {-0.35, -1, -0.35, 0.35, 1, 0.35}}
player:set_nametag_attributes({color = {a = 255, r = 255, g = 255, b = 255}})
end
player:set_properties(prop)
end
})
-- announcements
minetest.register_chatcommand("proclaim", {
params = "<text>",
description = "Sends text to all players",
privs = {server = true},
func = function (user, text)
if not text
or text == "" then
return
end
minetest.chat_send_all(text)
if minetest.get_modpath("irc") then
if irc.connected and irc.config.send_join_part then
irc:say(text)
end
end
end
})