Add files via upload

breaker.lua

@@ -37,7 +37,27 @@ end
 
 
 
-local function send_break_message (pos, action, name)
+local function get_break_pos (pos, param2, range)
+	local breakpos = { x = pos.x, y = pos.y, z = pos.z }
+
+	for i = 1, range do
+		breakpos = get_breaker_side (breakpos, param2, "front")
+
+		if i < range then
+			local node = minetest.get_node_or_nil (breakpos)
+
+			if not node or node.name ~= "air" then
+				return nil
+			end
+		end
+	end
+
+	return breakpos
+end
+
+
+
+local function send_break_message (pos, action, name, range)
 	if utils.digilines_supported then
 		local meta = minetest.get_meta (pos)
 
@@ -49,7 +69,8 @@ local function send_break_message (pos, action, name)
 														 utils.digilines_default_rules,
 														 channel,
 														 { action = action,
-															name = name })
+															name = name,
+															range = range })
 			end
 		end
 	end
@@ -105,21 +126,11 @@ end
 
 
 
-local function play_dug_sound (pos, nodename)
-	local def = utils.find_item_def (nodename)
-
-	if def and def.sounds and def.sounds.dug then
-		minetest.sound_play (def.sounds.dug, { pos = pos })
-	end
-end
-
-
-
-local function can_break_node (pos)
+local function can_break_node (pos, breakpos)
 	local node = minetest.get_node (pos)
 
 	if node then
-		local dig_node = minetest.get_node (get_breaker_side (pos, node.param2, "front"))
+		local dig_node = minetest.get_node_or_nil (breakpos)
 
 		if dig_node and dig_node.name ~= "air" then
 			local node_def = minetest.registered_nodes[dig_node.name]
@@ -160,40 +171,85 @@ end
 
 
 
-local function break_node (pos)
-	local diggable, tool, wear = can_break_node (pos)
-	local node = minetest.get_node (pos)
+local function dig_node (pos, toolname)
+	local node = minetest.get_node_or_nil (pos)
+	local dig = false
+	local drops = nil
 
-	if diggable and node then
-		local break_pos = get_breaker_side (pos, node.param2, "front")
-		local break_node = minetest.get_node (break_pos)
+	if toolname == true then
+		dig = true
+		toolname = nil
+	end
 
-		if break_node then
-			local items = minetest.get_node_drops (break_node, tool)
-			local break_name = break_node.name
+	if node and node.name ~= "air" and node.name ~= "ignore" then
+		local def = utils.find_item_def (node.name)
+
+		if not dig then
+			if def and def.can_dig then
+				local result, can_dig = pcall (def.can_dig, pos)
+
+				dig = ((not result) or (result and (can_dig == nil or can_dig == true)))
+			else
+				dig = true
+			end
+		end
+
+		if dig then
+			local items = minetest.get_node_drops (node, toolname)
 
 			if items then
-				local eject_pos = get_breaker_side (pos, node.param2, "back")
+				drops = { }
 
 				for i = 1, #items do
-					local stack = ItemStack (items[i])
+					drops[i] = ItemStack (items[i])
+				end
 
-					if stack and not stack:is_empty () then
-						local item_def = utils.find_item_def (stack:get_name ())
-
-						if item_def and item_def.preserve_metadata then
-							item_def.preserve_metadata (pos, node, minetest.get_meta (pos), { stack })
-						end
-
-						utils.item_drop (stack, nil, eject_pos)
-					end
+				if def and def.preserve_metadata then
+					def.preserve_metadata (pos, node, minetest.get_meta (pos), drops)
 				end
 			end
 
-			minetest.remove_node (break_pos)
-			play_dug_sound (break_pos, break_name)
-			add_wear (pos, wear)
-			send_break_message (pos, "break", break_name)
+			if def and def.sounds and def.sounds.dug then
+				pcall (minetest.sound_play, def.sounds.dug, { pos = pos })
+			end
+
+			minetest.remove_node (pos)
+		end
+	end
+
+	return drops
+end
+
+
+
+local function break_node (pos, range)
+	local node = minetest.get_node_or_nil (pos)
+
+	if node then
+		local breakpos = get_break_pos (pos, node.param2, range)
+
+		if breakpos then
+			local diggable, toolname, wear = can_break_node (pos, breakpos)
+
+			if diggable then
+				local breaknode = minetest.get_node_or_nil (breakpos)
+
+				if breaknode and breaknode.name ~= "air" then
+					local drops = dig_node (breakpos, toolname)
+
+					if drops then
+						local break_name = breaknode.name
+						local eject_pos = get_breaker_side (pos, node.param2, "back")
+
+						for i = 1, #drops do
+							utils.item_drop (drops[i], nil, eject_pos)
+						end
+
+						add_wear (pos, wear)
+						send_break_message (pos, "break", break_name, range)
+					end
+				end
+			end
 		end
 	end
 end
@@ -222,22 +278,24 @@ end
 
 
 
-local function breaker_on (pos)
+local function breaker_on (pos, range)
 	local node = minetest.get_node (pos)
 
-	if node then
+	range = tonumber (range) or 1
+
+	if node and range < 6 and range > 0 then
 		if node.name == "lwcomponents:breaker" then
 			node.name = "lwcomponents:breaker_on"
 
 			minetest.swap_node (pos, node)
-			break_node (pos)
+			break_node (pos, range)
 			minetest.get_node_timer (pos):start (break_interval)
 
 		elseif node.name == "lwcomponents:breaker_locked" then
 			node.name = "lwcomponents:breaker_locked_on"
 
 			minetest.swap_node (pos, node)
-			break_node (pos)
+			break_node (pos, range)
 			minetest.get_node_timer (pos):start (break_interval)
 
 		end
@@ -480,7 +538,7 @@ local function digilines_support ()
 							end
 
 							if m[1] == "break" then
-								breaker_on (pos)
+								breaker_on (pos, m[2])
 
 							elseif m[1] == "eject" then
 								eject_tool (pos, m[2])
@@ -508,7 +566,7 @@ local function mesecon_support ()
 
 				action_on = function (pos, node)
 					-- do something to turn the effector on
-					breaker_on (pos)
+					breaker_on (pos, 1)
 				end,
 			}
 		}
@@ -522,7 +580,7 @@ end
 minetest.register_node("lwcomponents:breaker", {
 	description = S("Breaker"),
 	tiles = { "lwbreaker.png", "lwbreaker.png", "lwbreaker.png",
-				 "lwbreaker.png", "lwbreaker.png", "lwbreaker_face.png"},
+				 "lwbreaker.png", "lwbreaker_rear.png", "lwbreaker_face.png"},
 	is_ground_content = false,
 	groups = { cracky = 3 },
 	sounds = default.node_sound_stone_defaults (),
@@ -551,7 +609,7 @@ minetest.register_node("lwcomponents:breaker", {
 minetest.register_node("lwcomponents:breaker_locked", {
 	description = S("Breaker (locked)"),
 	tiles = { "lwbreaker.png", "lwbreaker.png", "lwbreaker.png",
-				 "lwbreaker.png", "lwbreaker.png", "lwbreaker_face.png"},
+				 "lwbreaker.png", "lwbreaker_rear.png", "lwbreaker_face.png"},
 	is_ground_content = false,
 	groups = { cracky = 3 },
 	sounds = default.node_sound_stone_defaults (),
@@ -581,7 +639,7 @@ minetest.register_node("lwcomponents:breaker_locked", {
 minetest.register_node("lwcomponents:breaker_on", {
 	description = S("Breaker"),
 	tiles = { "lwbreaker.png", "lwbreaker.png", "lwbreaker.png",
-				 "lwbreaker.png", "lwbreaker.png", "lwbreaker_face_on.png"},
+				 "lwbreaker.png", "lwbreaker_rear.png", "lwbreaker_face_on.png"},
 	is_ground_content = false,
 	groups = { cracky = 3, not_in_creative_inventory = 1 },
 	sounds = default.node_sound_stone_defaults (),
@@ -611,7 +669,7 @@ minetest.register_node("lwcomponents:breaker_on", {
 minetest.register_node("lwcomponents:breaker_locked_on", {
 	description = S("Breaker (locked)"),
 	tiles = { "lwbreaker.png", "lwbreaker.png", "lwbreaker.png",
-				 "lwbreaker.png", "lwbreaker.png", "lwbreaker_face_on.png"},
+				 "lwbreaker.png", "lwbreaker_rear.png", "lwbreaker_face_on.png"},
 	is_ground_content = false,
 	groups = { cracky = 3, not_in_creative_inventory = 1 },
 	sounds = default.node_sound_stone_defaults (),

change.log

@@ -37,3 +37,9 @@ v0.1.6
 *	Added holograms.
 *	Added breakers.
 *	Added fans.
+
+
+v0.1.7
+*	Fixed fan description.
+*	Breakers can break nodes up to 5 forward with digilines message.
+*	Added deployers.

deployer.lua

@@ -0,0 +1,679 @@
+local utils = ...
+local S = utils.S
+
+
+
+if utils.digilines_supported or utils.mesecon_supported then
+
+
+
+local deploy_interval = 1.0
+
+
+
+local function send_deploy_message (pos, slot, name, range)
+	if utils.digilines_supported then
+		local meta = minetest.get_meta (pos)
+
+		if meta then
+			local channel = meta:get_string ("channel")
+
+			if channel:len () > 0 then
+				utils.digilines_receptor_send (pos,
+														 utils.digilines_default_rules,
+														 channel,
+														 { action = "deploy",
+															name = name,
+															slot = slot,
+															range = range })
+			end
+		end
+	end
+end
+
+
+
+local function deployer_front (pos, param2)
+	if param2 == 0 then
+		return { x = pos.x, y = pos.y, z = pos.z - 1 }
+	elseif param2 == 1 then
+		return { x = pos.x - 1, y = pos.y, z = pos.z }
+	elseif param2 == 2 then
+		return { x = pos.x, y = pos.y, z = pos.z + 1 }
+	elseif param2 == 3 then
+		return { x = pos.x + 1, y = pos.y, z = pos.z }
+	else
+		return { x = pos.x, y = pos.y, z = pos.z }
+	end
+end
+
+
+
+local function get_deploy_pos (pos, param2, range)
+	local deploypos = { x = pos.x, y = pos.y, z = pos.z }
+
+	for i = 1, range do
+		deploypos = deployer_front (deploypos, param2)
+
+		if i < range then
+			local node = minetest.get_node_or_nil (deploypos)
+
+			if not node or node.name ~= "air" then
+				local nodedef = utils.find_item_def (node.name)
+
+				if not nodedef or not nodedef.buildable_to then
+					return nil
+				end
+			end
+		end
+	end
+
+	return deploypos
+end
+
+
+
+local function place_node (itemname, pos)
+	local node = minetest.get_node_or_nil ({ x = pos.x, y = pos.y - 1, z = pos.z })
+
+	if not node then
+		return false
+	end
+
+	local nodedef = utils.find_item_def (node.name)
+
+	if node.name == "air" or not nodedef or (nodedef and nodedef.buildable_to) then
+		return false
+	end
+
+	node = minetest.get_node_or_nil (pos)
+
+	if not node then
+		return false
+	end
+
+	nodedef = utils.find_item_def (node.name)
+
+	if node.name ~= "air" then
+		if not nodedef or not nodedef.buildable_to or minetest.is_protected (pos, "") then
+			return false
+		end
+	end
+
+	local stack = ItemStack (itemname)
+	local itemdef = utils.find_item_def (itemname)
+
+	if stack and itemdef then
+		local placed = false
+		local pointed_thing =
+		{
+			type = "node",
+			under = { x = pos.x, y = pos.y - 1, z = pos.z },
+			above = pos,
+		}
+
+		if node.name ~= "air" and nodedef and nodedef.buildable_to then
+			pointed_thing =
+			{
+				type = "node",
+				under = pos,
+				above = { x = pos.x, y = pos.y + 1, z = pos.z },
+			}
+		end
+
+		if itemdef and itemdef.on_place then
+			local result, msg = pcall (itemdef.on_place, stack, nil, pointed_thing)
+
+			placed = result
+
+			if not placed then
+				if utils.settings.alert_handler_errors then
+					minetest.log ("error", "on_place handler for "..itemname.." crashed - "..msg)
+				end
+			end
+		end
+
+		if not placed then
+			if not minetest.registered_nodes[itemname] then
+				return false
+			end
+
+			minetest.set_node (pos, { name = itemname, param1 = 0, param2 = 0 })
+
+			if itemdef and itemdef.after_place_node then
+				local result, msg = pcall (itemdef.after_place_node, pos, nil, stack, pointed_thing)
+
+				if not result then
+					if utils.settings.alert_handler_errors then
+						minetest.log ("error", "after_place_node handler for "..nodename.." crashed - "..msg)
+					end
+				end
+			end
+
+			if itemdef and  itemdef.sounds and itemdef.sounds.place then
+				pcall (minetest.sound_play, itemdef.sounds.place, { pos = pos })
+			end
+		end
+	end
+
+	return true
+end
+
+
+
+-- slot:
+--    nil - next item, no drop if empty
+--    number - 1 item from slot, no drop if empty
+--    string - name of item to drop, no drop if none
+-- range:
+-- 	1 - 5 from front of deployer
+local function deploy_item (pos, node, slot, range)
+	local meta = minetest.get_meta (pos)
+
+	range = math.min (math.max (tonumber (range) or 1, 1), 5)
+
+	if meta then
+		local inv = meta:get_inventory ()
+
+		if inv then
+			if not slot then
+				local slots = inv:get_size ("main")
+
+				for i = 1, slots do
+					local stack = inv:get_stack ("main", i)
+
+					if not stack:is_empty () and stack:get_count () > 0 then
+						slot = i
+						break
+					end
+				end
+
+			elseif type (slot) == "string" then
+				local name = slot
+				slot = nil
+
+				local slots = inv:get_size ("main")
+
+				for i = 1, slots do
+					local stack = inv:get_stack ("main", i)
+
+					if not stack:is_empty () and stack:get_count () > 0 then
+						if name == stack:get_name () then
+							slot = i
+							break
+						end
+					end
+				end
+
+			else
+				slot = tonumber (slot)
+
+			end
+
+			if slot then
+				local stack = inv:get_stack ("main", slot)
+
+				if not stack:is_empty () and stack:get_count () > 0 then
+					local name = stack:get_name ()
+					local item = ItemStack (stack)
+					local deploypos = get_deploy_pos (pos, node.param2, range)
+
+					if item and deploypos then
+						if place_node (name, deploypos) then
+							stack:set_count (stack:get_count () - 1)
+							inv:set_stack ("main", slot, stack)
+
+							send_deploy_message (pos, slot, name, range)
+
+							return true, slot, name, range
+						end
+					end
+				end
+			end
+		end
+	end
+
+	return false
+end
+
+
+
+local function deployer_off (pos)
+	local node = minetest.get_node (pos)
+
+	if node then
+		if node.name == "lwcomponents:deployer_on" then
+			node.name = "lwcomponents:deployer"
+
+			minetest.get_node_timer (pos):stop ()
+			minetest.swap_node (pos, node)
+
+		elseif node.name == "lwcomponents:deployer_locked_on" then
+			node.name = "lwcomponents:deployer_locked"
+
+			minetest.get_node_timer (pos):stop ()
+			minetest.swap_node (pos, node)
+
+		end
+	end
+end
+
+
+
+local function deployer_on (pos, node, slot, range)
+	local node = minetest.get_node (pos)
+
+	range = tonumber (range) or 1
+
+	if slot and tostring (slot) == "nil" then
+		slot = nil
+	end
+
+	if node and range < 6 and range > 0 then
+		if node.name == "lwcomponents:deployer" then
+			node.name = "lwcomponents:deployer_on"
+
+			minetest.swap_node (pos, node)
+			deploy_item (pos, node, slot, range)
+			minetest.get_node_timer (pos):start (deploy_interval)
+
+		elseif node.name == "lwcomponents:deployer_locked" then
+			node.name = "lwcomponents:deployer_locked_on"
+
+			minetest.swap_node (pos, node)
+			deploy_item (pos, node, slot, range)
+			minetest.get_node_timer (pos):start (deploy_interval)
+
+		end
+	end
+end
+
+
+
+local function after_place_node (pos, placer, itemstack, pointed_thing)
+	local meta = minetest.get_meta (pos)
+	local spec =
+	"formspec_version[3]\n"..
+	"size[11.75,13.75;true]\n"..
+	"field[1.0,1.0;4.0,0.8;channel;Channel;${channel}]\n"..
+	"button[5.5,1.0;2.0,0.8;setchannel;Set]\n"..
+	"list[context;main;3.5,2.5;4,4;]\n"..
+	"list[current_player;main;1.0,8.0;8,4;]\n"..
+	"listring[]"
+
+	meta:set_string ("inventory", "{ main = { } }")
+	meta:set_string ("formspec", spec)
+
+	local inv = meta:get_inventory ()
+
+	inv:set_size ("main", 16)
+	inv:set_width ("main", 4)
+
+	-- If return true no item is taken from itemstack
+	return false
+end
+
+
+
+local function after_place_node_locked (pos, placer, itemstack, pointed_thing)
+	after_place_node (pos, placer, itemstack, pointed_thing)
+
+	if placer and placer:is_player () then
+		local meta = minetest.get_meta (pos)
+
+		meta:set_string ("owner", placer:get_player_name ())
+		meta:set_string ("infotext", "Deployer (owned by "..placer:get_player_name ()..")")
+	end
+
+	-- If return true no item is taken from itemstack
+	return false
+end
+
+
+
+local function on_receive_fields (pos, formname, fields, sender)
+	if not utils.can_interact_with_node (pos, sender) then
+		return
+	end
+
+	if fields.setchannel then
+		local meta = minetest.get_meta (pos)
+
+		if meta then
+			meta:set_string ("channel", fields.channel)
+		end
+	end
+end
+
+
+
+local function can_dig (pos, player)
+	if not utils.can_interact_with_node (pos, player) then
+		return false
+	end
+
+	local meta = minetest.get_meta (pos)
+
+	if meta then
+		local inv = meta:get_inventory ()
+
+		if inv then
+			if not inv:is_empty ("main") then
+				return false
+			end
+		end
+	end
+
+	return true
+end
+
+
+
+local function on_blast (pos, intensity)
+	local meta = minetest.get_meta (pos)
+
+	if meta then
+		if intensity >= 1.0 then
+			local inv = meta:get_inventory ()
+
+			if inv then
+				local slots = inv:get_size ("main")
+
+				for slot = 1, slots do
+					local stack = inv:get_stack ("main", slot)
+
+					if stack and not stack:is_empty () then
+						if math.floor (math.random (0, 5)) == 3 then
+							utils.item_drop (stack, nil, pos)
+						else
+							utils.on_destroy (stack)
+						end
+					end
+				end
+			end
+
+			minetest.remove_node (pos)
+
+		else -- intensity < 1.0
+			local inv = meta:get_inventory ()
+
+			if inv then
+				local slots = inv:get_size ("main")
+
+				for slot = 1, slots do
+					local stack = inv:get_stack ("main", slot)
+
+					if stack and not stack:is_empty () then
+						utils.item_drop (stack, nil, pos)
+					end
+				end
+			end
+
+			local node = minetest.get_node_or_nil (pos)
+			if node then
+				local items = minetest.get_node_drops (node, nil)
+
+				if items and #items > 0 then
+					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
+				end
+			end
+		end
+	end
+end
+
+
+
+local function on_rightclick (pos, node, clicker, itemstack, pointed_thing)
+	if not utils.can_interact_with_node (pos, clicker) then
+		if clicker and clicker:is_player () then
+			local owner = "<unknown>"
+			local meta = minetest.get_meta (pos)
+
+			if meta then
+				owner = meta:get_string ("owner")
+			end
+
+			local spec =
+			"formspec_version[3]"..
+			"size[8.0,4.0,false]"..
+			"label[1.0,1.0;Owned by "..minetest.formspec_escape (owner).."]"..
+			"button_exit[3.0,2.0;2.0,1.0;close;Close]"
+
+			minetest.show_formspec (clicker:get_player_name (),
+											"lwcomponents:component_privately_owned",
+											spec)
+		end
+	end
+
+	return itemstack
+end
+
+
+
+local function on_timer (pos, elapsed)
+	deployer_off (pos)
+end
+
+
+
+local function digilines_support ()
+	if utils.digilines_supported then
+		return
+		{
+			wire =
+			{
+				rules = utils.digilines_default_rules,
+			},
+
+			effector =
+			{
+				action = function (pos, node, channel, msg)
+					local meta = minetest.get_meta(pos)
+
+					if meta then
+						local this_channel = meta:get_string ("channel")
+
+						if this_channel ~= "" and this_channel == channel and
+							type (msg) == "string" then
+
+							local m = { }
+							for w in string.gmatch(msg, "[^%s]+") do
+								m[#m + 1] = w
+							end
+
+							if m[1] == "deploy" then
+								if tostring (m[2]) == nil then
+									m[2] = "nil"
+								elseif m[2] and tonumber (m[2]) then
+									m[2] = tonumber (m[2])
+								end
+
+								deployer_on (pos, node, m[2], m[3])
+							end
+						end
+					end
+				end,
+			}
+		}
+	end
+
+	return nil
+end
+
+
+
+local function mesecon_support ()
+	if utils.mesecon_supported then
+		return
+		{
+			effector =
+			{
+				rules = utils.mesecon_flat_rules,
+
+				action_on = function (pos, node)
+					deployer_on (pos, node, "nil", 1)
+				end
+			}
+		}
+	end
+
+	return nil
+end
+
+
+
+minetest.register_node("lwcomponents:deployer", {
+	description = S("Deployer"),
+	tiles = { "lwdeployer.png", "lwdeployer.png", "lwdeployer.png",
+				 "lwdeployer.png", "lwdeployer.png", "lwdeployer_face.png"},
+	is_ground_content = false,
+	groups = { cracky = 3 },
+	sounds = default.node_sound_stone_defaults (),
+	paramtype = "none",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 1,
+	floodable = false,
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	on_receive_fields = on_receive_fields,
+	after_place_node = after_place_node,
+	can_dig = can_dig,
+	on_blast = on_blast,
+	on_timer = on_timer,
+	on_rightclick = on_rightclick
+})
+
+
+
+minetest.register_node("lwcomponents:deployer_locked", {
+	description = S("Deployer (locked)"),
+	tiles = { "lwdeployer.png", "lwdeployer.png", "lwdeployer.png",
+				 "lwdeployer.png", "lwdeployer.png", "lwdeployer_face.png"},
+	is_ground_content = false,
+	groups = { cracky = 3 },
+	sounds = default.node_sound_stone_defaults (),
+	paramtype = "none",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 1,
+	floodable = false,
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	on_receive_fields = on_receive_fields,
+	after_place_node = after_place_node_locked,
+	can_dig = can_dig,
+	on_blast = on_blast,
+	on_timer = on_timer,
+	on_rightclick = on_rightclick
+})
+
+
+
+
+minetest.register_node("lwcomponents:deployer_on", {
+	description = S("Deployer"),
+	tiles = { "lwdeployer.png", "lwdeployer.png", "lwdeployer.png",
+				 "lwdeployer.png", "lwdeployer.png", "lwdeployer_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,
+	light_source = 3,
+	floodable = false,
+	drop = "lwcomponents:deployer",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	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:deployer_locked_on", {
+	description = S("Deployer (locked)"),
+	tiles = { "lwdeployer.png", "lwdeployer.png", "lwdeployer.png",
+				 "lwdeployer.png", "lwdeployer.png", "lwdeployer_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,
+	light_source = 3,
+	floodable = false,
+	drop = "lwcomponents:deployer_locked",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	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
+})
+
+
+
+utils.hopper_add_container({
+	{"top", "lwcomponents:deployer", "main"}, -- take items from above into hopper below
+	{"bottom", "lwcomponents:deployer", "main"}, -- insert items below from hopper above
+	{"side", "lwcomponents:deployer", "main"}, -- insert items from hopper at side
+})
+
+
+
+utils.hopper_add_container({
+	{"top", "lwcomponents:deployer_locked", "main"}, -- take items from above into hopper below
+	{"bottom", "lwcomponents:deployer_locked", "main"}, -- insert items below from hopper above
+	{"side", "lwcomponents:deployer_locked", "main"}, -- insert items from hopper at side
+})
+
+
+
+utils.hopper_add_container({
+	{"top", "lwcomponents:deployer_on", "main"}, -- take items from above into hopper below
+	{"bottom", "lwcomponents:deployer_on", "main"}, -- insert items below from hopper above
+	{"side", "lwcomponents:deployer_on", "main"}, -- insert items from hopper at side
+})
+
+
+
+utils.hopper_add_container({
+	{"top", "lwcomponents:deployer_locked_on", "main"}, -- take items from above into hopper below
+	{"bottom", "lwcomponents:deployer_locked_on", "main"}, -- insert items below from hopper above
+	{"side", "lwcomponents:deployer_locked_on", "main"}, -- insert items from hopper at side
+})
+
+
+end -- utils.digilines_supported or utils.mesecon_supported
+
+
+
+--

docs/api.txt

@@ -34,7 +34,7 @@ lwcomponents.register_spawner (itemname, spawn_func)
 
 		This function should return the ObjectRef of the spawned entity or
 		nil. If this function returns nil for ObjectRef a second boolean
-		value should be returned for weather to cancel the action.
+		value should be returned for whether to cancel the action.
 
 		eg. If too many mobs:
 			return nil, true

docs/breaker.txt

@@ -2,11 +2,12 @@ Breaker
 -------
 * This block is only available if digilines and/or mesecons are loaded.
 
-Breakers dig the node directly in front of them and drop the item at the
-back of them. The node is only dug if the breaker has a tool that can
-dig it, of if it can be dug by hand. The tool is worn if used. Also acts
-as a digilines conductor. If the hopper mod is loaded, will take tools
-from the top and sides.
+Breakers dig the node up to 5 nodes directly in front of them and drop
+the item at the back of them. The node is only dug if the breaker has a
+tool that can dig it or if it can be dug by hand, and there are no nodes
+before of it. ie. cannot dig 2nd node if 1st node has something in it.
+The tool is worn if used. Also acts as a digilines conductor. If the
+hopper mod is loaded, will take tools from the top and sides.
 
 Only the owner can dig or access the form of the locked version.
 
@@ -17,23 +18,26 @@ Top 1 slot inventory - tool to use.
 Bottom 32 slot inventory - player's inventory.
 
 Mesecons
-	Digs the node in front when power is turned on, if it can.
+	Digs the node in front (always the 1st node position) when power is
+	turned on, if it can.
 
 Digilines messages
 
-"break"
-	Digs the node in front when power is turned on, if it can.
+"break n"
+	Digs the node at n nodes in front when power is turned on, if it can.
+	n should be a number between 1 and 5. If omitted 1 is assumed.
 
 "eject side"
 	Drop the tool in the tool slot at the given side. Valid sides are "left",
 	"right", "back", "front". If side is omitted or invalid "front" is used.
 
 When a breaker digs a node or wears out the tool a digilines message is
-sent with the puncher's channel. The message is a table with the following
+sent with the breaker's channel. The message is a table with the following
 keys:
 {
 	action = "<action>",
-	name = "<name>"
+	name = "<name>",
+	range = <number>
 }
 
 action
@@ -42,3 +46,7 @@ action
 name
 	For "break" action the registered node name of what was dug.
 	For "tool" action the registered tool name of the tool that wore out.
+
+range
+	For "break" action the nodes forward that was dug.
+	For "tool" action always nil.

docs/deployer.txt

@@ -0,0 +1,57 @@
+Deployer
+-------
+* This block is only available if digilines and/or mesecons are loaded.
+
+Deployers place the node up to 5 nodes directly in front of them. The
+node is only placed if there are no nodes before of it which are not
+replaceable. ie. cannot place 2nd node if 1st node has something in it.
+Also acts as a digilines conductor. If the hopper mod is loaded, will
+take items from the top and sides, and release them from the bottom.
+
+Only the owner can dig or access the form of the locked version.
+
+UI
+
+Channel - digilines channel of breaker.
+Top 16 slot inventory - storage of items to place.
+Bottom 32 slot inventory - player's inventory.
+
+Mesecons
+	Places the node in front (always the 1st node position) when power is
+	turned on, if it can.
+
+Digilines messages
+
+"deploy  <slot or itemname> <n>"
+	Places the node at n nodes in front when power is turned on, if it can.
+	n should be a number between 1 and 5. If omitted 1 is assumed.
+
+	If slot is a number, places an item from that slot. No placement if
+	slot is empty.
+	eg. "deploy 7"
+
+	If itemname is given, places the item of the name given. No placement
+	if deployer does not contain the item.
+	eg. "deploy default:stone"
+
+	If n is given with no slot/itemname use "nil".
+	eg. "deploy nil 3"
+
+When a deployer places a node a digilines message is sent with the
+deployer's channel. The message is a table with the following
+keys:
+{
+	action = "deploy",
+	name = "<name>",
+	slot = <slot>,
+	range = <number>
+}
+
+action
+	Will be "deploy".
+
+name
+	The registered node name of what was placed.
+
+range
+	The nodes forward that was placed.

fan.lua

@@ -309,7 +309,7 @@ end
 
 
 minetest.register_node("lwcomponents:fan", {
-	description = S("Breaker"),
+	description = S("Fan"),
 	tiles = { "lwfan.png", "lwfan.png", "lwfan.png",
 				 "lwfan.png", "lwfan.png", "lwfan_face.png"},
 	is_ground_content = false,
@@ -336,7 +336,7 @@ minetest.register_node("lwcomponents:fan", {
 
 
 minetest.register_node("lwcomponents:fan_locked", {
-	description = S("Breaker (locked)"),
+	description = S("Fan (locked)"),
 	tiles = { "lwfan.png", "lwfan.png", "lwfan.png",
 				 "lwfan.png", "lwfan.png", "lwfan_face.png"},
 	is_ground_content = false,
@@ -363,7 +363,7 @@ minetest.register_node("lwcomponents:fan_locked", {
 
 
 minetest.register_node("lwcomponents:fan_on", {
-	description = S("Breaker"),
+	description = S("Fan"),
 	tiles = { "lwfan.png", "lwfan.png", "lwfan.png",
 				 "lwfan.png", "lwfan.png", "lwfan_face_on.png"},
 	is_ground_content = false,
@@ -391,7 +391,7 @@ minetest.register_node("lwcomponents:fan_on", {
 
 
 minetest.register_node("lwcomponents:fan_locked_on", {
-	description = S("Breaker (locked)"),
+	description = S("Fan (locked)"),
 	tiles = { "lwfan.png", "lwfan.png", "lwfan.png",
 				 "lwfan.png", "lwfan.png", "lwfan_face_on.png"},
 	is_ground_content = false,

init.lua

@@ -1,4 +1,4 @@
-local version = "0.1.6"
+local version = "0.1.7"
 local mod_storage = minetest.get_mod_storage ()
 
 
@@ -27,6 +27,7 @@ loadfile (modpath.."/puncher.lua") (utils)
 loadfile (modpath.."/player_button.lua") (utils)
 loadfile (modpath.."/hologram.lua") (utils)
 loadfile (modpath.."/breaker.lua") (utils)
+loadfile (modpath.."/deployer.lua") (utils)
 loadfile (modpath.."/fan.lua") (utils)
 loadfile (modpath.."/extras.lua") (utils)
 loadfile (modpath.."/digiswitch.lua") (utils)

readme.txt

@@ -13,7 +13,7 @@ CC BY-SA 3.0
 
 Version
 =======
-0.1.6
+0.1.7
 
 
 Minetest Version
@@ -59,7 +59,8 @@ Various components for mesecons and digilines.
 *	Siren, plays a sound repeatedly while active.
 *	Puncher, punches players or entities within a given reach.
 *	Player button, sends digilines message with player name.
-*	Breaker, digs the node directly in front.
+*	Breaker, digs the nodes directly in front.
+*	Deployers, places the nodes directly in front.
 *	Hologram, projects a hologram above the hologram node.
 *	Fan, blows any entity, player or drop in front of the fan.
 *	Digiswitch, digilines controlled mesecons power.
@@ -76,5 +77,16 @@ the relevant mod is loaded.
 *	Panel, full node variant of digistuff:panel.
 
 
+The mod supports the following settings:
+
+Spawn mobs
+	Allow dispensers to spawn mobs instead of spawners.
+	Default: true
+
+Alert handler errors
+	Issue errors when handler's of other mods fail.
+	Default: true
+
+
 
 ------------------------------------------------------------------------

settings.lua

@@ -6,6 +6,9 @@ utils.settings = { }
 utils.settings.spawn_mobs =
 	minetest.settings:get_bool ("lwcomponents_spawn_mobs", true)
 
+utils.settings.alert_handler_errors =
+	minetest.settings:get_bool ("lwcomponents_alert_handler_errors", true)
+
 
 
 --

settingtypes.txt

@@ -1,2 +1,5 @@
 # Allow dispensers to spawn mobs instead of spawners.
 lwcomponents_spawn_mobs (Spawn mobs) bool true
+
+# Issue errors when handler's of other mods fail.
+lwcomponents_alert_handler_errors (Alert handler errors) bool true