add filter_inventory block

blocks/filter_inventory.lua

@@ -0,0 +1,82 @@
+
+
+local update_formspec = function(meta)
+	meta:set_string("infotext", "Filter inventory")
+
+	meta:set_string("formspec", "size[8,7;]" ..
+		-- col 2
+		"list[context;main;0,0.5;8,1;]" ..
+		"list[current_player;main;0,3;8,4;]" ..
+		"listring[]" ..
+		"")
+end
+
+local function filter_inventory(inv, listname, filter_names)
+	local list = inv:get_list(listname)
+	for i, stack in ipairs(list) do
+		if filter_names[stack:get_name()] then
+			inv:set_stack(listname, i, ItemStack(""))
+		end
+	end
+end
+
+minetest.register_node("epic:filter_inv", {
+	description = "Epic filter inventory block",
+	tiles = {
+		"epic_node_bg.png",
+		"epic_node_bg.png",
+		"epic_node_bg.png",
+		"epic_node_bg.png",
+		"epic_node_bg.png",
+		"epic_node_bg.png^epic_briefcase.png",
+	},
+	paramtype2 = "facedir",
+	groups = {cracky=3,oddly_breakable_by_hand=3,epic=1},
+	on_rotate = screwdriver.rotate_simple,
+
+	after_place_node = function(pos)
+		local meta = minetest.get_meta(pos)
+		local inv = meta:get_inventory()
+		inv:set_size("main", 8)
+
+		update_formspec(meta, pos)
+	end,
+
+
+	allow_metadata_inventory_put = function(pos, _, _, stack, player)
+		if minetest.is_protected(pos, player:get_player_name()) then
+			return 0
+		end
+
+		return stack:get_count()
+	end,
+
+	allow_metadata_inventory_take = function(pos, _, _, stack, player)
+		if minetest.is_protected(pos, player:get_player_name()) then
+			return 0
+		end
+
+		return stack:get_count()
+	end,
+
+	epic = {
+    on_check = function(_, meta, player, ctx)
+			local inv = meta:get_inventory()
+			local player_inv = player:get_inventory()
+
+			local filter_names = {}
+      local filter_items = inv:get_list("main")
+      for _, filter_item in ipairs(filter_items) do
+				if not filter_item:is_empty() then
+					filter_names[filter_item:get_name()] = true
+				end
+      end
+
+			filter_inventory(player_inv, "main", filter_names)
+			filter_inventory(player_inv, "craft", filter_names)
+
+			ctx.next()
+
+    end
+  }
+})

init.lua

@@ -65,6 +65,7 @@ dofile(MP.."/blocks/fill_chest.lua")
 dofile(MP.."/blocks/stash_inventory.lua")
 dofile(MP.."/blocks/unstash_inventory.lua")
 dofile(MP.."/blocks/deduct_inventory.lua")
+dofile(MP.."/blocks/filter_inventory.lua")
 dofile(MP.."/blocks/check_empty_inventory.lua")
 
 if minetest.get_modpath("mobs") then