homedecor_modpack/locked.lua

159 lines
5.5 KiB
Lua
Raw Normal View History

2013-02-25 18:02:42 +01:00
-- Locked Stuff for Home Decor mod, by Kaeza
-- 2013-02-19
--
-- The code is mostly copypasta from default:chest_locked, with a few
-- tidbits to ease creation of new items, should need arise.
--
-- License: LGPL
--
2013-03-05 08:18:56 +01:00
-- Boilerplate to support localized strings if intllib mod is installed.
local S
if (minetest.get_modpath("intllib")) then
dofile(minetest.get_modpath("intllib").."/intllib.lua")
S = intllib.Getter(minetest.get_current_modname())
else
S = function ( s ) return s end
end
2013-02-25 18:02:42 +01:00
--[[
| create_locked ( name, infotext )
|
| Description:
| This function takes a base node name such as "homedecor:refrigerator",
| copies the definition from the original item into a new table, modifies
| it a bit, and registers a new node with a "_locked" suffix such as
| "homedecor:refrigerator_locked". The new node behaves identically to
| the base node, except that moving items to/from the node's inventory
| is only allowed for the original placer. In addition, it register a new
| shapeless recipe for the node, using the base node plus a steel ingot.
|
| Arguments:
| name The base node name
| infotext The infotext description (in case the name is too long).
|
| Example Usage:
| create_locked("homedecor:refrigerator", "Locked Fridge")
| ^ This generates a new "Locked Refrigerator" node, whose infotext is
| "Locked Fridge (owned by <placer>)".
|
| Notes:
| If <infotext> is not specified (or is nil), the infotext will be the
| base node's description prefixed by "Locked ".
|
| The ABM for the locked oven is defined in oven.lua.
2013-02-25 18:02:42 +01:00
]]
local function create_locked ( name, infotext )
local def = { }
for k, v in pairs(minetest.registered_nodes[name]) do
def[k] = v
end
def.type = nil
def.name = nil
2013-03-05 08:18:56 +01:00
def.description = S("%s (Locked)"):format(def.description)
2013-02-25 18:02:42 +01:00
local after_place_node = def.after_place_node
def.after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
2013-02-25 18:02:42 +01:00
meta:set_string("owner", placer:get_player_name() or "")
2013-03-05 08:18:56 +01:00
meta:set_string("infotext", S("%s (owned by %s)"):format(infotext,meta:get_string("owner")))
2013-02-25 18:02:42 +01:00
if (after_place_node) then
return after_place_node(pos, placer)
end
end
local allow_metadata_inventory_move = def.allow_metadata_inventory_move;
def.allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
2013-02-25 18:02:42 +01:00
if (player:get_player_name() ~= meta:get_string("owner")) then
2013-03-05 08:18:56 +01:00
minetest.log("action", S("%s tried to access a %s belonging to %s at %s"):format(
player:get_player_name(),
infotext,
meta:get_string("owner"),
minetest.pos_to_string(pos)
))
2013-02-25 18:02:42 +01:00
return 0
end
if (allow_metadata_inventory_move) then
return allow_metadata_inventory_move(pos, from_list, from_index, to_list, to_index, count, player)
else
return count
end
end
local allow_metadata_inventory_put = def.allow_metadata_inventory_put;
def.allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
2013-02-25 18:02:42 +01:00
if (player:get_player_name() ~= meta:get_string("owner")) then
2013-03-05 08:18:56 +01:00
minetest.log("action", S("%s tried to access a %s belonging to %s at %s"):format(
player:get_player_name(),
infotext,
meta:get_string("owner"),
minetest.pos_to_string(pos)
))
2013-02-25 18:02:42 +01:00
return 0
end
if (allow_metadata_inventory_put) then
return allow_metadata_inventory_put(pos, listname, index, stack, player)
else
return stack:get_count()
end
end
local allow_metadata_inventory_take = def.allow_metadata_inventory_take;
def.allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
2013-02-25 18:02:42 +01:00
if (player:get_player_name() ~= meta:get_string("owner")) then
2013-03-05 08:18:56 +01:00
minetest.log("action", S("%s tried to access a %s belonging to %s at %s"):format(
player:get_player_name(),
infotext,
meta:get_string("owner"),
minetest.pos_to_string(pos)
))
2013-02-25 18:02:42 +01:00
return 0
end
if (allow_metadata_inventory_take) then
return allow_metadata_inventory_take(pos, listname, index, stack, player)
else
return stack:get_count()
end
end
minetest.register_node(name.."_locked", def)
minetest.register_craft({
output = name.."_locked",
type = "shapeless",
recipe = {
name,
"default:steel_ingot",
}
})
end
local items = {
2013-03-05 08:18:56 +01:00
{ "refrigerator",
"Cabinet" },
{ "kitchen_cabinet",
"Cabinet" },
{ "kitchen_cabinet_half",
"Cabinet" },
{ "kitchen_cabinet_with_sink",
"Cabinet" },
{ "nightstand_oak_one_drawer",
"Nightstand" },
{ "nightstand_oak_two_drawers",
"Nightstand" },
{ "nightstand_mahogany_one_drawer",
"Nightstand" },
{ "nightstand_mahogany_two_drawers",
"Nightstand" },
{ "oven",
"Oven" },
{ "oven_active",
"Oven (active)" },
{ "microwave_oven",
"Microwave Oven" },
{ "microwave_oven_active",
"Microwave Oven (active)" },
2013-02-25 18:02:42 +01:00
}
for _,item in ipairs(items) do
2013-03-05 08:18:56 +01:00
local name, info = item[1], item[2];
create_locked("homedecor:"..name, S("Locked "..info));
2013-02-25 18:02:42 +01:00
end