connected_chests/init.lua

265 lines
7.9 KiB
Lua
Raw Normal View History

2014-06-02 20:38:58 +02:00
local load_time_start = os.clock()
2014-06-03 20:38:52 +02:00
local creative_enabled = minetest.setting_getbool("creative_mode")
local chests = {
["default:chest"] = function(pu, pa, par, stuff)
minetest.add_node(pu, {name="connected_chests:chest_left", param2=par})
minetest.add_node(pa, {name="connected_chests:chest_right", param2=par})
local meta = minetest.get_meta(pu)
meta:set_string("formspec",
"size[13,9]"..
"list[current_name;main;0,0;13,5;]"..
"list[current_player;main;2.5,5.2;8,4;]"
)
meta:set_string("infotext", "Big Chest")
local inv = meta:get_inventory()
inv:set_size("main", 65)
inv:set_list("main", stuff)
end,
["default:chest_locked"] = function(pu, pa, par, stuff, name, owner)
local owner = owner or name
minetest.add_node(pu, {name="connected_chests:chest_locked_left", param2=par})
minetest.add_node(pa, {name="connected_chests:chest_locked_right", param2=par})
local meta = minetest.get_meta(pu)
meta:set_string("owner", owner)
meta:set_string("formspec",
"size[13,9]"..
"list[current_name;main;0,0;13,5;]"..
"list[current_player;main;2.5,5.2;8,4;]"
)
meta:set_string("infotext", "Big Locked Chest (owned by "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 65)
inv:set_list("main", stuff)
end,
}
local function get_pointed_info(pointed_thing, name)
2014-06-02 20:38:58 +02:00
if not pointed_thing then
return
end
local pu = minetest.get_pointed_thing_position(pointed_thing)
local pa = minetest.get_pointed_thing_position(pointed_thing, true)
if not (pu and pa) then
return
end
if pu.y ~= pa.y then
return
end
local nd_u = minetest.get_node(pu)
2014-06-03 20:38:52 +02:00
if nd_u.name ~= name then
2014-06-02 20:38:58 +02:00
return
end
return pu, pa, nd_u.param2
end
local param_tab = {
["-1 0"] = 0,
["1 0"] = 2,
["0 -1"] = 3,
["0 1"] = 1,
}
2014-06-04 18:37:17 +02:00
local param_tab2 = {}
for n,i in pairs(param_tab) do
param_tab2[i] = n
end
2014-06-02 20:38:58 +02:00
local pars = {[0]=2, 3, 0, 1}
2014-06-03 20:38:52 +02:00
local function connect_chests(pu, pa, old_param2, name)
local oldmeta = minetest.get_meta(pu)
local stuff = oldmeta:get_inventory():get_list("main")
local owner = oldmeta:get_string("owner")
2014-06-02 20:38:58 +02:00
local par = param_tab[pu.x-pa.x.." "..pu.z-pa.z]
2014-06-03 20:38:52 +02:00
local par_inverted = pars[par]
if old_param2 == par_inverted then
2014-06-02 20:38:58 +02:00
pu, pa = pa, pu
2014-06-03 20:38:52 +02:00
par = par_inverted
2014-06-02 20:38:58 +02:00
end
2014-06-03 20:38:52 +02:00
chests[name](pu, pa, par, stuff, name, owner)
2014-06-02 20:38:58 +02:00
end
2014-06-03 20:38:52 +02:00
for name,_ in pairs(chests) do
local place_chest = minetest.registered_nodes[name].on_place
minetest.override_item(name, {
on_place = function(itemstack, placer, pointed_thing)
if not placer then
return
end
local pu, pa, par2 = get_pointed_info(pointed_thing, name)
if not (pu and placer:get_player_control().sneak) then
return place_chest(itemstack, placer, pointed_thing)
end
local protected = minetest.is_protected(pa, placer:get_player_name())
if protected then
return
end
connect_chests(pu, pa, par2, name)
if not creative_enabled then
itemstack:take_item()
return itemstack
end
2014-06-02 20:38:58 +02:00
end
2014-06-03 20:38:52 +02:00
})
end
2014-06-02 20:38:58 +02:00
local function return_remove_next(allowed_name)
local function remove_next(pos, oldnode)
local x, z = unpack(string.split(param_tab2[oldnode.param2], " "))
pos.x = pos.x-x
pos.z = pos.z-z
if minetest.get_node(pos).name == allowed_name then
minetest.remove_node(pos)
2014-06-02 21:04:06 +02:00
end
end
return remove_next
2014-06-02 21:04:06 +02:00
end
2014-06-02 20:38:58 +02:00
2014-06-03 20:38:52 +02:00
local function log_access(pos, player, text)
minetest.log("action", player:get_player_name()..
" moves stuff "..text.." at "..minetest.pos_to_string(pos))
end
local chest = table.copy(minetest.registered_nodes["default:chest"])
chest.description = nil
2015-04-18 11:39:01 +02:00
chest.legacy_facedir_simple = nil
chest.after_place_node = nil
chest.on_construct = nil
chest.on_receive_fields = nil
chest.tiles = {"connected_chests_top.png", "connected_chests_top.png", "default_obsidian_glass.png",
"default_chest_side.png", "connected_chests_side.png^[transformFX", "connected_chests_side.png^connected_chests_front.png"}
chest.drop = "default:chest 2"
chest.selection_box = {
type = "fixed",
fixed = {
{-0.5, -0.5, -0.5, 1.5, 0.5, 0.5},
2014-06-02 20:38:58 +02:00
},
}
2015-04-18 11:39:01 +02:00
chest.after_destruct = return_remove_next("connected_chests:chest_right")
chest.on_metadata_inventory_move = function(pos, _, _, _, _, _, player)
log_access(pos, player, "in a big chest")
end
chest.on_metadata_inventory_put = function(pos, _, _, _, player)
log_access(pos, player, "to a big chest")
end
chest.on_metadata_inventory_take = function(pos, _, _, _, player)
log_access(pos, player, "from a big chest")
end
minetest.register_node("connected_chests:chest_left", chest)
2014-06-02 20:38:58 +02:00
2015-04-18 11:39:01 +02:00
local chest_locked = table.copy(minetest.registered_nodes["default:chest_locked"])
chest_locked.description = nil
chest_locked.legacy_facedir_simple = nil
chest_locked.after_place_node = nil
chest_locked.on_construct = nil
chest_locked.on_receive_fields = nil
chest_locked.tiles = {"connected_chests_top.png", "connected_chests_top.png", "default_obsidian_glass.png",
"default_chest_side.png", "connected_chests_side.png^[transformFX", "connected_chests_side.png^connected_chests_lock.png"}
chest_locked.drop = "default:chest_locked 2"
chest_locked.selection_box = {
type = "fixed",
fixed = {
{-0.5, -0.5, -0.5, 1.5, 0.5, 0.5},
},
}
chest_locked.after_destruct = return_remove_next("connected_chests:chest_locked_right")
chest_locked.on_metadata_inventory_move = function(pos, _, _, _, _, _, player)
log_access(pos, player, "in a big locked chest")
end
chest_locked.on_metadata_inventory_put = function(pos, _, _, _, player)
log_access(pos, player, "to a big locked chest")
end
chest_locked.on_metadata_inventory_take = function(pos, _, _, _, player)
log_access(pos, player, "from a big locked chest")
end
chest_locked.on_rightclick = function(pos, _, clicker)
local meta = minetest.get_meta(pos)
if clicker:get_player_name() == meta:get_string("owner") then
minetest.show_formspec(
clicker:get_player_name(),
"connected_chests:chest_locked_left",
"size[13,9]"..
"list[nodemeta:".. pos.x .. "," .. pos.y .. "," ..pos.z .. ";main;0,0;13,5;]"..
"list[current_player;main;2.5,5.2;8,4;]"
)
2014-06-02 20:38:58 +02:00
end
end
2015-04-18 11:39:01 +02:00
minetest.register_node("connected_chests:chest_locked_left", chest_locked)
2014-06-02 21:04:06 +02:00
minetest.register_node("connected_chests:chest_right", {
tiles = {"connected_chests_top.png^[transformFX", "connected_chests_top.png^[transformFX", "default_chest_side.png",
"default_obsidian_glass.png", "connected_chests_side.png", "connected_chests_side.png^connected_chests_front.png^[transformFX"},
paramtype2 = "facedir",
drop = "",
pointable = false,
2015-04-16 20:42:17 +02:00
diggable = false,
2014-06-02 21:04:06 +02:00
})
2014-06-02 20:38:58 +02:00
2014-06-02 21:04:06 +02:00
minetest.register_node("connected_chests:chest_locked_right", {
tiles = {"connected_chests_top.png^[transformFX", "connected_chests_top.png^[transformFX", "default_chest_side.png",
"default_obsidian_glass.png", "connected_chests_side.png", "connected_chests_side.png^connected_chests_lock.png^[transformFX"},
paramtype2 = "facedir",
drop = "",
pointable = false,
2015-04-16 20:42:17 +02:00
diggable = false,
2014-06-02 21:04:06 +02:00
})
2014-06-02 20:38:58 +02:00
2014-06-04 18:37:17 +02:00
for _,i in pairs({"chest", "chest_locked"}) do
minetest.register_abm ({
nodenames = {"connected_chests:"..i.."_right"},
interval = 3,
chance = 1,
action = function (pos, node)
if node.param2 > 3 then
node.param2 = 0
minetest.swap_node(pos, node)
return
end
2014-06-04 18:37:17 +02:00
local x, z = unpack(string.split(param_tab2[node.param2], " "))
if minetest.get_node({x=pos.x+x, y=pos.y, z=pos.z+z}).name ~= "connected_chests:"..i.."_left" then
minetest.remove_node(pos)
end
end,
})
minetest.register_abm ({
nodenames = {"connected_chests:"..i.."_left"},
interval = 3,
chance = 1,
action = function (pos, node)
local par = node.param2
if par > 3 then
node.param2 = 0
minetest.swap_node(pos, node)
return
end
2014-06-04 18:37:17 +02:00
local x, z = unpack(string.split(param_tab2[par], " "))
pos = {x=pos.x-x, y=pos.y, z=pos.z-z}
if minetest.get_node(pos).name == "air" then
minetest.set_node(pos, {name="connected_chests:"..i.."_right", param2=par})
end
end,
})
end
2015-03-21 20:19:32 +01:00
local time = math.floor(tonumber(os.clock()-load_time_start)*100+0.5)/100
2015-04-16 20:42:17 +02:00
local msg = "[connected_chests] loaded after ca. "..time
2015-03-21 20:19:32 +01:00
if time > 0.05 then
print(msg)
else
minetest.log("info", msg)
end