From 6f181d19365d55413d98f02be667b5caadf8e35e Mon Sep 17 00:00:00 2001
From: HybridDog <adresse_test@t-online.de>
Date: Mon, 2 Jun 2014 20:38:58 +0200
Subject: [PATCH] init

---
 .gitignore                          |   4 +
 default_chest_lock.png              | Bin 0 -> 864 bytes
 depends.txt                         |   1 +
 init.lua                            | 227 ++++++++++++++++++++++++++++
 textures/connected_chests_front.png | Bin 0 -> 121 bytes
 textures/connected_chests_side.png  | Bin 0 -> 627 bytes
 textures/connected_chests_top.png   | Bin 0 -> 561 bytes
 7 files changed, 232 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 default_chest_lock.png
 create mode 100644 depends.txt
 create mode 100644 init.lua
 create mode 100644 textures/connected_chests_front.png
 create mode 100644 textures/connected_chests_side.png
 create mode 100644 textures/connected_chests_top.png

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..d9c069a
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+## Generic ignorable patterns and files
+*~
+.*.swp
+debug.txt
diff --git a/default_chest_lock.png b/default_chest_lock.png
new file mode 100644
index 0000000000000000000000000000000000000000..368a60bf1b8994c34dfe2fb67e36dc1c8c8e141c
GIT binary patch
literal 864
zcmV-m1E2hfP)<h;3K|Lk000e1NJLTq000mG000mO1^@s6AM^iV00006VoOIv0RI60
z0RN!9r;`8x010qNS#tmY4#WTe4#WYKD-Ig~000McNliru+X@g9IyuTnLMi|N0_{me
zK~y+TJyT0h6hRRFW_Dh?JIgE&VV6aNAoxgtgNTTmc=Jj;5n~8H0K?UTF~$TvXkt9;
zK@v|&;!zXg#b^vMN;r8?P!o)bps>%G-RYUOsu63_ThmijUsu=nt+w`JUYd>rE9If-
zSD_~oNSHQx6PhLw1_AuiHpN|dg#if45n%uk)ZnzV!w^j$Gt={M3=L938M|gAk+yU+
zgoKDCVhVPq4Ye;fW4IJsczPFxZkPxup}*CEu7OSkc@6bu1jp175|EY9P;JC0WGw=S
z@v9=RT@7Jyr>X1#Lec&gM=?~v`_C0<^sv4ARDwkvG8lIj{p%>G?m%ahzE%^*^C=AG
zQW!dz!tT#99=}<^#zqOH%_^=fJi#vc{#+8r@@WioIvDJ*5rrW%f9tIbYnw1^7m)}E
z(ZcG|BKpo>hY$kQY8AO$4zC{0;@pKP8c;-qKJ1n};z+<)fBgtM-@n7nW+)cZw3E1T
z>p8CWUPPf#!1D4kT-U|TJ4<-bs==?+V5gIGe-mC;9{90xU!Lx=WwFbWXFE+f+HNul
zvREuiUDu^XTux3-$}=6N9H(`{Gvp}wVz(pzd|Z@9$b8a(j?>-Pf-pvm8s_HaFflQK
zp`jt=r^laR_)rGFYXYvV<Lh>VXqU`b0!gAPMZD7R)%$Qy8uw-|VPs?kp66j|>=;fS
zZc)?c;yN8-=+tJ+o|MNlvQZovhxUXt*6-o=<r!oMc=({JXk!gnRB0;OHJXD3!%Anc
zZ#KhXuZv0$;V98+5*V*Wv?o(mD+`PP<5)l!L0ts|C4|HRpTf2;EEbLeptd<wBZcxl
zK?yQ$!q5`B(mErvr2UYPZ76U4lQ0i<?}~dWRErB}8T`Wl`Bn?HMx;(^&zPzsmi1P-
zi8j|%-IVJ>eb3UL>dRID&9I?;dwE5!udJf2rvNLNL}l{_{Gf@*4{+qvIDW2uK&|Yf
qqo<ohR6?U(N3zA^X`t;;Fa83%`fEM|m{e#00000<MNUMnLSTX!8-IBK

literal 0
HcmV?d00001

diff --git a/depends.txt b/depends.txt
new file mode 100644
index 0000000..5e78c21
--- /dev/null
+++ b/depends.txt
@@ -0,0 +1 @@
+default?
diff --git a/init.lua b/init.lua
new file mode 100644
index 0000000..5f8b57c
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,227 @@
+local load_time_start = os.clock()
+
+local function get_pointed_info(pointed_thing)
+	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)
+	if nd_u.name ~= "default:chest" then
+		return
+	end
+	return pu, pa, nd_u.param2
+end
+
+local big_chest_formspec = 
+	"size[13,9]"..
+	"list[current_name;main;0,0;13,5;]"..
+	"list[current_player;main;2.5,5.2;8,4;]"
+
+local param_tab = {
+	["-1 0"] = 0,
+	 ["1 0"] = 2,
+	["0 -1"] = 3,
+	 ["0 1"] = 1,
+}
+
+local pars = {[0]=2, 3, 0, 1}
+
+local function connect_chests(pu, pa, old_param2)
+	local stuff = minetest.get_meta(pu):get_inventory():get_list("main")
+
+	local par = param_tab[pu.x-pa.x.." "..pu.z-pa.z]
+	if param_tab[pa.x-pu.x.." "..pa.z-pu.z] == old_param2 then
+		pu, pa = pa, pu
+		par = pars[par]
+	end
+	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", big_chest_formspec)
+	meta:set_string("infotext", "Big Chest")
+	local inv = meta:get_inventory()
+	inv:set_size("main", 65)
+	inv:set_list("main", stuff)
+end
+
+local place_chest = minetest.registered_nodes["default:chest"].on_place
+minetest.override_item("default:chest", {
+	on_place = function(itemstack, placer, pointed_thing)
+		if not placer then
+			return
+		end
+		local pu, pa, nd_u = get_pointed_info(pointed_thing)
+		if not pu 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, nd_u)
+		itemstack:take_item()
+		return itemstack
+	end
+})
+
+
+minetest.register_node("connected_chests:chest_left", {
+	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"},
+	paramtype2 = "facedir",
+	drop = "default:chest 2",
+	groups = {choppy=2,oddly_breakable_by_hand=2},
+	is_ground_content = false,
+	sounds = default.node_sound_wood_defaults(),
+	selection_box = {
+		type = "fixed",
+		fixed = {
+			{-0.5, -0.5, -0.5, 1.5, 0.5, 0.5},
+		},
+	},
+	can_dig = function(pos)
+		local meta = minetest.get_meta(pos);
+		local inv = meta:get_inventory()
+		return inv:is_empty("main")
+	end,
+	after_dig_node = function(pos, oldnode)
+		local p1 = oldnode.param2
+		for p,param in pairs(param_tab) do
+			if param == p1 then
+				p1 = p
+				break
+			end
+		end
+		local x, z = unpack(string.split(p1, " "))
+		pos.x = pos.x-x
+		pos.z = pos.z-z
+		minetest.remove_node(pos)
+	end,
+	on_metadata_inventory_move = function(pos, _, _, _, _, _, player)
+		minetest.log("action", player:get_player_name()..
+				" moves stuff in big chest at "..minetest.pos_to_string(pos))
+	end,
+    on_metadata_inventory_put = function(pos, _, _, _, player)
+		minetest.log("action", player:get_player_name()..
+				" moves stuff to big chest at "..minetest.pos_to_string(pos))
+	end,
+    on_metadata_inventory_take = function(pos, _, _, _, player)
+		minetest.log("action", player:get_player_name()..
+				" takes stuff from big chest at "..minetest.pos_to_string(pos))
+	end,
+})
+
+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 = "",
+	is_ground_content = false,
+	pointable = false,
+	can_dig = function()
+		return false
+	end,
+})
+
+--[[
+local function has_locked_chest_privilege(meta, player)
+	if player:get_player_name() ~= meta:get_string("owner") then
+		return false
+	end
+	return true
+end
+
+minetest.register_node("default:chest_locked", {
+	description = "Locked Chest",
+	tiles = {"default_chest_top.png", "default_chest_top.png", "default_chest_side.png",
+		"default_chest_side.png", "default_chest_side.png", "default_chest_lock.png"},
+	paramtype2 = "facedir",
+	groups = {choppy=2,oddly_breakable_by_hand=2},
+	legacy_facedir_simple = true,
+	is_ground_content = false,
+	sounds = default.node_sound_wood_defaults(),
+	after_place_node = function(pos, placer)
+		local meta = minetest.get_meta(pos)
+		meta:set_string("owner", placer:get_player_name() or "")
+		meta:set_string("infotext", "Locked Chest (owned by "..
+				meta:get_string("owner")..")")
+	end,
+	on_construct = function(pos)
+		local meta = minetest.get_meta(pos)
+		meta:set_string("infotext", "Locked Chest")
+		meta:set_string("owner", "")
+		local inv = meta:get_inventory()
+		inv:set_size("main", 8*4)
+	end,
+	can_dig = function(pos,player)
+		local meta = minetest.get_meta(pos);
+		local inv = meta:get_inventory()
+		return inv:is_empty("main") and has_locked_chest_privilege(meta, player)
+	end,
+	allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
+		local meta = minetest.get_meta(pos)
+		if not has_locked_chest_privilege(meta, player) then
+			minetest.log("action", player:get_player_name()..
+					" tried to access a locked chest belonging to "..
+					meta:get_string("owner").." at "..
+					minetest.pos_to_string(pos))
+			return 0
+		end
+		return count
+	end,
+    allow_metadata_inventory_put = function(pos, listname, index, stack, player)
+		local meta = minetest.get_meta(pos)
+		if not has_locked_chest_privilege(meta, player) then
+			minetest.log("action", player:get_player_name()..
+					" tried to access a locked chest belonging to "..
+					meta:get_string("owner").." at "..
+					minetest.pos_to_string(pos))
+			return 0
+		end
+		return stack:get_count()
+	end,
+    allow_metadata_inventory_take = function(pos, listname, index, stack, player)
+		local meta = minetest.get_meta(pos)
+		if not has_locked_chest_privilege(meta, player) then
+			minetest.log("action", player:get_player_name()..
+					" tried to access a locked chest belonging to "..
+					meta:get_string("owner").." at "..
+					minetest.pos_to_string(pos))
+			return 0
+		end
+		return stack:get_count()
+	end,
+	on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
+		minetest.log("action", player:get_player_name()..
+				" moves stuff in locked chest at "..minetest.pos_to_string(pos))
+	end,
+    on_metadata_inventory_put = function(pos, listname, index, stack, player)
+		minetest.log("action", player:get_player_name()..
+				" moves stuff to locked chest at "..minetest.pos_to_string(pos))
+	end,
+    on_metadata_inventory_take = function(pos, listname, index, stack, player)
+		minetest.log("action", player:get_player_name()..
+				" takes stuff from locked chest at "..minetest.pos_to_string(pos))
+	end,
+	on_rightclick = function(pos, node, clicker)
+		local meta = minetest.get_meta(pos)
+		if has_locked_chest_privilege(meta, clicker) then
+			minetest.show_formspec(
+				clicker:get_player_name(),
+				"default:chest_locked",
+				default.get_locked_chest_formspec(pos)
+			)
+		end
+	end,
+})]]
+
+
+print(string.format("[connected_chest] loaded after ca. %.2fs", os.clock() - load_time_start))
diff --git a/textures/connected_chests_front.png b/textures/connected_chests_front.png
new file mode 100644
index 0000000000000000000000000000000000000000..0fdc92ea005697bf901deecc290ace79002af110
GIT binary patch
literal 121
zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`4xTQKAr_~T6C_xbMQ3zw__x36
z>#O?c=-dB&o=ALnZqI!9>gsSw9bMg%<*idSUjJX}J^kPE6WYI;bpE?5PXQWzCr424
U{5ytgK(iP;UHx3vIVCg!0Pv41(EtDd

literal 0
HcmV?d00001

diff --git a/textures/connected_chests_side.png b/textures/connected_chests_side.png
new file mode 100644
index 0000000000000000000000000000000000000000..b0b19a7ecd4bfe18b01b35f10a03101ee60e5b97
GIT binary patch
literal 627
zcmV-(0*w8MP)<h;3K|Lk000e1NJLTq000mG000mO0ssI2kdbIM0006yNkl<ZD9<I4
zy^b736h^;$>!-VVdUj`bZLDD}K!9aAAVlJ25P=iFfnUH+LCR~8AQ2HDA|g8jgR#-F
zGt*t&Rdw$rnCt{6IMSilKfVfmABW45Pwbov9lJneby@QLhd7Lvw@+F=wYs!r>Mw45
zEBU)`U-h2M0KkAEwu!tpYiert(Z;XM4n@bv$5lN0P}RP;>X|?UCYp=%fvZ?_bXxUx
z7uTjs)jsgu-2AY6=$X#8DEdei7$Crg=!#esD`ICm1@=C4pI?P%`#}NkFs5Ltcc<C~
zA3T*N-mwS_`qaD9g!21e>h#WcqqK#6WS>CX@*Vq5)|tB`%Lyh@b9b><Y5vX6Kis{2
zJMOk78iy28-%6SPJM=^U;m?0|j~=vA@^R`m$%k<HXzy=6{p$IP?*q)tRsj<L5Ws}o
zEIBgZP;Celfct8`E>rL6*?t3HsoK;$Qx!{*bI~C(6a722vEy7d1!f|b0uPZLAqDnK
z!4Uw@<e7TUqBeFsR|Noo**VVyKn>g8ZF{$gPSgN6CN*1|I;L=L1vqZDXX-oyNP*X;
zYB(+u9Iavi%+Lo;fv2L}mKi`3tD<XD0OyHCEI3-LHpNsVILcKwkv%zXYG$Zvxtey!
z)q<nbs!LS>Y9?x;mI4FtFl%c2t2nK)R=wGVCMJsahjKjzA{^${#C99MR2_RyfBf|F
z&9A>*KfaAA9pC+xmm+!j^6PK@e*OD&$PXTWoR9bGJg19Gz^*^}?0*pvQAWv)VXpuH
N002ovPDHLkV1ir9Br5;_

literal 0
HcmV?d00001

diff --git a/textures/connected_chests_top.png b/textures/connected_chests_top.png
new file mode 100644
index 0000000000000000000000000000000000000000..1056ef56cc52ede523f172c9dc070bf52cfc6cd8
GIT binary patch
literal 561
zcmV-10?z%3P)<h;3K|Lk000e1NJLTq000mG000mO0ssI2kdbIM0005_Nkl<ZD9<&K
zOKucF5JV$0tGau}pRo)GA+K1l<w!`}#pmG!Tm;Diu>=|UGvleQPiC+fc^itwdl7Q?
z{WdSlwB5CGP&3Q3S{7kn*Yb2fZO?Z%pGG;1zK-=}xqOpGD__6dZjuB60AvkZWGT+>
z2=eAUl@SkXsLDE+H09>}_;yi&2vp?Qe979KlgXjR&DB&#Ec=lS0MhpAT~eId9#|$}
zRzLu5Cu`2`Y)%heE(SnTo>hc|2TWlqo2<=aGVRW6Qb$C9z+>?`sA9<k+gX!hPMS>S
ztdq%<r1Y3fOOMh+1)HqRsiUpU*~Up35nOwCAjm^?51Pmbo=v*jm<N-p29ZsIIJT$?
z0HzYeoCH8J@k&*FDh@#V`m#v^Kt)v0oh0grQzC+-q9Ouhlgq_a#LlyBCpEz)Yf{N3
z0Fp{lS(1A2eAZ)+(*{Y+k_mtyE*48BCbD1s6^wPnlr*aVIGaqTvx}4NoD{$&YaJ29
ze)Vipod8HIS(~$t(6Jr?3}^RvMTZF5>4Y95@Y4Lm`Mi1()8Qo1gQYWOl+J8&sIm3{
z5Tpk^crhD*1hNJ1{v69-ckX5#L=cZPo{wFCmrf`C?Rz$PSVNwEe*5?P$M*WY<+(oJ
z_uit_w;w<6|Nd&FoL#@~>weUdH<tjn*B|}^M7>N4XKo9000000NkvXXu0mjfZA<@y

literal 0
HcmV?d00001