mods that hopefully work for a TechAge-based pack

mods/techage_modpack/techage/basis/teleport.lua

@@ -0,0 +1,184 @@
+--[[
+
+	TechAge
+	=======
+
+	Copyright (C) 2019-2022 Joachim Stolberg
+
+	AGPL v3
+	See LICENSE.txt for more information
+
+	For tupe/pipe blocks with teleport support
+
+]]--
+
+-- for lazy programmers
+local S2P = minetest.string_to_pos
+local P2S = minetest.pos_to_string
+local NDEF = function(pos) return minetest.registered_nodes[techage.get_node_lvm(pos).name] or {} end
+local M = minetest.get_meta
+local S = techage.S
+local menu = techage.menu
+
+techage.teleport = {}
+
+local PairingList = {}  -- {owner = {node_type = {channel = pos}}}
+
+local function get_pairing_table1(meta)
+    local owner = meta:get_string("owner")
+    local node_type = meta:get_string("tele_node_type")
+	PairingList[owner] = PairingList[owner] or {}
+	PairingList[owner][node_type] = PairingList[owner][node_type] or {}
+	return PairingList[owner][node_type]
+end
+
+local function get_pairing_table2(oldmetadata)
+    local owner = oldmetadata.fields.owner
+    local node_type = oldmetadata.fields.tele_node_type
+	PairingList[owner] = PairingList[owner] or {}
+	PairingList[owner][node_type] = PairingList[owner][node_type] or {}
+	return PairingList[owner][node_type]
+end
+
+local function get_free_server_list(pos)
+	local tbl = {""}
+	for name, pos in pairs(get_pairing_table1(M(pos))) do
+		table.insert(tbl, name)
+	end
+	return table.concat(tbl, ",")
+end
+
+local TELE_MENU = {
+	{
+		type = "label",
+		label = S("Enter a block name or select an existing one"),
+		tooltip = "",
+		name = "l1",
+	},
+	{
+		type = "ascii",
+		name = "conn_name",
+		label = S("Block name"),
+		tooltip = S("Connection name for this block"),
+		default = "",
+	},
+	{
+		type = "dropdown",
+		choices = "",
+		on_dropdown = get_free_server_list,
+		name = "remote_name",
+		label = S("Remote name"),
+		tooltip = S("Connection name of the remote block"),
+	},
+	{
+		type = "output",
+		label = S("Status"),
+		tooltip = S("Connection status"),
+		name = "status",
+		default = "",
+	},
+}
+
+function techage.teleport.formspec(pos)
+	local ndef = NDEF(pos)
+	return menu.generate_formspec(pos, ndef, TELE_MENU)
+end
+
+local function store_connection(pos, peer_pos)
+	local meta = M(pos)
+	local status = S("connected to") .. " " .. P2S(peer_pos)
+	meta:set_string("tele_status", status)
+	meta:set_string("tele_peer_pos", P2S(peer_pos))
+	meta:set_string("formspec", "")
+end
+
+local function get_conn_name(pos)
+	local name = M(pos):get_string("conn_name")
+	if name == "" then
+		return "'<no-name>'"
+	end
+	return "'" .. name .. "'"
+end
+
+function techage.teleport.update_status(pos)
+	local meta = M(pos)
+	local peer_pos = S2P(meta:get_string("tele_peer_pos"))
+	if peer_pos then
+		local status = S("Block @1 connected to @2 at pos. @3", get_conn_name(pos), get_conn_name(peer_pos), P2S(peer_pos))
+		meta:set_string("tele_status", status)
+	end
+end
+
+function techage.teleport.prepare_pairing(pos, node_type, status)
+	local meta = M(pos)
+	if node_type then
+		meta:set_string("tele_node_type", node_type)
+	end
+	status = status or S("not connected")
+	meta:set_string("tele_status", status)
+	meta:set_string("tele_peer_pos", "")
+	meta:set_string("formspec", techage.teleport.formspec(pos))
+end
+
+function techage.teleport.stop_pairing(pos, oldmetadata)
+	-- disconnect peer node
+	if oldmetadata and oldmetadata.fields then
+		if oldmetadata.fields.tele_peer_pos then
+			local peer_pos = S2P(oldmetadata.fields.tele_peer_pos)
+			local meta = M(peer_pos)
+			if meta:get_string("conn_name") ~= "" then -- Server
+				local tbl = get_pairing_table1(meta)
+				tbl[meta:get_string("conn_name")] = peer_pos
+				techage.teleport.prepare_pairing(peer_pos, nil, S("server not connected"))
+			else
+				techage.teleport.prepare_pairing(peer_pos)
+			end
+		elseif oldmetadata.fields.conn_name then
+			local tbl = get_pairing_table2(oldmetadata)
+			tbl[oldmetadata.fields.conn_name] = nil
+		end
+	end
+end
+
+function techage.teleport.is_connected(pos)
+	return M(pos):get_string("tele_peer_pos") ~= ""
+end
+
+function techage.teleport.get_remote_pos(pos)
+	local s = M(pos):get_string("tele_peer_pos")
+	if s ~= "" then
+		return S2P(s)
+	end
+end
+
+function techage.teleport.after_formspec(pos, player, fields, max_dist, ex_points)
+	if techage.get_expoints(player) >= ex_points then
+		if techage.menu.eval_input(pos, TELE_MENU, fields) then
+			if not techage.teleport.is_connected(pos) then
+				local meta = M(pos)
+				if fields.remote_name ~= "" then -- Client
+					local tbl = get_pairing_table1(meta)
+					local peer_pos = tbl[fields.remote_name]
+					if peer_pos then
+						if vector.distance(pos, peer_pos) <= max_dist then
+							tbl[fields.remote_name] = nil
+							store_connection(pos, peer_pos)
+							store_connection(peer_pos, pos)
+							M(pos):set_string("status", S("Connected"))
+						else
+							M(pos):set_string("status", S("Distance > @1 blocks", max_dist))
+							meta:set_string("formspec", techage.teleport.formspec(pos))
+						end
+					end
+				elseif fields.conn_name ~= "" then -- Server
+					local tbl = get_pairing_table1(meta)
+					tbl[fields.conn_name] = pos
+					techage.teleport.prepare_pairing(pos, nil, S("server not connected"))
+				end
+			end
+		end
+	else
+		M(pos):set_string("status", S("Ex-points missing (@1 < @2)", techage.get_expoints(player), ex_points))
+		M(pos):set_string("formspec", techage.teleport.formspec(pos))
+	end
+end