mods that hopefully work for a TechAge-based pack

mods/techage_modpack/minecart/buffer.lua

@@ -0,0 +1,178 @@
+--[[
+
+	Minecart
+	========
+
+	Copyright (C) 2019-2021 Joachim Stolberg
+
+	MIT
+	See license.txt for more information
+
+]]--
+
+-- for lazy programmers
+local M = minetest.get_meta
+local P2S = function(pos) if pos then return minetest.pos_to_string(pos) end end
+local S2P = minetest.string_to_pos
+local S = minecart.S
+
+local CYCLE_TIME = 2
+
+local StopTime = {}
+
+local function formspec(pos)
+	local name = M(pos):get_string("name")
+	local time = M(pos):get_int("time")
+	return "size[4,4.2]" ..
+		"label[0,0;Configuration]" ..
+		"field[0.5,1.2;3.6,1;name;"..S("Station name")..":;"..name.."]"..
+		"button_exit[1,3.4;2,1;exit;Save]"..
+		"field[0.5,2.5;3.6,1;time;"..S("Waiting time/sec")..":;"..time.."]"
+end
+
+local function remote_station_name(pos)
+	local route = minecart.get_route(pos)
+	if route and route.dest_pos then
+		return M(route.dest_pos):get_string("name")
+	end
+end
+
+function minecart.update_buffer_infotext(pos)
+	local name = M(pos):get_string("name")
+	local dest = remote_station_name(pos)
+	if dest then
+		M(pos):set_string("infotext", name .. ": " .. S("connected to") .. " " .. dest)
+	else
+		M(pos):set_string("infotext", name .. ": " .. S("Not connected!"))
+	end
+end
+
+local function on_punch(pos, node, puncher)
+	minecart.update_buffer_infotext(pos)
+	M(pos):set_string("formspec", formspec(pos))
+	minetest.get_node_timer(pos):start(CYCLE_TIME)
+
+	-- Optional Teleport function
+	if not minecart.teleport_enabled then return end
+	local route = minecart.get_route(pos)
+	if route and route.dest_pos and puncher and puncher:is_player() then
+
+		-- only teleport if the user is not pressing shift
+		if not puncher:get_player_control()['sneak'] then
+			local playername = puncher:get_player_name()
+
+			local teleport = function()
+				-- Make sure the player object still exists
+				local player = minetest.get_player_by_name(playername)
+				if player then player:set_pos(route.dest_pos) end
+			end
+			minetest.after(0.25, teleport)
+		end
+	end
+end
+
+minetest.register_node("minecart:buffer", {
+	description = S("Minecart Railway Buffer"),
+	tiles = {
+		'default_junglewood.png',
+		'default_junglewood.png',
+		'default_junglewood.png',
+		'default_junglewood.png',
+		'default_junglewood.png',
+		'default_junglewood.png^minecart_buffer.png',
+		},
+	drawtype = "nodebox",
+	node_box = {
+		type = "fixed",
+		fixed = {
+			{-8/16, -8/16, -8/16,  8/16,  -4/16,  8/16},
+			{-8/16, -4/16, -8/16,  8/16,   0/16,  4/16},
+			{-8/16,  0/16, -8/16,  8/16,   4/16,  0/16},
+			{-8/16,  4/16, -8/16,  8/16,   8/16, -4/16},
+		},
+	},
+	selection_box = {
+		type = "fixed",
+		fixed = {-8/16, -8/16, -8/16,  8/16, 8/16, 8/16},
+	},
+	after_place_node = function(pos, placer)
+		M(pos):set_string("owner", placer:get_player_name())
+		minecart.del_route(pos)
+		M(pos):set_string("formspec", formspec(pos))
+		minetest.get_node_timer(pos):start(CYCLE_TIME)
+	end,
+	on_timer = function(pos, elapsed)
+		local time = M(pos):get_int("time")
+		if time > 0 then
+			local hash = minetest.hash_node_position(pos)
+			local param2 = (minetest.get_node(pos).param2 + 2) % 4
+			if minecart.is_cart_available(pos, param2, 0.5) then
+				if StopTime[hash] then
+					if StopTime[hash] < minetest.get_gametime() then
+						StopTime[hash] = nil
+						local dir = minetest.facedir_to_dir(param2)
+						minecart.punch_cart(pos, param2, 0.5, dir)
+					end
+				else
+					StopTime[hash] = minetest.get_gametime() + time
+				end
+			else
+				StopTime[hash] = nil
+			end
+		end
+		return true
+	end,
+	after_dig_node = function(pos)
+		minecart.del_route(pos)
+		local hash = minetest.hash_node_position(pos)
+		StopTime[hash] = nil
+	end,
+	on_receive_fields = function(pos, formname, fields, player)
+		if M(pos):get_string("owner") ~= player:get_player_name() then
+			return
+		end
+		if (fields.key_enter == "true" or fields.exit == "Save") and fields.name ~= "" then
+			M(pos):set_string("name", fields.name)
+			M(pos):set_int("time", tonumber(fields.time) or 0)
+			M(pos):set_string("formspec", formspec(pos))
+			local dest = remote_station_name(pos)
+			if dest then
+				M(pos):set_string("infotext", fields.name .. ": " .. S("connected to") .. " " .. dest)
+			else
+				M(pos):set_string("infotext", fields.name .. ": " .. S("Not connected!"))
+			end
+			minetest.get_node_timer(pos):start(CYCLE_TIME)
+		end
+	end,
+	on_punch = on_punch,
+	paramtype = "light",
+	sunlight_propagates = true,
+	on_rotate = screwdriver.disallow,
+	paramtype2 = "facedir",
+	groups = {cracky=2, crumbly=2, choppy=2},
+	is_ground_content = false,
+	sounds = default.node_sound_wood_defaults(),
+})
+
+minetest.register_craft({
+	output = "minecart:buffer",
+	recipe = {
+		{"dye:red", "", "dye:white"},
+		{"default:steel_ingot", "default:junglewood", "default:steel_ingot"},
+	},
+})
+
+minetest.register_lbm({
+	label = "Delete metadata",
+	name = "minecart:metadata",
+	nodenames = {"minecart:buffer"},
+	run_at_every_load = true,
+	action = function(pos, node)
+		-- delete old metadata around the buffer (bugfix)
+		local pos1 = {x = pos.x - 2, y = pos.y - 2, z = pos.z - 2}
+		local pos2 = {x = pos.x + 2, y = pos.y + 2, z = pos.z + 2}
+		for _, pos in ipairs(minetest.find_nodes_with_meta(pos1, pos2)) do
+			minecart.del_metadata(pos)
+		end
+	end,
+})