Treasure Chest Mod for Minetest

Adds treasure chests that a server admin can place, hidden or in plain
view, and fill with whatever treasures they choose

README.txt

@@ -0,0 +1,31 @@
+Treasure Chest (treasurechest) mod for Minetest
+
+by thefamilygrog66
+
+Description: Adds treasure chests that a server admin can place, hidden or in plain view, and fill with whatever treasures they choose. After adding treasure to the chest, the admin simply punches it in order to save its contents. When a player finds the chest, they have one (and only one) opportunity to examine its contents, taking what they wish. The chest automatically resets itself every time a new player looks inside, so that every player has access to the same treasure inside. If a player attempts to look inside a second time, they're blocked from doing so, and receive a message indicating that they've already examined its contents.
+
+Cheers to bark for the idea/concept.
+
+Mod dependencies: default
+
+License:
+Sourcecode: WTFPL (see below)
+Model: CC0 1.0, Paul Wortmann
+Texture: WTFPL (see below)
+
+See also:
+http://minetest.net/
+
+         DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+                    Version 2, December 2004
+
+ Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
+
+ Everyone is permitted to copy and distribute verbatim or modified
+ copies of this license document, and changing it is allowed as long
+ as the name is changed.
+
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. You just DO WHAT THE FUCK YOU WANT TO.

depends.txt

@@ -0,0 +1 @@
+default

init.lua

@@ -0,0 +1,124 @@
+temp_inv = {}
+
+-- formspec setup
+local function get_treasure_chest_formspec(pos)
+	local spos = pos.x .. "," .. pos.y .. "," ..pos.z
+	local formspec =
+		"size[8,9]"..
+		default.gui_bg..
+		default.gui_bg_img..
+		default.gui_slots..
+		"list[nodemeta:".. spos .. ";main;0,0.3;8,4;]"..
+		"list[current_player;main;0,4.85;8,1;]"..
+		"list[current_player;main;0,6.08;8,3;8]"..
+		"listring[nodemeta:".. spos .. ";main]"..
+		"listring[current_player;main]"..
+		default.get_hotbar_bg(0,4.85)
+ return formspec
+end
+
+-- check to see if player is chest owner
+local function has_treasure_chest_privilege(meta, player)
+	if player:get_player_name() ~= meta:get_string("owner") then
+		return false
+	end
+	return true
+end
+
+-- register treasure chest node
+minetest.register_node("treasurechest:empty", {
+	paramtype = "light",
+	drawtype = "mesh",
+	mesh = "treasurechest.obj",
+	description = "Treasure Chest",
+	tiles = {"treasurechest_wood.png"},
+	paramtype2 = "facedir",
+	selection_box = {
+		type = "fixed",
+		fixed = { -0.5, -0.5, -6/16, 0.5,1/4, 6/16 },
+	},
+	groups = {choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
+	sounds = default.node_sound_wood_defaults(),
+
+	-- set owner and inventory size of treasure chest after placing it
+	after_place_node = function(pos, placer)
+		local meta = minetest.get_meta(pos)
+		local inv = meta:get_inventory()
+		meta:set_string("owner", placer:get_player_name() or "")
+		meta:set_string("infotext", "Treasure Chest (owned by "..meta:get_string("owner")..")")
+		inv:set_size("main", 8*8)
+	end,
+
+	-- only allow owner to remove chest
+	can_dig = function(pos,player)
+		local meta = minetest.get_meta(pos);
+		return has_treasure_chest_privilege(meta, player)
+	end,
+
+	-- remove all metadata from node when chest is removed
+	after_dig_node = function(pos, oldnode, oldmetadata, digger)
+		minetest.set_node(pos, {name="air"})
+	end,
+
+	-- only allow owner to move items around within chest
+	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_treasure_chest_privilege(meta, player) then
+			return 0
+		end
+		return count
+	end,
+ 
+	-- only allow owner to add items to chest
+    allow_metadata_inventory_put = function(pos, listname, index, stack, player)
+		local meta = minetest.get_meta(pos)
+		if not has_treasure_chest_privilege(meta, player) then
+			return 0
+		end
+		return stack:get_count()
+	end,
+
+	-- saves items to chest when punched by owner
+	on_punch = function(pos, node, player, pointed_thing)
+		local meta = minetest.get_meta(pos)
+		local puncher = player:get_player_name() 
+		local giver = meta:get_string("owner")
+		local inv = meta:get_inventory()		
+		if puncher == giver then
+			for i=1,32 do
+				temp_inv = inv:get_stack("main", i)
+				inv:set_stack("main", i+32, temp_inv)
+			end
+			minetest.chat_send_player(puncher, "Treasure Chest contents successfully saved.")						
+		end	
+	end,
+
+	-- checks if player has examined contents of chest and if not, allows them to remove items
+	-- also allows owner to add items to chest
+ 	on_rightclick = function(pos, node, clicker)
+		local meta = minetest.get_meta(pos)		
+		local taker = clicker:get_player_name() 
+		local giver = meta:get_string("owner")
+		local taken = meta:get_string(taker)
+		local inv = meta:get_inventory()
+		if taken == "yes" and taker ~=giver then
+			minetest.chat_send_player(taker, "Sorry "..taker..", you've already examined this treasure chest.")
+		else
+			for i=1,32 do
+				temp_inv = inv:get_stack("main", i+32)
+				inv:set_stack("main", i, temp_inv)
+			end	
+			minetest.show_formspec(
+				clicker:get_player_name(),
+				"treasurechest:empty",
+				get_treasure_chest_formspec(pos)
+			)
+		end
+		meta:set_string(taker, "yes")		
+		if taker == giver then
+			minetest.chat_send_player(taker, "Remember to punch the Treasure Chest to save its contents!")			
+		end
+	end,
+})
+
+print("[Mod]treasurechest Loaded!")