added pistons up and down

3 files changed, 435 insertions, 0 deletions

diff --git a/mesecons_pistons/init.lua b/mesecons_pistons/init.lua
index 742395a..f4d3985 100644
--- a/mesecons_pistons/init.lua
+++ b/mesecons_pistons/init.lua
@@ -228,3 +228,6 @@ function mesecon:piston_get_direction(node)
 		return {x=0, y=0, z=-1}
 	end
 end
+
+dofile(minetest.get_modpath("mesecons_pistons").."/pistons_down.lua")
+dofile(minetest.get_modpath("mesecons_pistons").."/pistons_up.lua")
\ No newline at end of file
diff --git a/mesecons_pistons/pistons_down.lua b/mesecons_pistons/pistons_down.lua
new file mode 100644
index 0000000..62ef986
--- /dev/null
+++ b/mesecons_pistons/pistons_down.lua
@@ -0,0 +1,222 @@
+--PISTONS
+--registration normal one:
+minetest.register_node("mesecons_pistons:piston_down_normal", {
+	description = "Piston DOWN",
+	tiles = {"jeija_piston_tb.png", "jeija_piston_side.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png"},
+	groups = {cracky=3},
+	after_dig_node = function(pos, oldnode)
+		local dir = {x=0, y=-1, z=0}
+		pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to first node to check
+
+		--ensure piston is extended
+		local checknode = minetest.env:get_node(pos)
+		if checknode.name == "mesecons_pistons:piston_down_pusher_normal" then
+			if checknode.param2 == oldnode.param2 then --pusher is facing the same direction as the piston
+				minetest.env:remove_node(pos) --remove the pusher
+			end
+		end
+	end,
+})
+
+--registration sticky one:
+minetest.register_node("mesecons_pistons:piston_down_sticky", {
+	description = "Sticky Piston DOWN",
+	tiles = {"jeija_piston_tb.png", "jeija_piston_sticky_side.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png"},
+	groups = {cracky=3},
+	after_dig_node = function(pos, oldnode)
+		local dir = {x=0, y=-1, z=0}
+		pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to first node to check
+
+		--ensure piston is extended
+		local checknode = minetest.env:get_node(pos)
+		if checknode.name == "mesecons_pistons:piston_down_pusher_sticky" then
+			if checknode.param2 == oldnode.param2 then --pusher is facing the same direction as the piston
+				minetest.env:remove_node(pos) --remove the pusher
+			end
+		end
+	end,
+})
+
+minetest.register_craft({
+	output = "mesecons_pistons:piston_down_normal",
+	recipe = {
+		{"mesecons_pistons:piston_up_normal"},
+	}
+})
+minetest.register_craft({
+	output = "mesecons_pistons:piston_normal",
+	recipe = {
+		{"mesecons_pistons:piston_down_normal"},
+	}
+})
+minetest.register_craft({
+	output = "mesecons_pistons:piston_down_sticky",
+	recipe = {
+		{"mesecons_pistons:piston_up_sticky"},
+	}
+})
+minetest.register_craft({
+	output = "mesecons_pistons:piston_sticky",
+	recipe = {
+		{"mesecons_pistons:piston_down_sticky"},
+	}
+})
+
+minetest.register_node("mesecons_pistons:piston_down_pusher_normal", {
+	drawtype = "nodebox",
+	tiles = {"jeija_piston_pusher_normal.png"},
+	paramtype = "light",
+	diggable = false,
+	selection_box = {
+		type = "fixed",
+		fixed = {
+			{-0.2, -0.3, -0.2, 0.2, 0.5, 0.2},
+			{-0.5, -0.5, -0.5, 0.5, -0.3, 0.5},
+		},
+	},
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{-0.2, -0.3, -0.2, 0.2, 0.5, 0.2},
+			{-0.5, -0.5, -0.5, 0.5, -0.3, 0.5},
+		},
+	},
+})
+
+mesecon:register_mvps_stopper("mesecons_pistons:piston_down_pusher_normal")
+mesecon:register_mvps_stopper("mesecons_pistons:piston_down_pusher_sticky")
+
+minetest.register_node("mesecons_pistons:piston_down_pusher_sticky", {
+	drawtype = "nodebox",
+	tiles = {
+		"jeija_piston_pusher_sticky.png",
+		"jeija_piston_pusher_normal.png",
+		"jeija_piston_pusher_normal.png",
+		"jeija_piston_pusher_normal.png",
+		"jeija_piston_pusher_normal.png",
+		"jeija_piston_pusher_normal.png"
+		},
+	paramtype = "light",
+	diggable = false,
+	selection_box = {
+		type = "fixed",
+		fixed = {
+			{-0.2, -0.3, -0.2, 0.2, 0.5, 0.2},
+			{-0.5, -0.5, -0.5, 0.5, -0.3, 0.5},
+		},
+	},
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{-0.2, -0.3, -0.2, 0.2, 0.5, 0.2},
+			{-0.5, -0.5, -0.5, 0.5, -0.3, 0.5},
+		},
+	},
+})
+
+-- Push action
+mesecon:register_on_signal_on(function(pos, node)
+	if node.name ~= "mesecons_pistons:piston_down_normal" and node.name ~= "mesecons_pistons:piston_down_sticky" then
+		return
+	end
+
+	local dir = {x=0, y=-1, z=0}
+	pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to first node being pushed
+
+	--determine the number of nodes that need to be pushed
+	local count = 0
+	local checkpos = {x=pos.x, y=pos.y, z=pos.z} --first node being pushed
+	while true do
+		local checknode = minetest.env:get_node(checkpos)
+
+		--check for collision with stopper
+		if mesecon:is_mvps_stopper(checknode.name) then 
+			return
+		end
+
+		--check for column end
+		if checknode.name == "air"
+		or checknode.name == "ignore"
+		or checknode.name == "default:water_source"
+		or checknode.name == "default:water_flowing"
+		or checknode.name == "default:lava_source"
+		or checknode.name == "default:lava_flowing" then
+			break
+		end
+
+		--limit piston pushing capacity
+		count = count + 1
+		if count > 15 then
+			return
+		end
+
+		checkpos.x, checkpos.y, checkpos.z = checkpos.x + dir.x, checkpos.y + dir.y, checkpos.z + dir.z
+	end
+
+	local checknode = minetest.env:get_node(pos)
+	minetest.env:remove_node(pos) --remove the first node
+	mesecon:updatenode(pos)
+
+	--add pusher
+	if node.name == "mesecons_pistons:piston_down_normal" then
+		minetest.env:add_node(pos, {name="mesecons_pistons:piston_down_pusher_normal", param2=node.param2})
+	else
+		minetest.env:add_node(pos, {name="mesecons_pistons:piston_down_pusher_sticky", param2=node.param2})
+	end
+
+	--move nodes forward
+	for i = 1, count do
+		pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to the next node
+
+		--move the node forward
+		local nextnode = minetest.env:get_node(pos)
+		--minetest.env:dig_node(pos)
+		minetest.env:set_node(pos, checknode)
+		mesecon:updatenode(pos)
+		checknode = nextnode
+	end
+end)
+
+--Pull action
+mesecon:register_on_signal_off(function(pos, node)
+	if node.name ~= "mesecons_pistons:piston_down_normal" and node.name ~= "mesecons_pistons:piston_down_sticky" then
+		return
+	end
+
+	local dir = {x=0, y=-1, z=0}
+	pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to the node to be replaced
+
+	--ensure piston is extended
+	local checknode = minetest.env:get_node(pos)
+	if checknode.name ~= "mesecons_pistons:piston_down_pusher_normal" and checknode.name ~= "mesecons_pistons:piston_down_pusher_sticky" then
+		return
+	end
+	if checknode.param2 ~= node.param2 then --pusher is not facing the same direction as the piston
+		return --piston is not extended
+	end
+
+	--retract piston
+	minetest.env:remove_node(pos) --remove pusher
+	if node.name ~= "mesecons_pistons:piston_down_sticky" then
+	    nodeupdate(pos)
+	end
+	if node.name == "mesecons_pistons:piston_down_sticky" then --retract block
+		local checkpos = {x=pos.x + dir.x, y=pos.y + dir.y, z=pos.z + dir.z} --move to the node to be retracted
+		checknode = minetest.env:get_node(checkpos)
+		if checknode.name ~= "air"
+		and checknode.name ~= "ignore"
+		and checknode.name ~= "default:water_source"
+		and checknode.name ~= "default:water_flowing"
+		and checknode.name ~= "default:lava_source"
+		and checknode.name ~= "default:lava_flowing"
+		and not mesecon:is_mvps_stopper(checknode.name) then
+			minetest.env:remove_node(checkpos)
+		    mesecon:updatenode(checkpos)
+		    minetest.env:set_node(pos, checknode)
+		    mesecon:updatenode(pos)
+		end
+	end
+	if node.name == "mesecons_pistons:piston_down_sticky" then
+	    nodeupdate(pos)
+	end
+end)
diff --git a/mesecons_pistons/pistons_up.lua b/mesecons_pistons/pistons_up.lua
new file mode 100644
index 0000000..cccfeb9
--- /dev/null
+++ b/mesecons_pistons/pistons_up.lua
@@ -0,0 +1,210 @@
+--PISTONS
+--registration normal one:
+minetest.register_node("mesecons_pistons:piston_up_normal", {
+	description = "Piston UP",
+	tiles = {"jeija_piston_side.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png"},
+	groups = {cracky=3},
+	after_dig_node = function(pos, oldnode)
+		local dir = {x=0, y=1, z=0}
+		pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to first node to check
+
+		--ensure piston is extended
+		local checknode = minetest.env:get_node(pos)
+		if checknode.name == "mesecons_pistons:piston_up_pusher_normal" then
+			if checknode.param2 == oldnode.param2 then --pusher is facing the same direction as the piston
+				minetest.env:remove_node(pos) --remove the pusher
+			end
+		end
+	end,
+})
+
+--registration sticky one:
+minetest.register_node("mesecons_pistons:piston_up_sticky", {
+	description = "Sticky Piston UP",
+	tiles = {"jeija_piston_sticky_side.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png", "jeija_piston_tb.png"},
+	groups = {cracky=3},
+	after_dig_node = function(pos, oldnode)
+		local dir = {x=0, y=1, z=0}
+		pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to first node to check
+
+		--ensure piston is extended
+		local checknode = minetest.env:get_node(pos)
+		if checknode.name == "mesecons_pistons:piston_up_pusher_sticky" then
+			if checknode.param2 == oldnode.param2 then --pusher is facing the same direction as the piston
+				minetest.env:remove_node(pos) --remove the pusher
+			end
+		end
+	end,
+})
+
+minetest.register_craft({
+	output = "mesecons_pistons:piston_up_normal",
+	recipe = {
+		{"mesecons_pistons:piston_normal"},
+	}
+})
+minetest.register_craft({
+	output = "mesecons_pistons:piston_up_sticky",
+	recipe = {
+		{"mesecons_pistons:piston_sticky"},
+	}
+})
+
+minetest.register_node("mesecons_pistons:piston_up_pusher_normal", {
+	drawtype = "nodebox",
+	tiles = {"jeija_piston_pusher_normal.png"},
+	paramtype = "light",
+	diggable = false,
+	selection_box = {
+		type = "fixed",
+		fixed = {
+			{-0.2, -0.5, -0.2, 0.2, 0.3, 0.2},
+			{-0.5, 0.3, -0.5, 0.5, 0.5, 0.5},
+		},
+	},
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{-0.2, -0.5, -0.2, 0.2, 0.3, 0.2},
+			{-0.5, 0.3, -0.5, 0.5, 0.5, 0.5},
+		},
+	},
+})
+
+mesecon:register_mvps_stopper("mesecons_pistons:piston_up_pusher_normal")
+mesecon:register_mvps_stopper("mesecons_pistons:piston_up_pusher_sticky")
+
+minetest.register_node("mesecons_pistons:piston_up_pusher_sticky", {
+	drawtype = "nodebox",
+	tiles = {
+		"jeija_piston_pusher_normal.png",
+		"jeija_piston_pusher_sticky.png",
+		"jeija_piston_pusher_normal.png",
+		"jeija_piston_pusher_normal.png",
+		"jeija_piston_pusher_normal.png",
+		"jeija_piston_pusher_normal.png"
+		},
+	paramtype = "light",
+	diggable = false,
+	selection_box = {
+		type = "fixed",
+		fixed = {
+			{-0.2, -0.5, -0.2, 0.2, 0.3, 0.2},
+			{-0.5, 0.3, -0.5, 0.5, 0.5, 0.5},
+		},
+	},
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{-0.2, -0.5, -0.2, 0.2, 0.3, 0.2},
+			{-0.5, 0.3, -0.5, 0.5, 0.5, 0.5},
+		},
+	},
+})
+
+-- Push action
+mesecon:register_on_signal_on(function(pos, node)
+	if node.name ~= "mesecons_pistons:piston_up_normal" and node.name ~= "mesecons_pistons:piston_up_sticky" then
+		return
+	end
+
+	local dir = {x=0, y=1, z=0}
+	pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to first node being pushed
+
+	--determine the number of nodes that need to be pushed
+	local count = 0
+	local checkpos = {x=pos.x, y=pos.y, z=pos.z} --first node being pushed
+	while true do
+		local checknode = minetest.env:get_node(checkpos)
+
+		--check for collision with stopper
+		if mesecon:is_mvps_stopper(checknode.name) then 
+			return
+		end
+
+		--check for column end
+		if checknode.name == "air"
+		or checknode.name == "ignore"
+		or checknode.name == "default:water_source"
+		or checknode.name == "default:water_flowing"
+		or checknode.name == "default:lava_source"
+		or checknode.name == "default:lava_flowing" then
+			break
+		end
+
+		--limit piston pushing capacity
+		count = count + 1
+		if count > 15 then
+			return
+		end
+
+		checkpos.x, checkpos.y, checkpos.z = checkpos.x + dir.x, checkpos.y + dir.y, checkpos.z + dir.z
+	end
+
+	local checknode = minetest.env:get_node(pos)
+	minetest.env:remove_node(pos) --remove the first node
+	mesecon:updatenode(pos)
+
+	--add pusher
+	if node.name == "mesecons_pistons:piston_up_normal" then
+		minetest.env:add_node(pos, {name="mesecons_pistons:piston_up_pusher_normal", param2=node.param2})
+	else
+		minetest.env:add_node(pos, {name="mesecons_pistons:piston_up_pusher_sticky", param2=node.param2})
+	end
+
+	--move nodes forward
+	for i = 1, count do
+		pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to the next node
+
+		--move the node forward
+		local nextnode = minetest.env:get_node(pos)
+		--minetest.env:dig_node(pos)
+		minetest.env:set_node(pos, checknode)
+		mesecon:updatenode(pos)
+		checknode = nextnode
+	end
+end)
+
+--Pull action
+mesecon:register_on_signal_off(function(pos, node)
+	if node.name ~= "mesecons_pistons:piston_up_normal" and node.name ~= "mesecons_pistons:piston_up_sticky" then
+		return
+	end
+
+	local dir = {x=0, y=1, z=0}
+	pos.x, pos.y, pos.z = pos.x + dir.x, pos.y + dir.y, pos.z + dir.z --move to the node to be replaced
+
+	--ensure piston is extended
+	local checknode = minetest.env:get_node(pos)
+	if checknode.name ~= "mesecons_pistons:piston_up_pusher_normal" and checknode.name ~= "mesecons_pistons:piston_up_pusher_sticky" then
+		return
+	end
+	if checknode.param2 ~= node.param2 then --pusher is not facing the same direction as the piston
+		return --piston is not extended
+	end
+
+	--retract piston
+	minetest.env:remove_node(pos) --remove pusher
+	if node.name ~= "mesecons_pistons:piston_up_sticky" then
+	    nodeupdate(pos)
+	end
+	if node.name == "mesecons_pistons:piston_up_sticky" then --retract block
+		local checkpos = {x=pos.x + dir.x, y=pos.y + dir.y, z=pos.z + dir.z} --move to the node to be retracted
+		checknode = minetest.env:get_node(checkpos)
+		if checknode.name ~= "air"
+		and checknode.name ~= "ignore"
+		and checknode.name ~= "default:water_source"
+		and checknode.name ~= "default:water_flowing"
+		and checknode.name ~= "default:lava_source"
+		and checknode.name ~= "default:lava_flowing"
+		and not mesecon:is_mvps_stopper(checknode.name) then
+			minetest.env:remove_node(checkpos)
+		    mesecon:updatenode(checkpos)
+		    minetest.env:set_node(pos, checknode)
+		    mesecon:updatenode(pos)
+		end
+	end
+	if node.name == "mesecons_pistons:piston_up_sticky" then
+	    nodeupdate(pos)
+	end
+end)