A huge lot of bugfixes

1 files changed, 49 insertions, 35 deletions

diff --git a/mesecons_microcontroller/init.lua b/mesecons_microcontroller/init.lua
index 30a6804..9e37a74 100644
--- a/mesecons_microcontroller/init.lua
+++ b/mesecons_microcontroller/init.lua
@@ -43,6 +43,7 @@ minetest.register_node(nodename, {
 			"field[0.256,0.5;8,1;code;Code:;]"..
 			"button_exit[3,0.5;2,2;program;Program]")
 		meta:set_string("infotext", "Unprogrammed Microcontroller")
+		meta:set_string("heat", "0")
 		local r = ""
 		for i=1, EEPROM_SIZE+1 do r=r.."0" end --Generate a string with EEPROM_SIZE*"0"
 		meta:set_string("eeprom", r)
@@ -55,6 +56,7 @@ minetest.register_node(nodename, {
 			meta:set_string("formspec", "size[8,2]"..
 			"field[0.256,0.5;8,1;code;Code:;"..fields.code.."]"..
 			"button_exit[3,0.5;2,2;program;Program]")
+			meta:set_string("heat", "0")
 			reset_yc (pos)
 			update_yc(pos)
 		end
@@ -91,6 +93,17 @@ end
 
 function update_yc(pos)
 	local meta = minetest.env:get_meta(pos)
+	local timer = minetest.env:get_node_timer(pos)
+	if (timer:get_elapsed()~=nil) then
+		if (timer:get_elapsed() < 0.05) then
+			h = tonumber(meta:get_string("heat"))
+			if h==nil then return nil end
+			meta:set_string("heat", tostring(h + 1))
+		else
+			meta:set_string("heat", "0");
+		end
+	end
+
 	local code = meta:get_string("code")
 	code = yc_code_remove_commentary(code)
 	code = string.gsub(code, " ", "")	--Remove all spaces
@@ -100,6 +113,8 @@ function update_yc(pos)
 	else
 		meta:set_string("infotext", "Working Microcontroller")
 	end
+	timer = minetest.env:get_node_timer(pos) --action places a new node!
+	timer:start(1)
 end
 
 function yc_code_remove_commentary(code)
@@ -115,7 +130,6 @@ function parse_yccode(code, pos)
 	local endi = 1
 	local Lreal = yc_get_real_portstates(pos)
 	local Lvirtual = yc_get_virtual_portstates(pos)
-	if Lvirtual == nil then return nil end
 	local c
 	local eeprom = minetest.env:get_meta(pos):get_string("eeprom")
 	while true do
@@ -284,6 +298,7 @@ function yc_command_parsecondition(cond, L, eeprom)
 	cond = string.gsub(cond, "C", tonumber(L.c and 1 or 0))
 	cond = string.gsub(cond, "D", tonumber(L.d and 1 or 0))
 
+
 	local i = 1
 	local l = string.len(cond)
 	while i<=l do
@@ -369,10 +384,10 @@ function yc_eeprom_read(number, eeprom)
 end
 
 function yc_action(pos, L) --L-->Lvirtual
-	yc_action_setports(pos, L)
-
+	Lv = yc_get_virtual_portstates(pos)
 	local meta = minetest.env:get_meta(pos)
 	local code = meta:get_string("code")
+	local heat = meta:get_string("heat")
 	local eeprom = meta:get_string("eeprom")
 	local infotext   = meta:get_string("infotext")
 	local formspec = meta:get_string("formspec")
@@ -384,35 +399,33 @@ function yc_action(pos, L) --L-->Lvirtual
 	minetest.env:add_node(pos, {name=name})
 	local meta = minetest.env:get_meta(pos)
 	meta:set_string("code", code)
+	meta:set_string("heat", heat)
 	meta:set_string("eeprom", eeprom)
 	meta:set_string("infotext", infotext)
 	meta:set_string("formspec", formspec)
+
+	yc_action_setports(pos, L, Lv)
 end
 
-function yc_action_setports(pos, L)
-	local ps = tonumber(L.d and 1 or 0)
-		..tonumber(L.c and 1 or 0)
-		..tonumber(L.b and 1 or 0)
-		..tonumber(L.a and 1 or 0)
+function yc_action_setports(pos, L, Lv)
 
-	local rulesps
-	local rules
-	for i=1, 4 do
-		if i == 1 then rulesps = "1000" end
-		if i == 2 then rulesps = "0100" end
-		if i == 3 then rulesps = "0010" end
-		if i == 4 then rulesps = "0001" end
-		rules = mesecon:get_rules("mesecons_microcontroller:microcontroller"..rulesps)
-
-		if ps:sub(i, i) == "1" then
-			if mesecon:is_power_off({x=pos.x+rules[1].x, y=pos.y+rules[1].y, z=pos.z+rules[1].z}) then
-				mesecon:receptor_on(pos, rules)
-			end
-		else
-			if mesecon:is_power_on({x=pos.x+rules[1].x, y=pos.y+rules[1].y, z=pos.z+rules[1].z}) then
-				mesecon:receptor_off(pos, rules)
-			end
-		end
+	local name = "mesecons_microcontroller:microcontroller"
+	if Lv.a ~= L.a then 
+		rules = mesecon:get_rules(name.."0001")
+		if L.a == true then mesecon:receptor_on(pos, rules)
+		else mesecon:receptor_off(pos, rules) end
+	elseif Lv.b ~= L.b then 
+		rules = mesecon:get_rules(name.."0010")
+		if L.b == true then mesecon:receptor_on(pos, rules)
+		else mesecon:receptor_off(pos, rules) end
+	elseif Lv.c ~= L.c then 
+		rules = mesecon:get_rules(name.."0100")
+		if L.c == true then mesecon:receptor_on(pos, rules)
+		else mesecon:receptor_off(pos, rules) end
+	elseif Lv.d ~= L.d then 
+		rules = mesecon:get_rules(name.."1000")
+		if L.d == true then mesecon:receptor_on(pos, rules)
+		else mesecon:receptor_off(pos, rules) end
 	end
 end
 
@@ -430,7 +443,7 @@ function yc_get_real_portstates(pos)
 	rulesB = mesecon:get_rules("mesecons_microcontroller:microcontroller0010")
 	rulesC = mesecon:get_rules("mesecons_microcontroller:microcontroller0100")
 	rulesD = mesecon:get_rules("mesecons_microcontroller:microcontroller1000")
-	local L = {
+	L = {
 		a = mesecon:is_power_on({x=pos.x+rulesA[1].x, y=pos.y+rulesA[1].y, z=pos.z+rulesA[1].z}),
 		b = mesecon:is_power_on({x=pos.x+rulesB[1].x, y=pos.y+rulesB[1].y, z=pos.z+rulesB[1].z}),
 		c = mesecon:is_power_on({x=pos.x+rulesC[1].x, y=pos.y+rulesC[1].y, z=pos.z+rulesC[1].z}),
@@ -445,20 +458,21 @@ function yc_get_virtual_portstates(pos)
 	if a == nil then return nil end
 	a = a + 1
 
-	Lvirtual = {false, false, false, false}
+	Lvirtual = {a=false, b=false, c=false, d=false}
 	if name:sub(a  , a  ) == "1" then Lvirtual.d = true end
 	if name:sub(a+1, a+1) == "1" then Lvirtual.c = true end
 	if name:sub(a+2, a+2) == "1" then Lvirtual.b = true end
-	if name:sub(a+2, a+3) == "1" then Lvirtual.a = true end
+	if name:sub(a+3, a+3) == "1" then Lvirtual.a = true end
 	return Lvirtual
 end
 
-function yc_merge_portstates(Lreal, Lvirtual)
-	if Lvirtual.a~=nil then Lreal.a = Lvirtual.a end
-	if Lvirtual.b~=nil then Lreal.b = Lvirtual.b end
-	if Lvirtual.c~=nil then Lreal.c = Lvirtual.c end
-	if Lvirtual.d~=nil then Lreal.d = Lvirtual.d end
-	return Lreal
+function yc_merge_portstates(Lreal, Lvirtual) --TODO
+	local L = {a=false, b=false, c=false, d=false}
+	if Lvirtual.a or Lreal.a then L.a = true end
+	if Lvirtual.b or Lreal.b then L.b = true end
+	if Lvirtual.c or Lreal.c then L.c = true end
+	if Lvirtual.d or Lreal.d then L.d = true end
+	return L
 end
 
 function yc_skip_to_endif(code, starti)