techage_modpack/networks/test/test_control.lua
2022-01-28 18:22:52 +01:00

140 lines
3.8 KiB
Lua

--[[
Networks
========
Copyright (C) 2021 Joachim Stolberg
AGPL v3
See LICENSE.txt for more information
]]--
-- for lazy programmers
local P2S = function(pos) if pos then return minetest.pos_to_string(pos) end end
local S2P = minetest.string_to_pos
local M = minetest.get_meta
local Cable = ...
local power = networks.power
local control = networks.control
-------------------------------------------------------------------------------
-- Client (sender)
-------------------------------------------------------------------------------
minetest.register_node("networks:client", {
description = "Client",
tiles = {
-- up, down, right, left, back, front
'networks_con.png^[colorize:#F05100:60',
'networks_con.png^[colorize:#F05100:60',
'networks_con.png^[colorize:#F05100:60',
'networks_con.png^[colorize:#F05100:60',
'networks_con.png^[colorize:#F05100:60',
'networks_conn.png^[colorize:#F05100:60',
},
after_place_node = function(pos)
local outdir = networks.side_to_outdir(pos, "F")
M(pos):set_int("outdir", outdir)
M(pos):set_string("infotext", "off")
Cable:after_place_node(pos, {outdir})
tubelib2.init_mem(pos)
end,
after_dig_node = function(pos, oldnode, oldmetadata)
local outdir = tonumber(oldmetadata.fields.outdir or 0)
Cable:after_dig_node(pos, {outdir})
tubelib2.del_mem(pos)
end,
on_rightclick = function(pos, node, clicker)
local mem = tubelib2.get_mem(pos)
local outdir = M(pos):get_int("outdir")
local cnt
if mem.on then
cnt = control.send(pos, Cable, outdir, "server", "off")
M(pos):set_string("infotext", "off")
mem.on = false
else
cnt = control.send(pos, Cable, outdir, "server", "on")
M(pos):set_string("infotext", "on")
mem.on = true
end
print("Command sent to " .. cnt .. " nodes.")
end,
paramtype2 = "facedir",
on_rotate = screwdriver.disallow,
is_ground_content = false,
groups = {crumbly = 2, cracky = 2, snappy = 2},
sounds = default.node_sound_defaults(),
})
power.register_nodes({"networks:client"}, Cable, "client")
control.register_nodes({"networks:client"}, {}) -- no callbacks
-------------------------------------------------------------------------------
-- Server (receiver)
-------------------------------------------------------------------------------
local function swap_node(pos, name)
local node = tubelib2.get_node_lvm(pos)
if node.name == name then
return
end
node.name = name
minetest.swap_node(pos, node)
end
minetest.register_node("networks:server_off", {
description = "Server",
tiles = {
-- up, down, right, left, back, front
"networks_sto.png^[colorize:#F05100:60",
},
after_place_node = function(pos)
Cable:after_place_node(pos)
end,
after_dig_node = function(pos)
Cable:after_dig_node(pos)
end,
paramtype2 = "facedir",
on_rotate = screwdriver.disallow,
is_ground_content = false,
groups = {crumbly = 2, cracky = 2, snappy = 2},
sounds = default.node_sound_defaults(),
})
minetest.register_node("networks:server_on", {
description = "Server",
tiles = {
-- up, down, right, left, back, front
"networks_sto.png^[colorize:#F05100:60",
},
after_place_node = function(pos)
Cable:after_place_node(pos)
end,
after_dig_node = function(pos)
Cable:after_dig_node(pos)
end,
paramtype = "light",
light_source = 8,
paramtype2 = "facedir",
drop = "networks:server_off",
groups = {crumbly = 2, cracky = 2, snappy = 2, not_in_creative_inventory = 1},
is_ground_content = false,
sounds = default.node_sound_defaults(),
})
power.register_nodes({"networks:server_off", "networks:server_on"}, Cable, "server")
control.register_nodes({"networks:server_off", "networks:server_on"}, {
on_receive = function(pos, tlib2, topic, payload)
if topic == "on" then
swap_node(pos, "networks:server_on")
elseif topic == "off" then
swap_node(pos, "networks:server_off")
end
end,
on_request = function(pos, tlib2, topic)
return false
end,
}
)