231 lines
8.7 KiB
Lua
231 lines
8.7 KiB
Lua
local F, S = basic_machines.F, basic_machines.S
|
|
local machines_minstep = basic_machines.properties.machines_minstep
|
|
local machines_timer = basic_machines.properties.machines_timer
|
|
|
|
local function pos_to_string(pos) return ("%s,%s,%s"):format(pos.x, pos.y, pos.z) end
|
|
|
|
basic_machines.get_distributor_form = function(pos)
|
|
local meta = minetest.get_meta(pos)
|
|
|
|
local n = meta:get_int("n")
|
|
local form = {"size[7," .. (0.75 + n * 0.75) .. "]"}
|
|
|
|
if meta:get_int("view") == 0 then
|
|
form[2] = "label[0,-0.25;" .. minetest.colorize("lawngreen",
|
|
F(S("Target: x y z, Mode: -2=only OFF, -1=NOT input, 0/1=input, 2=only ON"))) .. "]"
|
|
for i = 1, n do
|
|
local posi = {x = meta:get_int("x" .. i), y = meta:get_int("y" .. i), z = meta:get_int("z" .. i)}
|
|
local y1, y2 = 0.5 + (i - 1) * 0.75, 0.25 + (i - 1) * 0.75
|
|
form[i + 2] = "field[0.25," .. y1 .. ";1,1;x" .. i .. ";;" .. posi.x ..
|
|
"]field[1.25," .. y1 .. ";1,1;y" .. i .. ";;" .. posi.y ..
|
|
"]field[2.25," .. y1 .. ";1,1;z" .. i .. ";;" .. posi.z ..
|
|
"]field[3.25," .. y1 .. ";1,1;active" .. i .. ";;" .. meta:get_int("active" .. i) ..
|
|
"]button[4," .. y2 .. ";1.5,1;SHOW" .. i .. ";" .. F(S("SHOW @1", i)) ..
|
|
"]button_exit[5.25," .. y2 .. ";1,1;SET" .. i .. ";" .. F(S("SET")) ..
|
|
"]button[6.25," .. y2 .. ";1,1;X" .. i .. ";" .. F(S("X")) .. "]"
|
|
end
|
|
else
|
|
form[2] = "label[0,-0.25;" .. minetest.colorize("lawngreen",
|
|
F(S("Target Name, Mode: -2=only OFF, -1=NOT input, 0/1=input, 2=only ON"))) .. "]"
|
|
for i = 1, n do
|
|
local posi = {x = meta:get_int("x" .. i), y = meta:get_int("y" .. i), z = meta:get_int("z" .. i)}
|
|
local y1, y2 = 0.5 + (i - 1) * 0.75, 0.25 + (i - 1) * 0.75
|
|
local tname = minetest.get_node(vector.add(pos, posi)).name
|
|
tname = posi.x .. " " .. posi.y .. " " .. posi.z .. " " .. tname:sub((tname:find(":") or 0) + 1)
|
|
form[i + 2] = "field[0.25," .. y1 .. ";3,1;text;;" .. tname ..
|
|
"]field[3.25," .. y1 .. ";1,1;active" .. i .. ";;" .. meta:get_int("active" .. i) ..
|
|
"]button[4," .. y2 .. ";1.5,1;SHOW" .. i .. ";" .. F(S("SHOW @1", i)) ..
|
|
"]button_exit[5.25," .. y2 .. ";1,1;SET" .. i .. ";" .. F(S("SET")) ..
|
|
"]button[6.25," .. y2 .. ";1,1;X" .. i .. ";" .. F(S("X")) .. "]"
|
|
end
|
|
form[#form + 1] = "button_exit[1.97," .. (0.25 + n * 0.75) .. ";1,1;scan;" .. F(S("scan")) .. "]"
|
|
end
|
|
|
|
local y = 0.25 + n * 0.75
|
|
form[#form + 1] = "label[0.25," .. (0.4 + n * 0.75) .. ";" .. minetest.colorize("lawngreen", F(S("delay"))) ..
|
|
"]field[1.25," .. (0.5 + n * 0.75) .. ";1,1;delay;;" .. meta:get_float("delay") ..
|
|
"]button_exit[2.97," .. y .. ";1,1;OK;" .. F(S("OK")) .. "]button[4.25," .. y .. ";1,1;ADD;" .. F(S("ADD")) ..
|
|
"]button[5.25," .. y .. ";1,1;view;" .. F(S("view")) .. "]button[6.25," .. y .. ";1,1;help;" .. F(S("help")) .. "]"
|
|
|
|
return table.concat(form)
|
|
end
|
|
|
|
minetest.register_node("basic_machines:distributor", {
|
|
description = S("Distributor - can forward signal up to 16 different targets"),
|
|
groups = {cracky = 3},
|
|
tiles = {"basic_machines_distributor.png"},
|
|
sounds = default.node_sound_wood_defaults(),
|
|
|
|
on_use = function(itemstack, user, pointed_thing)
|
|
if user and (user:get_player_control() or {}).sneak then
|
|
local round = math.floor
|
|
local pos, r, name = user:get_pos(), 20, user:get_player_name()
|
|
local p = {x = round(pos.x / r + 0.5) * r, y = round(pos.y / r + 0.5) * r + 1, z = round(pos.z / r + 0.5) * r}
|
|
|
|
if minetest.is_protected(p, name) then return end
|
|
|
|
minetest.chat_send_player(name, S("DISTRIBUTOR: Event handler nearest position found at @1 (@2) - displaying mark 1",
|
|
pos_to_string(vector.round(vector.subtract(p, pos))), pos_to_string(p)))
|
|
machines.mark_pos1(name, p)
|
|
end
|
|
end,
|
|
|
|
after_place_node = function(pos, placer)
|
|
if not placer then return end
|
|
|
|
local meta = minetest.get_meta(pos)
|
|
meta:set_string("infotext", S("Distributor. Right click to set it up."))
|
|
meta:set_string("owner", placer:get_player_name())
|
|
|
|
for i = 1, 10 do
|
|
meta:set_int("x" .. i, 0); meta:set_int("y" .. i, 1); meta:set_int("z" .. i, 0)
|
|
meta:set_int("active" .. i, 1) -- target i
|
|
end
|
|
meta:set_int("n", 2) -- how many targets initially
|
|
meta:set_float("delay", 0) -- delay when transmitting signal
|
|
end,
|
|
|
|
can_dig = function(pos, player)
|
|
return minetest.get_meta(pos):get_string("owner") == player:get_player_name()
|
|
end,
|
|
|
|
on_rightclick = function(pos, node, player, itemstack, pointed_thing)
|
|
minetest.show_formspec(player:get_player_name(),
|
|
"basic_machines:distributor_" .. minetest.pos_to_string(pos),
|
|
basic_machines.get_distributor_form(pos))
|
|
end,
|
|
|
|
effector = {
|
|
action_on = function(pos, ttl)
|
|
if type(ttl) ~= "number" then ttl = 1 end
|
|
if ttl < 1 then return end -- machines_TTL prevents infinite recursion
|
|
|
|
local meta = minetest.get_meta(pos)
|
|
|
|
local t0, t1 = meta:get_int("t"), minetest.get_gametime()
|
|
local T = meta:get_int("T") -- temperature
|
|
|
|
if t0 > t1 - machines_minstep then -- activated before natural time
|
|
T = T + 1
|
|
else
|
|
if T > 0 then
|
|
T = T - 1
|
|
if t1 - t0 > machines_timer then -- reset temperature if more than 5s elapsed since last activation
|
|
T = 0; meta:set_string("infotext", "")
|
|
end
|
|
end
|
|
end
|
|
meta:set_int("T", T)
|
|
meta:set_int("t", t1) -- update last activation time
|
|
|
|
if T > 2 then -- overheat
|
|
minetest.sound_play("default_cool_lava", {pos = pos, max_hear_distance = 16, gain = 0.25}, true)
|
|
meta:set_string("infotext", S("Overheat: temperature @1", T))
|
|
return
|
|
end
|
|
|
|
local function activate()
|
|
for i = 1, meta:get_int("n") do
|
|
local activei = meta:get_int("active" .. i)
|
|
if activei ~= 0 then
|
|
local posi = vector.add(pos, {x = meta:get_int("x" .. i), y = meta:get_int("y" .. i), z = meta:get_int("z" .. i)})
|
|
local node = minetest.get_node(posi)
|
|
local def = minetest.registered_nodes[node.name]
|
|
|
|
-- check if all elements exist, safe cause it checks from left to right
|
|
if def and (def.effector or def.mesecons and def.mesecons.effector) then
|
|
-- alternative way: overkill, exception handling to determine if structure exists
|
|
-- ret = pcall(function() if not def.effector then end end)
|
|
|
|
local effector = def.effector or def.mesecons.effector
|
|
local param = def.effector and (ttl - 1) or node
|
|
|
|
if (activei == 1 or activei == 2) and effector.action_on then -- normal OR only forward input ON
|
|
effector.action_on(posi, param)
|
|
elseif activei == -1 and effector.action_off then
|
|
effector.action_off(posi, param)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
local delay = meta:get_float("delay")
|
|
|
|
if delay > 0 then
|
|
minetest.after(delay, activate)
|
|
elseif delay == 0 then
|
|
activate()
|
|
else -- delay < 0 - do random activation: delay = -500 means 500/1000 chance to activate
|
|
if math.random(1000) <= -delay then
|
|
activate()
|
|
end
|
|
end
|
|
end,
|
|
|
|
action_off = function(pos, ttl)
|
|
if type(ttl) ~= "number" then ttl = 1 end
|
|
if ttl < 1 then return end -- machines_TTL prevents infinite recursion
|
|
|
|
local meta = minetest.get_meta(pos)
|
|
|
|
local t0, t1 = meta:get_int("t"), minetest.get_gametime()
|
|
local T = meta:get_int("T") -- temperature
|
|
|
|
if t0 > t1 - machines_minstep then -- activated before natural time
|
|
T = T + 1
|
|
else
|
|
if T > 0 then
|
|
T = T - 1
|
|
if t1 - t0 > machines_timer then -- reset temperature if more than 5s elapsed since last activation
|
|
T = 0; meta:set_string("infotext", "")
|
|
end
|
|
end
|
|
end
|
|
meta:set_int("T", T)
|
|
meta:set_int("t", t1) -- update last activation time
|
|
|
|
if T > 2 then -- overheat
|
|
minetest.sound_play("default_cool_lava", {pos = pos, max_hear_distance = 16, gain = 0.25}, true)
|
|
meta:set_string("infotext", S("Overheat: temperature @1", T))
|
|
return
|
|
end
|
|
|
|
local function activate()
|
|
for i = 1, meta:get_int("n") do
|
|
local activei = meta:get_int("active" .. i)
|
|
if activei ~= 0 then
|
|
local posi = vector.add(pos, {x = meta:get_int("x" .. i), y = meta:get_int("y" .. i), z = meta:get_int("z" .. i)})
|
|
local node = minetest.get_node(posi)
|
|
local def = minetest.registered_nodes[node.name]
|
|
|
|
if def and (def.effector or def.mesecons and def.mesecons.effector) then
|
|
local effector = def.effector or def.mesecons.effector
|
|
local param = def.effector and (ttl - 1) or node
|
|
|
|
if (activei == 1 or activei == -2) and effector.action_off then -- normal OR only forward input OFF
|
|
effector.action_off(posi, param)
|
|
elseif activei == -1 and effector.action_on then
|
|
effector.action_on(posi, param)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
local delay = meta:get_float("delay")
|
|
if delay > 0 then minetest.after(delay, activate) else activate() end
|
|
end
|
|
}
|
|
})
|
|
|
|
if basic_machines.settings.register_crafts then
|
|
minetest.register_craft({
|
|
output = "basic_machines:distributor",
|
|
recipe = {
|
|
{"default:steel_ingot"},
|
|
{"default:mese_crystal"},
|
|
{"basic_machines:keypad"}
|
|
}
|
|
})
|
|
end |