mods that hopefully work for a TechAge-based pack

mods/techage_modpack/minecart/terminal.lua

@@ -0,0 +1,134 @@
+--[[
+
+	Minecart
+	========
+
+	Copyright (C) 2019-2023 Joachim Stolberg
+
+	MIT
+	See license.txt for more information
+
+]]--
+
+-- for lazy programmers
+local M = minetest.get_meta
+local S = minecart.S
+
+local function is_player_nearby(pos)
+	for _, object in pairs(minetest.get_objects_inside_radius(pos, 6)) do
+		if object:is_player() then
+			return true
+		end
+	end
+end
+
+local function formspec(pos, text)
+	text = minetest.formspec_escape(text)
+	text = text:gsub("\n", ",")
+
+	return "size[11,9]"..
+		default.gui_bg..
+		default.gui_bg_img..
+		default.gui_slots..
+		"box[0,-0.1;10.8,0.5;#c6e8ff]"..
+		"label[4.5,-0.1;"..minetest.colorize( "#000000", S("Cart List")).."]"..
+		"style_type[table,field;font=mono]"..
+		"table[0,0.5;10.8,8.6;output;"..text..";200]"
+end
+
+minetest.register_node("minecart:terminal", {
+	description = S("Cart Terminal"),
+	inventory_image = "minecart_terminal_front.png",
+	tiles = {
+		"minecart_terminal_top.png",
+		"minecart_terminal_top.png",
+		"minecart_terminal_side.png",
+		"minecart_terminal_side.png",
+		"minecart_terminal_back.png",
+		"minecart_terminal_front.png",
+		},
+	drawtype = "nodebox",
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{ -8/16, -8/16, 0/16,  8/16, 8/16, 8/16},
+		},
+	},
+
+	after_place_node = function(pos, placer)
+		local meta = M(pos)
+		meta:set_string("owner", placer:get_player_name())
+		meta:set_string("formspec", formspec(pos, ""))
+		if minetest.get_modpath("techage") then
+			local number = techage.add_node(pos, "minecart:terminal")
+			meta:set_string("node_number", number)
+			meta:set_string("infotext", "Cart Terminal " .. number)
+		end
+		minetest.get_node_timer(pos):start(2)
+	end,
+
+	on_timer = function(pos, elapsed)
+		if is_player_nearby(pos) then
+			local text = minecart.get_cart_list(pos, M(pos):get_string("owner"))
+			M(pos):set_string("formspec", formspec(pos, text))
+		end
+		return true
+	end,
+
+	paramtype2 = "facedir",
+	paramtype = "light",
+	use_texture_alpha = minecart.CLIP,
+	on_rotate = screwdriver.disallow,
+	sunlight_propagates = true,
+	is_ground_content = false,
+	groups = {cracky = 2, level = 2},
+	sounds = default.node_sound_metal_defaults(),
+})
+
+minetest.register_craft({
+	output = "minecart:terminal",
+	recipe = {
+		{"", "default:obsidian_glass", "default:steel_ingot"},
+		{"", "default:obsidian_glass", "default:copper_ingot"},
+		{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
+	},
+})
+
+minetest.register_on_mods_loaded(function()
+	if minetest.get_modpath("techage") then
+		techage.register_node({"minecart:terminal"}, {
+			on_recv_message = function(pos, src, topic, payload)
+				local number = tonumber(payload)
+				if number then
+					local owner = M(pos):get_string("owner")
+					if topic == "state" then
+						return minecart.cmnd_cart_state(owner, number)
+					elseif topic == "distance" then
+						return minecart.cmnd_cart_distance(owner, number, pos)
+					else
+						return "unsupported"
+					end
+				end
+			end,
+			on_beduino_receive_cmnd = function(pos, src, topic, payload)
+				return 2  -- unknown or invalid topic
+			end,
+			on_beduino_request_data = function(pos, src, topic, payload)
+				if topic == 128 then
+					return 0, "minecart:terminal"
+				elseif topic == 129 then  -- state
+					local owner = M(pos):get_string("owner")
+					local STATE = {unknown = 0, stopped = 1, running = 2}
+					local state = STATE[minecart.cmnd_cart_state(owner, payload[1])] or 0
+					return 0, {state}
+				elseif topic == 130 then  -- distance
+					local owner = M(pos):get_string("owner")
+					local dist = minecart.cmnd_cart_distance(owner, payload[1], pos)
+					return 0, {dist}
+				else
+					return 2, ""  -- topic is unknown or invalid
+				end
+			end,
+		})
+	end
+end)