forked from minetest-mods/digilines
118 lines
2.9 KiB
Lua
118 lines
2.9 KiB
Lua
function digiline:getspec(node)
|
|
if not minetest.registered_nodes[node.name] then return false end
|
|
return minetest.registered_nodes[node.name].digiline
|
|
end
|
|
|
|
function digiline:importrules(spec, node)
|
|
if type(spec) == 'function' then
|
|
return spec(node)
|
|
elseif spec then
|
|
return spec
|
|
else
|
|
return digiline.rules.default
|
|
end
|
|
end
|
|
|
|
function digiline:getAnyInputRules(pos)
|
|
local node = minetest.get_node(pos)
|
|
local spec = digiline:getspec(node)
|
|
if not spec then return end
|
|
|
|
if spec.wire then
|
|
return digiline:importrules(spec.wire.rules, node)
|
|
end
|
|
if spec.effector then
|
|
return digiline:importrules(spec.effector.rules, node)
|
|
end
|
|
end
|
|
|
|
function digiline:getAnyOutputRules(pos)
|
|
local node = minetest.get_node(pos)
|
|
local spec = digiline:getspec(node)
|
|
if not spec then return end
|
|
|
|
if spec.wire then
|
|
return digiline:importrules(spec.wire.rules, node)
|
|
end
|
|
if spec.receptor then
|
|
return digiline:importrules(spec.receptor.rules, node)
|
|
end
|
|
end
|
|
|
|
function digiline:rules_link(output, input)
|
|
local outputrules = digiline:getAnyOutputRules(output)
|
|
local inputrules = digiline:getAnyInputRules (input)
|
|
|
|
if not outputrules or not inputrules then return false end
|
|
|
|
|
|
for _, orule in ipairs(outputrules) do
|
|
if digiline:cmpPos(digiline:addPosRule(output, orule), input) then
|
|
for _, irule in ipairs(inputrules) do
|
|
if digiline:cmpPos(digiline:addPosRule(input, irule), output) then
|
|
return true
|
|
end
|
|
end
|
|
end
|
|
end
|
|
return false
|
|
end
|
|
|
|
function digiline:rules_link_anydir(output, input)
|
|
return digiline:rules_link(output, input)
|
|
or digiline:rules_link(input, output)
|
|
end
|
|
|
|
local function queue_new()
|
|
return {nextRead = 1, nextWrite = 1}
|
|
end
|
|
|
|
local function queue_empty(queue)
|
|
return queue.nextRead == queue.nextWrite
|
|
end
|
|
|
|
local function queue_enqueue(queue, object)
|
|
local nextWrite = queue.nextWrite
|
|
queue[nextWrite] = object
|
|
queue.nextWrite = nextWrite + 1
|
|
end
|
|
|
|
local function queue_dequeue(queue)
|
|
local nextRead = queue.nextRead
|
|
local object = queue[nextRead]
|
|
queue[nextRead] = nil
|
|
queue.nextRead = nextRead + 1
|
|
return object
|
|
end
|
|
|
|
function digiline:transmit(pos, channel, msg, checked)
|
|
local queue = queue_new()
|
|
queue_enqueue(queue, pos)
|
|
while not queue_empty(queue) do
|
|
local curPos = queue_dequeue(queue)
|
|
local node = minetest.get_node(curPos)
|
|
local spec = digiline:getspec(node)
|
|
if spec then
|
|
-- Effector actions --> Receive
|
|
if spec.effector then
|
|
spec.effector.action(curPos, node, channel, msg)
|
|
end
|
|
|
|
-- Cable actions --> Transmit
|
|
if spec.wire then
|
|
local rules = digiline:importrules(spec.wire.rules, node)
|
|
for _, rule in ipairs(rules) do
|
|
local nextPos = digiline:addPosRule(curPos, rule)
|
|
if digiline:rules_link(curPos, nextPos) then
|
|
local checkedID = tostring(nextPos.x) .. "_" .. tostring(nextPos.y) .. "_" .. tostring(nextPos.z)
|
|
if not checked[checkedID] then
|
|
checked[checkedID] = true
|
|
queue_enqueue(queue, nextPos)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|