mods that hopefully work for a TechAge-based pack

This commit is contained in:
2026-09-09 06:27:51 -06:00
parent 4e6b08d194
commit c27db2a537
6234 changed files with 375578 additions and 0 deletions
@@ -0,0 +1,255 @@
--[[
TechAge
=======
Copyright (C) 2019-2023 Joachim Stolberg
AGPL v3
See LICENSE.txt for more information
TA4 Electric Meter (to separate networks)
]]--
-- for lazy programmers
local P2S = minetest.pos_to_string
local M = minetest.get_meta
local S = techage.S
local CYCLE_TIME = 2
local PWR_PERF = 200
local Cable = techage.ElectricCable
local power = networks.power
local control = networks.control
local WRENCH_MENU = {
{
type = "dropdown",
choices = "200 ku,150 ku,100 ku,50 ku,20 ku",
name = "current",
label = S("Max. power"),
tooltip = S("Maximum power passed through"),
default = "100 ku",
values = {200, 150, 100, 50, 20}
},
{
type = "number",
name = "countdown",
label = S("Power countdown"),
tooltip = S("Amount of power to be provided before the device turns off"),
default = "0",
},
}
local function max_current(pos)
local meta = M(pos)
if meta:contains("current") then
local current = meta:get_int("current")
return current > 0 and current or PWR_PERF
end
return PWR_PERF
end
local function formspec(self, pos, nvm, power)
local units = (nvm.units or 0) / techage.CYCLES_PER_DAY
nvm.countdown = nvm.countdown or M(pos):get_int("countdown")
power = power or 0
return "size[5,4]" ..
"box[0,-0.1;4.8,0.5;#c6e8ff]" ..
techage.wrench_image(4.4, -0.08) ..
"label[0.2,-0.1;" .. minetest.colorize( "#000000", S("TA4 Electric Meter")).."]" ..
techage.formspec_power_bar(pos, 0.0, 0.7, S("Power"), power, max_current(pos)) ..
techage.formspec_meter(pos, 2.5, 0.7, S("Consumption"), units, "kud") ..
techage.formspec_meter(pos, 2.5, 1.7, S("Countdown"), nvm.countdown, "kud") ..
"image_button[3.2,3.0;1,1;" .. self:get_state_button_image(nvm) .. ";state_button;]" ..
"tooltip[3.2,2.2;1,1;" .. self:get_state_tooltip(nvm) .. "]"
end
local function start_node(pos, nvm, state)
local outdir = M(pos):get_int("outdir")
nvm.load = 0
nvm.countdown = M(pos):get_int("countdown")
power.start_storage_calc(pos, Cable, outdir)
outdir = networks.Flip[outdir]
power.start_storage_calc(pos, Cable, outdir)
end
local function stop_node(pos, nvm, state)
local outdir = M(pos):get_int("outdir")
power.start_storage_calc(pos, Cable, outdir)
outdir = networks.Flip[outdir]
power.start_storage_calc(pos, Cable, outdir)
end
local State = techage.NodeStates:new({
node_name_passive = "techage:ta4_electricmeter",
infotext_name = S("TA4 Electric Meter"),
cycle_time = CYCLE_TIME,
standby_ticks = 0,
formspec_func = formspec,
start_node = start_node,
stop_node = stop_node,
})
local function node_timer(pos, elapsed)
local nvm = techage.get_nvm(pos)
local data
if techage.is_running(nvm) then
local outdir2 = M(pos):get_int("outdir")
local outdir1 = networks.Flip[outdir2]
local current = max_current(pos)
data = power.transfer_simplex(pos, Cable, outdir1, Cable, outdir2, current)
if data then
nvm.countdown = nvm.countdown or M(pos):get_int("countdown")
nvm.load = (data.curr_load1 / data.max_capa1 + data.curr_load2 / data.max_capa2) / 2 * current
nvm.moved = data.moved
nvm.units = (nvm.units or 0) + data.moved
State:keep_running(pos, nvm)
if nvm.countdown > 0 then
nvm.countdown = nvm.countdown - (data.moved / techage.CYCLES_PER_DAY)
if nvm.countdown <= 0 then
State:stop(pos, nvm)
end
end
end
end
if techage.is_activeformspec(pos) then
M(pos):set_string("formspec", formspec(State, pos, nvm, nvm.moved))
end
return true
end
local function on_rightclick(pos, node, clicker)
techage.set_activeformspec(pos, clicker)
end
local function on_receive_fields(pos, formname, fields, player)
if minetest.is_protected(pos, player:get_player_name()) then
return
end
local nvm = techage.get_nvm(pos)
State:state_button_event(pos, nvm, fields)
end
local function after_place_node(pos, placer, itemstack)
local meta = M(pos)
local nvm = techage.get_nvm(pos)
local own_num = techage.add_node(pos, "techage:ta4_electricmeter")
meta:set_string("owner", placer:get_player_name())
local outdir = networks.side_to_outdir(pos, "R")
meta:set_int("outdir", outdir)
Cable:after_place_node(pos, {outdir, networks.Flip[outdir]})
State:node_init(pos, nvm, own_num)
end
local function after_dig_node(pos, oldnode, oldmetadata, digger)
local outdir = tonumber(oldmetadata.fields.outdir or 0)
Cable:after_dig_node(pos, {outdir, networks.Flip[outdir]})
techage.del_mem(pos)
end
local function get_generator_data(pos, outdir, tlib2)
local nvm = techage.get_nvm(pos)
-- check for secondary/generator side
if outdir == M(pos):get_int("outdir") then
if techage.is_running(nvm) then
local current = max_current(pos)
return {level = (nvm.load or 0) / current, perf = current, capa = current * 2}
end
end
end
minetest.register_node("techage:ta4_electricmeter", {
description = S("TA4 Electric Meter"),
tiles = {
-- up, down, right, left, back, front
"techage_filling_ta4.png^techage_frame_ta4_top.png^techage_appl_arrow.png",
"techage_filling_ta4.png^techage_frame_ta4.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_hole_electric.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_hole_electric.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_meter.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_meter.png",
},
on_timer = node_timer,
on_rightclick = on_rightclick,
on_receive_fields = on_receive_fields,
after_place_node = after_place_node,
after_dig_node = after_dig_node,
ta4_formspec = WRENCH_MENU,
get_generator_data = get_generator_data,
paramtype2 = "facedir",
groups = {cracky=2, crumbly=2, choppy=2},
on_rotate = screwdriver.disallow,
is_ground_content = false,
sounds = default.node_sound_wood_defaults(),
})
power.register_nodes({"techage:ta4_electricmeter"}, Cable, "gen", {"R", "L"})
-- for logical communication
techage.register_node({"techage:ta4_electricmeter"}, {
on_recv_message = function(pos, src, topic, payload)
local nvm = techage.get_nvm(pos)
if topic == "consumption" then
return math.floor((nvm.units or 0) / techage.CYCLES_PER_DAY)
elseif topic == "countdown" then
return math.floor((nvm.countdown or 0) + 0.5)
elseif topic == "current" then
return math.floor((nvm.moved or 0) + 0.5)
else
return State:on_receive_message(pos, topic, payload)
end
end,
on_beduino_receive_cmnd = function(pos, src, topic, payload)
return State:on_beduino_receive_cmnd(pos, topic, payload)
end,
on_beduino_request_data = function(pos, src, topic, payload)
local nvm = techage.get_nvm(pos)
if topic == 146 then
if payload[1] == 0 then -- Consumption
return 0, {math.floor((nvm.units or 0) / techage.CYCLES_PER_DAY)}
elseif payload[1] == 0 then -- countdown
return 0, {math.floor((nvm.countdown or 0) + 0.5)}
else -- current
return 0, {math.floor((nvm.moved or 0) + 0.5)}
end
else
return State:on_beduino_request_data(pos, topic, payload)
end
end,
})
control.register_nodes({"techage:ta4_electricmeter"}, {
on_receive = function(pos, tlib2, topic, payload)
end,
on_request = function(pos, tlib2, topic)
if topic == "info" then
local nvm = techage.get_nvm(pos)
local meta = M(pos)
return {
type = S("TA4 Electric Meter"),
number = meta:get_string("node_number") or "",
running = techage.is_running(nvm) or false,
available = max_current(pos),
provided = nvm.moved or 0,
termpoint = "-",
}
end
return false
end,
}
)
minetest.register_craft({
output = "techage:ta4_electricmeter",
recipe = {
{"default:steel_ingot", "dye:blue", "default:steel_ingot"},
{"techage:electric_cableS", "basic_materials:gold_wire", "techage:electric_cableS"},
{"default:steel_ingot", "techage:ta4_wlanchip", "default:steel_ingot"},
},
replacements = { {"basic_materials:gold_wire", "basic_materials:empty_spool"}, },
})
@@ -0,0 +1,168 @@
--[[
TechAge
=======
Copyright (C) 2019-2022 Joachim Stolberg
GPL v3
See LICENSE.txt for more information
TA4 Laser beam emitter and receiver
]]--
-- 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 S = techage.S
local Cable = techage.ElectricCable
local power = networks.power
minetest.register_node("techage:ta4_laser_emitter", {
description = S("TA4 Laser Beam Emitter"),
tiles = {
-- up, down, right, left, back, front
"techage_filling_ta4.png^techage_frame_ta4_top.png",
"techage_filling_ta4.png^techage_frame_ta4.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_laser.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_laser.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_laser_hole.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_hole_electric.png",
},
after_place_node = function(pos, placer)
local tube_dir = networks.side_to_outdir(pos, "F")
Cable:prepare_pairing(pos, tube_dir, "")
Cable:after_place_node(pos, {tube_dir})
local number = techage.add_node(pos, "techage:ta4_laser_emitter")
M(pos):set_string("node_number", number)
local res, pos1, pos2 = techage.renew_laser(pos, true)
if pos1 then
local node = techage.get_node_lvm(pos2)
if node.name == "techage:ta4_laser_receiver" then
Cable:pairing(pos2, "laser")
Cable:pairing(pos, "laser")
else
minetest.chat_send_player(placer:get_player_name(),
S("Valid destination positions:") .. " " ..
P2S(pos1) .. " " .. S("to") .. " " .. P2S(pos2))
end
else
minetest.chat_send_player(placer:get_player_name(), S("Laser beam error!"))
end
minetest.get_node_timer(pos):start(2)
end,
on_timer = function(pos, elapsed)
local nvm = techage.get_nvm(pos)
local res, pos1, pos2 = techage.renew_laser(pos)
if pos1 then
local node = techage.get_node_lvm(pos2)
if node.name == "techage:ta4_laser_receiver" then
Cable:pairing(pos2, "laser")
Cable:pairing(pos, "laser")
nvm.running = true
else
local metadata = M(pos):to_table()
Cable:stop_pairing(pos, metadata, "")
local tube_dir = tonumber(metadata.fields.tube_dir or 0)
Cable:after_dig_node(pos, {tube_dir})
nvm.running = false
end
elseif not res then
techage.del_laser(pos)
local metadata = M(pos):to_table()
Cable:stop_pairing(pos, metadata, "")
local tube_dir = tonumber(metadata.fields.tube_dir or 0)
Cable:after_dig_node(pos, {tube_dir})
nvm.running = false
end
return true
end,
after_dig_node = function(pos, oldnode, oldmetadata, digger)
techage.del_laser(pos)
Cable:stop_pairing(pos, oldmetadata, "")
local tube_dir = tonumber(oldmetadata.fields.tube_dir or 0)
Cable:after_dig_node(pos, {tube_dir})
end,
paramtype2 = "facedir",
on_rotate = screwdriver.disallow,
groups = {choppy=2, cracky=2, crumbly=2},
is_ground_content = false,
sounds = default.node_sound_wood_defaults(),
})
minetest.register_node("techage:ta4_laser_receiver", {
description = S("TA4 Laser Beam Receiver"),
tiles = {
-- up, down, right, left, back, front
"techage_filling_ta4.png^techage_frame_ta4_top.png",
"techage_filling_ta4.png^techage_frame_ta4.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_laser.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_laser.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_laser_hole.png",
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_hole_electric.png",
},
after_place_node = function(pos, placer)
local tube_dir = networks.side_to_outdir(pos, "F")
Cable:prepare_pairing(pos, tube_dir, "")
Cable:after_place_node(pos, {tube_dir})
end,
after_dig_node = function(pos, oldnode, oldmetadata, digger)
Cable:stop_pairing(pos, oldmetadata, "")
local tube_dir = tonumber(oldmetadata.fields.tube_dir or 0)
Cable:after_dig_node(pos, {tube_dir})
end,
paramtype2 = "facedir",
on_rotate = screwdriver.disallow,
groups = {choppy=2, cracky=2, crumbly=2},
is_ground_content = false,
sounds = default.node_sound_wood_defaults(),
})
techage.register_node({"techage:ta4_laser_emitter"}, {
on_recv_message = function(pos, src, topic, payload)
if topic == "state" then
local nvm = techage.get_nvm(pos)
return nvm.running and "running" or "stopped"
else
return "unsupported"
end
end,
on_beduino_request_data = function(pos, src, topic, payload)
if topic == 142 then -- Binary State
local nvm = techage.get_nvm(pos)
return 0, {nvm.running and 1 or 0}
else
return 2, ""
end
end,
})
power.register_nodes({"techage:ta4_laser_emitter", "techage:ta4_laser_receiver"}, Cable, "special", {"F"})
minetest.register_craft({
output = "techage:ta4_laser_emitter",
recipe = {
{"techage:ta4_carbon_fiber", "dye:blue", "techage:ta4_carbon_fiber"},
{"techage:electric_cableS", "basic_materials:energy_crystal_simple", "techage:ta4_leds"},
{"default:steel_ingot", "techage:ta4_wlanchip", "default:steel_ingot"},
},
})
minetest.register_craft({
output = "techage:ta4_laser_receiver",
recipe = {
{"techage:ta4_carbon_fiber", "dye:blue", "techage:ta4_carbon_fiber"},
{"techage:electric_cableS", "basic_materials:gold_wire", "default:obsidian_glass"},
{"default:steel_ingot", "techage:ta4_wlanchip", "default:steel_ingot"},
},
})
@@ -0,0 +1,211 @@
--[[
TechAge
=======
Copyright (C) 2019-2023 Joachim Stolberg
AGPL v3
See LICENSE.txt for more information
TA4 Isolation Transformer (to separate networks)
]]--
-- for lazy programmers
local P2S = minetest.pos_to_string
local M = minetest.get_meta
local S = techage.S
local CYCLE_TIME = 2
local PWR_PERF = 100
local Cable = techage.ElectricCable
local power = networks.power
local control = networks.control
local WRENCH_MENU = {
{
type = "dropdown",
choices = "300 ku,200 ku,150 ku,100 ku,50 ku,20 ku",
name = "current",
label = S("Max. power"),
tooltip = S("Maximum power passed through"),
default = "100 ku",
values = {300, 200, 150, 100, 50, 20}
},
}
local function max_current(pos)
local meta = M(pos)
if meta:contains("current") then
local current = meta:get_int("current")
return current > 0 and current or PWR_PERF
end
return PWR_PERF
end
local function formspec(self, pos, nvm, data)
data = data or {curr_load1 = 0, curr_load2 = 0, max_capa1 = 0, max_capa2 = 0, moved = 0}
return "size[7.5,5.2]"..
"box[0,-0.1;7.3,0.5;#c6e8ff]"..
techage.wrench_image(6.9, -0.08) ..
"label[0.2,-0.1;"..minetest.colorize( "#000000", S("TA4 Isolation Transformer")).."]"..
techage.formspec_storage_bar(pos, 0.0, 0.7, S("Storage"), data.curr_load1, data.max_capa1)..
techage.formspec_power_bar(pos, 2.5, 0.7, S("Power"), data.moved, max_current(pos))..
techage.formspec_storage_bar(pos, 5.0, 0.7, S("Storage"), data.curr_load2, data.max_capa2)..
"image_button[3.3,4.3;1,1;" .. self:get_state_button_image(nvm) .. ";state_button;]" ..
"tooltip[3.3,4.3;1,1;" .. self:get_state_tooltip(nvm) .. "]"
end
local function start_node(pos, nvm, state)
local outdir = M(pos):get_int("outdir")
nvm.load = 0
power.start_storage_calc(pos, Cable, outdir)
outdir = networks.Flip[outdir]
power.start_storage_calc(pos, Cable, outdir)
end
local function stop_node(pos, nvm, state)
local outdir = M(pos):get_int("outdir")
power.start_storage_calc(pos, Cable, outdir)
outdir = networks.Flip[outdir]
power.start_storage_calc(pos, Cable, outdir)
end
local State = techage.NodeStates:new({
node_name_passive = "techage:ta4_transformer",
infotext_name = S("TA4 Isolation Transformer"),
cycle_time = CYCLE_TIME,
standby_ticks = 0,
formspec_func = formspec,
start_node = start_node,
stop_node = stop_node,
})
local function node_timer(pos, elapsed)
local nvm = techage.get_nvm(pos)
local data
if techage.is_running(nvm) then
local outdir2 = M(pos):get_int("outdir")
local outdir1 = networks.Flip[outdir2]
local current = max_current(pos)
data = power.transfer_duplex(pos, Cable, outdir1, Cable, outdir2, current)
if data then
nvm.load = (data.curr_load1 / data.max_capa1 + data.curr_load2 / data.max_capa2) / 2 * current
nvm.moved = data.moved
end
end
if techage.is_activeformspec(pos) then
M(pos):set_string("formspec", formspec(State, pos, nvm, data))
end
return true
end
local function on_rightclick(pos, node, clicker)
techage.set_activeformspec(pos, clicker)
end
local function on_receive_fields(pos, formname, fields, player)
if minetest.is_protected(pos, player:get_player_name()) then
return
end
local nvm = techage.get_nvm(pos)
State:state_button_event(pos, nvm, fields)
end
local function after_place_node(pos, placer, itemstack)
local meta = M(pos)
local nvm = techage.get_nvm(pos)
local own_num = techage.add_node(pos, "techage:ta4_transformer")
meta:set_string("owner", placer:get_player_name())
local outdir = networks.side_to_outdir(pos, "R")
meta:set_int("outdir", outdir)
Cable:after_place_node(pos, {outdir, networks.Flip[outdir]})
State:node_init(pos, nvm, own_num)
end
local function after_dig_node(pos, oldnode, oldmetadata, digger)
local outdir = tonumber(oldmetadata.fields.outdir or 0)
Cable:after_dig_node(pos, {outdir, networks.Flip[outdir]})
techage.del_mem(pos)
end
local function get_generator_data(pos, outdir, tlib2)
local nvm = techage.get_nvm(pos)
if techage.is_running(nvm) then
local current = max_current(pos)
return {level = (nvm.load or 0) / current, perf = current, capa = current * 2}
end
end
minetest.register_node("techage:ta4_transformer", {
description = S("TA4 Isolation Transformer"),
tiles = {
-- up, down, right, left, back, front
"techage_filling_ta4.png^techage_frame_ta4_top.png^techage_appl_trafo.png",
"techage_filling_ta4.png^techage_frame_ta4.png",
"techage_trafo.png^techage_frame_ta4.png^techage_appl_hole_electric.png",
"techage_trafo.png^techage_frame_ta4.png^techage_appl_hole_electric.png",
"techage_trafo.png^techage_frame_ta4.png",
"techage_trafo.png^techage_frame_ta4.png",
},
on_timer = node_timer,
on_rightclick = on_rightclick,
on_receive_fields = on_receive_fields,
after_place_node = after_place_node,
after_dig_node = after_dig_node,
get_generator_data = get_generator_data,
ta4_formspec = WRENCH_MENU,
paramtype2 = "facedir",
groups = {cracky=2, crumbly=2, choppy=2},
on_rotate = screwdriver.disallow,
is_ground_content = false,
sounds = default.node_sound_wood_defaults(),
})
power.register_nodes({"techage:ta4_transformer"}, Cable, "gen", {"R", "L"})
-- for logical communication
techage.register_node({"techage:ta4_transformer"}, {
on_recv_message = function(pos, src, topic, payload)
return State:on_receive_message(pos, topic, payload)
end,
on_beduino_receive_cmnd = function(pos, src, topic, payload)
return State:on_beduino_receive_cmnd(pos, topic, payload)
end,
on_beduino_request_data = function(pos, src, topic, payload)
return State:on_beduino_request_data(pos, topic, payload)
end,
})
control.register_nodes({"techage:ta4_transformer"}, {
on_receive = function(pos, tlib2, topic, payload)
end,
on_request = function(pos, tlib2, topic)
if topic == "info" then
local nvm = techage.get_nvm(pos)
local meta = M(pos)
return {
type = S("TA4 Isolation Transformer"),
number = meta:get_string("node_number") or "",
running = techage.is_running(nvm) or false,
available = max_current(pos),
provided = nvm.moved or 0,
termpoint = "-",
}
end
return false
end,
}
)
minetest.register_craft({
output = "techage:ta4_transformer",
recipe = {
{"default:steel_ingot", "dye:blue", "default:steel_ingot"},
{"techage:electric_cableS", "basic_materials:copper_wire", "techage:electric_cableS"},
{"default:steel_ingot", "techage:ta4_wlanchip", "default:steel_ingot"},
},
})