2024-07-16 22:53:04 +02:00

504 lines
16 KiB
Lua

--
-- Locks mod
--
local S = minetest.get_translator("rp_locks")
local NS = function(s) return s end
local INFOTEXT_PUBLIC = NS("Locked Chest")
local INFOTEXT_OWNED = NS("Locked Chest (Owned by @1)")
local INFOTEXT_PUBLIC_CRACKED = NS("Locked Chest (cracked open)")
local INFOTEXT_OWNED_CRACKED = NS("Locked Chest (cracked open) (Owned by @1)")
local INFOTEXT_NAMED_OWNED = NS("@1 (Owned by @2)")
local GRAVITY = minetest.settings:get("movement_gravity") or 9.81
locks = {}
-- Settings
local picked_time = tonumber(minetest.settings:get("locks_picked_time")) or 15 -- unlocked for 15 seconds
local all_unlocked = minetest.settings:get_bool("locks_all_unlocked")
local function update_infotext(meta)
local text = meta:get_string("name")
local owner = meta:get_string("lock_owner")
local cracked = meta:get_int("lock_cracked") == 1
if text ~= "" then
local namepart = S("“@1”", text)
if owner ~= "" then
if cracked then
meta:set_string("infotext", S(INFOTEXT_OWNED_CRACKED, owner) .. "\n" .. namepart)
else
meta:set_string("infotext", S(INFOTEXT_OWNED, owner) .. "\n" .. namepart)
end
else
if cracked then
meta:set_string("infotext", S(INFOTEXT_PUBLIC_CRACKED) .. "\n" .. namepart)
else
meta:set_string("infotext", S(INFOTEXT_PUBLIC) .. "\n" .. namepart)
end
end
else
if owner ~= "" then
if cracked then
meta:set_string("infotext", S(INFOTEXT_OWNED_CRACKED, owner))
else
meta:set_string("infotext", S(INFOTEXT_OWNED, owner))
end
else
if cracked then
meta:set_string("infotext", S(INFOTEXT_PUBLIC_CRACKED))
else
meta:set_string("infotext", S(INFOTEXT_PUBLIC))
end
end
end
end
-- API functions
function locks.is_owner(meta, player)
local name = player:get_player_name()
local owner = meta:get_string("lock_owner")
return name == owner
end
function locks.has_owner(meta)
return meta:get_string("lock_owner") ~= ""
end
function locks.is_locked(meta, player)
if all_unlocked then
return false
end
if locks.is_owner(meta, player) then
return false
end
local t = minetest.get_gametime()
local cracked = meta:get_int("lock_cracked")
if cracked == 1 then
return false
end
return true
end
-- Items and nodes
minetest.register_tool(
"rp_locks:pick",
{
description = S("Lock Pick"),
_tt_help = S("Cracks locked chests"),
groups = { tool = 1 },
inventory_image = "locks_pick.png",
wield_image = "locks_pick.png",
sound = { breaks = "default_tool_breaks" },
stack_max = 1,
on_use = function(itemstack, player, pointed_thing)
if pointed_thing.type ~= "node" then
return itemstack
end
local pos = pointed_thing.under
if minetest.is_protected(pos, player:get_player_name()) and
not minetest.check_player_privs(player, "protection_bypass") then
minetest.record_protection_violation(pos, player:get_player_name())
return itemstack
end
local node = minetest.get_node(pos)
if minetest.get_item_group(node.name, "locked") == 0 then
return itemstack
end
local meta = minetest.get_meta(pos)
local cracked = meta:get_int("lock_cracked") == 1
if cracked then
-- Is already open
return itemstack
end
-- Attempt to pick lock
if math.random(1, 5) <= 1 then
-- Success!
meta:set_int("lock_cracked", 1)
local timer = minetest.get_node_timer(pos)
-- Unlock node for a limited time
timer:start(picked_time)
local owner = meta:get_string("lock_owner")
update_infotext(meta)
-- TODO: Add graphical effect to show success
local burglar = player:get_player_name()
if owner ~= nil and owner ~= "" then
if owner ~= burglar then
minetest.chat_send_player(
owner,
minetest.colorize("#f00",
S("@1 has broken into your locked chest!", burglar)))
minetest.chat_send_player(
burglar,
minetest.colorize("#0f0", S("You have broken the lock!")))
else
minetest.chat_send_player(
burglar,
minetest.colorize("#0f0", S("You have broken into your own locked chest!")))
end
minetest.log("action", "[rp_locks] " .. burglar .. " cracked open a locked chest of " .. owner .. " at " .. minetest.pos_to_string(pos, 0))
else
minetest.chat_send_player(
burglar,
minetest.colorize("#0f0", S("You have broken the lock!")))
minetest.log("action", "[rp_locks] " .. burglar .. " cracked open a locked chest at " .. minetest.pos_to_string(pos, 0))
end
achievements.trigger_achievement(player, "burglar")
minetest.sound_play({name="locks_unlock",gain=0.8},{pos=pos, max_hear_distance=16}, true)
-- Spawn particles at lock to indicate lock break
local dir = minetest.fourdir_to_dir(node.param2)
local w = 1/16
local k = 11/16
local l = 7/16
local vup, vdn, vs, v0 = 0.1, -0.2, 0.5, 0
local minoff, maxoff, minvel, maxvel
if dir.x > 0 then
minoff = vector.new(-k, -w, -w)
maxoff = vector.new(-l, w, w)
minvel = vector.new(-vs, vdn, -vs)
maxvel = vector.new(v0, vup, vs)
elseif dir.x < 0 then
minoff = vector.new(l, -w, -w)
maxoff = vector.new(k, w, w)
minvel = vector.new(v0, vdn, -vs)
maxvel = vector.new(vs, vup, vs)
elseif dir.z > 0 then
minoff = vector.new(-w, -w, -k)
maxoff = vector.new(w, w, -l)
minvel = vector.new(-vs, vdn, v0)
maxvel = vector.new(vs, vup, vs)
elseif dir.z < 0 then
minoff = vector.new(-w, -w, l)
maxoff = vector.new(w, w, k)
minvel = vector.new(-vs, vdn, -vs)
maxvel = vector.new(vs, vup, v0)
end
if minoff then
minetest.add_particlespawner({
amount = 12,
time = 0.001,
pos = { min = vector.add(pos, minoff), max = vector.add(pos, maxoff) },
vel = { min = minvel, max = maxvel },
acc = { min = vector.new(0, 0, 0), max = vector.new(0, -GRAVITY, 0) },
size = 1.2,
exptime = { min = 0.60, max = 0.65 },
texture = "rp_locks_particle_lock.png",
})
end
else
-- Failure!
minetest.sound_play({name="locks_pick",gain=0.5},{pos=pos, max_hear_distance=16}, true)
end
if not minetest.is_creative_enabled(player:get_player_name()) then
itemstack:add_wear_by_uses(8)
end
return itemstack
end,
})
-- Use lock on chest to lock it
local put_lock = function(itemstack, putter, pointed_thing)
if pointed_thing.type ~= "node" then
return itemstack
end
local pos = pointed_thing.under
local node = minetest.get_node(pos)
if node.name == "rp_default:chest" then
local name
if putter and putter:is_player() then
name = putter:get_player_name()
end
if minetest.is_protected(pos, name) and
not minetest.check_player_privs(putter, "protection_bypass") then
minetest.record_protection_violation(pos, name)
return itemstack
end
node.name = "rp_locks:chest"
minetest.swap_node(pos, node)
minetest.sound_play({name="locks_lock",gain=0.5},{pos=pos, max_hear_distance=16}, true)
local meta = minetest.get_meta(pos)
if name ~= "" then
meta:set_string("lock_owner", name)
minetest.log("action", "[rp_locks] " .. name .. " puts a lock on a chest at " .. minetest.pos_to_string(pos, 0))
else
minetest.log("action", "[rp_locks] A lock was put on a chest at " .. minetest.pos_to_string(pos, 0))
end
update_infotext(meta)
local creative_name
if not name or name == "" then
creative_name = ""
else
creative_name = name
end
if not minetest.is_creative_enabled(creative_name) then
itemstack:take_item()
end
end
return itemstack
end
local put_lock_place = function(itemstack, putter, pointed_thing)
-- Handle pointed node handlers and protection
local handled, handled_itemstack = util.on_place_pointed_node_handler(itemstack, putter, pointed_thing)
if handled then
return handled_itemstack
end
put_lock(itemstack, putter, pointed_thing)
end
minetest.register_craftitem(
"rp_locks:lock",
{
description = S("Lock"),
_tt_help = S("Used to craft locked chests"),
groups = { tool = 1 },
inventory_image = "locks_lock.png",
wield_image = "locks_lock.png",
-- Place or punch lock on chest to lock the chest
on_use = put_lock,
on_place = put_lock_place,
})
local chest_def = {
description = S("Locked Chest"),
_tt_help = S("Provides 32 inventory slots") .. "\n" .. S("Can only be opened by its owner and those who have a lockpick"),
tiles ={
"default_chest_top.png",
"default_chest_top.png",
"default_chest_sides.png",
"default_chest_sides.png",
"default_chest_sides.png",
"locks_chest_front.png"
},
use_texture_alpha = "blend",
paramtype2 = "4dir",
groups = {choppy = 2, oddly_breakable_by_hand = 2, level = -1, locked = 1, chest = 2, container = 1, paintable = 2, furniture = 1, pathfinder_hard = 1},
is_ground_content = false,
sounds = rp_sounds.node_sound_planks_defaults(),
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_int("lock_cracked", 0)
update_infotext(meta)
local inv = meta:get_inventory()
inv:set_size("main", 8 * 4)
end,
after_place_node = function(pos, player)
local name = player:get_player_name()
local meta = minetest.get_meta(pos)
meta:set_string("lock_owner", name)
update_infotext(meta)
end,
on_rightclick = function(pos, node, player)
local meta = minetest.get_meta(pos)
if not locks.is_locked(meta, player) then
local np = pos.x .. "," .. pos.y .. "," .. pos.z
local form = rp_formspec.get_page("rp_formspec:2part")
local xstart = rp_formspec.default.start_point.x
local ystart = rp_formspec.default.start_point.y
local form = rp_formspec.get_page("rp_formspec:2part")
form = form .. rp_formspec.get_itemslot_bg(xstart, ystart, 8, 4)
form = form .. "list[nodemeta:".. np ..";main;"..xstart..","..ystart..";8,4;]"
form = form .. rp_formspec.default.player_inventory
form = form .. "listring[current_player;main]"
form = form .. "listring[nodemeta:" .. np .. ";main]"
form = form .. rp_label.container_label_formspec_element(meta)
minetest.show_formspec(
player:get_player_name(),
"default_chest",
form
)
end
end,
on_timer = function(pos, elapsed)
local meta = minetest.get_meta(pos)
meta:set_int("lock_cracked", 0)
local owner = meta:get_string("lock_owner")
update_infotext(meta)
end,
allow_metadata_inventory_move = function(pos, from_l, from_i, to_l, to_i, cnt, player)
if minetest.is_protected(pos, player:get_player_name()) and
not minetest.check_player_privs(player, "protection_bypass") then
minetest.record_protection_violation(pos, player:get_player_name())
return 0
end
local meta = minetest.get_meta(pos)
if locks.is_locked(meta, player) then
return 0
end
return cnt
end,
allow_metadata_inventory_put = function(pos, listname, index, itemstack, player)
if minetest.is_protected(pos, player:get_player_name()) and
not minetest.check_player_privs(player, "protection_bypass") then
minetest.record_protection_violation(pos, player:get_player_name())
return 0
end
local meta = minetest.get_meta(pos)
if locks.is_locked(meta, player) then
return 0
end
return itemstack:get_count()
end,
allow_metadata_inventory_take = function(pos, listname, index, itemstack, player)
if minetest.is_protected(pos, player:get_player_name()) and
not minetest.check_player_privs(player, "protection_bypass") then
minetest.record_protection_violation(pos, player:get_player_name())
return 0
end
local meta = minetest.get_meta(pos)
if locks.is_locked(meta, player) then
return 0
end
return itemstack:get_count()
end,
can_dig = function(pos, player)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
return inv:is_empty("main") and (locks.is_owner(meta, player) or (not locks.has_owner(meta)))
end,
on_blast = function() end,
_rp_write_name = function(pos, text)
local meta = minetest.get_meta(pos)
meta:set_string("name", text)
update_infotext(meta)
end,
_rp_blast_resistance = 2,
}
minetest.register_node("rp_locks:chest", chest_def)
local chest_defp = table.copy(chest_def)
chest_defp.description = S("Painted Locked Chest")
chest_defp.tiles ={
"default_chest_top_painted.png",
"default_chest_top_painted.png",
"default_chest_sides_painted.png",
"default_chest_sides_painted.png",
"default_chest_sides_painted.png",
"locks_chest_front_painted.png"
}
chest_defp.overlay_tiles ={
-- HACK: This is a workaround to fix the coloring of the crack overlay
{name="rp_textures_blank_paintable_overlay.png",color="white"},
{name="rp_textures_blank_paintable_overlay.png",color="white"},
{name="rp_textures_blank_paintable_overlay.png",color="white"},
{name="rp_textures_blank_paintable_overlay.png",color="white"},
{name="rp_textures_blank_paintable_overlay.png",color="white"},
-- This tile is part of the legit overlay
{name="locks_chest_front_painted_overlay.png",color="white"},
}
chest_defp.paramtype2 = "color4dir"
chest_defp.palette = "rp_paint_palette_64d.png"
chest_defp.drop = "rp_locks:chest"
chest_defp.groups.paintable = 1
chest_defp.groups.not_in_creative_inventory = 1
minetest.register_node("rp_locks:chest_painted", chest_defp)
-- Crafting
crafting.register_craft(
{
output = "rp_locks:pick",
items = {
"rp_default:ingot_steel 2",
"rp_default:stick 3",
},
})
crafting.register_craft(
{
output = "rp_locks:lock",
items = {
"rp_default:ingot_steel 3",
"group:planks 2",
},
})
crafting.register_craft(
{
output = "rp_locks:chest",
items = {
"rp_default:chest",
"rp_locks:lock",
},
})
minetest.register_craft({
type = "fuel",
recipe = "rp_locks:chest",
burntime = 25
})
-- Achievements
achievements.register_achievement(
"locksmith",
{
title = S("Locksmith"),
description = S("Craft a lock."),
times = 1,
craftitem = "rp_locks:lock",
difficulty = 5.7,
})
achievements.register_achievement(
"burglar",
{
title = S("Burglar"),
description = S("Break into a locked chest."),
times = 1,
item_icon = "rp_locks:pick",
difficulty = 5.8,
})
-- Update node infotext
minetest.register_lbm(
{
label = "Update locked chests",
name = "rp_locks:update_locked_chests_2_2_0",
nodenames = {"rp_locks:chest"},
action = function(pos, node)
local meta = minetest.get_meta(pos)
update_infotext(meta)
end,
}
)
minetest.register_alias("locks:chest", "rp_locks:chest")
minetest.register_alias("locks:lock", "rp_locks:lock")
minetest.register_alias("locks:pick", "rp_locks:pick")