Mirrorlandia_minetest/mesecons
1
0
Fork 1
mirror of https://github.com/minetest-mods/mesecons.git synced 2024-12-26 15:37:27 +01:00
Code Issues Projects Releases Wiki Activity

A huge lot of bugfixes

Browse Source
This commit is contained in:
Jeija 2012-08-09 16:25:30 +02:00
parent 9854160ece
commit 0abfa674d6
1 changed files with 49 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
mesecons_microcontroller/init.lua
View File

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