Upload after major code reorganization - Version 0.6 DEV - Split mesecons mod into several modules - [BUGGY?]

4 files changed, 544 insertions, 0 deletions

diff --git a/mesecons/VERSION b/mesecons/VERSION
new file mode 100644
index 0000000..75b9e03
--- /dev/null
+++ b/mesecons/VERSION
@@ -0,0 +1 @@
+0.41 DEV
diff --git a/mesecons/depends.txt b/mesecons/depends.txt
new file mode 100644
index 0000000..4ad96d5
--- /dev/null
+++ b/mesecons/depends.txt
@@ -0,0 +1 @@
+default
diff --git a/mesecons/init.lua b/mesecons/init.lua
new file mode 100644
index 0000000..ac23149
--- /dev/null
+++ b/mesecons/init.lua
@@ -0,0 +1,538 @@
+-- |\    /| ____ ____  ____ _____   ____         _____
+-- | \  / | |    |     |    |      |    | |\   | |
+-- |  \/  | |___ ____  |___ |      |    | | \  | |____
+-- |      | |        | |    |      |    | |  \ |     |
+-- |      | |___ ____| |___ |____  |____| |   \| ____|
+-- by Jeija and Minerd247
+--
+--
+--
+-- This mod adds mesecons[=minecraft redstone] and different receptors/effectors to minetest.
+--
+-- See the documentation on the forum for additional information, especially about crafting
+--
+--Quick Developer documentation for the mesecon API
+--=================================================
+--
+--RECEPTORS
+--
+--A receptor is a node that emits power, e.g. a solar panel, a switch or a power plant.
+--Usually you create two blocks per receptor that have to be switched when switching the on/off state: 
+--	# An off-state node (e.g. mesecons:mesecon_switch_off"
+--	# An on-state node (e.g. mesecons:mesecon_switch_on"
+--The on-state and off-state nodes should be registered in the mesecon api, 
+--so that the Mesecon circuit can be recalculated. This can be done using
+--
+--mesecon:add_receptor_node(nodename) -- for on-state node
+--mesecon:add_receptor_node_off(nodename) -- for off-state node
+--example: mesecon:add_receptor_node("mesecons:mesecon_switch_on")
+--
+--Turning receptors on and off
+--Usually the receptor has to turn on and off. For this, you have to
+--	# Remove the node and replace it with the node in the other state (e.g. replace on by off)
+--	# Send the event to the mesecon circuit by using the api functions
+--		mesecon:receptor_on (pos, rules) } These functions take the position of your receptor
+--		mesecon:receptor_off(pos, rules) } as their parameter.
+--
+--You can specify the rules using the rules parameter. If you don't want special rules, just leave it out
+--
+--!! If a receptor node is removed, the circuit should be recalculated. This means you have to
+--send an mesecon:receptor_off signal to the api when the function in minetest.register_on_dignode
+--is called.
+--
+--EFFECTORS
+--
+--A receptor is a node that uses power and transfers the signal to a mechanical, optical whatever
+--event. e.g. the meselamp, the movestone or the removestone.
+--
+--There are two callback functions for receptors.
+--	# function mesecon:register_on_signal_on (action)
+--	# function mesecon:register_on_signal_off(action)
+--
+--These functions will be called for each block next to a mesecon conductor.
+--
+--Example: The removestone
+--The removestone only uses one callback: The mesecon:register_on_signal_on function
+--
+--mesecon:register_on_signal_on(function(pos, node) -- As the action prameter you have to use a function
+--	if node.name=="mesecons:removestone" then -- Check if it really is removestone. If you wouldn't use this, every node next to mesecons would be removed
+--		minetest.env:remove_node(pos) -- The action: The removestone is removed
+--	end -- end of if
+--end) -- end of the function, )=end of the parameters of mesecon:register_on_signal_on
+
+-- INCLUDE SETTINGS
+dofile(minetest.get_modpath("mesecons").."/settings.lua")
+
+
+-- PUBLIC VARIABLES
+mesecon={} -- contains all functions and all global variables
+mesecon.actions_on={} -- Saves registered function callbacks for mesecon on
+mesecon.actions_off={} -- Saves registered function callbacks for mesecon off
+mesecon.pwr_srcs={} -- this is public for now
+mesecon.pwr_srcs_off={} -- this is public for now
+
+
+-- MESECONS
+
+minetest.register_node("mesecons:mesecon_off", {
+	drawtype = "raillike",
+	tile_images = {"jeija_mesecon_off.png", "jeija_mesecon_curved_off.png", "jeija_mesecon_t_junction_off.png", "jeija_mesecon_crossing_off.png"},
+	inventory_image = "jeija_mesecon_off.png",
+	wield_image = "jeija_mesecon_off.png",
+	paramtype = "light",
+	is_ground_content = true,
+	walkable = false,
+	selection_box = {
+		type = "fixed",
+	},
+	material = minetest.digprop_constanttime(0.1),
+    	description="Mesecons",
+})
+
+minetest.register_node("mesecons:mesecon_on", {
+	drawtype = "raillike",
+	tile_images = {"jeija_mesecon_on.png", "jeija_mesecon_curved_on.png", "jeija_mesecon_t_junction_on.png", "jeija_mesecon_crossing_on.png"},
+	paramtype = "light",
+	is_ground_content = true,
+	walkable = false,
+	selection_box = {
+		type = "fixed",
+	},
+	material = minetest.digprop_constanttime(0.1),
+	drop = '"mesecons:mesecon_off" 1',
+	light_source = LIGHT_MAX-11,
+})
+
+minetest.register_craft({
+	output = '"mesecons:mesecon_off" 16',
+	recipe = {
+		{'"default:mese"'},
+	}
+})
+
+function mesecon:is_power_on(p, x, y, z)
+	local lpos = {}
+	lpos.x=p.x+x
+	lpos.y=p.y+y
+	lpos.z=p.z+z
+	local node = minetest.env:get_node(lpos)
+	if node.name == "mesecons:mesecon_on" or mesecon:is_receptor_node(node.name) then
+		return 1
+	end
+	return 0
+end
+
+function mesecon:is_power_off(p, x, y, z)
+	local lpos = {}
+	lpos.x=p.x+x
+	lpos.y=p.y+y
+	lpos.z=p.z+z
+	local node = minetest.env:get_node(lpos)
+	if node.name == "mesecons:mesecon_off" or mesecon:is_receptor_node_off(node.name) then
+		return 1
+	end
+	return 0
+end
+
+function mesecon:turnon(p, x, y, z, firstcall, rules)
+	if rules==nil then
+		rules="default"
+	end
+	local lpos = {}
+	lpos.x=p.x+x
+	lpos.y=p.y+y
+	lpos.z=p.z+z
+
+	mesecon:activate(lpos)
+
+	local node = minetest.env:get_node(lpos)
+	if node.name == "mesecons:mesecon_off" then
+		--minetest.env:remove_node(lpos)
+		minetest.env:add_node(lpos, {name="mesecons:mesecon_on"})
+		nodeupdate(lpos)
+	end
+	if node.name == "mesecons:mesecon_off" or firstcall then
+		local rules=mesecon:get_rules(rules)
+		local i=1
+		while rules[i]~=nil do 
+			mesecon:turnon(lpos, rules[i].x, rules[i].y, rules[i].z, false, "default")
+			i=i+1
+		end
+	end
+end
+
+function mesecon:turnoff(pos, x, y, z, firstcall, rules)
+	if rules==nil then
+		rules="default"
+	end
+	local lpos = {}
+	lpos.x=pos.x+x
+	lpos.y=pos.y+y
+	lpos.z=pos.z+z
+
+	local node = minetest.env:get_node(lpos)
+	local connected = 0
+	local checked = {}
+
+	if not mesecon:check_if_turnon(lpos) then
+		mesecon:deactivate(lpos)
+	end
+
+	if not(firstcall) and connected==0 then
+		connected=mesecon:connected_to_pw_src(lpos, 0, 0, 0, checked)	
+	end
+
+	if connected == 0 and  node.name == "mesecons:mesecon_on" then
+		--minetest.env:remove_node(lpos)
+		minetest.env:add_node(lpos, {name="mesecons:mesecon_off"})
+		nodeupdate(lpos)
+	end
+
+
+	if node.name == "mesecons:mesecon_on" or firstcall then
+		if connected == 0 then
+			local rules=mesecon:get_rules(rules)
+			local i=1
+			while rules[i]~=nil do 
+				mesecon:turnoff(lpos, rules[i].x, rules[i].y, rules[i].z, false, "default")
+				i=i+1
+			end
+		end
+	end
+end
+
+
+function mesecon:connected_to_pw_src(pos, x, y, z, checked, firstcall)
+	local i=1
+	local lpos = {}
+
+	lpos.x=pos.x+x
+	lpos.y=pos.y+y
+	lpos.z=pos.z+z
+
+	
+	local node = minetest.env:get_node_or_nil(lpos)
+
+	if not(node==nil) then
+		repeat
+			i=i+1
+			if checked[i]==nil then checked[i]={} break end
+			if  checked[i].x==lpos.x and checked[i].y==lpos.y and checked[i].z==lpos.z then 
+				return 0
+			end
+		until false
+
+		checked[i].x=lpos.x
+		checked[i].y=lpos.y
+		checked[i].z=lpos.z
+
+		if mesecon:is_receptor_node(node.name) == true then -- receptor nodes (power sources) can be added using mesecon:add_receptor_node
+			return 1
+		end
+
+		if node.name=="mesecons:mesecon_on" or firstcall then -- add other conductors here
+				local pw_source_found=0				
+				local rules=mesecon:get_rules("default")
+				local i=1
+				while rules[i]~=nil do 
+					pw_source_found=pw_source_found+mesecon:connected_to_pw_src(lpos, rules[i].x, rules[i].y, rules[i].z, checked, false)
+					i=i+1
+				end
+			if pw_source_found > 0 then
+				return 1
+			end 
+		end
+	end
+	return 0
+end
+
+function mesecon:check_if_turnon(pos)
+	local getactivated=0
+	local rules=mesecon:get_rules("default")
+	local i=1
+	while rules[i]~=nil do 
+		getactivated=getactivated+mesecon:is_power_on(pos, rules[i].x, rules[i].y, rules[i].z)
+		i=i+1
+	end
+	if getactivated > 0 then
+		return true
+	end
+	return false
+end
+
+minetest.register_on_placenode(function(pos, newnode, placer)
+	if mesecon:check_if_turnon(pos) then
+		if newnode.name == "mesecons:mesecon_off" then
+			mesecon:turnon(pos, 0, 0, 0)		
+		else
+			mesecon:activate(pos)
+		end
+	end
+end)
+
+minetest.register_on_dignode(
+	function(pos, oldnode, digger)
+		if oldnode.name == "mesecons:mesecon_on" then
+			mesecon:turnoff(pos, 0, 0, 0, true)
+		end	
+	end
+)
+
+-- API API API API API API API API API API API API API API API API API API
+
+function mesecon:add_receptor_node(nodename)
+	local i=1
+	repeat
+		i=i+1
+		if mesecon.pwr_srcs[i]==nil then break end
+	until false
+	mesecon.pwr_srcs[i]=nodename
+end
+
+function mesecon:add_receptor_node_off(nodename)
+	local i=1
+	repeat
+		i=i+1
+		if mesecon.pwr_srcs_off[i]==nil then break end
+	until false
+	mesecon.pwr_srcs_off[i]=nodename
+end
+
+function mesecon:receptor_on(pos, rules)
+	mesecon:turnon(pos, 0, 0, 0, true, rules)
+end
+
+function mesecon:receptor_off(pos, rules)
+	mesecon:turnoff(pos, 0, 0, 0, true, rules)
+end
+
+function mesecon:register_on_signal_on(action)
+	local i	= 1	
+	repeat
+		i=i+1
+		if mesecon.actions_on[i]==nil then break end
+	until false
+	mesecon.actions_on[i]=action
+end
+
+function mesecon:register_on_signal_off(action)
+	local i	= 1	
+	repeat
+		i=i+1
+		if mesecon.actions_off[i]==nil then break end
+	until false
+	mesecon.actions_off[i]=action
+end
+
+
+
+-- INTERNAL API
+
+
+function mesecon:is_receptor_node(nodename)
+	local i=1
+	repeat
+		i=i+1
+		if mesecon.pwr_srcs[i]==nodename then return true end
+	until mesecon.pwr_srcs[i]==nil
+	return false
+end
+
+function mesecon:is_receptor_node_off(nodename)
+	local i=1
+	repeat
+		i=i+1
+		if mesecon.pwr_srcs_off[i]==nodename then return true end
+	until mesecon.pwr_srcs_off[i]==nil
+	return false
+end
+
+
+function mesecon:activate(pos)
+	local node = minetest.env:get_node(pos)	
+	local i = 1
+	repeat
+		i=i+1
+		if mesecon.actions_on[i]~=nil then mesecon.actions_on[i](pos, node) 
+		else break			
+		end
+	until false
+end
+
+function mesecon:deactivate(pos)
+	local node = minetest.env:get_node(pos)	
+	local i = 1
+	local checked={}		
+	repeat
+		i=i+1
+		if mesecon.actions_off[i]~=nil then mesecon.actions_off[i](pos, node) 
+		else break			
+		end
+	until false
+end
+
+
+mesecon:register_on_signal_on(function(pos, node)
+	if node.name=="mesecons:meselamp_off" then
+		--minetest.env:remove_node(pos)
+		minetest.env:add_node(pos, {name="mesecons:meselamp_on"})
+		nodeupdate(pos)
+	end
+end)
+
+mesecon:register_on_signal_off(function(pos, node)
+	if node.name=="mesecons:meselamp_on" then
+		--minetest.env:remove_node(pos)
+		minetest.env:add_node(pos, {name="mesecons:meselamp_off"})
+		nodeupdate(pos)
+	end
+end)
+
+-- mesecon rules
+function mesecon:get_rules(name)
+	local rules={}
+	rules[0]="dummy"
+	if name=="default" then	
+		table.insert(rules, {x=0,  y=0,  z=-1})
+		table.insert(rules, {x=1,  y=0,  z=0})
+		table.insert(rules, {x=-1, y=0,  z=0})
+		table.insert(rules, {x=0,  y=0,  z=1})
+		table.insert(rules, {x=1,  y=1,  z=0})
+		table.insert(rules, {x=1,  y=-1, z=0})
+		table.insert(rules, {x=-1, y=1,  z=0})
+		table.insert(rules, {x=-1, y=-1, z=0})
+		table.insert(rules, {x=0,  y=1,  z=1})
+		table.insert(rules, {x=0,  y=-1, z=1})
+		table.insert(rules, {x=0,  y=1,  z=-1})
+		table.insert(rules, {x=0,  y=-1, z=-1})
+	end
+	if name=="movestone" then
+		table.insert(rules, {x=0,  y=1,  z=-1})
+		table.insert(rules, {x=0,  y=0,  z=-1})
+		table.insert(rules, {x=0,  y=-1, z=-1})
+		table.insert(rules, {x=0,  y=1,  z=1})
+		table.insert(rules, {x=0,  y=-1, z=1})
+		table.insert(rules, {x=0,  y=0,  z=1})
+		table.insert(rules, {x=1,  y=0,  z=0})
+		table.insert(rules, {x=1,  y=1,  z=0})
+		table.insert(rules, {x=1,  y=-1, z=0})
+		table.insert(rules, {x=-1, y=1,  z=0})
+		table.insert(rules, {x=-1, y=-1, z=0})
+		table.insert(rules, {x=-1, y=0,  z=0})
+	end
+	if name=="piston" then
+		table.insert(rules, {x=0,  y=1,  z=0})
+		table.insert(rules, {x=0,  y=-1,  z=0})
+		table.insert(rules, {x=0,  y=1,  z=-1})
+		table.insert(rules, {x=0,  y=0,  z=-1})
+		table.insert(rules, {x=0,  y=-1, z=-1})
+		table.insert(rules, {x=0,  y=1,  z=1})
+		table.insert(rules, {x=0,  y=-1, z=1})
+		table.insert(rules, {x=0,  y=0,  z=1})
+		table.insert(rules, {x=1,  y=0,  z=0})
+		table.insert(rules, {x=1,  y=1,  z=0})
+		table.insert(rules, {x=1,  y=-1, z=0})
+		table.insert(rules, {x=-1, y=1,  z=0})
+		table.insert(rules, {x=-1, y=-1, z=0})
+		table.insert(rules, {x=-1, y=0,  z=0})
+	end
+	if name=="pressureplate" then
+		table.insert(rules, {x=0,  y=1,  z=-1})
+		table.insert(rules, {x=0,  y=0,  z=-1})
+		table.insert(rules, {x=0,  y=-1, z=-1})
+		table.insert(rules, {x=0,  y=1,  z=1})
+		table.insert(rules, {x=0,  y=-1, z=1})
+		table.insert(rules, {x=0,  y=0,  z=1})
+		table.insert(rules, {x=1,  y=0,  z=0})
+		table.insert(rules, {x=1,  y=1,  z=0})
+		table.insert(rules, {x=1,  y=-1, z=0})
+		table.insert(rules, {x=-1, y=1,  z=0})
+		table.insert(rules, {x=-1, y=-1, z=0})
+		table.insert(rules, {x=-1, y=0,  z=0})
+		table.insert(rules, {x=0, y=-1,  z=0})
+		table.insert(rules, {x=0, y=1,  z=0})
+	end
+	if name=="mesecontorch_x-" then
+		table.insert(rules, {x=1,  y=0,  z=0})
+		table.insert(rules, {x=0,  y=0,  z=1})
+		table.insert(rules, {x=0,  y=0,  z=-1})
+	end
+	if name=="mesecontorch_x+" then
+		table.insert(rules, {x=-1,  y=0,  z=0})
+		table.insert(rules, {x=0,  y=0,  z=1})
+		table.insert(rules, {x=0,  y=0,  z=-1})
+	end
+	if name=="mesecontorch_z-" then
+		table.insert(rules, {x=0,  y=0,  z=1})
+		table.insert(rules, {x=1,  y=0,  z=0})
+		table.insert(rules, {x=-1,  y=0,  z=0})
+	end
+	if name=="mesecontorch_z+" then
+		table.insert(rules, {x=0,  y=0,  z=-1})
+		table.insert(rules, {x=1,  y=0,  z=0})
+		table.insert(rules, {x=-1,  y=0,  z=0})
+	end
+	if name=="mesecontorch_y-" then
+	    table.insert(rules, {x=0,  y=1,  z=0})
+		table.insert(rules, {x=1,  y=1,  z=0})
+		table.insert(rules, {x=-1,  y=1,  z=0})
+		table.insert(rules, {x=0,  y=1,  z=1})
+		table.insert(rules, {x=0,  y=1,  z=-1})
+	end
+	if name=="mesecontorch_y+" then
+	    table.insert(rules, {x=0,  y=-1,  z=0})
+		table.insert(rules, {x=1,  y=-1,  z=0})
+		table.insert(rules, {x=-1,  y=-1,  z=0})
+		table.insert(rules, {x=0,  y=-1,  z=1})
+		table.insert(rules, {x=0,  y=-1,  z=-1})
+	end
+
+	if name=="button_x+" or name=="button_x-"
+	or name=="button_z-" or name=="button_z+" then --Is any button
+table.insert(rules, {x=0,  y=0,  z=-1})
+		table.insert(rules, {x=1,  y=0,  z=0})
+		table.insert(rules, {x=-1, y=0,  z=0})
+		table.insert(rules, {x=0,  y=0,  z=1})
+		table.insert(rules, {x=1,  y=1,  z=0})
+		table.insert(rules, {x=1,  y=-1, z=0})
+		table.insert(rules, {x=-1, y=1,  z=0})
+		table.insert(rules, {x=-1, y=-1, z=0})
+		table.insert(rules, {x=0,  y=1,  z=1})
+		table.insert(rules, {x=0,  y=-1, z=1})
+		table.insert(rules, {x=0,  y=1,  z=-1})
+		table.insert(rules, {x=0,  y=-1, z=-1})
+		table.insert(rules, {x=0,  y=-1, z=0})
+	end
+	if name=="button_x+" then	
+		table.insert(rules, {x=-2,  y=0,  z=0})	
+	end
+	if name=="button_x-" then	
+		table.insert(rules, {x=2,  y=0,  z=0})	
+	end
+	if name=="button_z+" then	
+		table.insert(rules, {x=0,  y=0,  z=-2})	
+	end
+	if name=="button_z-" then	
+		table.insert(rules, {x=0,  y=0,  z=2})	
+	end
+	return rules
+end
+
+
+
+print("[MESEcons] Loaded!")
+
+--minetest.register_on_newplayer(function(player)
+	--local i=1
+	--while mesecon.wireless_receivers[i]~=nil do
+	--	pos=mesecon.wireless_receivers[i].pos
+	--	request=mesecon.wireless_receivers[i].requested_state
+	--	inverting=mesecon.wireless_receivers[i].inverting
+	--	if request==inverting then
+	--		mesecon:receptor_off(pos)
+	--	end
+	--	if request~=inverting  then
+	--		mesecon:receptor_on(pos)
+	--	end
+	--end
+--end)
diff --git a/mesecons/settings.lua b/mesecons/settings.lua
new file mode 100644
index 0000000..8e5d918
--- /dev/null
+++ b/mesecons/settings.lua
@@ -0,0 +1,4 @@
+-- SETTINGS
+ENABLE_PISTON_ANIMATION=0
+BLINKY_PLANT_INTERVAL=3
+OLD_PISTON_DIRECTION=0