39dea8a2ae
- Removed lots of unused variables, a few shadowed identifiers. - Removed a few sections of dead code.
129 lines
3.2 KiB
Lua
129 lines
3.2 KiB
Lua
-- LUALOCALS < ---------------------------------------------------------
|
|
local minetest, nodecore, pairs, vector
|
|
= minetest, nodecore, pairs, vector
|
|
-- LUALOCALS > ---------------------------------------------------------
|
|
|
|
local optic_queue = {}
|
|
|
|
local function dirname(pos)
|
|
if pos.x > 0 then return "e" end
|
|
if pos.x < 0 then return "w" end
|
|
if pos.y > 0 then return "u" end
|
|
if pos.y < 0 then return "d" end
|
|
if pos.z > 0 then return "n" end
|
|
if pos.z < 0 then return "s" end
|
|
return ""
|
|
end
|
|
|
|
local function scan(pos, dir)
|
|
local p = {x = pos.x, y = pos.y, z = pos.z}
|
|
for _ = 1, 16 do
|
|
p = vector.add(p, dir)
|
|
local node = minetest.get_node(p)
|
|
if node.name == "ignore" then return false, node end
|
|
local def = minetest.registered_items[node.name] or {}
|
|
if not def.sunlight_propagates then return p, node end
|
|
end
|
|
end
|
|
|
|
local function scan_recv(pos, dir)
|
|
local hit, node = scan(pos, dir)
|
|
if not hit then return hit, node end
|
|
local data = minetest.get_meta(hit):get_string("nc_optics")
|
|
if data == "" then return end
|
|
dir = dirname(vector.multiply(dir, -1))
|
|
if not minetest.deserialize(data)[dir] then return end
|
|
return hit, node
|
|
end
|
|
|
|
local function optic_check(pos)
|
|
optic_queue[minetest.hash_node_position(pos)] = pos
|
|
end
|
|
nodecore.optic_check = optic_check
|
|
|
|
local function optic_trigger(start, dir)
|
|
local pos, node = scan(start, dir)
|
|
if not node then return end
|
|
local def = minetest.registered_items[node.name] or {}
|
|
if def and def.optic_check then return optic_check(pos) end
|
|
end
|
|
|
|
local function optic_process(trans, pos)
|
|
local node = minetest.get_node(pos)
|
|
if node.name == "ignore" then return end
|
|
local def = minetest.registered_items[node.name] or {}
|
|
|
|
local ignored
|
|
if def and def.optic_check then
|
|
local func = function(dir)
|
|
local hit, hnode = scan_recv(pos, dir)
|
|
ignored = ignored or hit == false
|
|
return hit, hnode
|
|
end
|
|
local nn, res = def.optic_check(pos, node, func, def)
|
|
if (not ignored) and nn then
|
|
trans[minetest.hash_node_position(pos)] = {
|
|
pos = pos,
|
|
nn = nn,
|
|
data = res or {}
|
|
}
|
|
end
|
|
end
|
|
|
|
if not ignored then
|
|
for _, dir in pairs(nodecore.dirs()) do
|
|
optic_trigger(pos, dir)
|
|
end
|
|
end
|
|
end
|
|
|
|
local function optic_commit(v)
|
|
local node = minetest.get_node(v.pos)
|
|
if node.name ~= v.nn then
|
|
node.name = v.nn
|
|
minetest.set_node(v.pos, node)
|
|
end
|
|
|
|
local data = {}
|
|
for _, vv in pairs(v.data or {}) do
|
|
data[dirname(vv)] = 1
|
|
end
|
|
|
|
local meta = minetest.get_meta(v.pos)
|
|
|
|
local old = meta:get_string("nc_optics")
|
|
old = old and minetest.deserialize(old) or {}
|
|
for _, dir in pairs(nodecore.dirs()) do
|
|
local dn = dirname(dir)
|
|
if old[dn] ~= data[dn] then
|
|
optic_trigger(v.pos, dir)
|
|
end
|
|
end
|
|
meta:set_string("nc_optics", minetest.serialize(data))
|
|
end
|
|
|
|
minetest.register_globalstep(function()
|
|
-- snapshot batch, as processing may write to queue
|
|
local batch = optic_queue
|
|
optic_queue = {}
|
|
|
|
local trans = {}
|
|
for _, pos in pairs(batch) do
|
|
optic_process(trans, pos)
|
|
end
|
|
|
|
for _, v in pairs(trans) do
|
|
optic_commit(v)
|
|
end
|
|
end)
|
|
|
|
nodecore.register_limited_abm({
|
|
label = "Optic Check",
|
|
interval = 1,
|
|
chance = 1,
|
|
limited_max = 100,
|
|
limited_alert = 100,
|
|
nodenames = {"group:optic_check"},
|
|
action = nodecore.optic_check
|
|
})
|