Add digilines movestone

3 files changed, 294 insertions, 0 deletions

diff --git a/README b/README
index dc649b8..d9f0b9b 100644
--- a/README
+++ b/README
@@ -101,3 +101,27 @@ The RAM and EEPROM chips behave identically, except that the RAM chip loses its
 
 How to use the 2D graphics processor:
 Please see gpu.txt for information on this part.
+
+How to use the digilines pistons:
+The following commands are accepted as strings: "extend" (extend the piston), "retract" (retract the piston), and "retract_sticky" (retract the piston, pulling one node like a sticky piston)
+You can also send a command as a table. If so, the fields that can be used in the table are as follows:
+* action: "extend" or "retract"
+* max: The maximum number of nodes to push/pull, cannot be set higher than 16. Set to 0 (or omit) when retracting to perform a non-sticky retraction.
+* allsticky: Pull a whole stack of nodes (like movestone), not just one.
+
+How to use the digilines movestone:
+Commands for this node are in the form of a table, with the field "command" set to the desired action, and other fields providing parameters.
+The commands are as follows:
+* "getstate": Returns a table containing the following elements: "targetpos" (table representing the target position), "pos" (table representing the current position), and "moveaxis" (the current axis being moved along, nil if not moving)
+* "absmove": Moves to the absolute position specified by "x" "y" and "z". No axis can move more than 50m as a result of one command. If movements along more than one axis are needed, they are processed in alphabetical order (X,Y,Z).
+* "relmove": Same as absmove, but relative to the current position (for example, y=1 moves up 1m, not *to* Y=1)
+The available parameters for absmove and relmove are:
+* x: Target X position (for absmove) or target change in X position (for relmove)
+* y: Same, but for Y
+* z: Same, but for Z
+* sticky: Whether to pull nodes along behind the movestone
+* allsticky: Whether to pull a full stack of nodes like normal movestone (true) or just one like a sticky piston (false)
+* maxstack: The maximum number of nodes to push/pull, with the movestone itself counting as 1. Cannot be set higher than 50.
+* sound: "mesecons" to have the mesecons movestone sound play or "none" for no sound at all
+If any of x/y/z are omitted, then they default to the current position (for absmove) or 0 (for relmove).
+If any of maxstack/sticky/allsticky/sound are omitted, they default to the values last used.
diff --git a/init.lua b/init.lua
index 84b5b37..13b99c1 100644
--- a/init.lua
+++ b/init.lua
@@ -19,6 +19,7 @@ local components = {
 	"memory",
 	"gpu",
 	"sillystuff",
+	"movestone",
 }
 
 if minetest.get_modpath("mesecons_luacontroller") then table.insert(components,"ioexpander") end
diff --git a/movestone.lua b/movestone.lua
new file mode 100644
index 0000000..e597a42
--- /dev/null
+++ b/movestone.lua
@@ -0,0 +1,269 @@
+if not minetest.get_modpath("mesecons_mvps") then
+	minetest.log("warning","mesecons_mvps is not installed - digilines movestone will not be available")
+	return
+end
+
+local function abortmovement(pos)
+	local meta = minetest.get_meta(pos)
+	local state = meta:get_string("state")
+	if state ~= "" then state = minetest.deserialize(state) else state = {} end
+	state.targetx = pos.x
+	state.targety = pos.y
+	state.targetz = pos.z
+	state.moveaxis = nil
+	meta:set_string("state",minetest.serialize(state))
+end
+
+local function checkprotection(pos,player)
+	if not player then player = "" end
+	if type(player) ~= "string" then player = player:get_player_name() end
+	if minetest.is_protected(pos,player) and not minetest.check_player_privs(player,{protection_bypass=true}) then
+		minetest.record_protection_violation(pos,player)
+		return false
+	end
+	return true
+end
+
+local function move(pos,dir,state)
+	local newpos = vector.add(pos,dir)
+	local stack = mesecon.mvps_get_stack(pos,dir,state.maxstack,state.sticky and state.allsticky)
+	if not stack then
+		abortmovement(pos)
+		return false
+	end
+	for _,i in pairs(stack) do
+		if not checkprotection(i.pos,state.player) then
+			abortmovement(pos)
+			return false
+		end
+	end
+	local success,stack,oldstack = mesecon.mvps_push(pos,dir,state.maxstack)
+	if not success then
+		abortmovement(pos)
+		return false
+	end
+	mesecon.mvps_process_stack(stack)
+	mesecon.mvps_move_objects(pos,dir,oldstack)
+	if state.sound == "mesecons" then
+		minetest.sound_play("movestone",{pos = pos,max_hear_distance = 20,gain = 0.5,},true)
+	end
+	if not state.sticky then return true end
+	local ppos = vector.add(pos,vector.multiply(dir,-1))
+	local success,stack,oldstack
+	if state.allsticky then
+		success,stack,oldstack = mesecon.mvps_pull_all(ppos,dir,state.maxstack)
+	else
+		success,stack,oldstack = mesecon.mvps_pull_single(ppos,dir,state.maxstack)
+	end
+	if success then
+		mesecon.mvps_move_objects(ppos,dir,oldstack,-1)
+	else
+		abortmovement(pos)
+		return false
+	end
+	return true
+end
+
+local rules = {
+	{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},
+}
+
+minetest.register_node("digistuff:movestone", {
+	description = "Digilines Movestone",
+	groups = {cracky = 3,},
+	on_construct = function(pos)
+		local meta = minetest.get_meta(pos)
+		meta:set_string("formspec","field[channel;Channel;${channel}")
+		local initialstate = {
+			targetx = pos.x,
+			targety = pos.y,
+			targetz = pos.z,
+			sound = "mesecons",
+			maxstack = 0,
+			allsticky = false,
+		}
+		meta:set_int("active",0)
+		meta:set_string("state",minetest.serialize(initialstate))
+	end,
+	after_place_node = function(pos,player)
+		if not player then return end
+		local meta = minetest.get_meta(pos)
+		meta:set_string("owner",player:get_player_name())
+	end,
+	tiles = {
+		"jeija_movestone_side.png",
+	},
+	on_receive_fields = function(pos, formname, fields, sender)
+		local name = sender:get_player_name()
+		if minetest.is_protected(pos,name) and not minetest.check_player_privs(name,{protection_bypass=true}) then
+			minetest.record_protection_violation(pos,name)
+			return
+		end
+		local meta = minetest.get_meta(pos)
+		if fields.channel then meta:set_string("channel",fields.channel) end
+	end,
+	on_timer = function(pos)
+		local meta = minetest.get_meta(pos)
+		if meta:get_int("active") < 1 then return end
+		local state = meta:get_string("state")
+		local newpos = pos
+		if state ~= "" then state = minetest.deserialize(state) else return end
+		if state.moveaxis == "x" then
+			local dir = vector.new(state.targetx > pos.x and 1 or -1,0,0)
+			move(pos,dir,state)
+			newpos = vector.add(pos,dir)
+			if newpos.x == state.targetx then
+				if newpos.y ~= state.targety then
+					state.moveaxis = "y"
+				elseif newpos.z ~= state.targetz then
+					state.moveaxis = "z"
+				else
+					state.moveaxis = nil
+				end
+			end
+		elseif state.moveaxis == "y" then
+			local dir = vector.new(0,state.targety > pos.y and 1 or -1,0)
+			move(pos,dir,state)
+			newpos = vector.add(pos,dir)
+			if newpos.y == state.targety then
+				if newpos.z ~= state.targetz then
+					state.moveaxis = "z"
+				else
+					state.moveaxis = nil
+				end
+			end
+		elseif state.moveaxis == "z" then
+			local dir = vector.new(0,0,state.targetz > pos.z and 1 or -1)
+			move(pos,dir,state)
+			newpos = vector.add(pos,dir)
+			if newpos.z == state.targetz then
+				state.moveaxis = nil
+			end
+		end
+		local newmeta = minetest.get_meta(newpos)
+		newmeta:set_int("active",state.moveaxis and 1 or 0)
+		newmeta:set_string("state",minetest.serialize(state))
+		if state.moveaxis then
+			local timer = minetest.get_node_timer(newpos)
+			timer:start(0.33)
+		end
+	end,
+	_digistuff_channelcopier_fieldname = "channel",
+	digiline = {
+		wire = {
+			rules = rules,
+		},
+		receptor = {},
+		effector = {
+			action = function(pos,node,channel,msg)
+					local meta = minetest.get_meta(pos)
+					local setchan = meta:get_string("channel")
+					if channel ~= setchan then return end
+					if type(msg) ~= "table" or not msg.command then return end
+					if msg.command == "getstate" then
+						local ret = {}
+						local meta = minetest.get_meta(pos)
+						local state = meta:get_string("state")
+						if state ~= "" then state = minetest.deserialize(state) else state = {} end
+						if not state then
+							minetest.log("error",string.format("Invalid state information for digilines movestone at %d,%d,%d: %s",pos.x,pos.y,pos.z,meta:get_string("state")))
+							return
+						end
+						ret.pos = pos
+						ret.targetpos = vector.new(state.targetx,state.targety,state.targetz)
+						ret.moveaxis = state.moveaxis
+						digiline:receptor_send(pos,rules,channel,ret)
+					elseif msg.command == "absmove" then
+						local ret = {}
+						local meta = minetest.get_meta(pos)
+						local state = meta:get_string("state")
+						if state ~= "" then state = minetest.deserialize(state) else state = {} end
+						if not state then
+							minetest.log("error",string.format("Invalid state information for digilines movestone at %d,%d,%d: %s",pos.x,pos.y,pos.z,meta:get_string("state")))
+							return
+						end
+						if type(msg.sound) == "string" then state.sound = msg.sound end
+						if type(msg.x) ~= "number" then msg.x = pos.x end
+						if type(msg.y) ~= "number" then msg.y = pos.y end
+						if type(msg.z) ~= "number" then msg.z = pos.z end
+						msg.x = math.max(pos.x-50,math.min(pos.x+50,math.floor(msg.x)))
+						msg.y = math.max(pos.y-50,math.min(pos.y+50,math.floor(msg.y)))
+						msg.z = math.max(pos.z-50,math.min(pos.z+50,math.floor(msg.z)))
+						local firstaxis
+						if msg.x ~= pos.x then firstaxis = "x"
+						elseif msg.y ~= pos.y then firstaxis = "y"
+						elseif msg.z ~= pos.z then firstaxis = "z" end
+						if firstaxis then
+							state.targetx = msg.x
+							state.targety = msg.y
+							state.targetz = msg.z
+							state.moveaxis = firstaxis
+							if msg.sticky then
+								state.sticky = true
+							elseif msg.sticky == false then
+								state.sticky = false
+							end
+							if msg.allsticky then
+								state.allsticky = true
+							elseif msg.allsticky == false then
+								state.allsticky = false
+							end
+							if type(msg.maxstack) == "number" and msg.maxstack >= 0 and msg.maxstack <= 50 then
+								state.maxstack = math.floor(msg.maxstack)
+							end
+							meta:set_string("state",minetest.serialize(state))
+							meta:set_int("active",1)
+							minetest.get_node_timer(pos):start(0.1)
+						end
+					elseif msg.command == "relmove" then
+						local ret = {}
+						local meta = minetest.get_meta(pos)
+						local state = meta:get_string("state")
+						if state ~= "" then state = minetest.deserialize(state) else state = {} end
+						if not state then
+							minetest.log("error",string.format("Invalid state information for digilines movestone at %d,%d,%d: %s",pos.x,pos.y,pos.z,meta:get_string("state")))
+							return
+						end
+						if type(msg.sound) == "string" then state.sound = msg.sound end
+						if type(msg.x) ~= "number" then msg.x = 0 end
+						if type(msg.y) ~= "number" then msg.y = 0 end
+						if type(msg.z) ~= "number" then msg.z = 0 end
+						msg.x = pos.x+math.max(0,math.min(50,math.floor(msg.x)))
+						msg.y = pos.y+math.max(0,math.min(50,math.floor(msg.y)))
+						msg.z = pos.z+math.max(0,math.min(50,math.floor(msg.z)))
+						local firstaxis
+						if msg.x ~= pos.x then firstaxis = "x"
+						elseif msg.y ~= pos.y then firstaxis = "y"
+						elseif msg.z ~= pos.z then firstaxis = "z" end
+						if firstaxis then
+							state.targetx = msg.x
+							state.targety = msg.y
+							state.targetz = msg.z
+							state.moveaxis = firstaxis
+							if msg.sticky then
+								state.sticky = true
+							elseif msg.sticky == false then
+								state.sticky = false
+							end
+							if msg.allsticky then
+								state.allsticky = true
+							elseif msg.allsticky == false then
+								state.allsticky = false
+							end
+							if type(msg.maxstack) == "number" and msg.maxstack >= 0 and msg.maxstack <= 50 then
+								state.maxstack = math.floor(msg.maxstack)
+							end
+							meta:set_string("state",minetest.serialize(state))
+							meta:set_int("active",1)
+							minetest.get_node_timer(pos):start(0.1)
+						end
+					end
+				end
+		},
+	},
+})