9793cb1313
attempt to follow this: https://www.gnu.org/licenses/gpl-3.0.en.html edit README.md, add screenshot.png
298 lines
12 KiB
Lua
298 lines
12 KiB
Lua
-- (c) 2015-2016 rnd
|
|
-- Copyright (C) 2022-2023 мтест
|
|
-- See README.md for license details
|
|
|
|
local F, S = basic_machines.F, basic_machines.S
|
|
local machines_minstep = basic_machines.properties.machines_minstep
|
|
local detector_oplist = {["-"] = 1, ["AND"] = 2, ["OR"] = 3}
|
|
local detector_modelist = {["node"] = 1, ["player"] = 2, ["object"] = 3, ["inventory"] = 4,
|
|
["infotext"] = 5, ["light"] = 6}
|
|
local detector_modelist_translated = -- translations of detector_modelist keys
|
|
table.concat({F(S("node")), F(S("player")), F(S("object")), F(S("inventory")), F(S("infotext")), F(S("light"))}, ",")
|
|
local vector_add = vector.add
|
|
|
|
minetest.register_node("basic_machines:detector", {
|
|
description = S("Detector"),
|
|
groups = {cracky = 3},
|
|
tiles = {"basic_machines_detector.png"},
|
|
sounds = basic_machines.sound_node_machine(),
|
|
|
|
after_place_node = function(pos, placer)
|
|
if not placer then return end
|
|
|
|
local meta = minetest.get_meta(pos)
|
|
meta:set_string("infotext", S("Detector. Right click/punch to set it up."))
|
|
meta:set_string("owner", placer:get_player_name())
|
|
|
|
meta:set_int("x0", 0); meta:set_int("y0", 0); meta:set_int("z0", 0) -- source1: read
|
|
meta:set_string("op", "-")
|
|
meta:set_int("x1", 0); meta:set_int("y1", 0); meta:set_int("z1", 0) -- source2: read
|
|
meta:set_int("x2", 0); meta:set_int("y2", 1); meta:set_int("z2", 0) -- target: activate
|
|
meta:set_int("r", 0)
|
|
meta:set_string("node", ""); meta:set_int("NOT", 2)
|
|
meta:set_string("mode", "node")
|
|
meta:set_int("state", 0)
|
|
meta:set_int("t", 0); meta:set_int("T", 0)
|
|
end,
|
|
|
|
can_dig = function(pos, player)
|
|
return player and minetest.get_meta(pos):get_string("owner") == player:get_player_name() or false
|
|
end,
|
|
|
|
on_rightclick = function(pos, _, player)
|
|
local meta, name = minetest.get_meta(pos), player:get_player_name()
|
|
|
|
local pos1 = {x = meta:get_int("x0"), y = meta:get_int("y0"), z = meta:get_int("z0")}
|
|
local pos11 = {x = meta:get_int("x1"), y = meta:get_int("y1"), z = meta:get_int("z1")}
|
|
local pos2 = {x = meta:get_int("x2"), y = meta:get_int("y2"), z = meta:get_int("z2")}
|
|
|
|
local pos1_abs = vector_add(pos, pos1)
|
|
|
|
machines.mark_pos1(name, pos1_abs) -- mark pos1
|
|
machines.mark_pos2(name, vector_add(pos, pos2)) -- mark pos2
|
|
|
|
local mode_string = meta:get_string("mode")
|
|
local node_filter = meta:get_string("node")
|
|
|
|
-- pos11 and logical operations are only available with node/inventory mode
|
|
if mode_string == "node" or mode_string == "inventory" and node_filter ~= "" then
|
|
machines.mark_pos11(name, vector_add(pos, pos11)) -- mark pos11
|
|
end
|
|
|
|
local inventory_list
|
|
|
|
if mode_string == "inventory" then
|
|
local meta1 = minetest.get_meta(pos1_abs)
|
|
local inv1m = meta:get_string("inv1")
|
|
local inv1 = 1
|
|
|
|
local list1, inv_list1 = meta1:get_inventory():get_lists(), ""
|
|
-- stupid dropdown requires item index but returns string on receive so we have to find index.. grrr
|
|
-- one other solution: invert the table: key <-> value
|
|
local j = 1
|
|
for k, _ in pairs(list1) do
|
|
inv_list1 = inv_list1 .. F(S(k)) .. ","
|
|
if k == inv1m then inv1 = j end; j = j + 1
|
|
end
|
|
inventory_list = "label[0.25,6.85;" .. F(S("Inventory selection")) ..
|
|
"]dropdown[0.25,7.05;3.5,0.8;inv1;" .. inv_list1:gsub(",$", "") .. ";" .. inv1 .. "]"
|
|
else
|
|
inventory_list = "label[0.25,6.85;" .. F(S("Inventory selection")) .. "]dropdown[0.25,7.05;3.5,0.8;inv1;;]"
|
|
end
|
|
|
|
minetest.show_formspec(name, "basic_machines:detector_" .. minetest.pos_to_string(pos),
|
|
"formspec_version[4]size[5.25,8.1]" ..
|
|
"field[0.25,0.5;1,0.8;x0;" .. F(S("Source1")) .. ";" .. pos1.x ..
|
|
"]field[1.5,0.5;1,0.8;y0;;" .. pos1.y .. "]field[2.75,0.5;1,0.8;z0;;" .. pos1.z ..
|
|
"]dropdown[4,0.5;1,0.8;op;" .. F(S("-")) .. "," .. F(S("AND")) .. "," .. F(S("OR")) .. ";" ..
|
|
(detector_oplist[meta:get_string("op")] or 1) ..
|
|
"]field[0.25,1.75;1,0.8;x1;" .. F(S("Source2")) .. ";" .. pos11.x ..
|
|
"]field[1.5,1.75;1,0.8;y1;;" .. pos11.y .. "]field[2.75,1.75;1,0.8;z1;;" .. pos11.z ..
|
|
"]field[0.25,3;1,0.8;x2;" .. F(S("Target")) .. ";" .. pos2.x ..
|
|
"]field[1.5,3;1,0.8;y2;;" .. pos2.y .. "]field[2.75,3;1,0.8;z2;;" .. pos2.z ..
|
|
"]field[4,3;1,0.8;r;" .. F(S("Radius")) .. ";" .. meta:get_int("r") ..
|
|
"]field[0.25,4.25;3.25,0.8;node;" .. F(S("Detection filter")) .. ";" .. F(node_filter) ..
|
|
"]field[3.75,4.25;1.27,0.8;NOT;" .. F(S("Filter out")) .. ";" .. meta:get_int("NOT") ..
|
|
"]label[0.25,5.6;" .. minetest.colorize("lawngreen", F(S("Mode selection"))) ..
|
|
"]dropdown[0.25,5.8;3.5,0.8;mode;" .. detector_modelist_translated .. ";" .. (detector_modelist[mode_string] or 1) ..
|
|
"]button[4,5.8;1,0.8;help;" .. F(S("help")) .. "]" ..
|
|
inventory_list .. "button_exit[4,7.05;1,0.8;OK;" .. F(S("OK")) .. "]")
|
|
end,
|
|
|
|
effector = {
|
|
action_on = function(pos, ttl)
|
|
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
|
|
elseif T > 0 then
|
|
T = T - 1
|
|
end
|
|
meta:set_int("t", t1); meta:set_int("T", T)
|
|
|
|
if T > 2 then -- overheat
|
|
minetest.sound_play(basic_machines.sound_overheat, {pos = pos, max_hear_distance = 16, gain = 0.25}, true)
|
|
meta:set_string("infotext", S("Overheat! Temperature: @1", T))
|
|
return
|
|
end
|
|
|
|
local mode = meta:get_string("mode")
|
|
local pos1 = vector_add(pos, {x = meta:get_int("x0"), y = meta:get_int("y0"), z = meta:get_int("z0")}) -- source1
|
|
local node = meta:get_string("node") -- detection filter
|
|
local detected_obj, trigger = nil, false
|
|
local NOT = meta:get_int("NOT")
|
|
|
|
if mode == "node" then
|
|
local tnode = minetest.get_node(pos1).name -- read node at source position
|
|
local r = meta:get_int("r")
|
|
detected_obj = tnode
|
|
|
|
if (node == "" and tnode ~= "air") or tnode == node then
|
|
trigger = true
|
|
elseif r > 0 and node ~= "" then
|
|
if minetest.find_node_near(pos1, r, {node}) then trigger = true end
|
|
end
|
|
|
|
local op = meta:get_string("op")
|
|
|
|
-- operation: AND, OR... look at other source position too
|
|
if op ~= "-" then
|
|
local pos11 = vector_add(pos, {x = meta:get_int("x1"), y = meta:get_int("y1"), z = meta:get_int("z1")}) -- source2
|
|
tnode = minetest.get_node(pos11).name -- read node at source position
|
|
local trigger1
|
|
|
|
if (node == "" and tnode ~= "air") or tnode == node then
|
|
trigger1 = true
|
|
elseif r > 0 and node ~= "" and minetest.find_node_near(pos1, r, {node}) then
|
|
trigger1 = true
|
|
else
|
|
trigger1 = false
|
|
end
|
|
|
|
if op == "AND" then
|
|
trigger = trigger and trigger1
|
|
elseif op == "OR" then
|
|
trigger = trigger or trigger1
|
|
end
|
|
end
|
|
|
|
elseif mode == "inventory" then
|
|
local inv = minetest.get_meta(pos1):get_inventory()
|
|
local inv1m = meta:get_string("inv1")
|
|
|
|
if node == "" then -- if there is item report name and trigger
|
|
if inv:is_empty(inv1m) then
|
|
trigger = false
|
|
else -- nonempty
|
|
trigger = true
|
|
for i = 1, inv:get_size(inv1m) do -- find item to move in inventory
|
|
local stack = inv:get_stack(inv1m, i)
|
|
if not stack:is_empty() then detected_obj = stack:to_string(); break end
|
|
end
|
|
end
|
|
else -- node name was set
|
|
if inv:contains_item(inv1m, ItemStack(node)) then
|
|
trigger = true; detected_obj = node
|
|
end
|
|
|
|
local op = meta:get_string("op")
|
|
|
|
-- operation: AND, OR... look at other source position too
|
|
if op ~= "-" then
|
|
local pos11 = vector_add(pos, {x = meta:get_int("x1"), y = meta:get_int("y1"), z = meta:get_int("z1")}) -- source2
|
|
local trigger1 = minetest.get_meta(pos11):get_inventory():contains_item(inv1m, ItemStack(node))
|
|
|
|
if op == "AND" then
|
|
trigger = trigger and trigger1
|
|
elseif op == "OR" then
|
|
trigger = trigger or trigger1
|
|
end
|
|
end
|
|
end
|
|
|
|
elseif mode == "infotext" then
|
|
detected_obj = minetest.get_meta(pos1):get_string("infotext")
|
|
if detected_obj == node then
|
|
trigger = true
|
|
else
|
|
detected_obj = minetest.get_translated_string("", detected_obj)
|
|
if node == "" or detected_obj == node or F(detected_obj) == node then
|
|
trigger = true
|
|
end
|
|
end
|
|
|
|
elseif mode == "light" then
|
|
detected_obj = minetest.get_node_light(pos1) or 0
|
|
if node == "" or detected_obj >= (tonumber(node) or 0) then trigger = true end
|
|
|
|
else -- players/objects
|
|
local player_near = false
|
|
for _, obj in ipairs(minetest.get_objects_inside_radius(pos1, meta:get_int("r"))) do
|
|
if mode == "player" then
|
|
if obj:is_player() then
|
|
player_near = true
|
|
detected_obj = obj:get_player_name()
|
|
if node == "" or detected_obj == node then
|
|
trigger = true; break
|
|
end
|
|
end
|
|
elseif mode == "object" and not obj:is_player() then
|
|
local lua_entity = obj:get_luaentity()
|
|
if lua_entity then
|
|
detected_obj = lua_entity.itemstring or lua_entity.name or ""
|
|
if detected_obj == node then trigger = true; break end
|
|
end
|
|
if node == "" then trigger = true; break end
|
|
end
|
|
end
|
|
|
|
if node ~= "" and mode == "player" and NOT == -1 and not trigger and not player_near then
|
|
trigger = true
|
|
end -- name specified, but no one around and negation -> 0
|
|
end
|
|
|
|
-- negation and output filtering
|
|
local state = meta:get_int("state")
|
|
|
|
-- -2: only false, -1: NOT, 0: no signal, 1: normal signal: 2: only true, 3: only if change
|
|
if NOT ~= 1 and NOT ~= 4 then -- else, just go on normally
|
|
if NOT == 2 and not trigger then meta:set_string("infotext", ""); return -- ONLY TRUE
|
|
elseif NOT == -2 and trigger then meta:set_string("infotext", ""); return -- ONLY FALSE
|
|
elseif NOT == -1 then trigger = not trigger -- NEGATION
|
|
elseif NOT == 0 then meta:set_string("infotext", ""); return -- do nothing
|
|
elseif NOT == 3 and ((trigger and state == 1) or (not trigger and state == 0)) then
|
|
meta:set_string("infotext", ""); return -- no change of state
|
|
end
|
|
end
|
|
|
|
local nstate = trigger and 1 or 0 -- next detector output state
|
|
if nstate ~= state then meta:set_int("state", nstate) end -- update state if changed
|
|
|
|
local pos2 = vector_add(pos, {x = meta:get_int("x2"), y = meta:get_int("y2"), z = meta:get_int("z2")}) -- target
|
|
|
|
node = minetest.get_node_or_nil(pos2); if not node then return end -- error
|
|
local def = minetest.registered_nodes[node.name]
|
|
if def and (def.effector or def.mesecons and def.mesecons.effector) then -- activate target
|
|
local effector = def.effector or def.mesecons.effector
|
|
local param = def.effector and (ttl - 1) or node
|
|
|
|
if trigger then -- activate target node if successful
|
|
if effector.action_on then
|
|
meta:set_string("infotext", S("Detector: on"))
|
|
if NOT == 4 then -- set detected object name as target text (target must be keypad, if not changes infotext)
|
|
if node.name == "basic_machines:keypad" then
|
|
minetest.get_meta(pos2):set_string("text", detected_obj or "")
|
|
end
|
|
end
|
|
effector.action_on(pos2, param) -- run
|
|
else
|
|
meta:set_string("infotext", "")
|
|
end
|
|
else
|
|
if effector.action_off then
|
|
meta:set_string("infotext", S("Detector: off"))
|
|
effector.action_off(pos2, param) -- run
|
|
else
|
|
meta:set_string("infotext", "")
|
|
end
|
|
end
|
|
end
|
|
end
|
|
}
|
|
})
|
|
|
|
if basic_machines.settings.register_crafts and basic_machines.use_default then
|
|
minetest.register_craft({
|
|
output = "basic_machines:detector",
|
|
recipe = {
|
|
{"default:mese_crystal", "default:mese_crystal"},
|
|
{"default:mese_crystal", "default:mese_crystal"},
|
|
{"basic_machines:keypad", ""}
|
|
}
|
|
})
|
|
end |