nalc
/
mesecons
forked from minetest-mods/mesecons
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add overheat protection and lots of bugfixes once again

This commit is contained in:
Jeija 2012-08-09 21:40:25 +02:00
parent 0abfa674d6
commit f557b6c363
1 changed files with 81 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

116
mesecons_microcontroller/init.lua
View File

@ -17,7 +17,8 @@ minetest.register_node(nodename, {
"jeija_microcontroller_top_"..tostring(d)..tostring(c)..tostring(b)..tostring(a)..".png",
"jeija_microcontroller_sides.png",
},
inventory_image = "jeija_microcontroller_top_0000.png",
--inventory_image = "jeija_microcontroller_top_0000.png",
sunlight_propagates = true,
paramtype = "light",
walkable = true,
@ -43,7 +44,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")
meta:set_int("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)
@ -56,11 +57,11 @@ 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)
meta:set_int("heat", 0)
yc_reset (pos)
update_yc(pos)
end
end
end,
})
local rules={}
if (a == 1) then table.insert(rules, {x = -1, y = 0, z = 0}) end
@ -83,7 +84,7 @@ minetest.register_craft({
}
})
function reset_yc(pos)
function yc_reset(pos)
yc_action(pos, {a=false, b=false, c=false, d=false})
local meta = minetest.env:get_meta(pos)
local r = ""
@ -93,15 +94,12 @@ 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
yc_heat(meta)
minetest.after(0.5, yc_cool, meta)
if (yc_overheat(meta)) then
minetest.env:remove_node(pos)
minetest.after(0.2, yc_overheat_off, pos) --wait for pending parsings
minetest.env:add_item(pos, "mesecons_microcontroller:microcontroller0000")
end
local code = meta:get_string("code")
@ -114,9 +112,11 @@ function update_yc(pos)
meta:set_string("infotext", "Working Microcontroller")
end
timer = minetest.env:get_node_timer(pos) --action places a new node!
timer:start(1)
timer:start(0.5)
end
--Code Parsing
function yc_code_remove_commentary(code)
for i = 1, #code do
if code:sub(i, i) == ":" then
@ -130,6 +130,7 @@ 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
@ -224,6 +225,20 @@ function yc_parse_get_eeprom_param(cond, starti)
return nil, nil
end
function yc_skip_to_endif(code, starti)
local i = starti
local s = false
while s ~= nil and s~= "" do
s = code:sub(i, i)
if s == ";" then
return i + 1
end
i = i + 1
end
return nil
end
--Commands
function yc_command_on(params, L)
local rules = {}
for i, port in ipairs(params) do
@ -255,6 +270,7 @@ function yc_command_sbi(params, eeprom, L)
return new_eeprom
end
--If
function yc_command_if(code, starti, L, eeprom)
local cond, endi = yc_command_if_getcondition(code, starti)
if cond == nil then return nil end
@ -268,6 +284,7 @@ function yc_command_if(code, starti, L, eeprom)
return result, endi --endi from local cond, endi = yc_command_if_getcondition(code, starti)
end
--Condition parsing
function yc_command_if_getcondition(code, starti)
i = starti
s = nil
@ -376,6 +393,7 @@ function yc_command_parsecondition(cond, L, eeprom)
return cond
end
--Virtual-Hardware functions
function yc_eeprom_read(number, eeprom)
if number == nil then return nil, nil end
value = eeprom:sub(number, number)
@ -383,11 +401,12 @@ function yc_eeprom_read(number, eeprom)
return value, endi
end
--Real I/O functions
function yc_action(pos, L) --L-->Lvirtual
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 heat = meta:get_int("heat")
local eeprom = meta:get_string("eeprom")
local infotext = meta:get_string("infotext")
local formspec = meta:get_string("formspec")
@ -399,7 +418,7 @@ 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_int("heat", heat)
meta:set_string("eeprom", eeprom)
meta:set_string("infotext", infotext)
meta:set_string("formspec", formspec)
@ -408,21 +427,24 @@ function yc_action(pos, L) --L-->Lvirtual
end
function yc_action_setports(pos, L, Lv)
local name = "mesecons_microcontroller:microcontroller"
if Lv.a ~= L.a then
local rules
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
end
if 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
end
if 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
end
if 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
@ -466,7 +488,7 @@ function yc_get_virtual_portstates(pos)
return Lvirtual
end
function yc_merge_portstates(Lreal, Lvirtual) --TODO
function yc_merge_portstates(Lreal, Lvirtual)
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
@ -475,21 +497,45 @@ function yc_merge_portstates(Lreal, Lvirtual) --TODO
return L
end
function yc_skip_to_endif(code, starti)
local i = starti
local s = false
while s ~= nil and s~= "" do
s = code:sub(i, i)
if s == ";" then
return i + 1
end
i = i + 1
--"Overheat" protection
function yc_heat(meta)
h = meta:get_int("heat")
if h ~= nil then
meta:set_int("heat", h + 1)
end
return nil
end
function yc_cool(meta)
h = meta:get_int("heat")
if h ~= nil then
meta:set_int("heat", h - 1)
end
end
function yc_overheat(meta)
h = meta:get_int("heat")
if h == nil then return true end -- if nil the overheat
if h>30 then
return true
else
return false
end
end
function yc_overheat_off(pos)
rules = mesecon:get_rules("mesecons_microcontroller:microcontroller1111")
mesecon:receptor_off(pos, rules);
end
mesecon:register_on_signal_change(function(pos, node)
if string.find(node.name, "mesecons_microcontroller:microcontroller")~=nil then
minetest.after(0.5, update_yc, pos)
update_yc(pos)
end
end)
minetest.register_on_dignode(function(pos, node)
if string.find(node.name, "mesecons_microcontroller:microcontroller") then
rules = mesecon:get_rules(node.name)
mesecon:receptor_off(pos, rules)
end
end)