hook/pchest.lua

pchest={}


minetest.register_craft({
	output = "hook:pchest",
	recipe = {
		{"default:stick","default:stick","default:stick"},
		{"default:stick","default:chest_locked", "default:diamond"},
		{"default:stick","default:stick","default:stick"},
	}
})

pchest.setpchest=function(pos,user)
		local meta = minetest.get_meta(pos)
		meta:set_string("owner", user:get_player_name())
		meta:set_int("state", 0)
		meta:get_inventory():set_size("main", 32)
		meta:get_inventory():set_size("trans", 1)
		meta:set_string("formspec",
		"size[8,8]" ..
		"list[context;main;0,0;8,4;]" ..
		"list[context;trans;0,0;0,0;]" ..
		"list[current_player;main;0,4.3;8,4;]" ..
		"listring[current_player;main]" ..
		"listring[current_name;main]" ..
		default.gui_bg ..
		default.gui_bg_img ..
		default.gui_slots ..
		default.get_hotbar_bg(0,4.3))
		meta:set_string("infotext", "PChest by: " .. user:get_player_name())
end



minetest.register_tool("hook:pchest", {
	description = "Portable locked chest",
	inventory_image = "hook_extras_chest3.png",
		on_place = function(itemstack, user, pointed_thing)
			if minetest.is_protected(pointed_thing.above,user:get_player_name()) or minetest.registered_nodes[minetest.get_node(pointed_thing.above).name].walkable then
				return itemstack
			end
			local p=minetest.dir_to_facedir(user:get_look_dir())
			local item=itemstack:to_table()
			local meta=minetest.deserialize(item["metadata"])
			minetest.set_node(pointed_thing.above, {name = "hook:pchest_node",param1="",param2=p})
			pchest.setpchest(pointed_thing.above,user)
			
			minetest.sound_play("default_place_node_hard", {pos=pointed_thing.above, gain = 1.0, max_hear_distance = 5,})
			if meta==nil then
				itemstack:take_item()
				return itemstack
			end

			local s=meta.stuff
			local its=meta.stuff.split(meta.stuff,",",",")
			local nmeta=minetest.get_meta(pointed_thing.above)
			for i,it in pairs(its) do
				if its~="" then
					nmeta:get_inventory():set_stack("main",i, ItemStack(it))
				end
			end
			itemstack:take_item()
			return itemstack:take_item()
		end,
})




minetest.register_node("hook:pchest_node", {
	description = "Portable locked chest",
	tiles = {"hook_extras_chest2.png","hook_extras_chest2.png","hook_extras_chest1.png","hook_extras_chest1.png","hook_extras_chest1.png","hook_extras_chest3.png"},
	groups = {dig_immediate = 2, not_in_creative_inventory=1,tubedevice = 1, tubedevice_receiver = 1},
	drop="hook:pchest",
	paramtype2 = "facedir",
	tube = {insert_object = function(pos, node, stack, direction)
			local meta = minetest.get_meta(pos)
			local inv = meta:get_inventory()
			local added = inv:add_item("main", stack)
			--after_inventory_change(pos)
			return added
		end,
		can_insert = function(pos, node, stack, direction)
			local meta = minetest.get_meta(pos)
			local inv = meta:get_inventory()
			return inv:room_for_item("main", stack)
		end,
		input_inventory = "main",
		connect_sides = {left = 1, right = 1, front = 1, back = 1, top = 1, bottom = 1}},
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
		local owner = minetest.get_meta(pos):get_string("owner")
		if (stack:get_name()~="hook:pchest") and (owner==player:get_player_name() or owner=="") then
			if minetest.deserialize(stack:get_metadata())~=nil then
				minetest.chat_send_player(player:get_player_name(), "Warning: the meta (information that is saved in the item)")
				minetest.chat_send_player(player:get_player_name(), "will be lost when pick up the chest")
			end
			return stack:get_count()
		end
		return 0
	end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
		local owner = minetest.get_meta(pos):get_string("owner")
		if owner==player:get_player_name() or owner=="" then
			return stack:get_count()
		end
		return 0
	end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
		local owner = minetest.get_meta(pos):get_string("owner")
		if owner==player:get_player_name() or owner=="" then
			return count
		end
		return 0
	end,
can_dig = function(pos, player)
		local owner = minetest.get_meta(pos):get_string("owner")
		return (owner=="" and minetest.get_meta(pos):get_inventory():is_empty("main"))
	end,
on_punch = function(pos, node, player, pointed_thing)
		if minetest.is_protected(pos,player:get_player_name()) then
			return false
		end
		local meta=minetest.get_meta(pos)
		if meta:get_string("owner")==player:get_player_name() then
			local inv=meta:get_inventory()
			local items=""
			for i=1,32,1 do
				if inv:get_stack("main",i):get_name()~="" then
					items=items .. inv:get_stack("main",i):get_name() .." " .. inv:get_stack("main",i):get_count() .. " " .. inv:get_stack("main",i):get_wear() .."," 
				else
					items=items .. ","
				end
			end
			inv:add_item("trans", ItemStack("hook:pchest"))
			local item=inv:get_stack("trans",1):to_table()
			local tmeta={stuff=items}
			item.metadata=minetest.serialize(tmeta)
			item.meta=minetest.serialize(tmeta)
			player:get_inventory():add_item("main", ItemStack(item))
			minetest.set_node(pos, {name = "air"})
			minetest.sound_play("default_dig_dig_immediate", {pos=pos, gain = 1.0, max_hear_distance = 5,})
		end
	end,
})