Add files via upload

breaker.lua

@@ -12,7 +12,7 @@ local break_interval = 1.0
 
 
 local function get_breaker_side (pos, param2, side)
-	local base = nil
+	local base
 
 	if side == "left" then
 		base = { x = -1, y = pos.y, z = 0 }
@@ -138,7 +138,7 @@ local function can_break_node (pos, breakpos)
 			if node_def then
 				-- try tool first
 				local tool = get_tool (pos)
-				local dig_params = nil
+				local dig_params
 
 				if tool then
 					local tool_def = minetest.registered_items[tool:get_name ()]
@@ -516,7 +516,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						minetest.remove_node (pos)
 					end

camera.lua

@@ -121,7 +121,7 @@ local function camera_scan (pos, resolution, distance)
 					local horz = (x - (resolution / 2)) * scale * view
 					local vert = (y - (resolution / 2)) * scale * view
 
-					local tpos = nil
+					local tpos
 					if dir.x ~= 0 then
 						tpos = vector.round ({ x = (dist * dir.x) + pos.x, y = pos.y - vert, z = horz + pos.z })
 					else
@@ -146,9 +146,9 @@ local function camera_scan (pos, resolution, distance)
 							last_color = string.format ("0000%02X", color)
 							image[y][x] = last_color
 						else
-							local node = utils.get_far_node (tpos)
+							local tnode = utils.get_far_node (tpos)
 
-							if node and node.name ~= "air" then
+							if tnode and tnode.name ~= "air" then
 								local color = (((distance - dist) / distance) * 98) + 30
 
 								last_color = string.format ("%02X%02X%02X", color, color, color)
@@ -293,7 +293,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						minetest.remove_node (pos)
 					end

cannon.lua

@@ -29,18 +29,6 @@ end
 
 
 
-local function get_barrel_pos (pos)
-	local barrel = get_cannon_barrel (pos)
-
-	if barrel then
-		return barrel:get_pos ()
-	end
-
-	return nil
-end
-
-
-
 local function get_barrel_angle (pos)
 	local node = minetest.get_node_or_nil (pos)
 	local barrel = get_cannon_barrel (pos)
@@ -181,11 +169,7 @@ end
 
 
 local function aim_barrel_delayed (pos, aimpos)
-	local x = tonumber (aimpos.x) or 0
+	if (tonumber (aimpos.z) or 0) < 1 then
-	local y = tonumber (aimpos.y) or 0
-	local z = tonumber (aimpos.z) or 0
-
-	if z < 1 then
 		return
 	end
 
@@ -230,7 +214,8 @@ local function fire_cannon (pos)
 						if ammo_pos and ammo_angle then
 							local dir = vector.rotate ({ x = 0, y = 0, z = -1 }, ammo_angle)
 							local owner = meta:get_string ("owner")
-							local obj, cancel = nil, false
+							local obj = nil
+							local cancel
 							local spawn_pos = { x = ammo_pos.x + dir.x,
 													  y = ammo_pos.y + dir.y,
 													  z = ammo_pos.z + dir.z }
@@ -464,7 +449,7 @@ local function on_place (itemstack, placer, pointed_thing)
 		minetest.set_node (pos, { name = "lwcomponents:cannon", param1 = 0, param2 = param2 })
 		after_place_node (pos, placer, itemstack, pointed_thing)
 
-		if not utils.is_creative (player) then
+		if not utils.is_creative (placer) then
 			itemstack:set_count (itemstack:get_count () - 1)
 		end
 	end
@@ -499,7 +484,7 @@ local function on_place_locked (itemstack, placer, pointed_thing)
 		minetest.set_node (pos, { name = "lwcomponents:cannon_locked", param1 = 0, param2 = param2 })
 		after_place_node_locked (pos, placer, itemstack, pointed_thing)
 
-		if not utils.is_creative (player) then
+		if not utils.is_creative (placer) then
 			itemstack:set_count (itemstack:get_count () - 1)
 		end
 	end
@@ -621,7 +606,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						on_destruct (pos)
 						minetest.remove_node (pos)

change.log

@@ -53,7 +53,7 @@ v0.1.8
 *	Made changes to lwcomponents.register_spawner api - called function
 	must now set velocity, can use force parameter.
 *	Removed spawning from this mod. Created lwcomponents_spawners to
-	register spawers.
+	register spawners.
 
 
 v0.1.9
@@ -153,3 +153,17 @@ v0.1.25
 *	Improved unescaping item description.
 *	Fixed custom item output from storage.
 *	Added filtering to conduit forms.
+
+
+v0.1.26
+*	Added support for stickblocks to pistons.
+*	Changed description of hoppers to avoid confusion.
+*	Added destroyer.
+*	Cleaned up hopper code.
+*	Fixed recipe for solid conductor blocks.
+
+
+v0.1.27
+*	Bug fixes and code cleanup.
+*	Fixed receptor state in detector.
+*	Improved receptor state in digiswitch.

collector.lua

@@ -316,7 +316,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						on_destruct (pos)
 						minetest.remove_node (pos)

conduit.lua

@@ -300,7 +300,6 @@ local function send_to_target (pos, target, slot)
 				local stack = inv:get_stack ("main", slot)
 
 				if stack and not stack:is_empty () then
-					local name = stack:get_name ()
 					local item = ItemStack (stack)
 
 					target = (target and tostring (target)) or
@@ -447,7 +446,7 @@ local function send_inventory_message (pos)
 
 					if stack and not stack:is_empty () then
 						local name = stack:get_name ()
-						local description = nil
+						local description
 						local custom = false
 						local pallet_index = nil
 						local tstack = stack:to_table ()
@@ -737,7 +736,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						on_destruct (pos)
 						minetest.remove_node (pos)

crafting.lua

@@ -1,5 +1,4 @@
 local utils = ...
-local S = utils.S
 
 
 
@@ -101,6 +100,16 @@ minetest.register_craft( {
 })
 
 
+minetest.register_craft( {
+	output = "lwcomponents:destroyer",
+	recipe = {
+		{ "default:stone", "", "group:wood" },
+		{ "", "default:steel_ingot", "" },
+		{ "group:wood", "", "default:stone" }
+	},
+})
+
+
 minetest.register_craft( {
 	output = "lwcomponents:cannon_shell 10",
 	recipe = {
@@ -437,7 +446,7 @@ end -- utils.digilines_supported and utils.mesecon_supported
 if utils.unifieddyes_supported and utils.mesecon_supported then
 
 minetest.register_craft ({
-	output = "lwcomputers:solid_conductor_off 3",
+	output = "lwcomponents:solid_conductor_off 3",
 	recipe = {
 		{ "default:mese_crystal_fragment", "group:wood", ""},
 		{ "group:wood", "group:wood", "dye:white" },
@@ -446,7 +455,7 @@ minetest.register_craft ({
 
 
 minetest.register_craft ({
-	output = "lwcomputers:solid_horizontal_conductor_off 3",
+	output = "lwcomponents:solid_horizontal_conductor_off 3",
 	recipe = {
 		{ "group:wood", "group:wood", ""},
 		{ "default:mese_crystal_fragment", "group:wood", "dye:white" },

deployer.lua

@@ -145,7 +145,7 @@ local function place_node (item, pos)
 
 				if not result then
 					if utils.settings.alert_handler_errors then
-						minetest.log ("error", "after_place_node handler for "..nodename.." crashed - "..msg)
+						minetest.log ("error", "after_place_node handler for "..stack:get_name ().." crashed - "..msg)
 					end
 				end
 			end
@@ -262,7 +262,7 @@ end
 
 
 
-local function deployer_on (pos, node, slot, range)
+local function deployer_on (pos, _node, slot, range)
 	local node = minetest.get_node (pos)
 
 	range = tonumber (range) or 1
@@ -428,7 +428,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						minetest.remove_node (pos)
 					end

destroyer.lua

@@ -0,0 +1,164 @@
+local utils = ...
+local S = utils.S
+
+
+
+local function trash (pos)
+	local meta = minetest.get_meta (pos)
+	local inv = (meta and meta:get_inventory ()) or nil
+
+	if inv then
+		local stack = inv:get_stack ("trash", 1)
+
+		if stack and not stack:is_empty () then
+			utils.on_destroy (stack)
+
+			inv:set_stack ("trash", 1, nil)
+		end
+	end
+end
+
+
+
+local function trash_delayed (pos)
+	minetest.after (0.1, trash, pos)
+end
+
+
+
+local function after_place_node (pos, placer, itemstack, pointed_thing)
+	local meta = minetest.get_meta (pos)
+
+	if meta then
+		local inv = meta:get_inventory ()
+
+		if inv then
+			meta:set_string ("inventory", "{ trash = { [1] = '' } }")
+			meta:set_string ("formspec",
+				"formspec_version[3]"..
+				"size[11.75,8.5,false]"..
+				"label[5.15,1.0;Destroy]"..
+				"list[context;trash;5.3,1.25;1,1;]"..
+				"list[current_player;main;1.0,2.75;8,4;]"..
+				"listring[]")
+
+			inv:set_size ("trash", 1)
+			inv:set_width ("trash", 1)
+		end
+	end
+
+	utils.pipeworks_after_place (pos)
+
+	-- If return true no item is taken from itemstack
+	return false
+end
+
+
+
+local function on_metadata_inventory_put (pos, listname, index, stack, player)
+	if listname == "trash" then
+		trash_delayed (pos)
+	end
+end
+
+
+
+local function on_metadata_inventory_move (pos, from_list, from_index,
+														 to_list, to_index, count, player)
+	if to_list == "trash" then
+		trash_delayed (pos)
+	end
+end
+
+
+
+local function pipeworks_support ()
+	if utils.pipeworks_supported then
+		return
+		{
+			priority = 100,
+			input_inventory = "trash",
+			connect_sides = { left = 1, right = 1, front = 1, back = 1, bottom = 1, top = 1 },
+
+			insert_object = function (pos, node, stack, direction)
+				local meta = minetest.get_meta (pos)
+				local inv = (meta and meta:get_inventory ()) or nil
+
+				if inv then
+					trash_delayed (pos)
+
+					return inv:add_item ("trash", stack)
+				end
+
+				return stack
+			end,
+
+			can_insert = function (pos, node, stack, direction)
+				local meta = minetest.get_meta (pos)
+				local inv = (meta and meta:get_inventory ()) or nil
+
+				if inv then
+					return inv:room_for_item ("trash", stack)
+				end
+
+				return false
+			end,
+
+			can_remove = function (pos, node, stack, dir)
+				-- returns the maximum number of items of that stack that can be removed
+				return 0
+			end,
+
+			remove_items = function (pos, node, stack, dir, count)
+				-- removes count items and returns them
+				return stack
+			end
+		}
+	end
+
+	return nil
+end
+
+
+
+local destroyer_groups = { cracky = 3 }
+if utils.pipeworks_supported then
+	destroyer_groups.tubedevice = 1
+	destroyer_groups.tubedevice_receiver = 1
+end
+
+
+
+minetest.register_node("lwcomponents:destroyer", {
+	description = S("Destroyer"),
+	drawtype = "normal",
+	tiles = { "lwcomponents_destroyer_top.png", "lwcomponents_destroyer_top.png",
+				 "lwcomponents_destroyer_side.png", "lwcomponents_destroyer_side.png",
+				 "lwcomponents_destroyer_side.png", "lwcomponents_destroyer_side.png" },
+	is_ground_content = false,
+	groups = table.copy (destroyer_groups),
+	sounds = default.node_sound_stone_defaults (),
+	paramtype = "none",
+	param1 = 0,
+	paramtype2 = "none",
+	param2 = 0,
+	floodable = false,
+
+	tube = pipeworks_support (),
+
+	after_place_node = after_place_node,
+	after_dig_node = utils.pipeworks_after_dig,
+	on_metadata_inventory_put = on_metadata_inventory_put,
+	on_metadata_inventory_move = on_metadata_inventory_move,
+})
+
+
+
+utils.hopper_add_container({
+	{"bottom", "lwcomponents:destroyer", "trash"}, -- insert items below from hopper above
+	{"side", "lwcomponents:destroyer", "trash"}, -- insert items from hopper at side
+})
+
+
+
+--

detector.lua

@@ -21,7 +21,12 @@ local function mesecons_on (pos)
 			local node = utils.get_far_node (pos)
 
 			if node then
-				node.param1 = 1
+				if node.name == "lwcomponents:detector_locked_on" then
+					node.name = "lwcomponents:detector_locked_on_on"
+				elseif node.name == "lwcomponents:detector_on" then
+					node.name = "lwcomponents:detector_on_on"
+				end
+
 				minetest.swap_node (pos, node)
 			end
 		end
@@ -40,7 +45,12 @@ local function mesecons_off (pos)
 			local node = utils.get_far_node (pos)
 
 			if node then
-				node.param1 = 0
+				if node.name == "lwcomponents:detector_locked_on_on" then
+					node.name = "lwcomponents:detector_locked_on"
+				elseif node.name == "lwcomponents:detector_on_on" then
+					node.name = "lwcomponents:detector_on"
+				end
+
 				minetest.swap_node (pos, node)
 			end
 		end
@@ -145,7 +155,7 @@ local function get_entity_height (objref)
 		local entity = objref:get_luaentity ()
 
 		if entity and entity.name then
-			def = minetest.registered_entities[entity.name]
+			local def = minetest.registered_entities[entity.name]
 
 			if def and type (def.collisionbox) == "table" and
 				type (def.collisionbox[5]) == "number" then
@@ -343,30 +353,21 @@ end
 
 local function start_detector (pos)
 	local node = minetest.get_node (pos)
-	local meta = minetest.get_meta (pos)
 
-	if node and meta then
+	if node then
 		if node.name == "lwcomponents:detector" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:detector_on"
 
-			if meta then
+			minetest.swap_node (pos, node)
-				node.name = "lwcomponents:detector_on"
+			minetest.get_node_timer (pos):start (detect_interval)
-
+			update_form_spec (pos)
-				minetest.swap_node (pos, node)
-				minetest.get_node_timer (pos):start (detect_interval)
-				update_form_spec (pos)
-			end
 
 		elseif node.name == "lwcomponents:detector_locked" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:detector_locked_on"
 
-			if meta then
+			minetest.swap_node (pos, node)
-				node.name = "lwcomponents:detector_locked_on"
+			minetest.get_node_timer (pos):start (detect_interval)
-
+			update_form_spec (pos)
-				minetest.swap_node (pos, node)
-				minetest.get_node_timer (pos):start (detect_interval)
-				update_form_spec (pos)
-			end
 
 		end
 	end
@@ -376,32 +377,25 @@ end
 
 local function stop_detector (pos)
 	local node = minetest.get_node (pos)
-	local meta = minetest.get_meta (pos)
 
-	if node and meta then
+	if node then
-		if node.name == "lwcomponents:detector_on" then
+		if node.name == "lwcomponents:detector_on" or
-			local meta = minetest.get_meta (pos)
+				node.name == "lwcomponents:detector_on_on" then
+			node.name = "lwcomponents:detector"
 
-			if meta then
+			minetest.swap_node (pos, node)
-				node.name = "lwcomponents:detector"
+			minetest.get_node_timer (pos):stop ()
+			mesecons_off (pos)
+			update_form_spec (pos)
 
-				minetest.swap_node (pos, node)
+		elseif node.name == "lwcomponents:detector_locked_on" or
-				minetest.get_node_timer (pos):stop ()
+				 node.name == "lwcomponents:detector_locked_on_on" then
-				mesecons_off (pos)
+			node.name = "lwcomponents:detector_locked"
-				update_form_spec (pos)
-			end
 
-		elseif node.name == "lwcomponents:detector_locked_on" then
+			minetest.swap_node (pos, node)
-			local meta = minetest.get_meta (pos)
+			minetest.get_node_timer (pos):stop ()
-
+			mesecons_off (pos)
-			if meta then
+			update_form_spec (pos)
-				node.name = "lwcomponents:detector_locked"
-
-				minetest.swap_node (pos, node)
-				minetest.get_node_timer (pos):stop ()
-				mesecons_off (pos)
-				update_form_spec (pos)
-			end
 
 		end
 	end
@@ -565,7 +559,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						on_destruct (pos)
 						minetest.remove_node (pos)
@@ -698,16 +691,31 @@ end
 
 
 
-local function mesecon_support ()
+local function mesecon_support_on ()
 	if utils.mesecon_supported then
 		return
 		{
 			receptor =
 			{
 				state = utils.mesecon_state_on,
-				rules = function (node)
+				rules = utils.mesecon_default_rules
-					return (node.param1 == 0 and { }) or utils.mesecon_default_rules
+			}
-				end
+		}
+	end
+
+	return nil
+end
+
+
+
+local function mesecon_support_off ()
+	if utils.mesecon_supported then
+		return
+		{
+			receptor =
+			{
+				state = utils.mesecon_state_off,
+				rules = utils.mesecon_default_rules
 			}
 		}
 	end
@@ -732,7 +740,7 @@ minetest.register_node("lwcomponents:detector", {
 	drop = "lwcomponents:detector",
 	_digistuff_channelcopier_fieldname = "channel",
 
-	mesecons = mesecon_support (),
+	mesecons = mesecon_support_off (),
 	digiline = digilines_support (),
 
 	on_destruct = on_destruct,
@@ -761,7 +769,7 @@ minetest.register_node("lwcomponents:detector_locked", {
 	drop = "lwcomponents:detector_locked",
 	_digistuff_channelcopier_fieldname = "channel",
 
-	mesecons = mesecon_support (),
+	mesecons = mesecon_support_off (),
 	digiline = digilines_support (),
 
 	on_destruct = on_destruct,
@@ -790,7 +798,7 @@ minetest.register_node("lwcomponents:detector_on", {
 	drop = "lwcomponents:detector",
 	_digistuff_channelcopier_fieldname = "channel",
 
-	mesecons = mesecon_support (),
+	mesecons = mesecon_support_off (),
 	digiline = digilines_support (),
 
 	on_destruct = on_destruct,
@@ -819,7 +827,65 @@ minetest.register_node("lwcomponents:detector_locked_on", {
 	drop = "lwcomponents:detector_locked",
 	_digistuff_channelcopier_fieldname = "channel",
 
-	mesecons = mesecon_support (),
+	mesecons = mesecon_support_off (),
+	digiline = digilines_support (),
+
+	on_destruct = on_destruct,
+	on_receive_fields = on_receive_fields,
+	can_dig = can_dig,
+	after_place_node = after_place_node_locked,
+	on_blast = on_blast,
+	on_timer = on_timer,
+	on_rightclick = on_rightclick
+})
+
+
+
+minetest.register_node("lwcomponents:detector_on_on", {
+	description = S("Detector"),
+	tiles = { "lwdetector_face_on.png", "lwdetector_face_on.png", "lwdetector.png",
+				 "lwdetector.png", "lwdetector.png", "lwdetector_face_on.png"},
+	is_ground_content = false,
+	groups = { cracky = 3, not_in_creative_inventory = 1 },
+	sounds = default.node_sound_stone_defaults (),
+	paramtype = "none",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 1,
+	floodable = false,
+	drop = "lwcomponents:detector",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support_on (),
+	digiline = digilines_support (),
+
+	on_destruct = on_destruct,
+	on_receive_fields = on_receive_fields,
+	can_dig = can_dig,
+	after_place_node = after_place_node,
+	on_blast = on_blast,
+	on_timer = on_timer,
+	on_rightclick = on_rightclick
+})
+
+
+
+minetest.register_node("lwcomponents:detector_locked_on_on", {
+	description = S("Detector (locked)"),
+	tiles = { "lwdetector_face_on.png", "lwdetector_face_on.png", "lwdetector.png",
+				 "lwdetector.png", "lwdetector.png", "lwdetector_face_on.png"},
+	is_ground_content = false,
+	groups = { cracky = 3, not_in_creative_inventory = 1 },
+	sounds = default.node_sound_stone_defaults (),
+	paramtype = "none",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 1,
+	floodable = false,
+	drop = "lwcomponents:detector_locked",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support_on (),
 	digiline = digilines_support (),
 
 	on_destruct = on_destruct,

digiswitch.lua

@@ -8,8 +8,6 @@ if utils.digilines_supported and utils.mesecon_supported then
 
 
 local function get_mesecon_rule_for_side (side)
-	local base = nil
-
 	if side == "white" then
 		return { { x = 0, y = 1, z = 0 } }
 	elseif side == "black" then
@@ -108,12 +106,59 @@ end
 
 
 
+local function get_powered_rules (node)
+	local rules = { }
+
+	if is_side_on (node.param1, "switch") then
+		rules = table.copy (utils.mesecon_default_rules)
+
+		if is_side_on (node.param1, "white") then
+			rules[#rules + 1] = get_mesecon_rule_for_side ("white")[1]
+		end
+
+		if is_side_on (node.param1, "black") then
+			rules[#rules + 1] = get_mesecon_rule_for_side ("black")[1]
+		end
+	else
+		local sides =
+		{
+			"white",
+			"black",
+			"red",
+			"green",
+			"blue",
+			"yellow",
+		}
+
+		for _, side in ipairs (sides) do
+			if is_side_on (node.param1, side) then
+				rules[#rules + 1] = get_mesecon_rule_for_side (side)[1]
+			end
+		end
+	end
+
+	return rules
+end
+
+
+
+local function get_node_name (node)
+	if node.param1 ~= 0 then
+		return "lwcomponents:digiswitch_on"
+	end
+
+	return "lwcomponents:digiswitch"
+end
+
+
+
 local function switch_on (pos, side)
 	utils.mesecon_receptor_on (pos, get_mesecon_rule_for_side (side))
 
 	local node = utils.get_far_node (pos)
 	if node then
 		node.param1 = set_side_bit (node.param1, side, true)
+		node.name = get_node_name (node)
 		minetest.swap_node (pos, node)
 	end
 end
@@ -126,6 +171,7 @@ local function switch_off (pos, side)
 	local node = utils.get_far_node (pos)
 	if node then
 		node.param1 = set_side_bit (node.param1, side, false)
+		node.name = get_node_name (node)
 		minetest.swap_node (pos, node)
 	end
 end
@@ -188,36 +234,41 @@ end
 
 
 local function mesecon_support ()
+	return
+	{
+		receptor =
+		{
+			state = mesecon.state.off,
+			rules =
+			{
+				{ x =  0, y =  0, z = -1 },
+				{ x =  1, y =  0, z =  0 },
+				{ x = -1, y =  0, z =  0 },
+				{ x =  0, y =  0, z =  1 },
+				{ x =  1, y =  1, z =  0 },
+				{ x =  1, y = -1, z =  0 },
+				{ x = -1, y =  1, z =  0 },
+				{ x = -1, y = -1, z =  0 },
+				{ x =  0, y =  1, z =  1 },
+				{ x =  0, y = -1, z =  1 },
+				{ x =  0, y =  1, z = -1 },
+				{ x =  0, y = -1, z = -1 },
+				{ x =  0, y =  1, z =  0 },
+				{ x =  0, y = -1, z =  0 }
+			}
+		},
+	}
+end
+
+
+
+local function mesecon_support_on ()
 	return
 	{
 		receptor =
 		{
 			state = mesecon.state.on,
-
+			rules = get_powered_rules
-			rules = function (node)
-				if is_side_on (node.param1, "switch") then
-					return utils.mesecon_default_rules
-				end
-
-				local r = { }
-				local sides =
-				{
-					"white",
-					"black",
-					"red",
-					"green",
-					"blue",
-					"yellow",
-				}
-
-				for _, side in ipairs (sides) do
-					if is_side_on (node.param1, side) then
-						r[#r + 1] = get_mesecon_rule_for_side (side)[1]
-					end
-				end
-
-				return r
-			end
 		},
 	}
 end
@@ -243,7 +294,15 @@ end
 
 
 local function on_destruct (pos)
-	utils.mesecon_receptor_off (pos, get_mesecon_rule_for_side ())
+	local node = utils.get_far_node (pos)
+
+	if node then
+		local rules = get_powered_rules (node)
+
+		if #rules > 0 then
+			utils.mesecon_receptor_off (pos, rules)
+		end
+	end
 end
 
 
@@ -288,4 +347,32 @@ minetest.register_node ("lwcomponents:digiswitch", {
 
 
 
+minetest.register_node ("lwcomponents:digiswitch_on", {
+   description = S("Digilines Switch"),
+   tiles = { "lwdigiswitch_white.png", "lwdigiswitch_black.png",
+				 "lwdigiswitch_green.png", "lwdigiswitch_red.png",
+				 "lwdigiswitch_yellow.png", "lwdigiswitch_blue.png" },
+   sunlight_propagates = false,
+   drawtype = "normal",
+   node_box = {
+      type = "fixed",
+      fixed = {
+         {-0.5, -0.5, -0.5, 0.5, 0.5, 0.5},
+      }
+   },
+	paramtype = "none",
+	param1 = 0,
+	groups = { cracky = 2, oddly_breakable_by_hand = 2, not_in_creative_inventory = 1 },
+	sounds = default.node_sound_stone_defaults (),
+	mesecons = mesecon_support_on (),
+	digiline = digilines_support (),
+	_digistuff_channelcopier_fieldname = "channel",
+
+   on_construct = on_construct,
+   on_destruct = on_destruct,
+	on_receive_fields = on_receive_fields,
+})
+
+
+
 end -- utils.digilines_supported and utils.mesecon_supported

dispenser.lua

@@ -139,7 +139,8 @@ local function dispense_item (pos, node, slot)
 						item:set_count (1)
 						local spawn_pos = dispense_pos (pos, node)
 						local owner = meta:get_string ("owner")
-						local obj, cancel = nil, false
+						local obj = nil
+						local cancel
 
 						if utils.settings.spawn_mobs then
 							obj, cancel = utils.spawn_registered (name,
@@ -318,7 +319,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						minetest.remove_node (pos)
 					end

docs/destroyer.txt

@@ -0,0 +1,11 @@
+Destroyer
+---------
+
+Destroyers dispose of items placed in their single slot inventory (basically
+a trash). Items can be push into destroyers with tubes from pipeworks or
+hoppers attached to the top or sides, so they are suitable for automation.
+Items cannot be pulled out of destroyers.
+
+Note that destroyers act when an item is placed in their inventory, as with
+storage indexers it is best to use the hopper from this mod to feed them
+in multi-player games.

docs/digiswitch.txt

@@ -1,21 +1,31 @@
-DigiSwitch
+Digilines Switch
-----------
+----------------
 * This block is only available if both digilines and mesecons are loaded.
 
-Digiswitches act as both a digilines message target and a digilines cable,
+Digilines switches act as both a digilines message target and a digilines
-as well as a mesecons power source. They can be placed beside each other
+cable, as well as a mesecons power source. They can be placed beside each
-to form a bank, horizontally or vertically.
+other to form a bank, horizontally or vertically.
 
-Right click the digiswitch to give it a channel.
+Right click the digilines switch to give it a channel.
 
-Mesecon power can be delivered at 6 sides of the digiswitch, the adjacent
+Mesecon power can be delivered at 6 sides of the digilines switch, the
-4 in the (x, z), above and below. Around the connector on these sides are a
+adjacent 4 in the (x, z), above and below. Around the connector on these
-colored border indicating the side. The sides are named "red", "green",
+sides are a colored border indicating the side. The sides are named "red",
-"blue", "yellow", "white" and "black".
+"green", "blue", "yellow", "white" and "black".
 
-The digilines message sent to the digiswitch dictates the action, "on" or
+The digilines message sent to the digilines switch dictates the action,
-"off". The action can be followed with the side to act upon, separated by
+"on" or "off". The action can be followed with the side to act upon,
-a space. eg. "on white". If a side is stated only that side is acted upon.
+separated by a space. eg. "on white". If a side is stated only that side
-If the side is omitted (or is invalid) all 6 sides are acted upon. If the
+is acted upon. If the side is omitted (or is invalid) all 6 sides are
-side name "switch" is give the power is supplied the same as a mesecons
+acted upon. If the side name "switch" is given the power is supplied the
-switch (all horizontal sides, one below, this height and one above).
+same as a mesecons switch (all horizontal sides, one below, this height
+and one above).
+
+A note on connecting mesecons wires. Mesecons does not appear to allow
+for some sides to be on and some off on receptors (power sources). When
+any side is on the state of the digilines switch is on, but only rules for
+the powered sides are defined. This means if wires are placed while in
+this state only the sides that are powered will connect. When no side is
+powered the state of the digilines switch is off with rules defined for
+all potentially connected sides. In this state (as when first placed)
+mesecons wires will connect correctly.

docs/pistons.txt

@@ -7,6 +7,18 @@ of the pusher when extended. Sticky piston draw back a single node in
 front of the pusher when retracted. Piston also act as a digilines
 conductor.
 
+Sticky blocks are also supported. Any sticky block structure attached to
+the pusher will also be pushed, up to the maximum setting. Any free blocks
+(not attached to the sticky blocks) in front will be pushed up to the
+maximum setting. This limit is from the pusher, not the sticky block. When
+retracting a maximum of one free block depth will be pulled. Any sticky
+block structure extending laterally by more than half the maximum limit
+will not be pushed.
+
+Any entities in front of or standing on a moving node are pushed/pulled,
+if nothing is in the way of their base position. Any entities against a
+sticky face are not pulled.
+
 UI
 
 Channel - digilines channel of piston.

dropper.lua

@@ -254,7 +254,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						minetest.remove_node (pos)
 					end

dummy_player.lua

@@ -22,8 +22,8 @@ local function get_dummy_player (as_player, name, pos, look_dir, controls, veloc
 	end
 
 
-	object.set_pos = function (self, pos)
+	object.set_pos = function (self, _pos)
-		obj_pos = vector.new (pos)
+		obj_pos = vector.new (_pos)
 	end
 
 
@@ -37,8 +37,8 @@ local function get_dummy_player (as_player, name, pos, look_dir, controls, veloc
 	end
 
 
-	object.move_to = function (self, pos, continuous)
+	object.move_to = function (self, _pos, continuous)
-		obj_pos = vector.new (pos)
+		obj_pos = vector.new (_pos)
 	end
 
 
@@ -55,8 +55,8 @@ local function get_dummy_player (as_player, name, pos, look_dir, controls, veloc
 	end
 
 
-	object.set_hp = function (self, hp, reason)
+	object.set_hp = function (self, _hp, reason)
-		obj_hp = hp
+		obj_hp = _hp
 	end
 
 
@@ -134,8 +134,8 @@ local function get_dummy_player (as_player, name, pos, look_dir, controls, veloc
 	end
 
 
-	object.set_properties = function (self, properties)
+	object.set_properties = function (self, _properties)
-		obj_properties = table.copy (properties or { })
+		obj_properties = table.copy (_properties or { })
 	end
 
 
@@ -237,7 +237,6 @@ local function get_dummy_player (as_player, name, pos, look_dir, controls, veloc
 
 
 	object.set_fov = function (self, fov, is_multiplier, transition_time)
-		obj_breath = value
 	end
 
 

explode.lua

@@ -249,9 +249,6 @@ local function explode_entities (pos, radius, damage, drops)
 									if def and def.on_rightclick then
 										def.on_rightclick (obj:get_pos (), ItemStack (), child)
 
-										local ent_damage = ((radius - dist) / radius * damage / 2) + (damage / 2)
-										local reason = { type = "set_hp", from = "lwcomponents" }
-
 										child:add_velocity (vel)
 										child:set_hp (child:get_hp () - ent_damage, reason)
 									end

fan.lua

@@ -45,7 +45,6 @@ end
 
 
 local function blow (pos)
-	local meta = minetest.get_meta (pos)
 	local node = minetest.get_node (pos)
 	local dir = direction_vector (node)
 	local reach = 5
@@ -211,7 +210,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						minetest.remove_node (pos)
 					end

force_field.lua

@@ -136,7 +136,6 @@ local function check_fuel (pos, used)
 		end
 
 		if used > power then
-			power = 0
 			meta:set_float ("power", 0)
 
 			return false
@@ -598,7 +597,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						on_destruct (pos)
 						minetest.remove_node (pos)

hologram.lua

@@ -126,14 +126,14 @@ local function draw_map (pos, map)
 					end
 
 					if draw then
-						local holonode = hologram_block[line[z]]
+						local colornode = hologram_block[line[z]]
 
 						if node then
 							utils.destroy_node (holopos)
 						end
 
-						if holonode then
+						if colornode then
-							minetest.set_node (holopos, { name = holonode.node })
+							minetest.set_node (holopos, { name = colornode.node })
 
 							local nodemeta = minetest.get_meta (holopos)
 
@@ -231,7 +231,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						minetest.remove_node (pos)
 					end

hopper.lua

@@ -149,6 +149,29 @@ end
 
 
 
+local function call_allow_metadata_inventory_put (def, pos, listname, index, stack, placer)
+	if def.allow_metadata_inventory_put and placer then
+		local result, count = pcall (def.allow_metadata_inventory_put,
+											  pos, listname, index, stack, placer)
+
+		if result then
+			return count
+		end
+	end
+
+	return utils.settings.default_stack_max
+end
+
+
+
+local function call_on_metadata_inventory_put (def, pos, listname, index, stack, placer)
+	if def.on_metadata_inventory_put and placer then
+		pcall (def.on_metadata_inventory_put, pos, listname, index, stack, placer)
+	end
+end
+
+
+
 local function place_item (dest_pos, dest_node, dest_inv_name, stack, placer)
 	local dest_def = minetest.registered_nodes[dest_node.name]
 
@@ -169,16 +192,12 @@ local function place_item (dest_pos, dest_node, dest_inv_name, stack, placer)
 			if inv_stack and not inv_stack:is_empty () and
 				utils.is_same_item (inv_stack, stack) and
 				inv_stack:get_count () < inv_stack:get_stack_max () and
-				(dest_def.allow_metadata_inventory_put == nil or
+				(call_allow_metadata_inventory_put (dest_def, dest_pos, dest_inv_name, slot, stack, placer) > 0) then
-				 placer == nil or
-				 dest_def.allow_metadata_inventory_put(dest_pos, dest_inv_name, slot, stack, placer) > 0) then
 
 				inv_stack:set_count (inv_stack:get_count () + 1)
 				dest_inv:set_stack (dest_inv_name, slot, inv_stack)
 
-				if dest_def.on_metadata_inventory_put and placer then
+				call_on_metadata_inventory_put (dest_def, dest_pos, dest_inv_name, slot, stack, placer)
-					dest_def.on_metadata_inventory_put (dest_pos, dest_inv_name, slot, stack, placer)
-				end
 
 				return true
 			end
@@ -189,15 +208,11 @@ local function place_item (dest_pos, dest_node, dest_inv_name, stack, placer)
 			local inv_stack = dest_inv:get_stack (dest_inv_name, slot)
 
 			if not inv_stack or inv_stack:is_empty () and
-				(dest_def.allow_metadata_inventory_put == nil or
+				(call_allow_metadata_inventory_put (dest_def, dest_pos, dest_inv_name, slot, stack, placer) > 0) then
-				 placer == nil or
-				 dest_def.allow_metadata_inventory_put(dest_pos, dest_inv_name, slot, stack, placer) > 0) then
 
 				dest_inv:set_stack (dest_inv_name, slot, stack)
 
-				if dest_def.on_metadata_inventory_put and placer then
+				call_on_metadata_inventory_put (dest_def, dest_pos, dest_inv_name, slot, stack, placer)
-					dest_def.on_metadata_inventory_put (dest_pos, dest_inv_name, slot, stack, placer)
-				end
 
 				return true
 			end
@@ -209,6 +224,28 @@ end
 
 
 
+local function get_player_object (pos)
+	local meta = minetest.get_meta (pos)
+	local placer_name = "<unknown>"
+
+	if meta then
+		placer_name = meta:get_string ("placer_name")
+		local placer = minetest.get_player_by_name (placer_name)
+
+		if placer then
+			return placer
+		end
+
+		if placer_name == "" then
+			placer_name = "<unknown>"
+		end
+	end
+
+	return utils.get_dummy_player (true, placer_name)
+end
+
+
+
 local function run_hopper_action (pos)
 	local node = utils.get_far_node (pos)
 	local dest_dir = get_output_dir (node)
@@ -221,13 +258,10 @@ local function run_hopper_action (pos)
 			local registered_dest_invs = hopper.get_registered_inventories_for (dest_node.name)
 
 			if registered_dest_invs then
-				local meta = minetest.get_meta (pos)
+				local placer = get_player_object (pos)
-				local placer_name = (meta and meta:get_string ("placer_name")) or nil
-				local placer = (placer_name and minetest.get_player_by_name (placer_name)) or
-									utils.get_dummy_player (true, placer_name or "<unknown>")
 				local src_pos = vector.add (pos, get_input_dir (node))
-				local drop = nil
+				local drop
-				local stack = nil
+				local stack
 				local slot = nil
 				local src_inv_name = nil
 
@@ -310,7 +344,7 @@ end
 
 
 minetest.register_node ("lwcomponents:hopper", {
-   description = S("Hopper"),
+   description = S("Conduit Hopper"),
    tiles = { "lwcomponents_hopper_top.png", "lwcomponents_hopper_vert_spout.png",
 				 "lwcomponents_hopper_side.png", "lwcomponents_hopper_side.png",
 				 "lwcomponents_hopper_side.png", "lwcomponents_hopper_side.png" },
@@ -359,7 +393,7 @@ minetest.register_node ("lwcomponents:hopper", {
 
 
 minetest.register_node ("lwcomponents:hopper_horz", {
-   description = S("Hopper"),
+   description = S("Conduit Hopper"),
    tiles = { "lwcomponents_hopper_top.png", "lwcomponents_hopper_bottom.png",
 				 "lwcomponents_hopper_side.png", "lwcomponents_hopper_side.png",
 				 "lwcomponents_hopper_side_spout.png", "lwcomponents_hopper_side.png" },

init.lua

@@ -1,4 +1,4 @@
-local version = "0.1.25"
+local version = "0.1.27"
 local mod_storage = minetest.get_mod_storage ()
 
 
@@ -17,7 +17,7 @@ local modpath = minetest.get_modpath ("lwcomponents")
 
 loadfile (modpath.."/settings.lua") (utils)
 utils.get_dummy_player = loadfile (modpath.."/dummy_player.lua") ()
-loadfile (modpath.."/utils.lua") (utils, mod_storage)
+loadfile (modpath.."/utils.lua") (utils)
 loadfile (modpath.."/explode.lua") (utils)
 loadfile (modpath.."/api.lua") (utils)
 utils.connections = loadfile (modpath.."/connections.lua") ()
@@ -41,6 +41,7 @@ loadfile (modpath.."/through_wire.lua") (utils)
 loadfile (modpath.."/camera.lua") (utils)
 loadfile (modpath.."/storage.lua") (utils)
 loadfile (modpath.."/force_field.lua") (utils)
+loadfile (modpath.."/destroyer.lua") (utils)
 loadfile (modpath.."/extras.lua") (utils)
 loadfile (modpath.."/digiswitch.lua") (utils)
 loadfile (modpath.."/movefloor.lua") (utils)

movefloor.lua

@@ -237,7 +237,7 @@ local function move_entities (list, move, players)
 	for _, entry in ipairs (list) do
 		if entry.obj then
 			if players or not entry.obj:is_player () then
-				local pos = nil
+				local pos
 
 				if entry.obj:is_player () then
 					pos = vector.add (entry.pos, { x = move.x, y = move.y + 0.1, z = move.z })
@@ -311,7 +311,7 @@ local function move_nodes (list, move)
 			end
 
 			if list[i].timeout > 0 then
-				timer = minetest.get_node_timer (pos)
+				local timer = minetest.get_node_timer (pos)
 
 				if timer then
 					timer:set (list[i].timeout, list[i].elapsed)
@@ -334,7 +334,7 @@ local function move_nodes (list, move)
 			end
 
 			if list[i].timeout > 0 then
-				timer = minetest.get_node_timer (pos)
+				local timer = minetest.get_node_timer (pos)
 
 				if timer then
 					timer:set (list[i].timeout, list[i].elapsed)

pistons.lua

@@ -43,33 +43,36 @@ end
 
 
 
-local function push_entities (pos, vec)
+local function push_entities (pos, movedir, entity_list, upper_limit)
-	local tpos = vector.add (pos, vec)
+	local objects = minetest.get_objects_inside_radius (pos, 1.5)
-	local tnode = utils.get_far_node (tpos)
-	local can_move = false
 
-	if tnode then
+	for _, obj in ipairs (objects) do
-		if tnode.name == "air" then
+		if obj.get_pos and obj.move_to then
-			can_move = true
+			local opos = obj:get_pos ()
-		else
-			local tdef = utils.find_item_def (tnode.name)
 
-			can_move = tdef and not tdef.walkable
+			if opos.x > (pos.x - 0.5) and opos.x < (pos.x + 0.5) and
-		end
-	end
-
-	if can_move then
-		local object = minetest.get_objects_inside_radius (pos, 1.5)
-
-		for j = 1, #object do
-			if object[j].get_pos then
-				local opos = object[j]:get_pos ()
-
-				if opos.x > (pos.x - 0.5) and opos.x < (pos.x + 0.5) and
 					opos.z > (pos.z - 0.5) and opos.z < (pos.z + 0.5) and
-					opos.y > (pos.y - 0.5) and opos.y < (pos.y + 0.5) then
+					opos.y >= (pos.y - 0.5) and opos.y < (pos.y + upper_limit) then
 
-					object[j]:set_pos (vector.add (opos, vec))
+				local newpos = vector.add (opos, movedir)
+				local node = utils.get_far_node (vector.round (newpos))
+				local def = (node and utils.find_item_def (node.name)) or nil
+
+				if (node.name == "air") or (def and not def.walkable) then
+
+					entity_list[#entity_list + 1] =
+					{
+						obj = obj,
+						pos = newpos
+					}
+
+					obj:move_to (newpos)
+				else
+					entity_list[#entity_list + 1] =
+					{
+						obj = obj,
+						pos = opos
+					}
 				end
 			end
 		end
@@ -78,76 +81,261 @@ end
 
 
 
-local function push_nodes (pos, extent)
+local function update_player_position (player_list)
-	local node = utils.get_far_node (pos)
+	for _, entry in ipairs (player_list) do
+		local player = minetest.get_player_by_name (entry.name)
 
-	if node then
+		if player then
-		local vec = direction_vector (node)
+			local pos = player:get_pos ()
-		local last = vector.add (pos, vector.multiply (vec, extent))
-		local maxnodes = utils.settings.max_piston_nodes + 1
-		local count = 0
 
-		for i = 1, maxnodes do
+			if pos.y < entry.pos.y then
-			local tnode = utils.get_far_node (last)
+				pos.y = entry.pos.y
-
+				player:set_pos (pos)
-			if not tnode then
-				return false
 			end
+		end
+	end
+end
 
-			local tdef = utils.find_item_def (tnode.name)
 
-			if tnode.name == "air" or (tdef and not tdef.walkable) then
-				count = i - 1
-				break
-			end
 
-			if i == maxnodes then
+local function queue_player_update (entity_list, movedir)
-				return false
+	local players = { }
-			end
 
-			last = vector.add (last, vec)
+	for _, entry in ipairs (entity_list) do
+		if entry.obj and entry.obj:is_player () then
+			players[#players + 1] =
+			{
+				pos = entry.pos,
+				name = entry.obj:get_player_name ()
+			}
+		end
+	end
+
+	if #players > 0 then
+		minetest.after(0.1, update_player_position, players)
+	end
+end
+
+
+
+local rules_alldirs =
+{
+	{x =  1, y =  0,  z =  0},
+	{x = -1, y =  0,  z =  0},
+	{x =  0, y =  1,  z =  0},
+	{x =  0, y = -1,  z =  0},
+	{x =  0, y =  0,  z =  1},
+	{x =  0, y =  0,  z = -1},
+}
+
+
+
+local function add_pos_to_list (pos, dir, movedir, node_list, check_list)
+	local hash = minetest.hash_node_position (pos)
+
+	if not check_list[hash] then
+		if minetest.is_protected (pos, "") then
+			return 0
 		end
 
-		push_entities (last, vec)
+		local node = utils.get_far_node (pos)
 
-		for i = 1, count, 1 do
+		if not node then
-			local cpos = vector.subtract (last, vec)
+			return 0
-			local cnode = utils.get_far_node (cpos)
+		end
-			local cmeta = minetest.get_meta (cpos)
 
-			if not cnode or not cmeta then
+		local def = utils.find_item_def (node.name)
-				return false
+
+		if node.name == "air" or (def and def.buildable_to) then
+			return 1
+		end
+
+		local meta = minetest.get_meta (pos)
+		local timer = minetest.get_node_timer (pos)
+
+		check_list[hash] = true
+
+		node_list[#node_list + 1] =
+		{
+			node = node,
+			def = def,
+			pos = vector.new (pos),
+			newpos = vector.add (pos, movedir),
+			meta = (meta and meta:to_table ()) or { },
+			node_timer =
+			{
+				(timer and timer:get_timeout ()) or 0,
+				(timer and timer:get_elapsed ()) or 0
+			}
+		}
+
+		if def.mvps_sticky then
+			local sides = def.mvps_sticky (pos, node)
+
+			for _, r in ipairs (sides) do
+				if add_pos_to_list (r, dir, movedir, node_list, check_list) == 0 then
+					return 0
+				end
 			end
+		end
 
-			local tmeta = cmeta:to_table ()
+		-- If adjacent node is sticky block and connects add that
-			local ctimer = minetest.get_node_timer (cpos)
+		-- position to the connected table
-			local ctimeout = (ctimer and ctimer:get_timeout ()) or 0
+		for _, r in ipairs (rules_alldirs) do
-			local celapsed = (ctimer and ctimer:get_elapsed ()) or 0
+			local apos = vector.add (pos, r)
+			local anode = utils.get_far_node (apos)
+			local adef = (anode and minetest.registered_nodes[anode.name]) or nil
 
-			push_entities (cpos, vec)
+			if adef and adef.mvps_sticky then
+				local sides = adef.mvps_sticky (apos, anode)
 
-			minetest.remove_node (cpos)
+				-- connects to this position?
-			minetest.set_node (last, cnode)
+				for _, link in ipairs (sides) do
+					if vector.equals (link, pos) then
+						if add_pos_to_list (apos, dir, movedir, node_list, check_list) == 0 then
+							return 0
+						end
 
-			if tmeta then
+						break
-				cmeta = minetest.get_meta (last)
+					end
+				end
+			end
+		end
+	end
 
-				if not cmeta then
+	return 2
+end
+
+
+
+local function node_list_last_pos (pos, node_list, length)
+	local movedir = node_list.movedir
+	local base_pos = node_list.base_pos
+
+	if movedir then
+		if movedir.x ~= 0 then
+			return vector.new ({
+				x = base_pos.x + (movedir.x * length),
+				y = pos.y,
+				z = pos.z
+			})
+		elseif movedir.z ~= 0 then
+			return vector.new ({
+				x = pos.x,
+				y = pos.y,
+				z = base_pos.z + (movedir.z * length)
+			})
+		elseif movedir.y ~= 0 then
+			return vector.new ({
+				x = pos.x,
+				y = base_pos.y + (movedir.y * length),
+				z = pos.z
+			})
+		end
+	end
+
+	return pos
+end
+
+
+
+local function get_node_list (pos, extent, length, maxnodes, pushing, node_list, check_list)
+	local node = utils.get_far_node (pos)
+	node_list = node_list or { }
+	check_list = check_list or { }
+
+	if node then
+		local dir = vector.round (direction_vector (node))
+		local movedir = vector.round ((pushing and dir) or vector.multiply (dir, -1))
+
+		node_list.dir = dir
+		node_list.movedir = movedir
+		node_list.base_pos = vector.add (pos, vector.multiply (dir, extent))
+		node_list.length = length
+		node_list.maxnodes = maxnodes
+
+		check_list[minetest.hash_node_position (vector.add (pos, vector.multiply (dir, extent - 1)))] = true
+
+		for i = 0, length - 1, 1 do
+			local tpos = vector.add (pos, vector.multiply (dir, extent + i))
+
+			local result = add_pos_to_list (tpos, dir, movedir, node_list, check_list)
+
+			if result == 0 then
+				return false
+			elseif result == 1 then
+				break
+			end
+		end
+
+		-- get any ahead of stickyblocks to limit
+		local copy_list = table.copy (node_list)
+
+		for _, n in ipairs (copy_list) do
+			local hash = minetest.hash_node_position (n.newpos)
+
+			if not check_list[hash] then
+				local last_pos = node_list_last_pos (n.newpos, node_list, length)
+				local this_pos = vector.new (n.newpos)
+				local count = 0
+
+				while not vector.equals (this_pos, last_pos) and count < length do
+					local result = add_pos_to_list (this_pos, dir, movedir, node_list, check_list)
+
+					if result == 0 then
+						return false
+					elseif result == 1 then
+						break
+					end
+
+					count = count + 1
+					this_pos = vector.add (this_pos, movedir)
+				end
+			end
+		end
+
+		return true
+	end
+
+	return false
+end
+
+
+
+local function can_node_list_move (node_list, check_list)
+	local movedir = node_list.movedir
+	local radius = math.floor (node_list.maxnodes / 2)
+	local base_pos = node_list.base_pos
+
+	if movedir then
+		for _, n in ipairs (node_list) do
+			-- check connected stickyblocks don't extend too far laterally
+			if movedir.x ~= 0 then
+				if math.abs (n.pos.y - base_pos.y) > radius or
+						math.abs (n.pos.z - base_pos.z) > radius then
 					return false
 				end
-
+			elseif movedir.z ~= 0 then
-				cmeta:from_table (tmeta)
+				if math.abs (n.pos.y - base_pos.y) > radius or
-			end
+						math.abs (n.pos.x - base_pos.x) > radius then
-
+					return false
-			if ctimeout > 0 then
+				end
-				ctimer = minetest.get_node_timer (last)
+			elseif movedir.y ~= 0 then
-
+				if math.abs (n.pos.x - base_pos.x) > radius or
-				if ctimer then
+						math.abs (n.pos.z - base_pos.z) > radius then
-					ctimer:set (ctimeout, celapsed)
+					return false
 				end
 			end
 
-			last = cpos
+			-- check moving to is clear
+			if not check_list[minetest.hash_node_position (n.newpos)] then
+				local node = utils.get_far_node (n.newpos)
+				local def = (node and utils.find_item_def (node.name)) or nil
+
+				if node.name ~= "air" and def and not def.buildable_to then
+					return false
+				end
+			end
 		end
 	end
 
@@ -156,47 +344,239 @@ end
 
 
 
-local function pull_node (pos, extent)
+local function sort_node_list (node_list)
-	local node = utils.get_far_node (pos)
+	local movedir = node_list.movedir
 
-	if node then
+	if movedir then
-		local vec = direction_vector (node)
+		if movedir.x > 0 then
-		local cpos = vector.add (pos, vector.multiply (vec, extent))
+			table.sort (node_list , function (n1, n2)
-		local cnode = utils.get_far_node (cpos)
+				return n1.pos.x > n2.pos.x
-		local cdef = cnode and utils.find_item_def (cnode.name)
+			end)
+		elseif movedir.x < 0 then
+			table.sort (node_list , function (n1, n2)
+				return n1.pos.x < n2.pos.x
+			end)
+		elseif movedir.z > 0 then
+			table.sort (node_list , function (n1, n2)
+				return n1.pos.z > n2.pos.z
+			end)
+		elseif movedir.z < 0 then
+			table.sort (node_list , function (n1, n2)
+				return n1.pos.z < n2.pos.z
+			end)
+		elseif movedir.y > 0 then
+			table.sort (node_list , function (n1, n2)
+				return n1.pos.y > n2.pos.y
+			end)
+		elseif movedir.y < 0 then
+			table.sort (node_list , function (n1, n2)
+				return n1.pos.y < n2.pos.y
+			end)
+		end
+	end
+end
 
-		if cnode and cnode.name ~= "air" and cdef and cdef.walkable then
 
-			local cmeta = minetest.get_meta (cpos)
 
-			if cmeta then
+local on_mvps_move = function (node_list)
-				local tpos = vector.subtract (cpos, vec)
+end
-				local tmeta = cmeta:to_table ()
-				local ctimer = minetest.get_node_timer (cpos)
-				local ctimeout = (ctimer and ctimer:get_timeout ()) or 0
-				local celapsed = (ctimer and ctimer:get_elapsed ()) or 0
 
-				minetest.remove_node (cpos)
-				minetest.set_node (tpos, cnode)
 
-				if tmeta then
-					cmeta = minetest.get_meta (tpos)
 
-					if cmeta then
+local is_mvps_stopper = function (node, movedir, node_list, id)
-						cmeta:from_table (tmeta)
+	return false
-					end
+end
-				end
 
-				if ctimeout > 0 then
-					ctimer = minetest.get_node_timer (tpos)
 
-					if ctimer then
+
-						ctimer:set (ctimeout, celapsed)
+local update_mesecons_connections_removed = function (node_list)
-					end
+end
-				end
+
+
+
+local update_mesecons_connections_added = function (node_list)
+end
+
+
+if utils.mesecon_supported then
+	if mesecon.on_mvps_move then
+		on_mvps_move = function (node_list)
+			for _, callback in ipairs (mesecon.on_mvps_move) do
+				callback (node_list)
 			end
 		end
 	end
+
+	if mesecon.is_mvps_stopper then
+		is_mvps_stopper = function (node, movedir, node_list, id)
+			return mesecon.is_mvps_stopper (node, movedir, node_list, id)
+		end
+	end
+
+	if mesecon.on_dignode then
+		update_mesecons_connections_removed = function (node_list)
+			for _, node in ipairs (node_list) do
+				mesecon.on_dignode (node.oldpos, node.node)
+			end
+		end
+	end
+
+	if mesecon.on_placenode then
+		update_mesecons_connections_added = function (node_list)
+			for _, node in ipairs (node_list) do
+				mesecon.on_placenode (node.pos, utils.get_far_node (node.pos))
+			end
+		end
+	end
+end
+
+
+
+local function push_nodes (pos, extent)
+	local node_list = { }
+	local check_list = { }
+	local entity_list = { }
+	local maxnodes = utils.settings.max_piston_nodes
+
+	if not get_node_list (pos, extent, maxnodes, maxnodes, true, node_list, check_list) then
+		return false
+	end
+
+	if not can_node_list_move (node_list, check_list, maxnodes) then
+		return false
+	end
+
+	sort_node_list (node_list)
+
+	for id, node in ipairs (node_list) do
+		if is_mvps_stopper (node.node, node_list.movedir, node_list, id) then
+			return false
+		end
+	end
+
+	for _, node in ipairs (node_list) do
+		node.oldpos = vector.new (node.pos)
+		node.pos = vector.new (node.newpos)
+		node.newpos = nil
+
+		minetest.remove_node (node.oldpos)
+	end
+
+	update_mesecons_connections_removed (node_list)
+
+	-- push entities in front first
+	for _, node in ipairs (node_list) do
+		if not check_list[minetest.hash_node_position (node.pos)] then
+			push_entities (node.pos, node_list.movedir, entity_list, 0.5)
+		end
+	end
+
+	for _, node in ipairs (node_list) do
+		push_entities (node.oldpos, node_list.movedir, entity_list, 1.0)
+
+		minetest.set_node (node.pos, node.node)
+
+		if node.meta then
+			local meta = minetest.get_meta (node.pos)
+
+			if meta then
+				meta:from_table (node.meta)
+			end
+		end
+
+		if node.node_timer[1] > 0 then
+			local timer = minetest.get_node_timer (node.pos)
+
+			if timer then
+				timer:set (node.node_timer[1], node.node_timer[2])
+			end
+		end
+	end
+
+	-- push any entities in front of pusher
+	push_entities (node_list.base_pos, node_list.movedir, entity_list, 0.5)
+
+	on_mvps_move (node_list)
+	update_mesecons_connections_added (node_list)
+
+	if node_list.movedir.y >= 0 then
+		queue_player_update (entity_list, node_list.movedir)
+	end
+
+	return true
+end
+
+
+
+local function pull_node (pos, extent)
+	local node_list = { }
+	local check_list = { }
+	local entity_list = { }
+	local maxnodes = utils.settings.max_piston_nodes
+
+	if not get_node_list (pos, extent, 1, maxnodes, false, node_list, check_list) then
+		return false
+	end
+
+	if not can_node_list_move (node_list, check_list, maxnodes) then
+		return false
+	end
+
+	sort_node_list (node_list)
+
+	for id, node in ipairs (node_list) do
+		if is_mvps_stopper (node.node, node_list.movedir, node_list, id) then
+			return false
+		end
+	end
+
+	for _, node in ipairs (node_list) do
+		node.oldpos = vector.new (node.pos)
+		node.pos = vector.new (node.newpos)
+		node.newpos = nil
+
+		minetest.remove_node (node.oldpos)
+	end
+
+	update_mesecons_connections_removed (node_list)
+
+	-- push entities in front first
+	for _, node in ipairs (node_list) do
+		if not check_list[minetest.hash_node_position (node.pos)] then
+			push_entities (node.pos, node_list.movedir, entity_list, 0.5)
+		end
+	end
+
+	for _, node in ipairs (node_list) do
+		push_entities (node.oldpos, node_list.movedir, entity_list, 1.0)
+
+		minetest.set_node (node.pos, node.node)
+
+		if node.meta then
+			local meta = minetest.get_meta (node.pos)
+
+			if meta then
+				meta:from_table (node.meta)
+			end
+		end
+
+		if node.node_timer[1] > 0 then
+			local timer = minetest.get_node_timer (node.pos)
+
+			if timer then
+				timer:set (node.node_timer[1], node.node_timer[2])
+			end
+		end
+	end
+
+	on_mvps_move (node_list)
+	update_mesecons_connections_added (node_list)
+
+	if node_list.movedir.y >= 0 then
+		queue_player_update (entity_list, node_list.movedir)
+	end
+
+	return true
 end
 
 
@@ -504,7 +884,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						minetest.remove_node (pos)
 					end
@@ -690,7 +1069,7 @@ minetest.register_node("lwcomponents:piston_blank_1", {
 minetest.register_node("lwcomponents:piston_blank_2", {
 	description = S("Piston blank"),
 	drawtype = "airlike",
-	paramtype = "none",
+	paramtype = "light",
 	param1 = 0,
 	paramtype2 = "facedir",
 	param2 = 0,
@@ -712,7 +1091,6 @@ minetest.register_node("lwcomponents:piston_blank_2", {
 	is_ground_content = false,
 	drop = "",
 	groups = { not_in_creative_inventory = 1 },
-	paramtype = "light",
 	-- unaffected by explosions
 	on_blast = function() end,
 })

player_button.lua

@@ -69,7 +69,6 @@ end
 
 local function player_button_turnoff (pos)
 	local node = minetest.get_node(pos)
-	local meta = minetest.get_meta(pos)
 
 	if node.name == "lwcomponents:player_button_on" then
 		node.name = "lwcomponents:player_button_off"
@@ -85,7 +84,7 @@ end
 
 
 minetest.register_node ("lwcomponents:player_button", {
-	description = "Player Button",
+	description = S("Player Button"),
 	drawtype = "nodebox",
 	tiles = {
 	"lwplayer_button_side.png",
@@ -134,7 +133,7 @@ minetest.register_node ("lwcomponents:player_button", {
 
 
 minetest.register_node ("lwcomponents:player_button_off", {
-	description = "Player Button",
+	description = S("Player Button"),
 	drawtype = "nodebox",
 	tiles = {
 	"lwplayer_button_side.png",
@@ -184,7 +183,7 @@ minetest.register_node ("lwcomponents:player_button_off", {
 
 
 minetest.register_node ("lwcomponents:player_button_on", {
-	description = "Player Button",
+	description = S("Player Button"),
 	drawtype = "nodebox",
 	tiles = {
 	"lwplayer_button_side.png",

puncher.lua

@@ -97,13 +97,8 @@ local function punch (pos)
 						punched = true
 					end
 
-				elseif object[i].get_luaentity and object[i]:get_luaentity () and
+				elseif not utils.is_drop (object[i]) and object[i].get_pos
-						 object[i]:get_luaentity ().name and
+							and object[i]:get_pos () then
-						 object[i]:get_luaentity ().name == "__builtin:item" then
-
-					-- don't punch drops
-
-				elseif object[i].get_pos and object[i]:get_pos () then
 
 					-- entity
 					if meta:get_string ("entities") == "true" then
@@ -180,28 +175,19 @@ end
 
 local function start_puncher (pos)
 	local node = minetest.get_node (pos)
-	local meta = minetest.get_meta (pos)
 
-	if node and meta then
+	if node then
 		if node.name == "lwcomponents:puncher" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:puncher_on"
 
-			if meta then
+			minetest.swap_node (pos, node)
-				node.name = "lwcomponents:puncher_on"
+			update_form_spec (pos)
-
-				minetest.swap_node (pos, node)
-				update_form_spec (pos)
-			end
 
 		elseif node.name == "lwcomponents:puncher_locked" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:puncher_locked_on"
 
-			if meta then
+			minetest.swap_node (pos, node)
-				node.name = "lwcomponents:puncher_locked_on"
+			update_form_spec (pos)
-
-				minetest.swap_node (pos, node)
-				update_form_spec (pos)
-			end
 
 		end
 	end
@@ -211,28 +197,19 @@ end
 
 local function stop_puncher (pos)
 	local node = minetest.get_node (pos)
-	local meta = minetest.get_meta (pos)
 
-	if node and meta then
+	if node then
 		if node.name == "lwcomponents:puncher_on" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:puncher"
 
-			if meta then
+			minetest.swap_node (pos, node)
-				node.name = "lwcomponents:puncher"
+			update_form_spec (pos)
-
-				minetest.swap_node (pos, node)
-				update_form_spec (pos)
-			end
 
 		elseif node.name == "lwcomponents:puncher_locked_on" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:puncher_locked"
 
-			if meta then
+			minetest.swap_node (pos, node)
-				node.name = "lwcomponents:puncher_locked"
+			update_form_spec (pos)
-
-				minetest.swap_node (pos, node)
-				update_form_spec (pos)
-			end
 
 		end
 	end
@@ -365,7 +342,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						minetest.remove_node (pos)
 					end

readme.txt

@@ -13,7 +13,7 @@ CC BY-SA 3.0
 
 Version
 =======
-0.1.25
+0.1.27
 
 
 Minetest Version
@@ -59,13 +59,14 @@ Various components for mesecons and digilines.
 *	Puncher, punches players or entities within a given reach.
 *	Player button, sends digilines message with player name.
 *	Breaker, digs the nodes directly in front.
-*	Deployers, places the nodes directly in front.
+*	Deployer, places the nodes directly in front.
+*	Destroyer, automated trash.
 *	Hologram, projects a hologram above the hologram node.
 *	Fan, blows any entity, player or drop in front of the fan.
 *	Conduit, connected in a circuit to move items.
 *	Cannon, shoots an item on command with directional aiming (plus 3 shells).
 *	Double (optionally single) reach pistons and sticky pistons.
-*	Digiswitch, digilines controlled mesecons power.
+*	Digilines Switch, digilines controlled mesecons power.
 *	Movefloor, similar to vertical mesecons movestone.
 *	Camera, takes a representative image.
 *	Storage, indexed storage units.

siren.lua

@@ -103,30 +103,21 @@ end
 
 local function start_siren (pos)
 	local node = minetest.get_node (pos)
-	local meta = minetest.get_meta (pos)
 
-	if node and meta then
+	if node then
 		if node.name == "lwcomponents:siren" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:siren_on"
 
-			if meta then
+			stop_sound (pos)
-				node.name = "lwcomponents:siren_on"
+			minetest.swap_node (pos, node)
-
+			update_form_spec (pos)
-				stop_sound (pos)
-				minetest.swap_node (pos, node)
-				update_form_spec (pos)
-			end
 
 		elseif node.name == "lwcomponents:siren_locked" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:siren_locked_on"
 
-			if meta then
+			stop_sound (pos)
-				node.name = "lwcomponents:siren_locked_on"
+			minetest.swap_node (pos, node)
-
+			update_form_spec (pos)
-				stop_sound (pos)
-				minetest.swap_node (pos, node)
-				update_form_spec (pos)
-			end
 
 		end
 	end
@@ -136,34 +127,25 @@ end
 
 local function stop_siren (pos)
 	local node = minetest.get_node (pos)
-	local meta = minetest.get_meta (pos)
 
-	if node and meta then
+	if node then
 		if node.name == "lwcomponents:siren_on" or
-			node.name == "lwcomponents:siren_alarm" then
+				node.name == "lwcomponents:siren_alarm" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:siren"
 
-			if meta then
+			minetest.get_node_timer (pos):stop ()
-				node.name = "lwcomponents:siren"
+			stop_sound (pos)
-
+			minetest.swap_node (pos, node)
-				minetest.get_node_timer (pos):stop ()
+			update_form_spec (pos)
-				stop_sound (pos)
-				minetest.swap_node (pos, node)
-				update_form_spec (pos)
-			end
 
 		elseif node.name == "lwcomponents:siren_locked_on" or
-				 node.name == "lwcomponents:siren_locked_alarm" then
+					node.name == "lwcomponents:siren_locked_alarm" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:siren_locked"
 
-			if meta then
+			minetest.get_node_timer (pos):stop ()
-				node.name = "lwcomponents:siren_locked"
+			stop_sound (pos)
-
+			minetest.swap_node (pos, node)
-				minetest.get_node_timer (pos):stop ()
+			update_form_spec (pos)
-				stop_sound (pos)
-				minetest.swap_node (pos, node)
-				update_form_spec (pos)
-			end
 
 		end
 	end
@@ -173,30 +155,21 @@ end
 
 local function start_alarm (pos)
 	local node = minetest.get_node (pos)
-	local meta = minetest.get_meta (pos)
 
-	if node and meta then
+	if node then
 		if node.name == "lwcomponents:siren_on" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:siren_alarm"
 
-			if meta then
+			minetest.get_node_timer (pos):start (sound_interval)
-				node.name = "lwcomponents:siren_alarm"
+			start_sound (pos)
-
+			minetest.swap_node (pos, node)
-				minetest.get_node_timer (pos):start (sound_interval)
-				start_sound (pos)
-				minetest.swap_node (pos, node)
-			end
 
 		elseif node.name == "lwcomponents:siren_locked_on" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:siren_locked_alarm"
 
-			if meta then
+			minetest.get_node_timer (pos):start (sound_interval)
-				node.name = "lwcomponents:siren_locked_alarm"
+			start_sound (pos)
-
+			minetest.swap_node (pos, node)
-				minetest.get_node_timer (pos):start (sound_interval)
-				start_sound (pos)
-				minetest.swap_node (pos, node)
-			end
 
 		end
 	end
@@ -206,30 +179,21 @@ end
 
 local function stop_alarm (pos)
 	local node = minetest.get_node (pos)
-	local meta = minetest.get_meta (pos)
 
-	if node and meta then
+	if node then
 		if node.name == "lwcomponents:siren_alarm" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:siren_on"
 
-			if meta then
+			minetest.get_node_timer (pos):stop ()
-				node.name = "lwcomponents:siren_on"
+			stop_sound (pos)
-
+			minetest.swap_node (pos, node)
-				minetest.get_node_timer (pos):stop ()
-				stop_sound (pos)
-				minetest.swap_node (pos, node)
-			end
 
 		elseif node.name == "lwcomponents:siren_locked_alarm" then
-			local meta = minetest.get_meta (pos)
+			node.name = "lwcomponents:siren_locked_on"
 
-			if meta then
+			minetest.get_node_timer (pos):stop ()
-				node.name = "lwcomponents:siren_locked_on"
+			stop_sound (pos)
-
+			minetest.swap_node (pos, node)
-				minetest.get_node_timer (pos):stop ()
-				stop_sound (pos)
-				minetest.swap_node (pos, node)
-			end
 
 		end
 	end
@@ -365,7 +329,6 @@ local function on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
 						on_destruct (pos)
 						minetest.remove_node (pos)

storage.lua

@@ -87,7 +87,6 @@ local function unit_on_blast (pos, intensity)
 				end
 			end
 
-			on_destruct (pos)
 			minetest.remove_node (pos)
 
 		else -- intensity < 1.0
@@ -113,9 +112,7 @@ local function unit_on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
-						on_destruct (pos)
 						minetest.remove_node (pos)
 					end
 				end
@@ -312,7 +309,7 @@ local function get_stock_list (pos)
 	for k, v in pairs (inv_list) do
 		local stack = ItemStack (k)
 		local name = stack:get_name ()
-		local description = nil
+		local description
 		local custom = false
 		local pallet_index = nil
 		local tstack = stack:to_table ()
@@ -704,8 +701,6 @@ local function get_formspec_list (pos)
 	for k, v in pairs (inv_list) do
 		local description = k
 		local stack = ItemStack (k)
-		local smeta = stack:get_meta ()
-
 
 		if stack:get_short_description () ~= "" then
 			description = stack:get_short_description ()
@@ -942,7 +937,6 @@ local function indexer_on_blast (pos, intensity)
 				end
 			end
 
-			on_destruct (pos)
 			minetest.remove_node (pos)
 
 		else -- intensity < 1.0
@@ -978,9 +972,7 @@ local function indexer_on_blast (pos, intensity)
 					local stack = ItemStack (items[1])
 
 					if stack then
-						preserve_metadata (pos, node, meta, { stack })
 						utils.item_drop (stack, nil, pos)
-						on_destruct (pos)
 						minetest.remove_node (pos)
 					end
 				end

utils.lua

@@ -1,4 +1,4 @@
-local utils, mod_storage = ...
+local utils = ...