Allow to disable hoppers with redstone power

mods/ITEMS/mcl_hoppers/init.lua

@@ -1,5 +1,3 @@
-
-
 local chest = minetest.get_content_id("mcl_chests:chest")
 
 local mcl_hoppers_formspec =
@@ -12,16 +10,13 @@ local mcl_hoppers_formspec =
 	"listring[current_name;main]"..
 	"listring[current_player;main]"
 
-minetest.register_node("mcl_hoppers:hopper", {
-	description = "Hopper",
-	inventory_image = "mcl_hoppers_item.png",
-	_doc_items_longdesc = [[Hoppers are containers with 5 inventory slots. They collect dropped items from above, take items from a container above and attempts to put its items it into an adjacent container. Hoppers can go either downwards or sideways. Hoppers interact with chests, droppers, dispensers, shulker boxes, furnaces and hoppers.
 
-Hoppers interact with containers the following way:
+--[[ BEGIN OF NODE DEFINITIONS ]]
-• Furnaces: Hoppers from above will put items into the source slot. Hoppers from below take items from the output slot. They also take items from the fuel slot when they can't be used as a fuel. Sideway hoppers put items into the fuel slot
+
-• Ender chests: Hoppers don't interact with ender chests
+-- Downwards hopper (base definition)
-• Other containers: Hoppers interact with them normally]],
+
-	_doc_items_usagehelp = "To place a hopper vertically, place it on the floor or a ceiling. To place it sideways, place it at the side of a block. Remember you can place at usable blocks (such as chests) with sneak + right-click. The hopper will keep its orientation when the blocks around it are changed. To access the hopper's inventory, rightclick it.",
+local def_hopper = {
+	inventory_image = "mcl_hoppers_item.png",
 	wield_image = "mcl_hoppers_item.png",
 	groups = {pickaxey=1, container=2,deco_block=1,},
 	drawtype = "nodebox",
@@ -62,7 +57,54 @@ Hoppers interact with containers the following way:
 		inv:set_size("main", 5)
 	end,
 
-	on_place = function(itemstack, placer, pointed_thing)
+	after_dig_node = function(pos, oldnode, oldmetadata, digger)
+		local meta = minetest.get_meta(pos)
+		local meta2 = meta
+		meta:from_table(oldmetadata)
+		local inv = meta:get_inventory()
+		for i=1,inv:get_size("main") do
+			local stack = inv:get_stack("main", i)
+			if not stack:is_empty() then
+				local p = {x=pos.x+math.random(0, 10)/10-0.5, y=pos.y, z=pos.z+math.random(0, 10)/10-0.5}
+				minetest.add_item(p, stack)
+			end
+		end
+		meta:from_table(meta2:to_table())
+	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 mcl_hoppers 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 mcl_hoppers 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 mcl_hoppers at "..minetest.pos_to_string(pos))
+	end,
+	sounds = mcl_sounds.node_sound_metal_defaults(),
+
+	_mcl_blast_resistance = 24,
+	_mcl_hardness = 3,
+}
+
+-- Redstone variants (on/off) of downwards hopper.
+-- Note a hopper is enabled when it is *not* supplied with redstone power and disabled when it is supplied with redstone power.
+
+-- Enabled downwards hopper
+local def_hopper_enabled = table.copy(def_hopper)
+def_hopper_enabled.description = "Hopper"
+def_hopper_enabled._doc_items_longdesc = [[Hoppers are containers with 5 inventory slots. They collect dropped items from above, take items from a container above and attempts to put its items it into an adjacent container. Hoppers can go either downwards or sideways. Hoppers interact with chests, droppers, dispensers, shulker boxes, furnaces and hoppers.
+
+Hoppers interact with containers the following way:
+• Furnaces: Hoppers from above will put items into the source slot. Hoppers from below take items from the output slot. They also take items from the fuel slot when they can't be used as a fuel. Sideway hoppers put items into the fuel slot
+• Ender chests: Hoppers don't interact with ender chests
+• Other containers: Hoppers interact with them normally
+
+Hoppers can be disabled by supplying them with redstone power. Disabled hoppers don't move items.]]
+def_hopper_enabled._doc_items_usagehelp = "To place a hopper vertically, place it on the floor or a ceiling. To place it sideways, place it at the side of a block. Remember you can place at usable blocks (such as chests) with sneak + right-click. The hopper will keep its orientation when the blocks around it are changed. To access the hopper's inventory, rightclick it."
+def_hopper_enabled.on_place = function(itemstack, placer, pointed_thing)
 	local upos  = pointed_thing.under
 	local apos = pointed_thing.above
 
@@ -110,46 +152,42 @@ Hoppers interact with containers the following way:
 		itemstack:take_item()
 	end
 	return itemstack
+end
+def_hopper_enabled.mesecons = {
+	effector = {
+		action_on = function(pos, node)
+			minetest.swap_node(pos, {name="mcl_hoppers:hopper_disabled", param2=node.param2})
 		end,
+	},
+}
 
-	after_dig_node = function(pos, oldnode, oldmetadata, digger)
+minetest.register_node("mcl_hoppers:hopper", def_hopper_enabled)
-		local meta = minetest.get_meta(pos)
+
-		local meta2 = meta
+-- Disabled downwards hopper
-		meta:from_table(oldmetadata)
+local def_hopper_disabled = table.copy(def_hopper)
-		local inv = meta:get_inventory()
+def_hopper_disabled.description = "Disabled Hopper"
-		for i=1,inv:get_size("main") do
+def_hopper_disabled._doc_items_create_entry = false
-			local stack = inv:get_stack("main", i)
+def_hopper_disabled.groups.not_in_creative_inventory = 1
-			if not stack:is_empty() then
+def_hopper_disabled.drop = "mcl_hoppers:hopper"
-				local p = {x=pos.x+math.random(0, 10)/10-0.5, y=pos.y, z=pos.z+math.random(0, 10)/10-0.5}
+def_hopper_disabled.mesecons = {
-				minetest.add_item(p, stack)
+	effector = {
-			end
+		action_off = function(pos, node)
-		end
+			minetest.swap_node(pos, {name="mcl_hoppers:hopper", param2=node.param2})
-		meta:from_table(meta2:to_table())
 		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 mcl_hoppers at "..minetest.pos_to_string(pos))
+
-	end,
+minetest.register_node("mcl_hoppers:hopper_disabled", def_hopper_disabled)
-    on_metadata_inventory_put = function(pos, listname, index, stack, player)
+
-		minetest.log("action", player:get_player_name()..
+
-				" moves stuff to mcl_hoppers 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 mcl_hoppers at "..minetest.pos_to_string(pos))
-	end,
-	sounds = mcl_sounds.node_sound_metal_defaults(),
-	_mcl_blast_resistance = 24,
-	_mcl_hardness = 3,
-})
 
 local on_rotate
 if minetest.get_modpath("screwdriver") then
 	on_rotate = screwdriver.rotate_simple
 end
 
-minetest.register_node("mcl_hoppers:hopper_side", {
+-- Sidewars hopper (base definition)
-	description = "Hopper (Side)",
+local def_hopper_side = {
 	_doc_items_create_entry = false,
 	drop = "mcl_hoppers:hopper",
 	groups = {pickaxey=1, container=2,not_in_creative_inventory=1},
@@ -220,9 +258,36 @@ minetest.register_node("mcl_hoppers:hopper_side", {
 	end,
 	on_rotate = on_rotate,
 	sounds = mcl_sounds.node_sound_metal_defaults(),
+
 	_mcl_blast_resistance = 24,
 	_mcl_hardness = 3,
-})
+}
+
+local def_hopper_side_enabled = table.copy(def_hopper_side)
+def_hopper_side_enabled.description = "Side Hopper"
+def_hopper_side_enabled.mesecons = {
+	effector = {
+		action_on = function(pos, node)
+			minetest.swap_node(pos, {name="mcl_hoppers:hopper_side_disabled", param2=node.param2})
+		end,
+	},
+}
+minetest.register_node("mcl_hoppers:hopper_side", def_hopper_side_enabled)
+
+local def_hopper_side_disabled = table.copy(def_hopper_side)
+def_hopper_side_disabled.description = "Disabled Side Hopper"
+def_hopper_side_disabled.mesecons = {
+	effector = {
+		action_off = function(pos, node)
+			minetest.swap_node(pos, {name="mcl_hoppers:hopper_side", param2=node.param2})
+		end,
+	},
+}
+minetest.register_node("mcl_hoppers:hopper_side_disabled", def_hopper_side_disabled)
+
+--[[ END OF NODE DEFINITIONS ]]
+
+--[[ BEGIN OF ABM DEFINITONS ]]
 
 -- Make hoppers suck in dropped items
 minetest.register_abm({