From 12990637cc71fdcd1a797261342ab10a6ad0f89a Mon Sep 17 00:00:00 2001
From: yunomavori <yunomavori@mavori.ch>
Date: Fri, 27 Jun 2025 17:52:27 +0200
Subject: [PATCH] Upload files to "lwcomponents"

---
 lwcomponents/long_process.lua  |  196 +++++
 lwcomponents/mod.conf          |    6 +
 lwcomponents/movefloor.lua     |  439 +++++++++++
 lwcomponents/pistons.lua       | 1353 ++++++++++++++++++++++++++++++++
 lwcomponents/player_button.lua |  236 ++++++
 5 files changed, 2230 insertions(+)
 create mode 100644 lwcomponents/long_process.lua
 create mode 100644 lwcomponents/mod.conf
 create mode 100644 lwcomponents/movefloor.lua
 create mode 100644 lwcomponents/pistons.lua
 create mode 100644 lwcomponents/player_button.lua

diff --git a/lwcomponents/long_process.lua b/lwcomponents/long_process.lua
new file mode 100644
index 0000000..f7e0c82
--- /dev/null
+++ b/lwcomponents/long_process.lua
@@ -0,0 +1,196 @@
+local utils = ...
+
+
+
+local RUN_INTERVAL = 0.1
+
+
+
+local processes = { index = 0, current = 0 }
+local after_job
+
+
+
+local function run_processes ()
+	if #processes > 0 then
+		processes.index = (processes.index % #processes) + 1
+
+		local process = processes[processes.index]
+
+		processes.current = processes.index
+		process.timer = os.clock ()
+		process.resume ()
+		processes.current = 0
+	end
+
+	if #processes > 0 then
+		after_job = minetest.after (RUN_INTERVAL, run_processes)
+	else
+		processes.index = 0
+		processes.current = 0
+		after_job = nil
+	end
+end
+
+
+
+local long_process = { }
+
+
+
+function long_process.remove (id)
+	if id then
+		for i = 1, #processes, 1 do
+			if processes[i].id == id then
+				local breaker = ((processes.current == id) and processes[i].breaker)
+
+				if processes.current == i then
+					processes.current = 0
+				elseif processes.current > i then
+					processes.current = processes.current - 1
+				end
+
+				if processes.index >= i then
+					processes.index = processes.index - 1
+				end
+
+				table.remove (processes, i)
+
+				if breaker then
+					breaker ()
+				end
+
+				return true
+			end
+		end
+	elseif processes[processes.current] then
+		local breaker = processes[processes.current].breaker
+
+		if processes.index >= processes.current then
+			processes.index = processes.index - 1
+		end
+
+		table.remove (processes, processes.current)
+		processes.current = 0
+
+		if breaker then
+			breaker ()
+		end
+
+		return true
+	end
+
+	return false
+end
+
+
+
+function long_process.breaker (id)
+	if id then
+		for i = 1, #processes, 1 do
+			if processes[i].id == id then
+				return processes[i].breaker
+			end
+		end
+	elseif processes[processes.current] then
+		return processes[processes.current].breaker
+	end
+
+	return nil
+end
+
+
+
+function long_process.timer (id)
+	if id then
+		for i = 1, #processes, 1 do
+			if processes[i].id == id then
+				return processes[i].timer
+			end
+		end
+	elseif processes[processes.current] then
+		return processes[processes.current].timer
+	end
+
+	return os.clock () + 3600
+end
+
+
+
+function long_process.expire (secs, id)
+	if id then
+		for i = 1, #processes, 1 do
+			if processes[i].id == id then
+				if (processes[i].timer + secs) <= os.clock () then
+					processes[i].breaker ()
+
+					return true
+				end
+			end
+		end
+	elseif processes[processes.current] then
+		if (processes[processes.current].timer + secs) <= os.clock () then
+			processes[processes.current].breaker ()
+
+			return true
+		end
+	end
+
+	return false
+end
+
+
+
+function long_process.add (func, callback, ...)
+	local args = { ... }
+	local id = math.random (1000000)
+	local thread
+
+
+	local function thread_breaker ()
+		coroutine.yield (thread)
+	end
+
+
+	local function thread_func ()
+		return func (unpack (args))
+	end
+
+
+	local function thread_resume ()
+		local results = { coroutine.resume (thread) }
+
+		if coroutine.status (thread) == "dead" then
+			if callback then
+				callback (id, unpack (results))
+			end
+
+			long_process.remove (id)
+		end
+	end
+
+	thread = coroutine.create (thread_func)
+
+	if thread and coroutine.status (thread) == "suspended" then
+		processes[#processes + 1] =
+		{
+			id = id,
+			resume = thread_resume,
+			breaker = thread_breaker,
+			callback = callback,
+			timer = os.clock ()
+		}
+
+		if not after_job then
+			after_job = minetest.after (RUN_INTERVAL, run_processes)
+		end
+
+		return id
+	end
+
+	return nil
+end
+
+
+
+utils.long_process = long_process
diff --git a/lwcomponents/mod.conf b/lwcomponents/mod.conf
new file mode 100644
index 0000000..22936c9
--- /dev/null
+++ b/lwcomponents/mod.conf
@@ -0,0 +1,6 @@
+author = loosewheel
+description = Various components for mesecons and digilines.
+title = LWComponents
+name = lwcomponents
+depends = 
+optional_depends = mesecons, digilines, unifieddyes, intllib, hopper, digistuff, pipeworks, lwwires
diff --git a/lwcomponents/movefloor.lua b/lwcomponents/movefloor.lua
new file mode 100644
index 0000000..6cd2ecd
--- /dev/null
+++ b/lwcomponents/movefloor.lua
@@ -0,0 +1,439 @@
+local utils = ...
+local S = utils.S
+
+
+
+if utils.mesecon_supported then
+
+
+
+local mesecon_rules =
+{
+	{ 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 =  1, y = -1, z =  0 },
+	{ x = -1, y = -1, z =  0 },
+	{ x =  0, y = -1, z =  1 },
+	{ x =  0, y = -1, z = -1 },
+}
+
+
+
+local max_push = 3
+
+
+
+local function get_movefloor_direction (rulename)
+	if rulename.y > 0 then
+		return { x = 0, y = 1, z = 0 }
+	elseif rulename.y < 0 then
+		return { x = 0, y = -1, z = 0 }
+	end
+end
+
+
+
+local function add_movefloor_list (pos, list)
+	for i = 1, #list do
+		if list[i].x == pos.x and
+			list[i].y == pos.y and
+			list[i].z == pos.z then
+
+			return false
+		end
+	end
+
+	list[#list + 1] = { x = pos.x, y = pos.y, z = pos.z }
+
+	return true
+end
+
+
+
+local function find_adjoining_movefloor (pos, list)
+	local tpos =
+	{
+		{ x = pos.x + 1, y = pos.y, z = pos.z },
+		{ x = pos.x - 1, y = pos.y, z = pos.z },
+		{ x = pos.x, y = pos.y, z = pos.z + 1 },
+		{ x = pos.x, y = pos.y, z = pos.z - 1 }
+	}
+
+	for i = 1, #tpos do
+		local node = minetest.get_node (tpos[i])
+		if node and node.name == "lwcomponents:movefloor" then
+			if add_movefloor_list (tpos[i], list) then
+				find_adjoining_movefloor (tpos[i], list)
+			end
+		end
+	end
+end
+
+
+
+local function get_node_height (node)
+	local height = 0
+	local def = minetest.registered_nodes[node.name]
+
+	if def and type (def.collision_box) == "table" then
+		if def.collision_box.type and def.collision_box.type == "regular" then
+			height = 1
+
+		else
+			for _, box in pairs (def.collision_box) do
+				if type (box) == "table" then
+					if type (box[5]) == "number" then
+						height = box[5]
+					else
+						for _, b in ipairs (box) do
+							if type (b[5]) == "number" and b[5] > height then
+								height = b[5]
+							end
+						end
+					end
+				end
+			end
+
+		end
+	end
+
+	return height
+end
+
+
+
+local function get_affected_nodes (floor_list)
+	local list = { }
+	local max_height = 0
+	local protected = false
+
+	for _, fpos in ipairs (floor_list) do
+		for y = 0, max_push, 1 do
+			local npos = vector.add (fpos, { x = 0, y = y, z = 0 })
+			local node = utils.get_far_node (npos)
+
+			if node and node.name ~= "air" then
+				local meta = minetest.get_meta (npos)
+				local timer = minetest.get_node_timer (npos)
+				local h = get_node_height (node) + npos.y - fpos.y - 0.5
+
+				list[#list + 1] =
+				{
+					pos = npos,
+					node = node,
+					meta = (meta and meta:to_table ()),
+					timeout = (timer and timer:get_timeout ()) or 0,
+					elapsed = (timer and timer:get_elapsed ()) or 0
+				}
+
+				if h > max_height then
+					max_height = h
+				end
+
+				if utils.is_protected (npos, nil) then
+					protected = true
+				end
+			end
+		end
+	end
+
+	return list, math.ceil (max_height), protected
+end
+
+
+
+local function get_entity_height (obj, base)
+	local height = 0
+
+	if obj.get_pos then
+		local pos = obj:get_pos ()
+
+		if obj.get_luaentity then
+			local entity = obj:get_luaentity ()
+
+			if entity and entity.name then
+				local def = minetest.registered_entities[entity.name]
+
+				if def and type (def.collisionbox) == "table" and
+					type (def.collisionbox[5]) == "number" then
+
+					height = def.collisionbox[5] + pos.y - base
+				end
+			end
+		end
+
+		local props = obj:get_properties ()
+		if props and props.collisionbox and type (props.collisionbox) == "table" and
+			type (props.collisionbox[5]) == "number" then
+
+			if props.collisionbox[5] > height then
+				height = props.collisionbox[5] + pos.y - base
+			end
+		end
+	end
+
+	return height
+end
+
+
+
+local function get_affected_entities (floor_list)
+	local list = { }
+	local max_height = 0
+
+	for _, fpos in pairs (floor_list) do
+		local min_pos = vector.subtract (fpos, { x = 0.4999, y = 0.4999, z = 0.4999 })
+		local max_pos = vector.add (fpos, { x = 0.4999, y = max_push + 0.4999, z = 0.4999 })
+
+		local objects = minetest.get_objects_in_area (min_pos, max_pos)
+
+		for _, obj in ipairs (objects) do
+			local h = get_entity_height (obj, fpos.y + 0.5)
+
+			list[#list + 1] =
+			{
+				pos = obj:get_pos (),
+				obj = obj
+			}
+
+			if h > max_height then
+				max_height = h
+			end
+		end
+	end
+
+	return list, math.ceil (max_height)
+end
+
+
+
+local function is_obstructed (floor_list, height)
+	for _, fpos in pairs (floor_list) do
+		local npos = vector.add (fpos, { x = 0, y = height, z = 0 })
+
+		if utils.is_protected (npos, nil) then
+			return true
+		end
+
+		local node = utils.get_far_node (npos)
+
+		if node and node.name ~= "air" then
+			local def = minetest.registered_nodes[node.name]
+
+			if not def or not def.buildable_to then
+				return true
+			end
+		end
+	end
+
+	return false
+end
+
+
+
+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
+
+				if entry.obj:is_player () then
+					pos = vector.add (entry.pos, { x = move.x, y = move.y + 0.1, z = move.z })
+				else
+					pos = vector.add (entry.pos, move)
+				end
+
+				if entry.obj.move_to then
+					entry.obj:move_to (pos)
+				elseif entry.set_pos then
+					entry.obj:set_pos (pos)
+				end
+			end
+		end
+	end
+end
+
+
+
+local function update_player_position (list)
+	for _, entry in ipairs (list) do
+		local player = minetest.get_player_by_name (entry.name)
+
+		if player then
+			local pos = player:get_pos ()
+
+			if pos.y < entry.pos.y then
+				pos.y = entry.pos.y + 0.1
+				player:set_pos (pos)
+			end
+		end
+	end
+end
+
+
+
+local function queue_player_update (list, move)
+	local players = { }
+
+	for _, entry in ipairs (list) do
+		if entry.obj and entry.obj:is_player () then
+			players[#players + 1] =
+			{
+				pos = vector.add (entry.pos, move),
+				name = entry.obj:get_player_name ()
+			}
+		end
+	end
+
+	if #players > 0 then
+		minetest.after(0.1, update_player_position, players)
+	end
+end
+
+
+
+local function move_nodes (list, move)
+	if move.y > 0 then
+		for i = #list, 1, -1 do
+			local pos = vector.add (list[i].pos, move)
+
+			minetest.remove_node (list[i].pos)
+			minetest.set_node (pos, list[i].node)
+
+			if list[i].meta then
+				local meta = minetest.get_meta (pos)
+
+				if meta then
+					meta:from_table (list[i].meta)
+				end
+			end
+
+			if list[i].timeout > 0 then
+				local timer = minetest.get_node_timer (pos)
+
+				if timer then
+					timer:set (list[i].timeout, list[i].elapsed)
+				end
+			end
+		end
+	else
+		for i = 1, #list, 1 do
+			local pos = vector.add (list[i].pos, move)
+
+			minetest.remove_node (list[i].pos)
+			minetest.set_node (pos, list[i].node)
+
+			if list[i].meta then
+				local meta = minetest.get_meta (pos)
+
+				if meta then
+					meta:from_table (list[i].meta)
+				end
+			end
+
+			if list[i].timeout > 0 then
+				local timer = minetest.get_node_timer (pos)
+
+				if timer then
+					timer:set (list[i].timeout, list[i].elapsed)
+				end
+			end
+		end
+	end
+end
+
+
+
+local function check_for_falling (list)
+	for _, pos in ipairs (list) do
+		minetest.check_for_falling (vector.add (pos, { x = 0, y = max_push + 1, z = 0 }))
+	end
+end
+
+
+
+local function movefloor_move (pos, node, rulename)
+	local direction = get_movefloor_direction (rulename)
+
+	local list =
+	{
+		{ x = pos.x, y = pos.y, z = pos.z }
+	}
+
+	find_adjoining_movefloor (pos, list)
+
+	local nodes, height, protected = get_affected_nodes (list)
+
+	if protected then
+		return
+	end
+
+	local entities, h = get_affected_entities (list)
+
+	if h > height then
+		height = h
+	end
+
+	if is_obstructed (list, (direction.y > 0 and height + 1) or -1) then
+		return
+	end
+
+	if direction.y > 0 then
+		move_entities (entities, direction, true)
+		move_nodes (nodes, direction)
+		queue_player_update (entities, direction)
+	else
+		move_nodes (nodes, direction)
+		move_entities (entities, direction, false)
+		check_for_falling (list)
+		queue_player_update (entities, direction)
+	end
+
+	minetest.sound_play ("lwmovefloor", { pos = pos, max_hear_distance = 10, gain = 1.0 }, true)
+end
+
+
+
+local function mesecon_support ()
+	return
+	{
+		effector =
+		{
+			rules = table.copy (mesecon_rules),
+
+			action_on = function (pos, node, rulename)
+				-- do something to turn the effector on
+
+				if rulename then
+					movefloor_move (pos, node, rulename)
+				end
+			end
+		}
+	}
+end
+
+
+
+minetest.register_node("lwcomponents:movefloor", {
+   description = S("Moving Floor"),
+   tiles = { "lwmovefloortop.png", "lwmovefloortop.png",
+				 "lwmovefloorside.png", "lwmovefloorside.png",
+				 "lwmovefloorside.png", "lwmovefloorside.png" },
+   sunlight_propagates = false,
+   drawtype = "normal",
+   node_box = {
+      type = "fixed",
+      fixed = {
+         {-0.5, -0.5, -0.5, 0.5, 0.5, 0.5},
+      }
+   },
+	groups = { cracky = 2 },
+	--sounds = default.node_sound_wood_defaults (),
+	mesecons = mesecon_support (),
+})
+
+
+
+end
diff --git a/lwcomponents/pistons.lua b/lwcomponents/pistons.lua
new file mode 100644
index 0000000..9dcff58
--- /dev/null
+++ b/lwcomponents/pistons.lua
@@ -0,0 +1,1353 @@
+local utils = ...
+local S = utils.S
+
+
+
+if utils.digilines_supported or utils.mesecon_supported then
+
+
+
+local piston_interval = 0.2
+
+
+
+local function direction_vector (node)
+	local axis = math.floor (node.param2 / 4)
+	local rotate = node.param2 % 4
+	local vec = { x = 0, y = 0, z = 0 }
+
+	if rotate == 0 then
+		vec = { x = 0, y = 0, z = -1 }
+	elseif rotate == 1 then
+		vec = { x = -1, y = 0, z = 0 }
+	elseif rotate == 2 then
+		vec = { x = 0, y = 0, z = 1 }
+	elseif rotate == 3 then
+		vec = { x = 1, y = 0, z = 0 }
+	end
+
+	if axis == 1 then
+		vec = vector.rotate (vec, { x = math.pi / -2, y = 0, z = 0 })
+	elseif axis == 2 then
+		vec = vector.rotate (vec, { x = math.pi / 2, y = 0, z = 0 })
+	elseif axis == 3 then
+		vec = vector.rotate (vec, { x = 0, y = 0, z = math.pi / 2 })
+	elseif axis == 4 then
+		vec = vector.rotate (vec, { x = 0, y = 0, z = math.pi / -2 })
+	elseif axis == 5 then
+		vec = vector.rotate (vec, { x = math.pi, y = 0, z = 0 })
+	end
+
+	return vec
+end
+
+
+
+local function push_entities (pos, movedir, entity_list, upper_limit)
+	local objects = minetest.get_objects_inside_radius (pos, 1.5)
+
+	for _, obj in ipairs (objects) do
+		if obj.get_pos and obj.move_to then
+			local opos = obj: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 + upper_limit) then
+
+				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
+	end
+end
+
+
+
+local function update_player_position (player_list)
+	for _, entry in ipairs (player_list) do
+		local player = minetest.get_player_by_name (entry.name)
+
+		if player then
+			local pos = player:get_pos ()
+
+			if pos.y < entry.pos.y then
+				pos.y = entry.pos.y
+				player:set_pos (pos)
+			end
+		end
+	end
+end
+
+
+
+local function queue_player_update (entity_list, movedir)
+	local players = { }
+
+	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
+
+		local node = utils.get_far_node (pos)
+
+		if not node then
+			return 0
+		end
+
+		local def = utils.find_item_def (node.name)
+
+		if node.name == "air" or (def and def.buildable_to) then
+			return 1
+		end
+
+		if node.name == "lwcomponents:piston_blank_1" or
+				node.name == "lwcomponents:piston_blank_2" then
+			return 0
+		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
+
+		-- If adjacent node is sticky block and connects add that
+		-- position to the connected table
+		for _, r in ipairs (rules_alldirs) do
+			local apos = vector.add (pos, r)
+			local anode = utils.get_far_node (apos)
+			local adef = (anode and minetest.registered_nodes[anode.name]) or nil
+
+			if adef and adef.mvps_sticky then
+				local sides = adef.mvps_sticky (apos, anode)
+
+				-- connects to this position?
+				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
+
+						break
+					end
+				end
+			end
+		end
+	end
+
+	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
+				if math.abs (n.pos.y - base_pos.y) > radius or
+						math.abs (n.pos.x - base_pos.x) > radius then
+					return false
+				end
+			elseif movedir.y ~= 0 then
+				if math.abs (n.pos.x - base_pos.x) > radius or
+						math.abs (n.pos.z - base_pos.z) > radius then
+					return false
+				end
+			end
+
+			-- 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
+
+	return true
+end
+
+
+
+local function sort_node_list (node_list)
+	local movedir = node_list.movedir
+
+	if movedir then
+		if movedir.x > 0 then
+			table.sort (node_list , function (n1, n2)
+				return n1.pos.x > n2.pos.x
+			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
+
+
+
+local on_mvps_move = function (node_list)
+end
+
+
+
+local is_mvps_stopper = function (node, movedir, node_list, id)
+	return false
+end
+
+
+
+local update_mesecons_connections_removed = function (node_list)
+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
+
+
+
+local function place_blank (pos, extent)
+	local node = utils.get_far_node (pos)
+
+	if node then
+		local vec = direction_vector (node)
+		local blank_pos = vector.add (pos, vector.multiply (vec, extent))
+		local blank_node = utils.get_far_node (blank_pos)
+		local blank_def = blank_node and utils.find_item_def (blank_node.name)
+
+		if blank_node and blank_node.name == "air" or
+			(blank_def and not blank_def.walkable) then
+
+			minetest.set_node (blank_pos,
+									 {
+										name = "lwcomponents:piston_blank_"..tostring (extent),
+										param2 = node.param2
+									 })
+		end
+	end
+end
+
+
+
+local function remove_blank (pos, extent)
+	local node = utils.get_far_node (pos)
+
+	if node then
+		local vec = direction_vector (node)
+		local blank_pos = vector.add (pos, vector.multiply (vec, extent))
+		local blank_node = utils.get_far_node (blank_pos)
+
+		if blank_node and
+			blank_node.name == "lwcomponents:piston_blank_"..tostring (extent) then
+
+			minetest.remove_node (blank_pos)
+		end
+	end
+end
+
+
+
+local function extend_piston (pos, extent)
+	local node = utils.get_far_node (pos)
+	local meta = minetest.get_meta (pos)
+
+	if node and meta then
+		extent = math.max (math.min (tonumber (extent or 2), meta:get_int ("max_extent")), 0)
+
+		if node.name == "lwcomponents:piston" then
+			if extent ~= 0 then
+				if push_nodes (pos, 1) then
+					node.name = "lwcomponents:piston_1"
+					minetest.swap_node (pos, node)
+					place_blank (pos, 1)
+					minetest.sound_play ("lwpiston_extend",
+												{
+													pos = pos,
+													max_hear_distance = 20,
+													gain = 0.3
+												},
+												true)
+
+					if extent == 2 then
+						meta:set_int ("extent", 2)
+						minetest.get_node_timer (pos):start (piston_interval)
+
+						return true
+					end
+				end
+			end
+
+		elseif node.name == "lwcomponents:piston_1" then
+			if extent == 0 then
+				remove_blank (pos, 1)
+				node.name = "lwcomponents:piston"
+				minetest.swap_node (pos, node)
+				minetest.sound_play ("lwpiston_retract",
+											{
+												pos = pos,
+												max_hear_distance = 20,
+												gain = 0.3
+											},
+											true)
+
+			elseif extent == 2 then
+				if push_nodes (pos, 2) then
+					node.name = "lwcomponents:piston_2"
+					minetest.swap_node (pos, node)
+					place_blank (pos, 2)
+					minetest.sound_play ("lwpiston_extend",
+												{
+													pos = pos,
+													max_hear_distance = 20,
+													gain = 0.3
+												},
+												true)
+				end
+			end
+
+		elseif node.name == "lwcomponents:piston_2" then
+			if extent ~= 2 then
+				remove_blank (pos, 2)
+				node.name = "lwcomponents:piston_1"
+				minetest.swap_node (pos, node)
+				minetest.sound_play ("lwpiston_retract",
+											{
+												pos = pos,
+												max_hear_distance = 20,
+												gain = 0.3
+											},
+											true)
+
+				if extent == 0 then
+					meta:set_int ("extent", 0)
+					minetest.get_node_timer (pos):start (piston_interval)
+
+					return true
+				end
+			end
+
+		elseif node.name == "lwcomponents:piston_sticky" then
+			if extent ~= 0 then
+				if push_nodes (pos, 1) then
+					node.name = "lwcomponents:piston_sticky_1"
+					minetest.swap_node (pos, node)
+					place_blank (pos, 1)
+					minetest.sound_play ("lwpiston_extend",
+												{
+													pos = pos,
+													max_hear_distance = 20,
+													gain = 0.3
+												},
+												true)
+
+					if extent == 2 then
+						meta:set_int ("extent", 2)
+						minetest.get_node_timer (pos):start (piston_interval)
+
+						return true
+					end
+				end
+			end
+
+
+		elseif node.name == "lwcomponents:piston_sticky_1" then
+			if extent == 0 then
+				remove_blank (pos, 1)
+				node.name = "lwcomponents:piston_sticky"
+				minetest.swap_node (pos, node)
+				pull_node (pos, 2)
+				minetest.sound_play ("lwpiston_retract",
+											{
+												pos = pos,
+												max_hear_distance = 20,
+												gain = 0.3
+											},
+											true)
+
+			elseif extent == 2 then
+				if push_nodes (pos, 2) then
+					node.name = "lwcomponents:piston_sticky_2"
+					minetest.swap_node (pos, node)
+					place_blank (pos, 2)
+					minetest.sound_play ("lwpiston_extend",
+												{
+													pos = pos,
+													max_hear_distance = 20,
+													gain = 0.3
+												},
+												true)
+				end
+			end
+
+		elseif node.name == "lwcomponents:piston_sticky_2" then
+			if extent ~= 2 then
+				remove_blank (pos, 2)
+				node.name = "lwcomponents:piston_sticky_1"
+				minetest.swap_node (pos, node)
+				pull_node (pos, 3)
+				minetest.sound_play ("lwpiston_retract",
+											{
+												pos = pos,
+												max_hear_distance = 20,
+												gain = 0.3
+											},
+											true)
+
+				if extent == 0 then
+					meta:set_int ("extent", 0)
+					minetest.get_node_timer (pos):start (piston_interval)
+
+					return true
+				end
+			end
+		end
+	end
+
+	return false
+end
+
+
+
+local function on_destruct_1 (pos)
+	remove_blank (pos, 1)
+end
+
+
+
+local function on_destruct_2 (pos)
+	remove_blank (pos, 2)
+	remove_blank (pos, 1)
+end
+
+
+
+local function on_place (itemstack, placer, pointed_thing)
+	local param2 = 0
+
+	if placer and placer:is_player () then
+		param2 = minetest.dir_to_facedir (placer:get_look_dir (), true)
+	elseif pointed_thing and pointed_thing.type == "node" then
+		param2 = minetest.dir_to_facedir (vector.subtract (pointed_thing.under, pointed_thing.above), true)
+	end
+
+	return minetest.item_place (itemstack, placer, pointed_thing, param2)
+end
+
+
+
+
+local function after_place_node (pos, placer, itemstack, pointed_thing)
+	local meta = minetest.get_meta (pos)
+	local spec =
+	"size[7,3.3]"..
+	"field[1,1;4,2;channel;Channel;${channel}]"..
+	"button_exit[4.6,1.15;1.5,1;submit;Set]"..
+	"checkbox[1,2;single;Single move;false]"
+
+	meta:set_string ("formspec", spec)
+	meta:set_int ("max_extent", 2)
+
+	-- 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
+
+	local meta = minetest.get_meta (pos)
+
+	if meta then
+		if fields.submit then
+			meta:set_string ("channel", fields.channel)
+		end
+
+		if fields.single then
+			if fields.single == "true" then
+				local spec =
+				"size[7,3.3]"..
+				"field[1,1;4,2;channel;Channel;${channel}]"..
+				"button_exit[4.6,1.15;1.5,1;submit;Set]"..
+				"checkbox[1,2;single;Single move;true]"
+
+				meta:set_int ("max_extent", 1)
+				meta:set_string ("formspec", spec)
+			else
+				local spec =
+				"size[7,3.3]"..
+				"field[1,1;4,2;channel;Channel;${channel}]"..
+				"button_exit[4.6,1.15;1.5,1;submit;Set]"..
+				"checkbox[1,2;single;Single move;false]"
+
+				meta:set_int ("max_extent", 2)
+				meta:set_string ("formspec", spec)
+			end
+		end
+	end
+end
+
+
+
+local function on_blast (pos, intensity)
+	local meta = minetest.get_meta (pos)
+
+	if meta then
+		if intensity >= 1.0 then
+
+			minetest.remove_node (pos)
+
+		else -- intensity < 1.0
+
+			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
+						utils.item_drop (stack, nil, pos)
+						minetest.remove_node (pos)
+					end
+				end
+			end
+		end
+	end
+end
+
+
+
+local function can_dig (pos, player)
+	if not utils.can_interact_with_node (pos, player) then
+		return false
+	end
+
+	return true
+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)
+	local meta = minetest.get_meta (pos)
+
+	if meta then
+		return extend_piston (pos, meta:get_int ("extent"))
+	end
+
+	return false
+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 then
+							if type (msg) == "string" then
+								local m = { }
+								for w in string.gmatch(msg, "[^%s]+") do
+									m[#m + 1] = w
+								end
+
+								if m[1] == "extend" then
+									extend_piston (pos, m[2])
+
+								elseif m[1] == "retract" then
+									extend_piston (pos, 0)
+
+								elseif m[1] == "single" then
+									local spec =
+									"size[7,3.3]"..
+									"field[1,1;4,2;channel;Channel;${channel}]"..
+									"button_exit[4.6,1.15;1.5,1;submit;Set]"..
+									"checkbox[1,2;single;Single move;true]"
+
+									meta:set_int ("max_extent", 1)
+									meta:set_string ("formspec", spec)
+
+								elseif m[1] == "double" then
+									local spec =
+									"size[7,3.3]"..
+									"field[1,1;4,2;channel;Channel;${channel}]"..
+									"button_exit[4.6,1.15;1.5,1;submit;Set]"..
+									"checkbox[1,2;single;Single move;false]"
+
+									meta:set_int ("max_extent", 2)
+									meta:set_string ("formspec", spec)
+
+								end
+							end
+						end
+					end
+				end,
+			}
+		}
+	end
+
+	return nil
+end
+
+
+
+local function mesecon_support ()
+	if utils.mesecon_supported then
+		return
+		{
+			effector =
+			{
+				rules = function (node)
+					local dir = vector.multiply (minetest.facedir_to_dir (node.param2), -1)
+					local rules = table.copy (utils.mesecon_default_rules)
+
+					for i = #rules, 1, -1 do
+						if vector.equals (rules[i], dir) then
+							table.remove (rules, i)
+						end
+					end
+
+					return rules
+				end,
+
+				action_on = function (pos, node)
+					-- do something to turn the effector on
+					extend_piston (pos, 2)
+				end,
+
+				action_off = function (pos, node)
+					-- do something to turn the effector off
+					extend_piston (pos, 0)
+				end,
+			}
+		}
+	end
+
+	return nil
+end
+
+
+
+minetest.register_node("lwcomponents:piston_blank_1", {
+	description = S("Piston blank"),
+	drawtype = "airlike",
+	light_source = 0,
+	sunlight_propagates = true,
+	walkable = false,
+	pointable = false,
+	diggable = false,
+	climbable = false,
+	buildable_to = false,
+	floodable = false,
+	is_ground_content = false,
+	drop = "",
+	groups = { not_in_creative_inventory = 1 },
+	paramtype = "light",
+	-- unaffected by explosions
+	on_blast = function() end,
+})
+
+
+
+minetest.register_node("lwcomponents:piston_blank_2", {
+	description = S("Piston blank"),
+	drawtype = "airlike",
+	paramtype = "light",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 0,
+	collision_box = {
+		type = "fixed",
+		fixed = {
+			{-0.125, -0.125, -0.4, 0.125, 0.125, 0.4},
+			{-0.5, -0.5, -0.5, 0.5, 0.5, -0.3125},
+		},
+	},
+	light_source = 0,
+	sunlight_propagates = true,
+	walkable = true,
+	pointable = true,
+	diggable = true,
+	climbable = false,
+	buildable_to = false,
+	floodable = false,
+	is_ground_content = false,
+	drop = "",
+	groups = { cracky = 3, not_in_creative_inventory = 1 },
+	-- unaffected by explosions
+	on_blast = function() end,
+})
+
+
+
+minetest.register_node("lwcomponents:piston", {
+	description = S("Double Piston"),
+	tiles = { "lwcomponents_piston_top.png", "lwcomponents_piston_bottom.png",
+				 "lwcomponents_piston_right.png", "lwcomponents_piston_left.png",
+				 "lwcomponents_piston_base.png", "lwcomponents_piston_pusher.png" },
+	is_ground_content = false,
+	groups = { cracky = 3, wires_connect = 1 },
+	--sounds = default.node_sound_stone_defaults (),
+	paramtype = "light",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 0,
+	floodable = false,
+	drop = "lwcomponents:piston",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	on_place = on_place,
+	on_receive_fields = on_receive_fields,
+	can_dig = can_dig,
+	after_place_node = after_place_node,
+	on_blast = on_blast,
+	on_rightclick = on_rightclick,
+	on_timer = on_timer
+})
+
+
+
+minetest.register_node("lwcomponents:piston_1", {
+	description = S("Double Piston"),
+	drawtype = "mesh",
+	mesh = "piston_normal_1.obj",
+	tiles = { "lwcomponents_piston.png" },
+	visual_scale = 1.0,
+	selection_box = {
+		type = "fixed",
+		fixed = {
+			{-0.125, -0.125, -1.4, 0.125, 0.125, 0.4},
+			{-0.5, -0.5, -1.5, 0.5, 0.5, -1.3125},
+			{-0.5, -0.5, -0.3125, 0.5, 0.5, 0.5},
+		},
+	},
+	collision_box = {
+		type = "fixed",
+		fixed = {
+			{-0.125, -0.125, -1.4, 0.125, 0.125, 0.4},
+			{-0.5, -0.5, -1.5, 0.5, 0.5, -1.3125},
+			{-0.5, -0.5, -0.3125, 0.5, 0.5, 0.5},
+		},
+	},
+	is_ground_content = false,
+	groups = { cracky = 3 , not_in_creative_inventory = 1, wires_connect = 1 },
+	--sounds = default.node_sound_stone_defaults (),
+	paramtype = "light",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 0,
+	floodable = false,
+	drop = "lwcomponents:piston",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	on_destruct = on_destruct_1,
+	on_receive_fields = on_receive_fields,
+	can_dig = can_dig,
+	after_place_node = after_place_node,
+	on_blast = on_blast,
+	on_rightclick = on_rightclick,
+	on_timer = on_timer
+})
+
+
+
+minetest.register_node("lwcomponents:piston_2", {
+	description = S("Double Piston"),
+	drawtype = "mesh",
+	mesh = "piston_normal_2.obj",
+	tiles = { "lwcomponents_piston.png" },
+	visual_scale = 1.0,
+	selection_box = {
+		type = "fixed",
+		fixed = {
+			{-0.125, -0.125, -2.4, 0.125, 0.125, 0.4},
+			{-0.5, -0.5, -2.5, 0.5, 0.5, -2.3125},
+			{-0.5, -0.5, -0.3125, 0.5, 0.5, 0.5},
+		},
+	},
+	collision_box = {
+		type = "fixed",
+		fixed = {
+			{-0.125, -0.125, -2.4, 0.125, 0.125, 0.4},
+			{-0.5, -0.5, -2.5, 0.5, 0.5, -2.3125},
+			{-0.5, -0.5, -0.3125, 0.5, 0.5, 0.5},
+		},
+	},
+	is_ground_content = false,
+	groups = { cracky = 3 , not_in_creative_inventory = 1, wires_connect = 1 },
+	--sounds = default.node_sound_stone_defaults (),
+	paramtype = "light",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 0,
+	floodable = false,
+	drop = "lwcomponents:piston",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	on_destruct = on_destruct_2,
+	on_receive_fields = on_receive_fields,
+	can_dig = can_dig,
+	after_place_node = after_place_node,
+	on_blast = on_blast,
+	on_rightclick = on_rightclick,
+	on_timer = on_timer
+})
+
+
+
+minetest.register_node("lwcomponents:piston_sticky", {
+	description = S("Double Sticky Piston"),
+	tiles = { "lwcomponents_piston_top.png", "lwcomponents_piston_bottom.png",
+				 "lwcomponents_piston_right.png", "lwcomponents_piston_left.png",
+				 "lwcomponents_piston_base.png", "lwcomponents_piston_pusher_sticky.png" },
+	is_ground_content = false,
+	groups = { cracky = 3, wires_connect = 1 },
+	--sounds = default.node_sound_stone_defaults (),
+	paramtype = "light",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 0,
+	floodable = false,
+	drop = "lwcomponents:piston_sticky",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	on_place = on_place,
+	on_receive_fields = on_receive_fields,
+	can_dig = can_dig,
+	after_place_node = after_place_node,
+	on_blast = on_blast,
+	on_rightclick = on_rightclick,
+	on_timer = on_timer
+})
+
+
+
+minetest.register_node("lwcomponents:piston_sticky_1", {
+	description = S("Double Sticky Piston"),
+	drawtype = "mesh",
+	mesh = "piston_sticky_1.obj",
+	tiles = { "lwcomponents_piston.png" },
+	visual_scale = 1.0,
+	selection_box = {
+		type = "fixed",
+		fixed = {
+			{-0.125, -0.125, -1.4, 0.125, 0.125, 0.4},
+			{-0.5, -0.5, -1.5, 0.5, 0.5, -1.3125},
+			{-0.5, -0.5, -0.3125, 0.5, 0.5, 0.5},
+		},
+	},
+	collision_box = {
+		type = "fixed",
+		fixed = {
+			{-0.125, -0.125, -1.4, 0.125, 0.125, 0.4},
+			{-0.5, -0.5, -1.5, 0.5, 0.5, -1.3125},
+			{-0.5, -0.5, -0.3125, 0.5, 0.5, 0.5},
+		},
+	},
+	is_ground_content = false,
+	groups = { cracky = 3 , not_in_creative_inventory = 1, wires_connect = 1 },
+	--sounds = default.node_sound_stone_defaults (),
+	paramtype = "light",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 0,
+	floodable = false,
+	drop = "lwcomponents:piston_sticky",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	on_destruct = on_destruct_1,
+	on_receive_fields = on_receive_fields,
+	can_dig = can_dig,
+	after_place_node = after_place_node,
+	on_blast = on_blast,
+	on_rightclick = on_rightclick,
+	on_timer = on_timer
+})
+
+
+
+minetest.register_node("lwcomponents:piston_sticky_2", {
+	description = S("Double Sticky Piston"),
+	drawtype = "mesh",
+	mesh = "piston_sticky_2.obj",
+	tiles = { "lwcomponents_piston.png" },
+	visual_scale = 1.0,
+	selection_box = {
+		type = "fixed",
+		fixed = {
+			{-0.125, -0.125, -2.4, 0.125, 0.125, 0.4},
+			{-0.5, -0.5, -2.5, 0.5, 0.5, -2.3125},
+			{-0.5, -0.5, -0.3125, 0.5, 0.5, 0.5},
+		},
+	},
+	collision_box = {
+		type = "fixed",
+		fixed = {
+			{-0.125, -0.125, -2.4, 0.125, 0.125, 0.4},
+			{-0.5, -0.5, -2.5, 0.5, 0.5, -2.3125},
+			{-0.5, -0.5, -0.3125, 0.5, 0.5, 0.5},
+		},
+	},
+	is_ground_content = false,
+	groups = { cracky = 3 , not_in_creative_inventory = 1, wires_connect = 1 },
+	--sounds = default.node_sound_stone_defaults (),
+	paramtype = "light",
+	param1 = 0,
+	paramtype2 = "facedir",
+	param2 = 0,
+	floodable = false,
+	drop = "lwcomponents:piston_sticky",
+	_digistuff_channelcopier_fieldname = "channel",
+
+	mesecons = mesecon_support (),
+	digiline = digilines_support (),
+
+	on_destruct = on_destruct_2,
+	on_receive_fields = on_receive_fields,
+	can_dig = can_dig,
+	after_place_node = after_place_node,
+	on_blast = on_blast,
+	on_rightclick = on_rightclick,
+	on_timer = on_timer
+})
+
+
+
+end -- utils.digilines_supported or utils.mesecon_supported
diff --git a/lwcomponents/player_button.lua b/lwcomponents/player_button.lua
new file mode 100644
index 0000000..6ad3955
--- /dev/null
+++ b/lwcomponents/player_button.lua
@@ -0,0 +1,236 @@
+local utils = ...
+local S = utils.S
+
+
+
+if utils.digilines_supported and utils.digistuff_supported then
+
+
+
+local function on_contruct (pos)
+	local meta = minetest.get_meta(pos)
+	local spec =
+	"size[7.5,3]"..
+	"field[1,1;6,2;channel;Channel;${channel}]"..
+	"button_exit[2.5,2;3,1;submit;Set]"
+
+	meta:set_string("formspec", spec)
+end
+
+
+
+local function on_receive_fields (pos, formname, fields, sender)
+	local meta = minetest.get_meta(pos)
+
+	if fields.submit then
+		if fields.channel ~= "" then
+			meta:set_string ("channel", fields.channel)
+			meta:set_string ("formspec", "")
+			minetest.swap_node (pos, { name = "lwcomponents:player_button_off",
+												param2 = minetest.get_node(pos).param2 })
+		else
+			minetest.chat_send_player (sender:get_player_name(), "Please set a channel!")
+		end
+	end
+end
+
+
+
+local function player_button_push (pos, node, player)
+	local meta = minetest.get_meta (pos)
+
+	if player and player:is_player () then
+		local channel = meta:get_string ("channel")
+		local formspec = meta:get_string ("formspec")
+
+		if channel:len () > 0 and formspec:len () == 0 then
+			utils.digilines_receptor_send (pos,
+													 digistuff.button_get_rules (node),
+													 channel,
+													 { action = "player",
+														name = player:get_player_name () })
+		end
+	end
+
+	if node.name == "lwcomponents:player_button_off" then
+		node.name = "lwcomponents:player_button_on"
+
+		minetest.swap_node(pos, node)
+
+		if digistuff.mesecons_installed then
+			minetest.sound_play ("mesecons_button_push", { pos = pos })
+		end
+
+		minetest.get_node_timer (pos):start (0.25)
+	end
+end
+
+
+
+local function player_button_turnoff (pos)
+	local node = minetest.get_node(pos)
+
+	if node.name == "lwcomponents:player_button_on" then
+		node.name = "lwcomponents:player_button_off"
+
+		minetest.swap_node (pos, node)
+
+		if digistuff.mesecons_installed then
+			minetest.sound_play ("mesecons_button_pop", { pos = pos })
+		end
+	end
+end
+
+
+
+minetest.register_node ("lwcomponents:player_button", {
+	description = S("Player Button"),
+	drawtype = "nodebox",
+	tiles = {
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button.png"
+	},
+	use_texture_alpha = "clip",
+	paramtype = "light",
+	paramtype2 = "facedir",
+	legacy_wallmounted = true,
+	walkable = false,
+	sunlight_propagates = true,
+	drop = "lwcomponents:player_button",
+	selection_box = {
+	type = "fixed",
+		fixed = { -6/16, -6/16, 5/16, 6/16, 6/16, 8/16 }
+	},
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{ -6/16, -6/16, 6/16, 6/16, 6/16, 8/16 },	-- the thin plate behind the button
+			{ -4/16, -2/16, 4/16, 4/16, 2/16, 6/16 }	-- the button itself
+		}
+	},
+	groups = { dig_immediate = 2, digiline_receiver = 1 },
+	_digistuff_channelcopier_fieldname = "channel",
+	sounds = default and default.node_sound_stone_defaults(),
+
+	digiline =
+	{
+		receptor = {},
+		wire = {
+			rules = digistuff.button_get_rules,
+		},
+	},
+
+	on_construct = on_contruct,
+	after_place_node = digistuff.place_receiver,
+	after_destruct = digistuff.remove_receiver,
+	on_receive_fields = on_receive_fields,
+})
+
+
+
+minetest.register_node ("lwcomponents:player_button_off", {
+	description = S("Player Button"),
+	drawtype = "nodebox",
+	tiles = {
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button.png"
+	},
+	use_texture_alpha = "clip",
+	paramtype = "light",
+	paramtype2 = "facedir",
+	legacy_wallmounted = true,
+	walkable = false,
+	sunlight_propagates = true,
+	drop = "lwcomponents:player_button",
+	selection_box = {
+	type = "fixed",
+		fixed = { -6/16, -6/16, 5/16, 6/16, 6/16, 8/16 }
+	},
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{ -6/16, -6/16, 6/16, 6/16, 6/16, 8/16 },	-- the thin plate behind the button
+			{ -4/16, -2/16, 4/16, 4/16, 2/16, 6/16 }	-- the button itself
+		}
+	},
+	groups = { dig_immediate = 2, digiline_receiver = 1, not_in_creative_inventory = 1 },
+	_digistuff_channelcopier_fieldname = "channel",
+	sounds = default and default.node_sound_stone_defaults(),
+
+	digiline =
+	{
+		receptor = {},
+		wire = {
+			rules = digistuff.button_get_rules,
+		},
+		effector = {
+			action = digistuff.button_handle_digilines,
+		},
+	},
+
+	after_destruct = digistuff.remove_receiver,
+	on_rightclick = player_button_push,
+})
+
+
+
+minetest.register_node ("lwcomponents:player_button_on", {
+	description = S("Player Button"),
+	drawtype = "nodebox",
+	tiles = {
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_side.png",
+	"lwplayer_button_on.png"
+	},
+	use_texture_alpha = "clip",
+	paramtype = "light",
+	paramtype2 = "facedir",
+	legacy_wallmounted = true,
+	walkable = false,
+	sunlight_propagates = true,
+	light_source = 7,
+	drop = "lwcomponents:player_button",
+	selection_box = {
+		type = "fixed",
+		fixed = { -6/16, -6/16, 5/16, 6/16, 6/16, 8/16 }
+	},
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{ -6/16, -6/16,  6/16, 6/16, 6/16, 8/16 },
+			{ -4/16, -2/16, 11/32, 4/16, 2/16, 6/16 }
+		}
+	},
+	groups = { dig_immediate = 2, digiline_receiver = 1, not_in_creative_inventory = 1 },
+	_digistuff_channelcopier_fieldname = "channel",
+	sounds = default and default.node_sound_stone_defaults(),
+
+	digiline =
+	{
+		receptor = {},
+		wire = {
+			rules = digistuff.button_get_rules,
+		},
+	},
+
+	after_destruct = digistuff.remove_receiver,
+	on_rightclick = function (pos, node, clicker, itemstack, pointed_thing)
+		-- so clicking when depressed doesn't place node
+	end,
+	on_timer = player_button_turnoff,
+})
+
+
+
+end -- utils.digilines_supported and utils.digistuff_supported