techpack/tubelib_addons2/mesecons_converter.lua

159 lines
4.5 KiB
Lua

--[[
Tubelib Addons 2
================
Copyright (C) 2017-2020 Joachim Stolberg
AGPL v3
See LICENSE.txt for more information
mesecons_converter.lua:
]]--
-- Load support for I18n
local S = tubelib_addons2.S
local OVER_LOAD_MAX = 5
local function formspec(meta)
local numbers = meta:get_string("numbers")
return "size[7,5]"..
"field[0.5,2;6,1;number;"..S("Destination node numbers")..";"..numbers.."]" ..
"button_exit[1,3;2,1;exit;"..S("Save").."]"
end
local function send_message(pos, topic, payload)
local meta = minetest.get_meta(pos)
local owner = meta:get_string("owner")
local numbers = meta:get_string("numbers")
local overload_cnt = meta:get_int("overload_cnt") + 1
meta:set_int("overload_cnt", overload_cnt)
if overload_cnt > OVER_LOAD_MAX then
local own_number = meta:get_string("own_number")
meta:set_string("infotext", S("Tubelib Mesecons Converter").." "..own_number..S(": fault (overloaded)"))
minetest.get_node_timer(pos):stop()
return
else
if topic == "change" then
topic = meta:get_string("state") == "on" and "off" or "on"
end
tubelib.send_message(numbers, owner, nil, topic, payload)
end
meta:set_string("state", topic)
end
minetest.register_node("tubelib_addons2:mesecons_converter", {
description = S("Tubelib Mesecons Converter"),
tiles = {
-- up, down, right, left, back, front
'tubelib_front.png',
'tubelib_front.png',
'tubelib_front.png^tubelib_addon2_mesecons_converter.png',
},
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
local own_number = tubelib.add_node(pos, "tubelib_addons2:mesecons_converter")
meta:set_string("own_number", own_number)
meta:set_string("formspec", formspec(meta))
meta:set_string("infotext", S("Tubelib Mesecons Converter").." "..own_number..S(": not connected"))
meta:set_string("owner", placer:get_player_name())
-- send_message is called 24 times after the node is placed
meta:set_int("overload_cnt", -24)
minetest.get_node_timer(pos):start(1)
end,
on_receive_fields = function(pos, formname, fields, player)
local meta = minetest.get_meta(pos)
local owner = meta:get_string("owner")
if owner ~= player:get_player_name() then
return
end
if tubelib.check_numbers(fields.number) then
meta:set_string("numbers", fields.number)
local own_number = meta:get_string("own_number")
meta:set_string("infotext", S("Tubelib Mesecons Converter").." "..own_number..S(": connected with").." "..fields.number)
meta:set_string("formspec", formspec(meta))
end
local timer = minetest.get_node_timer(pos)
if not timer:is_started() then
timer:start(1)
end
end,
mesecons = {
receptor = {
state = mesecon.state.off,
rules = mesecon.rules.default,
},
effector = {
rules = mesecon.rules.default,
action_on = function (pos, node)
local meta = minetest.get_meta(pos)
local own_number = meta:get_string("own_number")
send_message(pos, "on", own_number)
end,
action_off = function (pos, node)
local meta = minetest.get_meta(pos)
local own_number = meta:get_string("own_number")
send_message(pos, "off", own_number)
end,
action_change = function (pos, node)
local meta = minetest.get_meta(pos)
local own_number = meta:get_string("own_number")
send_message(pos, "change", own_number)
end,
}
},
on_timer = function(pos,elapsed)
if tubelib.data_not_corrupted(pos) then
local meta = minetest.get_meta(pos)
meta:set_int("overload_cnt", 0)
return true
end
return false
end,
after_dig_node = function(pos)
tubelib.remove_node(pos)
end,
paramtype = "light",
sunlight_propagates = true,
paramtype2 = "facedir",
groups = {choppy=2, cracky=2, crumbly=2},
is_ground_content = false,
sounds = default.node_sound_stone_defaults(),
on_blast = function() end,
})
minetest.register_craft({
output = "tubelib_addons2:mesecons_converter",
recipe = {
{"tubelib:button", "mesecons:wire_00000000_off"},
},
})
tubelib.register_node("tubelib_addons2:mesecons_converter", {}, {
on_recv_message = function(pos, topic, payload)
if topic == "on" then
mesecon.receptor_on(pos, mesecon.rules.default)
elseif topic == "off" then
mesecon.receptor_off(pos, mesecon.rules.default)
elseif topic == "set_numbers" then
local meta = minetest.get_meta(pos)
local own_number = meta:get_string("own_number")
meta:set_string("infotext", S("Tubelib Mesecons Converter").." "..own_number..S(": connected with").." "..payload)
meta:set_string("numbers", payload)
meta:set_string("formspec", formspec(meta))
return true
end
end,
})