MTSR/techage
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prepare for lib 'networks'

Browse Source
This commit is contained in:
Joachim Stolberg 2021-06-19 15:06:08 +02:00
parent 054283cc4d
commit 1d7db7943b
14 changed files with 418 additions and 568 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basic_machines/source.lua
View File

@ -25,7 +25,7 @@ local control = networks.control
local STANDBY_TICKS = 4 local STANDBY_TICKS = 4
local CYCLE_TIME = 2 local CYCLE_TIME = 2
local PWR_PERF = 25 local PWR_PERF = 100
local function formspec(self, pos, nvm) local function formspec(self, pos, nvm)
return techage.generator_formspec(self, pos, nvm, S("Power Source"), nvm.provided, PWR_PERF) return techage.generator_formspec(self, pos, nvm, S("Power Source"), nvm.provided, PWR_PERF)

5
digtron/battery.lua
View File

@ -19,7 +19,6 @@ local S = techage.S
-- Consumer Related Data -- Consumer Related Data
local CRD = function(pos) return (minetest.registered_nodes[techage.get_node_lvm(pos).name] or {}).consumer end local CRD = function(pos) return (minetest.registered_nodes[techage.get_node_lvm(pos).name] or {}).consumer end
local power = techage.power
local STANDBY_TICKS = 3 local STANDBY_TICKS = 3
local COUNTDOWN_TICKS = 4 local COUNTDOWN_TICKS = 4
@ -49,7 +48,7 @@ local function formspec(self, pos, nvm)
default.gui_slots.. default.gui_slots..
"box[0,-0.1;4.8,0.5;#c6e8ff]".. "box[0,-0.1;4.8,0.5;#c6e8ff]"..
"label[1,-0.1;"..minetest.colorize("#000000", S("Digtron Battery")).."]".. "label[1,-0.1;"..minetest.colorize("#000000", S("Digtron Battery")).."]"..
power.formspec_label_bar(pos, 0, 0.8, S("Load"), TOTAL_MAX, total, S("Coal Equivalents")).. techage.formspec_label_bar(pos, 0, 0.8, S("Load"), TOTAL_MAX, total, S("Coal Equivalents"))..
"image_button[2.6,2;1,1;".. self:get_state_button_image(nvm) ..";state_button;]".. "image_button[2.6,2;1,1;".. self:get_state_button_image(nvm) ..";state_button;]"..
"tooltip[2.6,2;1,1;"..self:get_state_tooltip(nvm).."]".. "tooltip[2.6,2;1,1;"..self:get_state_tooltip(nvm).."]"..
"image[3.75,2;1,1;"..techage.get_power_image(pos, nvm).."]" "image[3.75,2;1,1;"..techage.get_power_image(pos, nvm).."]"
@ -163,7 +162,7 @@ techage.register_consumer("digtron_battery", S("Digtron Battery"), { act = tiles
groups = {choppy=2, cracky=2, crumbly=2, digtron=5}, groups = {choppy=2, cracky=2, crumbly=2, digtron=5},
sounds = default.node_sound_wood_defaults(), sounds = default.node_sound_wood_defaults(),
power_consumption = {0,25,25,25}, power_consumption = {0,25,25,25},
power_sides = techage.networks.AllSides, power_sides = {L=1, R=1, U=1, D=1, F=1, B=1},
}, {false, false, true, false}) }, {false, false, true, false})
minetest.register_craft({ minetest.register_craft({

183
energy_storage/generator.lua
View File

@ -3,137 +3,32 @@
TechAge TechAge
======= =======
Copyright (C) 2019-2020 Joachim Stolberg Copyright (C) 2019-2021 Joachim Stolberg
AGPL v3 AGPL v3
See LICENSE.txt for more information See LICENSE.txt for more information
TA4 TES Generator TA4 TES Generator (dummy)
- can be started and stopped
- provides netID of cable network
]]-- ]]--
-- for lazy programmers -- for lazy programmers
local M = minetest.get_meta local M = minetest.get_meta
local S = techage.S local S = techage.S
local STANDBY_TICKS = 4
local COUNTDOWN_TICKS = 4
local CYCLE_TIME = 2
local PWR_CAPA = 60
local Cable = techage.ElectricCable local Cable = techage.ElectricCable
local power = techage.power local power = networks.power
local networks = techage.networks
local function formspec(self, pos, nvm) local function swap_node(pos, name)
return "size[4,4]".. local node = techage.get_node_lvm(pos)
"box[0,-0.1;3.8,0.5;#c6e8ff]".. if node.name == name then
"label[1,-0.1;"..minetest.colorize( "#000000", S("Generator")).."]"..
default.gui_bg..
default.gui_bg_img..
default.gui_slots..
power.formspec_label_bar(pos, 0, 0.8, S("Electricity"), PWR_CAPA, nvm.provided)..
"image_button[2.8,2;1,1;".. self:get_state_button_image(nvm) ..";state_button;]"..
"tooltip[2.8,2;1,1;"..self:get_state_tooltip(nvm).."]"
end
local function transfer_turbine(pos, topic, payload)
return techage.transfer(pos, "L", topic, payload, nil,
{"techage:ta4_turbine", "techage:ta4_turbine_on"})
end
local function can_start(pos, nvm, state)
if (nvm.heatexchanger_trigger or 0) == 0 then -- by means of heatexchanger
return S("storage empty?")
end
return true
end
local function start_node(pos, nvm, state)
local outdir = M(pos):get_int("outdir")
power.generator_start(pos, Cable, CYCLE_TIME, outdir)
transfer_turbine(pos, "start")
nvm.running = true
end
local function stop_node(pos, nvm, state)
local outdir = M(pos):get_int("outdir")
power.generator_stop(pos, Cable, outdir)
nvm.provided = 0
transfer_turbine(pos, "stop")
nvm.running = false
end
local State = techage.NodeStates:new({
node_name_passive = "techage:ta4_generator",
node_name_active = "techage:ta4_generator_on",
cycle_time = CYCLE_TIME,
standby_ticks = STANDBY_TICKS,
formspec_func = formspec,
infotext_name = S("TA4 Generator"),
can_start = can_start,
start_node = start_node,
stop_node = stop_node,
})
local function node_timer(pos, elapsed)
local nvm = techage.get_nvm(pos)
nvm.heatexchanger_trigger = (nvm.heatexchanger_trigger or 0) - 1
if nvm.heatexchanger_trigger <= 0 then
State:nopower(pos, nvm)
stop_node(pos, nvm, State)
transfer_turbine(pos, "stop")
else
local outdir = M(pos):get_int("outdir")
nvm.provided = power.generator_alive(pos, Cable, CYCLE_TIME, outdir)
State:keep_running(pos, nvm, COUNTDOWN_TICKS)
end
if techage.is_activeformspec(pos) then
M(pos):set_string("formspec", formspec(State, pos, nvm))
end
return State:is_active(nvm)
end
local function on_receive_fields(pos, formname, fields, player)
if minetest.is_protected(pos, player:get_player_name()) then
return return
end end
local nvm,_ = techage.get_nvm(pos, true) node.name = name
State:state_button_event(pos, nvm, fields) minetest.swap_node(pos, node)
end end
local function on_rightclick(pos, node, clicker)
local nvm = techage.get_nvm(pos)
techage.set_activeformspec(pos, clicker)
M(pos):set_string("formspec", formspec(State, pos, nvm))
end
local function after_place_node(pos)
local nvm = techage.get_nvm(pos)
local number = techage.add_node(pos, "techage:ta4_generator")
State:node_init(pos, nvm, number)
M(pos):set_int("outdir", networks.side_to_outdir(pos, "R"))
M(pos):set_string("formspec", formspec(State, pos, nvm))
Cable:after_place_node(pos)
end
local function after_dig_node(pos, oldnode)
Cable:after_dig_node(pos)
techage.del_mem(pos)
end
local function tubelib2_on_update2(pos, outdir, tlib2, node)
power.update_network(pos, outdir, tlib2)
end
local net_def = {
ele1 = {
sides = {R = 1},
ntype = "gen2",
nominal = PWR_CAPA,
},
}
minetest.register_node("techage:ta4_generator", { minetest.register_node("techage:ta4_generator", {
description = S("TA4 Generator"), description = S("TA4 Generator"),
tiles = { tiles = {
@ -146,13 +41,14 @@ minetest.register_node("techage:ta4_generator", {
"techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_generator.png^[transformFX]", "techage_filling_ta4.png^techage_frame_ta4.png^techage_appl_generator.png^[transformFX]",
}, },
on_receive_fields = on_receive_fields, after_place_node = function(pos)
on_rightclick = on_rightclick, M(pos):set_int("outdir", networks.side_to_outdir(pos, "R"))
on_timer = node_timer, Cable:after_place_node(pos)
after_place_node = after_place_node, end,
after_dig_node = after_dig_node, after_dig_node = function(pos, oldnode)
tubelib2_on_update2 = tubelib2_on_update2, Cable:after_dig_node(pos)
networks = net_def, techage.del_mem(pos)
end,
paramtype2 = "facedir", paramtype2 = "facedir",
groups = {cracky=2, crumbly=2, choppy=2}, groups = {cracky=2, crumbly=2, choppy=2},
@ -191,16 +87,8 @@ minetest.register_node("techage:ta4_generator_on", {
}, },
}, },
on_receive_fields = on_receive_fields,
on_rightclick = on_rightclick,
on_timer = node_timer,
after_place_node = after_place_node,
after_dig_node = after_dig_node,
tubelib2_on_update2 = tubelib2_on_update2,
networks = net_def,
drop = "",
paramtype2 = "facedir", paramtype2 = "facedir",
drop = "",
groups = {not_in_creative_inventory=1}, groups = {not_in_creative_inventory=1},
diggable = false, diggable = false,
on_rotate = screwdriver.disallow, on_rotate = screwdriver.disallow,
@ -208,32 +96,27 @@ minetest.register_node("techage:ta4_generator_on", {
sounds = default.node_sound_wood_defaults(), sounds = default.node_sound_wood_defaults(),
}) })
Cable:add_secondary_node_names({"techage:ta4_generator", "techage:ta4_generator_on"}) -- The generator is a dummy, it only has to network connection to check the netID
power.register_nodes({"techage:ta4_generator", "techage:ta4_generator_on"}, Cable, "con", {"R"})
-- controlled by the turbine -- controlled by the turbine
techage.register_node({"techage:ta4_generator", "techage:ta4_generator_on"}, { techage.register_node({"techage:ta4_generator", "techage:ta4_generator_on"}, {
on_transfer = function(pos, in_dir, topic, payload) on_transfer = function(pos, in_dir, topic, payload)
local nvm = techage.get_nvm(pos) if topic == "netID" then
if topic == "trigger" then local outdir = M(pos):get_int("outdir")
--print("trigger", nvm.provided) return networks.determine_netID(pos, Cable, outdir)
nvm.heatexchanger_trigger = 3 elseif topic == "start" then
if nvm.running then swap_node(pos, "techage:ta4_generator_on")
return nvm.provided or 0.1 elseif topic == "stop" then
else swap_node(pos, "techage:ta4_generator")
return 0
end
end end
end, end,
on_recv_message = function(pos, src, topic, payload) on_recv_message = function(pos, src, topic, payload)
local nvm = techage.get_nvm(pos) return "unsupported"
if topic == "delivered" then end,
return math.floor((nvm.provided or 0) + 0.5) on_node_load = function(pos)
elseif topic == "load" then -- remove legacy formspec
local capa_max, capa = transfer_turbine(pos, "state") M(pos):set_string("formspec", "")
return techage.power.percent(capa_max, capa)
else
return State:on_receive_message(pos, topic, payload)
end
end, end,
}) })

264
energy_storage/heatexchanger1.lua
View File

@ -3,13 +3,14 @@
TechAge TechAge
======= =======
Copyright (C) 2019-2020 Joachim Stolberg Copyright (C) 2019-2021 Joachim Stolberg
AGPL v3 AGPL v3
See LICENSE.txt for more information See LICENSE.txt for more information
TA4 Heat Exchanger1 (bottom part) TA4 Heat Exchanger1 (bottom part)
- has a connection to storage and turbine (via pipes)
- acts as a cable junction for Exchanger2
]]-- ]]--
-- for lazy programmers -- for lazy programmers
@ -18,38 +19,9 @@ local P2S = minetest.pos_to_string
local M = minetest.get_meta local M = minetest.get_meta
local S = techage.S local S = techage.S
local CYCLE_TIME = 2
local PWR_PERF = 60
local GRVL_CAPA = 700
local PWR_CAPA = {
[5] = GRVL_CAPA * 3 * 3 * 3, -- 18900 Cyc = 630 min = 31.5 Tage bei einem ku, oder 31,5 * 24 kuh = 756 kuh = 12,6 h bei 60 ku
[7] = GRVL_CAPA * 5 * 5 * 5, -- ~2.5 days
[9] = GRVL_CAPA * 7 * 7 * 7, -- ~6 days
}
local Cable = techage.ElectricCable local Cable = techage.ElectricCable
local Pipe = techage.LiquidPipe local Pipe = techage.LiquidPipe
local power = techage.power local power = networks.power
local in_range = techage.in_range
local function swap_node(pos, name)
local node = techage.get_node_lvm(pos)
if node.name == name then
return
end
node.name = name
minetest.swap_node(pos, node)
end
local function glowing(pos, nvm, should_glow)
if nvm.win_pos then
if should_glow then
swap_node(nvm.win_pos, "techage:glow_gravel")
else
swap_node(nvm.win_pos, "default:gravel")
end
end
end
local function turbine_cmnd(pos, topic, payload) local function turbine_cmnd(pos, topic, payload)
return techage.transfer(pos, "R", topic, payload, Pipe, return techage.transfer(pos, "R", topic, payload, Pipe,
@ -61,153 +33,6 @@ local function inlet_cmnd(pos, topic, payload)
{"techage:ta4_pipe_inlet"}) {"techage:ta4_pipe_inlet"})
end end
local function play_sound(pos)
local mem = techage.get_mem(pos)
if not mem.handle or mem.handle == -1 then
mem.handle = minetest.sound_play("techage_booster", {
pos = pos,
gain = 0.3,
max_hear_distance = 10,
loop = true})
if mem.handle == -1 then
minetest.after(1, play_sound, pos)
end
end
local nvm = techage.get_nvm(pos)
nvm.charging = true
end
local function stop_sound(pos)
local mem = techage.get_mem(pos)
if mem.handle then
minetest.sound_stop(mem.handle)
mem.handle = nil
end
local nvm = techage.get_nvm(pos)
nvm.charging = false
end
local function on_power(pos)
end
local function on_nopower(pos)
end
local function is_running(pos, nvm)
return nvm.charging
end
local function start_node(pos, nvm)
nvm.running = true
nvm.needed = 0
nvm.win_pos = inlet_cmnd(pos, "window")
power.consumer_start(pos, Cable, CYCLE_TIME)
minetest.get_node_timer(pos):start(CYCLE_TIME)
return true
end
local function stop_node(pos, nvm)
nvm.running = false
nvm.needed = 0
power.consumer_stop(pos, Cable)
minetest.get_node_timer(pos):stop()
stop_sound(pos)
return true
end
local function after_place_node(pos, placer, itemstack)
local nvm = techage.get_nvm(pos)
nvm.capa = 0
M(pos):set_string("owner", placer:get_player_name())
local number = techage.add_node(pos, "techage:heatexchanger1")
M(pos):set_string("node_number", number)
M(pos):set_string("infotext", S("TA4 Heat Exchanger 1").." "..number)
Cable:after_place_node(pos)
Pipe:after_place_node(pos)
end
local function can_dig(pos, player)
if minetest.is_protected(pos, player:get_player_name()) then
return false
end
local nvm = techage.get_nvm(pos)
return not nvm.running
end
local function after_dig_node(pos, oldnode, oldmetadata, digger)
Cable:after_dig_node(pos)
Pipe:after_dig_node(pos)
techage.del_mem(pos)
end
local function tubelib2_on_update2(pos, outdir, tlib2, node)
power.update_network(pos, outdir, tlib2)
local nvm = techage.get_nvm(pos)
nvm.running = false
end
local function can_start(pos, nvm)
-- the heat exchanger shall be able to start even without
-- having power. Therefore, no "if power.power_available(pos, Cable) then"
local diameter = inlet_cmnd(pos, "diameter")
if diameter then
nvm.capa_max = PWR_CAPA[tonumber(diameter)] or 0
if nvm.capa_max ~= 0 then
local owner = M(pos):get_string("owner") or ""
return inlet_cmnd(pos, "volume", owner)
else
return S("wrong storage diameter")..": "..diameter
end
else
return S("inlet/pipe error")
end
return S("did you check the plan?")
end
local function node_timer(pos, elapsed)
local nvm = techage.get_nvm(pos)
nvm.capa = nvm.capa or 0
nvm.capa_max = nvm.capa_max or 0
local taken = 0
local given = 0
if nvm.capa < (nvm.capa_max * 0.95) and not nvm.charging then
taken = power.consumer_alive(pos, Cable, CYCLE_TIME)
elseif nvm.capa < nvm.capa_max and nvm.charging then
taken = power.consumer_alive(pos, Cable, CYCLE_TIME)
end
if nvm.capa > 0 then
given = turbine_cmnd(pos, "trigger") or 0
end
if taken > 0 and not nvm.charging then
play_sound(pos)
elseif taken == 0 and nvm.charging then
stop_sound(pos)
end
nvm.needed = taken - given
nvm.capa = in_range(nvm.capa + nvm.needed, 0, nvm.capa_max)
glowing(pos, nvm, nvm.capa > nvm.capa_max * 0.8)
--print("node_timer TES "..P2S(pos), nvm.needed, nvm.capa, nvm.capa_max)
return true
end
local net_def = {
ele1 = {
sides = {F = 1, B = 1},
ntype = "con2",
nominal = PWR_PERF,
on_power = on_power,
on_nopower = on_nopower,
is_running = is_running,
},
pipe2 = {
sides = {L = 1, R = 1},
ntype = "con1",
},
}
minetest.register_node("techage:heatexchanger1", { minetest.register_node("techage:heatexchanger1", {
description = S("TA4 Heat Exchanger 1"), description = S("TA4 Heat Exchanger 1"),
tiles = { tiles = {
@ -220,13 +45,27 @@ minetest.register_node("techage:heatexchanger1", {
"techage_filling_ta4.png^techage_frameB_ta4.png^techage_appl_hole_electric.png", "techage_filling_ta4.png^techage_frameB_ta4.png^techage_appl_hole_electric.png",
}, },
on_timer = node_timer, after_place_node = function(pos, placer, itemstack, pointed_thing)
after_place_node = after_place_node, Cable:after_place_node(pos)
can_dig = can_dig, Pipe:after_place_node(pos)
after_dig_node = after_dig_node, end,
tubelib2_on_update2 = tubelib2_on_update2, tubelib2_on_update2 = function(pos, outdir, tlib2, node)
networks = net_def, if tlib2 == Cable then
power.update_network(pos, 0, tlib2, node)
end
end,
can_dig = function(pos, player)
if minetest.is_protected(pos, player:get_player_name()) then
return false
end
pos.y = pos.y + 1
return minetest.get_node(pos).name ~= "techage:heatexchanger2"
end,
after_dig_node = function(pos, oldnode, oldmetadata, digger)
Cable:after_dig_node(pos)
Pipe:after_dig_node(pos)
end,
networks = {},
paramtype2 = "facedir", paramtype2 = "facedir",
groups = {crumbly = 2, cracky = 2, snappy = 2}, groups = {crumbly = 2, cracky = 2, snappy = 2},
on_rotate = screwdriver.disallow, on_rotate = screwdriver.disallow,
@ -235,62 +74,21 @@ minetest.register_node("techage:heatexchanger1", {
}) })
Pipe:add_secondary_node_names({"techage:heatexchanger1"}) Pipe:add_secondary_node_names({"techage:heatexchanger1"})
Cable:add_secondary_node_names({"techage:heatexchanger1"}) Pipe:set_valid_sides("techage:heatexchanger1", {"R", "L"})
power.register_nodes({"techage:heatexchanger1"}, Cable, "junc", {"F", "B", "U"})
-- command interface -- command interface
techage.register_node({"techage:heatexchanger1"}, { techage.register_node({"techage:heatexchanger1"}, {
on_transfer = function(pos, indir, topic, payload) on_transfer = function(pos, indir, topic, payload)
local nvm = techage.get_nvm(pos) local nvm = techage.get_nvm(pos)
-- used by heatexchanger2 -- used by heatexchanger2
if topic == "state" then if topic == "diameter" or topic == "volume" or topic == "window" then
return (nvm.capa_max or 0), (nvm.capa or 0), PWR_PERF, math.max(nvm.needed or 0, 0) return inlet_cmnd(pos, topic, payload)
elseif topic == "integrity" then
return inlet_cmnd(pos, "volume", payload)
elseif topic == "state" then
return inlet_cmnd(pos, "volume", payload)
elseif topic == "can_start" then
return can_start(pos, nvm)
elseif topic == "start" then
return start_node(pos, nvm)
elseif topic == "stop" then
return stop_node(pos, nvm)
end
end,
on_recv_message = function(pos, src, topic, payload)
local nvm = techage.get_nvm(pos)
if topic == "state" then
if nvm.charging then
return "running"
elseif nvm.running then
return "standby"
else
return "stopped"
end
elseif topic == "delivered" then
return -math.max(nvm.needed or 0, 0)
elseif topic == "load" then
return techage.power.percent(nvm.capa_max, nvm.capa)
elseif topic == "on" then
start_node(pos, techage.get_nvm(pos))
return true
elseif topic == "off" then
stop_node(pos, techage.get_nvm(pos))
return true
else else
return "unsupported" return turbine_cmnd(pos, topic, payload)
end end
end, end,
on_node_load = function(pos, node)
local nvm = techage.get_nvm(pos)
if nvm.running and nvm.charging then
play_sound(pos)
else
stop_sound(pos)
end
local mem = tubelib2.get_mem(pos)
nvm.capa = (nvm.capa or 0) + (mem.capa or 0)
--tubelib2.del_mem(pos)
end,
}) })
minetest.register_craft({ minetest.register_craft({

152
energy_storage/heatexchanger2.lua
View File

@ -3,7 +3,7 @@
TechAge TechAge
======= =======
Copyright (C) 2019-2020 Joachim Stolberg Copyright (C) 2019-2021 Joachim Stolberg
AGPL v3 AGPL v3
See LICENSE.txt for more information See LICENSE.txt for more information
@ -18,56 +18,118 @@ local P2S = minetest.pos_to_string
local M = minetest.get_meta local M = minetest.get_meta
local S = techage.S local S = techage.S
local power = techage.power local Cable = techage.ElectricCable
local Pipe = techage.LiquidPipe
local power = networks.power
local CYCLE_TIME = 2 local CYCLE_TIME = 2
local GRVL_CAPA = 500
local PWR_CAPA = {
[5] = GRVL_CAPA * 3 * 3 * 3, -- 13500 Cyc = 450 min = 22.5 kud
[7] = GRVL_CAPA * 5 * 5 * 5, -- 104 kud
[9] = GRVL_CAPA * 7 * 7 * 7, -- 286 kuh
}
local DOWN = 5
local function he1_cmnd(pos, topic, payload) local function heatexchanger1_cmnd(pos, topic, payload)
return techage.transfer({x = pos.x, y = pos.y - 1, z = pos.z}, return techage.transfer({x = pos.x, y = pos.y - 1, z = pos.z},
nil, topic, payload, nil, nil, topic, payload, nil,
{"techage:heatexchanger1"}) {"techage:heatexchanger1"})
end end
local function formspec(self, pos, nvm) local function swap_node(pos, name)
local capa_max, capa, needed_max, needed = he1_cmnd(pos, "state") local node = techage.get_node_lvm(pos)
capa_max = capa_max or 0 if node.name == name then
capa = capa or 0 return
needed_max = needed_max or 0
needed = needed or 0
local arrow = "image[2.5,1.5;1,1;techage_form_arrow_bg.png^[transformR270]"
if needed > 0 then
arrow = "image[2.5,1.5;1,1;techage_form_arrow_fg.png^[transformR270]"
end end
return "size[6,4]".. node.name = name
default.gui_bg.. minetest.swap_node(pos, node)
default.gui_bg_img..
default.gui_slots..
"box[0,-0.1;5.8,0.5;#c6e8ff]"..
"label[2,-0.1;"..minetest.colorize( "#000000", S("Heat Exchanger")).."]"..
power.formspec_label_bar(pos, 0, 0.8, S("Electricity"), needed_max, needed)..
power.formspec_label_bar(pos, 3.5, 0.8, S("Thermal"), capa_max, capa, "")..
arrow..
"image_button[2.5,3;1,1;".. self:get_state_button_image(nvm) ..";state_button;]"..
"tooltip[2.5,3;1,1;"..self:get_state_tooltip(nvm).."]"
end end
local function can_start(pos, nvm, state) local function play_sound(pos)
--print("can_start", he1_cmnd(pos, "can_start")) local mem = techage.get_mem(pos)
return he1_cmnd(pos, "can_start") or S("did you check the plan?") if not mem.handle or mem.handle == -1 then
mem.handle = minetest.sound_play("techage_booster", {
pos = pos,
gain = 0.3,
max_hear_distance = 10,
loop = true})
if mem.handle == -1 then
minetest.after(1, play_sound, pos)
end
end
end end
local function start_node(pos, nvm, state) local function stop_sound(pos)
he1_cmnd(pos, "start") local mem = techage.get_mem(pos)
if mem.handle then
minetest.sound_stop(mem.handle)
mem.handle = nil
end
end end
local function stop_node(pos, nvm, state) local function can_start(pos, nvm)
he1_cmnd(pos, "stop") local netID = networks.determine_netID(pos, Cable, DOWN)
if heatexchanger1_cmnd(pos, "netID") ~= netID then
return S("Power network connection error")
end
local diameter = heatexchanger1_cmnd(pos, "diameter")
if diameter then
nvm.capa_max = PWR_CAPA[tonumber(diameter)] or 0
if nvm.capa_max ~= 0 then
local owner = M(pos):get_string("owner") or ""
return heatexchanger1_cmnd(pos, "volume", owner)
else
return S("wrong storage diameter")..": "..diameter
end
else
return S("inlet/pipe error")
end
return S("did you check the plan?")
end
local function start_node(pos, nvm)
nvm.running = true
nvm.win_pos = heatexchanger1_cmnd(pos, "window")
power.start_storage_calc(pos, Cable, DOWN)
play_sound(pos)
heatexchanger1_cmnd(pos, "start")
end
local function stop_node(pos, nvm)
nvm.running = false
power.start_storage_calc(pos, Cable, DOWN)
stop_sound(pos)
heatexchanger1_cmnd(pos, "stop")
end
local function formspec(self, pos, nvm)
local data
if nvm.running then
data = power.get_network_data(pos, Cable, DOWN)
end
return techage.storage_formspec(self, pos, nvm, S("TA4 Heat Exchanger"), data, nvm.capa, nvm.capa_max)
end
local function glowing(pos, nvm, should_glow)
if nvm.win_pos then
if should_glow then
swap_node(nvm.win_pos, "techage:glow_gravel")
else
swap_node(nvm.win_pos, "default:gravel")
end
end
end end
local function check_TES_integrity(pos, nvm) local function check_TES_integrity(pos, nvm)
nvm.ticks = (nvm.ticks or 0) + 1 nvm.ticks = (nvm.ticks or 0) + 1
if (nvm.ticks % 100) == 0 then -- not to often if (nvm.ticks % 100) == 0 then -- not to often
return he1_cmnd(pos, "integrity", "singleplayer") return heatexchanger1_cmnd(pos, "volume")
end
local netID = networks.determine_netID(pos, Cable, DOWN)
if heatexchanger1_cmnd(pos, "netID") ~= netID then
return S("Power network connection error")
end end
return true return true
end end
@ -88,13 +150,14 @@ local function node_timer(pos, elapsed)
local res = check_TES_integrity(pos, nvm) local res = check_TES_integrity(pos, nvm)
if res ~= true then if res ~= true then
State:fault(pos, nvm, res) State:fault(pos, nvm, res)
he1_cmnd(pos, "stop") heatexchanger1_cmnd(pos, "stop")
end end
nvm.capa = power.get_storage_load(pos, Cable, DOWN, nvm.capa_max)
if techage.is_activeformspec(pos) then if techage.is_activeformspec(pos) then
M(pos):set_string("formspec", formspec(State, pos, nvm)) M(pos):set_string("formspec", formspec(State, pos, nvm))
return true
end end
return false return true
end end
local function can_dig(pos, player) local function can_dig(pos, player)
@ -109,16 +172,20 @@ local function on_rightclick(pos, node, clicker)
techage.set_activeformspec(pos, clicker) techage.set_activeformspec(pos, clicker)
local nvm = techage.get_nvm(pos) local nvm = techage.get_nvm(pos)
M(pos):set_string("formspec", formspec(State, pos, nvm)) M(pos):set_string("formspec", formspec(State, pos, nvm))
minetest.get_node_timer(pos):start(CYCLE_TIME)
end end
local function after_place_node(pos, placer) local function after_place_node(pos, placer)
if techage.orientate_node(pos, "techage:heatexchanger1") then if techage.orientate_node(pos, "techage:heatexchanger1") then
return true return true
end end
local meta = M(pos)
local nvm = techage.get_nvm(pos) local nvm = techage.get_nvm(pos)
State:node_init(pos, nvm, "") local own_num = techage.add_node(pos, "techage:heatexchanger1")
M(pos):set_string("formspec", formspec(State, pos, nvm)) meta:set_string("owner", placer:get_player_name())
meta:set_string("infotext", S("TA4 Heat Exchanger")..": "..own_num)
meta:set_string("formspec", formspec(State, pos, nvm))
Cable:after_place_node(pos, {DOWN})
State:node_init(pos, nvm, own_num)
end end
local function on_receive_fields(pos, formname, fields, player) local function on_receive_fields(pos, formname, fields, player)
@ -131,6 +198,14 @@ local function on_receive_fields(pos, formname, fields, player)
M(pos):set_string("formspec", formspec(State, pos, nvm)) M(pos):set_string("formspec", formspec(State, pos, nvm))
end end
local function get_storage_data(pos, tlib2)
local nvm = techage.get_nvm(pos)
nvm.capa_max = nvm.capa_max or 0
if nvm.running then
return {level = (nvm.capa or 0) / nvm.capa_max, capa = nvm.capa_max}
end
end
-- Middle node with the formspec from the bottom node -- Middle node with the formspec from the bottom node
minetest.register_node("techage:heatexchanger2", { minetest.register_node("techage:heatexchanger2", {
description = S("TA4 Heat Exchanger 2"), description = S("TA4 Heat Exchanger 2"),
@ -154,6 +229,7 @@ minetest.register_node("techage:heatexchanger2", {
on_timer = node_timer, on_timer = node_timer,
after_place_node = after_place_node, after_place_node = after_place_node,
can_dig = can_dig, can_dig = can_dig,
get_storage_data = get_storage_data,
paramtype2 = "facedir", paramtype2 = "facedir",
groups = {crumbly = 2, cracky = 2, snappy = 2}, groups = {crumbly = 2, cracky = 2, snappy = 2},
@ -162,6 +238,8 @@ minetest.register_node("techage:heatexchanger2", {
sounds = default.node_sound_metal_defaults(), sounds = default.node_sound_metal_defaults(),
}) })
power.register_nodes({"techage:heatexchanger2"}, Cable, "sto", {"D"})
minetest.register_craft({ minetest.register_craft({
output = "techage:heatexchanger2", output = "techage:heatexchanger2",
recipe = { recipe = {

3
energy_storage/heatexchanger3.lua
View File

@ -57,6 +57,9 @@ minetest.register_node("techage:heatexchanger3", {
after_place_node = after_place_node, after_place_node = after_place_node,
after_dig_node = after_dig_node, after_dig_node = after_dig_node,
networks = {
pipe2 = {},
},
paramtype2 = "facedir", paramtype2 = "facedir",
groups = {crumbly = 2, cracky = 2, snappy = 2}, groups = {crumbly = 2, cracky = 2, snappy = 2},
on_rotate = screwdriver.disallow, on_rotate = screwdriver.disallow,

22
energy_storage/inlet.lua
View File

@ -3,7 +3,7 @@
TechAge TechAge
======= =======
Copyright (C) 2019-2020 Joachim Stolberg Copyright (C) 2019-2021 Joachim Stolberg
AGPL v3 AGPL v3
See LICENSE.txt for more information See LICENSE.txt for more information
@ -44,6 +44,9 @@ minetest.register_node("techage:ta4_pipe_inlet", {
after_place_node = after_place_node, after_place_node = after_place_node,
after_dig_node = after_dig_node, after_dig_node = after_dig_node,
networks = {
pipe2 = {},
},
paramtype2 = "facedir", -- important! paramtype2 = "facedir", -- important!
on_rotate = screwdriver.disallow, -- important! on_rotate = screwdriver.disallow, -- important!
groups = {crumbly = 2, cracky = 2, snappy = 2}, groups = {crumbly = 2, cracky = 2, snappy = 2},
@ -66,13 +69,6 @@ local Numbers = {
} }
} }
local function chat(owner, text)
if owner ~= nil then
minetest.chat_send_player(owner, string.char(0x1b).."(c@#ff0000)".."[Techage] Error: "..text.."!")
end
return text
end
local function get_diameter(pos, in_dir) local function get_diameter(pos, in_dir)
local dir = tubelib2.Dir6dToVector[in_dir] local dir = tubelib2.Dir6dToVector[in_dir]
local pos2, node local pos2, node
@ -125,14 +121,14 @@ local function check_volume(pos, in_dir, owner)
"basic_materials:concrete_block", "default:obsidian_glass", "basic_materials:concrete_block", "default:obsidian_glass",
"techage:glow_gravel"}) "techage:glow_gravel"})
if node_tbl["default:obsidian_glass"] > 1 then if node_tbl["default:obsidian_glass"] > 1 then
return chat(owner, "one window maximum") return S("one window maximum")
elseif node_tbl["default:obsidian_glass"] + node_tbl["basic_materials:concrete_block"] ~= Numbers.shell[radius] then elseif node_tbl["default:obsidian_glass"] + node_tbl["basic_materials:concrete_block"] ~= Numbers.shell[radius] then
return chat(owner, "wrong number of shell nodes") return S("wrong number of shell nodes")
elseif node_tbl["default:gravel"] + node_tbl["techage:glow_gravel"] ~= Numbers.filling[radius] then elseif node_tbl["default:gravel"] + node_tbl["techage:glow_gravel"] ~= Numbers.filling[radius] then
return chat(owner, "wrong number of gravel nodes") return S("wrong number of gravel nodes")
end end
else else
return chat(owner, "wrong diameter (should be 5, 7, or 9)") return S("wrong diameter (should be 5, 7, or 9)")
end end
return true return true
end end
@ -162,8 +158,6 @@ techage.register_node({"techage:ta4_pipe_inlet"}, {
on_transfer = function(pos, in_dir, topic, payload) on_transfer = function(pos, in_dir, topic, payload)
if topic == "diameter" then if topic == "diameter" then
return get_diameter(pos, in_dir) return get_diameter(pos, in_dir)
elseif topic == "integrity" then
return check_volume(pos, in_dir, payload)
elseif topic == "volume" then elseif topic == "volume" then
return check_volume(pos, in_dir, payload) return check_volume(pos, in_dir, payload)
elseif topic == "window" then elseif topic == "window" then

76
energy_storage/turbine.lua
View File

@ -3,7 +3,7 @@
TechAge TechAge
======= =======
Copyright (C) 2019-2020 Joachim Stolberg Copyright (C) 2019-2021 Joachim Stolberg
AGPL v3 AGPL v3
See LICENSE.txt for more information See LICENSE.txt for more information
@ -18,17 +18,7 @@ local S = techage.S
local Pipe = techage.LiquidPipe local Pipe = techage.LiquidPipe
local function transfer_heatexchanger3(pos, topic, payload) local function generator_cmnd(pos, topic, payload)
return techage.transfer(pos, 6, topic, payload, Pipe,
{"techage:heatexchanger3"})
end
local function transfer_heatexchanger1(pos, topic, payload)
return techage.transfer(pos, "L", topic, payload, Pipe,
{"techage:heatexchanger1"})
end
local function transfer_generator(pos, topic, payload)
return techage.transfer(pos, "R", topic, payload, nil, return techage.transfer(pos, "R", topic, payload, nil,
{"techage:ta4_generator", "techage:ta4_generator_on"}) {"techage:ta4_generator", "techage:ta4_generator_on"})
end end
@ -64,21 +54,6 @@ local function stop_sound(pos)
end end
end end
local function after_place_node(pos)
Pipe:after_place_node(pos)
end
local function after_dig_node(pos, oldnode)
stop_sound(pos)
Pipe:after_dig_node(pos)
techage.del_mem(pos)
end
local function tubelib2_on_update2(pos, outdir, tlib2, node)
swap_node(pos, "techage:ta4_turbine")
stop_sound(pos)
end
minetest.register_node("techage:ta4_turbine", { minetest.register_node("techage:ta4_turbine", {
description = S("TA4 Turbine"), description = S("TA4 Turbine"),
tiles = { tiles = {
@ -91,10 +66,17 @@ minetest.register_node("techage:ta4_turbine", {
"techage_filling_ta4.png^techage_appl_turbine.png^techage_frame_ta4.png", "techage_filling_ta4.png^techage_appl_turbine.png^techage_frame_ta4.png",
}, },
after_place_node = after_place_node, after_place_node = function(pos)
after_dig_node = after_dig_node, Pipe:after_place_node(pos)
tubelib2_on_update2 = tubelib2_on_update2, end,
after_dig_node = function(pos, oldnode)
stop_sound(pos)
Pipe:after_dig_node(pos)
techage.del_mem(pos)
end,
networks = {
pipe2 = {},
},
paramtype2 = "facedir", paramtype2 = "facedir",
groups = {cracky=2, crumbly=2, choppy=2}, groups = {cracky=2, crumbly=2, choppy=2},
on_rotate = screwdriver.disallow, on_rotate = screwdriver.disallow,
@ -131,8 +113,14 @@ minetest.register_node("techage:ta4_turbine_on", {
}, },
}, },
tubelib2_on_update2 = tubelib2_on_update2, tubelib2_on_update2 = function(pos, outdir, tlib2, node)
swap_node(pos, "techage:ta4_turbine")
stop_sound(pos)
generator_cmnd(pos, "stop")
end,
networks = {
pipe2 = {},
},
paramtype2 = "facedir", paramtype2 = "facedir",
groups = {not_in_creative_inventory=1}, groups = {not_in_creative_inventory=1},
diggable = false, diggable = false,
@ -142,31 +130,25 @@ minetest.register_node("techage:ta4_turbine_on", {
}) })
Pipe:add_secondary_node_names({"techage:ta4_turbine", "techage:ta4_turbine_on"}) Pipe:add_secondary_node_names({"techage:ta4_turbine", "techage:ta4_turbine_on"})
Pipe:set_valid_sides("techage:ta4_turbine", {"L", "U"})
Pipe:set_valid_sides("techage:ta4_turbine_on", {"L", "U"})
techage.register_node({"techage:ta4_turbine", "techage:ta4_turbine_on"}, { techage.register_node({"techage:ta4_turbine", "techage:ta4_turbine_on"}, {
on_transfer = function(pos, in_dir, topic, payload) on_transfer = function(pos, in_dir, topic, payload)
local nvm = techage.get_nvm(pos) local nvm = techage.get_nvm(pos)
if topic == "trigger" then -- used by heatexchanger1 if topic == "start" then -- used by heatexchanger1
if not transfer_heatexchanger3(pos, topic, payload) then
return 0
end
return transfer_generator(pos, topic, payload)
elseif topic == "start" then -- used by generator
swap_node(pos, "techage:ta4_turbine_on") swap_node(pos, "techage:ta4_turbine_on")
play_sound(pos) play_sound(pos)
nvm.running = true return generator_cmnd(pos, topic, payload)
return true elseif topic == "stop" then -- used by heatexchanger1
elseif topic == "stop" then -- used by generator
swap_node(pos, "techage:ta4_turbine") swap_node(pos, "techage:ta4_turbine")
stop_sound(pos) stop_sound(pos)
nvm.running = false return generator_cmnd(pos, topic, payload)
return true else -- used by heatexchanger1
elseif topic == "state" then return generator_cmnd(pos, topic, payload)
return transfer_heatexchanger1(pos, topic, payload)
end end
end, end,
on_node_load = function(pos, node) on_node_load = function(pos, node)
--print("on_node_load", node.name)
if node.name == "techage:ta4_turbine_on" then if node.name == "techage:ta4_turbine_on" then
play_sound(pos) play_sound(pos)
end end

70
init.lua
View File

@ -234,33 +234,33 @@ dofile(MP.."/ta3_power/axle2power.lua")
dofile(MP.."/ta3_power/power2axle.lua") dofile(MP.."/ta3_power/power2axle.lua")
-- Digtron -- Digtron
--if minetest.global_exists("digtron") then if minetest.global_exists("digtron") then
-- dofile(MP.."/digtron/battery.lua") dofile(MP.."/digtron/battery.lua")
--end end
-- Logic -- Logic
--dofile(MP.."/logic/lib.lua") dofile(MP.."/logic/lib.lua")
--dofile(MP.."/logic/terminal.lua") dofile(MP.."/logic/terminal.lua")
--dofile(MP.."/logic/button.lua") dofile(MP.."/logic/button.lua")
--dofile(MP.."/logic/detector.lua") dofile(MP.."/logic/detector.lua")
--dofile(MP.."/logic/repeater.lua") dofile(MP.."/logic/repeater.lua")
--dofile(MP.."/logic/programmer.lua") dofile(MP.."/logic/programmer.lua")
--dofile(MP.."/logic/signallamp.lua") dofile(MP.."/logic/signallamp.lua")
--dofile(MP.."/logic/sequencer.lua") dofile(MP.."/logic/sequencer.lua")
--dofile(MP.."/logic/timer.lua") dofile(MP.."/logic/timer.lua")
--dofile(MP.."/logic/lua_logic.lua") -- old dofile(MP.."/logic/lua_logic.lua") -- old
--dofile(MP.."/logic/logic_block.lua") -- new dofile(MP.."/logic/logic_block.lua") -- new
--dofile(MP.."/logic/node_detector.lua") dofile(MP.."/logic/node_detector.lua")
--dofile(MP.."/logic/player_detector.lua") dofile(MP.."/logic/player_detector.lua")
--dofile(MP.."/logic/cart_detector.lua") dofile(MP.."/logic/cart_detector.lua")
--dofile(MP.."/logic/gateblock.lua") dofile(MP.."/logic/gateblock.lua")
--dofile(MP.."/logic/doorblock.lua") dofile(MP.."/logic/doorblock.lua")
--dofile(MP.."/logic/doorcontroller.lua") -- old dofile(MP.."/logic/doorcontroller.lua") -- old
--dofile(MP.."/logic/doorcontroller2.lua") -- new dofile(MP.."/logic/doorcontroller2.lua") -- new
--dofile(MP.."/logic/collector.lua") dofile(MP.."/logic/collector.lua")
--if minetest.global_exists("mesecon") then if minetest.global_exists("mesecon") then
-- dofile(MP.."/logic/mesecons_converter.lua") dofile(MP.."/logic/mesecons_converter.lua")
--end end
-- Test -- Test
dofile(MP.."/recipe_checker.lua") dofile(MP.."/recipe_checker.lua")
@ -272,18 +272,18 @@ dofile(MP.."/solar/solarcell.lua")
dofile(MP.."/solar/inverter.lua") dofile(MP.."/solar/inverter.lua")
-- Wind -- Wind
--dofile(MP.."/wind_turbine/rotor.lua") dofile(MP.."/wind_turbine/rotor.lua")
--dofile(MP.."/wind_turbine/pillar.lua") dofile(MP.."/wind_turbine/pillar.lua")
--dofile(MP.."/wind_turbine/signallamp.lua") dofile(MP.."/wind_turbine/signallamp.lua")
-- TA4 Energy Storage -- TA4 Energy Storage
--dofile(MP.."/energy_storage/heatexchanger3.lua") dofile(MP.."/energy_storage/heatexchanger3.lua")
--dofile(MP.."/energy_storage/heatexchanger2.lua") dofile(MP.."/energy_storage/heatexchanger2.lua")
--dofile(MP.."/energy_storage/heatexchanger1.lua") dofile(MP.."/energy_storage/heatexchanger1.lua")
--dofile(MP.."/energy_storage/generator.lua") dofile(MP.."/energy_storage/generator.lua")
--dofile(MP.."/energy_storage/turbine.lua") dofile(MP.."/energy_storage/turbine.lua")
--dofile(MP.."/energy_storage/inlet.lua") dofile(MP.."/energy_storage/inlet.lua")
--dofile(MP.."/energy_storage/nodes.lua") dofile(MP.."/energy_storage/nodes.lua")
-- Chemistry -- Chemistry
--dofile(MP.."/chemistry/ta4_reactor.lua") --dofile(MP.."/chemistry/ta4_reactor.lua")

1
items/filling.lua
View File

@ -27,4 +27,5 @@ techage.FILLING_ITEMS = {
"default:mese", "default:mese",
"default:diamondblock", "default:diamondblock",
"techage:power_pole3", "techage:power_pole3",
"techage:pillar",
} }

35
power/formspecs.lua
View File

@ -233,6 +233,41 @@ function techage.generator_settings(tier, available)
end end
end end
-------------------------------------------------------------------------------
-- Still used legacy functions
-------------------------------------------------------------------------------
function techage.formspec_label_bar(pos, x, y, label, max_power, current_power, unit)
local percent, ypos
max_power = max_power or 1
unit = unit or "ku"
current_power = current_power or 0
if current_power == 0 then
percent = 0
ypos = 2.8
else
percent = techage.power.percent(max_power, current_power)
-- 0.4 to 2.8 = 2.4
local offs = 2.4 - (current_power / max_power) * 2.4
ypos = 0.4 + in_range(offs, 0.4, 2.4)
end
if current_power >= 100 then
current_power = math.floor(current_power)
end
percent = (percent + 5) / 1.1 -- texture correction
return "container["..x..","..y.."]"..
"box[0,0;2.3,3.3;#395c74]"..
"label[0.2,0;"..label.."]"..
"label[0.7,0.4;"..max_power.." "..unit.."]"..
"image[0,0.5;1,3;"..
"techage_form_level_bg.png^[lowpart:"..percent..
":techage_form_level_fg.png]"..
"label[0.7,"..ypos..";"..current_power.." "..unit.."]"..
"container_end[]"
end
function techage.evaluate_charge_termination(nvm, meta) function techage.evaluate_charge_termination(nvm, meta)
local termpoint = meta:get_string("termpoint") local termpoint = meta:get_string("termpoint")
if termpoint == "40% - 60%" then if termpoint == "40% - 60%" then

BIN
textures/techage_appl_turbine4.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 367 B

After

Width:  |  Height:  |  Size: 373 B

4
wind_turbine/pillar.lua
View File

@ -3,7 +3,7 @@
TechAge TechAge
======= =======
Copyright (C) 2019-2020 Joachim Stolberg Copyright (C) 2019-2021 Joachim Stolberg
AGPL v3 AGPL v3
See LICENSE.txt for more information See LICENSE.txt for more information
@ -23,6 +23,8 @@ minetest.register_node("techage:pillar", {
type = "fixed", type = "fixed",
fixed = {-8/32, -16/32, -8/32, 8/32, 16/32, 8/32}, fixed = {-8/32, -16/32, -8/32, 8/32, 16/32, 8/32},
}, },
climbable = true,
walkable = false,
paramtype = "light", paramtype = "light",
backface_culling = true, backface_culling = true,
groups = {cracky=1}, groups = {cracky=1},

169
wind_turbine/rotor.lua
View File

@ -3,7 +3,7 @@
TechAge TechAge
======= =======
Copyright (C) 2019-2020 DS-Minetest, Joachim Stolberg Copyright (C) 2019-2021 DS-Minetest, Joachim Stolberg
AGPL v3 AGPL v3
See LICENSE.txt for more information See LICENSE.txt for more information
@ -21,11 +21,13 @@
local M = minetest.get_meta local M = minetest.get_meta
local S = techage.S local S = techage.S
local STANDBY_TICKS = 4
local CYCLE_TIME = 2 local CYCLE_TIME = 2
local PWR_PERF = 70 local PWR_PERF = 70
local Cable = techage.ElectricCable local Cable = techage.ElectricCable
local power = techage.power local power = networks.power
local control = networks.control
local Rotors = {} local Rotors = {}
@ -46,28 +48,35 @@ local function pos_and_yaw(pos, param2)
return pos, {x=0, y=yaw, z=0} return pos, {x=0, y=yaw, z=0}
end end
local function is_wind()
local time = minetest.get_timeofday() or 0
return (time >= 5.00/24.00 and time <= 9.00/24.00) or (time >= 17.00/24.00 and time <= 21.00/24.00)
end
local function check_rotor(pos, nvm) local function check_rotor(pos, nvm)
local resp, err = techage.valid_place_for_windturbine(pos, nil, 1) local resp, err = techage.valid_place_for_windturbine(pos, nil, 1)
if not resp then if not resp then
M(pos):set_string("infotext", S("TA4 Wind Turbine")..": "..err) nvm.error = err
nvm.error = true
return false return false
end end
local npos = techage.get_pos(pos, "F") local npos = techage.get_pos(pos, "F")
local node = techage.get_node_lvm(npos) local node = techage.get_node_lvm(npos)
if node.name ~= "techage:ta4_wind_turbine_nacelle" then if node.name ~= "techage:ta4_wind_turbine_nacelle" then
M(pos):set_string("infotext", S("TA4 Wind Turbine").." "..S("Nacelle is missing")) nvm.error = S("Nacelle is missing")
nvm.error = true
return false return false
end end
local own_num = M(pos):get_string("node_number") or "" local own_num = M(pos):get_string("node_number") or ""
M(pos):set_string("infotext", S("TA4 Wind Turbine").." "..own_num) M(pos):set_string("infotext", S("TA4 Wind Turbine")..": "..own_num)
nvm.error = false nvm.error = false
return true return true
end end
local function formspec(self, pos, nvm)
return techage.generator_formspec(self, pos, nvm, S("TA4 Wind Turbine"), nvm.provided, PWR_PERF)
end
local function add_rotor(pos, nvm) local function add_rotor(pos, nvm)
if check_rotor(pos, nvm) then if check_rotor(pos, nvm) then
local hash = minetest.hash_node_position(pos) local hash = minetest.hash_node_position(pos)
@ -82,71 +91,119 @@ local function add_rotor(pos, nvm)
end end
end end
local function start_rotor(pos, nvm) local function start_rotor(pos, nvm, state)
if not nvm.error then if not nvm.error then
nvm.providing = true local meta = M(pos)
nvm.running = true
nvm.delivered = 0 nvm.delivered = 0
power.generator_start(pos, Cable, CYCLE_TIME, 5) techage.evaluate_charge_termination(nvm, meta)
power.start_storage_calc(pos, Cable, 5)
local hash = minetest.hash_node_position(pos) local hash = minetest.hash_node_position(pos)
if Rotors[hash] then if Rotors[hash] and is_wind() then
Rotors[hash]:set_animation_frame_speed(50) Rotors[hash]:set_animation_frame_speed(50)
end end
end end
end end
local function stop_rotor(pos, nvm) local function stop_rotor(pos, nvm, state)
nvm.providing = false nvm.running = false
nvm.delivered = 0 nvm.delivered = 0
power.generator_stop(pos, Cable, 5) nvm.load = 0
power.start_storage_calc(pos, Cable, 5)
local hash = minetest.hash_node_position(pos) local hash = minetest.hash_node_position(pos)
if Rotors[hash] then if Rotors[hash] then
Rotors[hash]:set_animation_frame_speed(0) Rotors[hash]:set_animation_frame_speed(0)
end end
end end
local function can_start(pos, nvm)
if nvm.error then
return nvm.error
end
return true
end
local State = techage.NodeStates:new({
node_name_passive = "techage:ta4_wind_turbine",
cycle_time = CYCLE_TIME,
standby_ticks = STANDBY_TICKS,
formspec_func = formspec,
start_node = start_rotor,
stop_node = stop_rotor,
can_start = can_start,
})
local function generating(pos, nvm)
if is_wind() then
if not nvm.running then
start_rotor(pos, nvm)
end
return true
else
if nvm.running then
stop_rotor(pos, nvm)
end
return false
end
end
local function node_timer(pos, elapsed) local function node_timer(pos, elapsed)
local meta = M(pos)
local nvm = techage.get_nvm(pos) local nvm = techage.get_nvm(pos)
if not nvm.running or nvm.error then if nvm.error then
return false return false
end end
local time = minetest.get_timeofday() or 0 if generating(pos, nvm) then
if (time >= 5.00/24.00 and time <= 9.00/24.00) or (time >= 17.00/24.00 and time <= 21.00/24.00) then local tp1 = tonumber(meta:get_string("termpoint1"))
if not nvm.providing then local tp2 = tonumber(meta:get_string("termpoint2"))
start_rotor(pos, nvm) nvm.provided = power.provide_power(pos, Cable, 5, PWR_PERF, tp1, tp2)
end State:keep_running(pos, nvm, 2)
else else
if nvm.providing then State:idle(pos, nvm)
stop_rotor(pos, nvm) end
end nvm.load = power.get_storage_load(pos, Cable, 5, PWR_PERF)
if techage.is_activeformspec(pos) then
meta:set_string("formspec", formspec(State, pos, nvm))
end end
nvm.delivered = power.generator_alive(pos, Cable, CYCLE_TIME, 5, (nvm.providing and PWR_PERF) or 0)
return true return true
end end
local function on_rightclick(pos, node, clicker)
techage.set_activeformspec(pos, clicker)
local nvm = techage.get_nvm(pos)
M(pos):set_string("formspec", formspec(State, pos, nvm))
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)
M(pos):set_string("formspec", formspec(State, pos, nvm))
end
local function get_generator_data(pos, tlib2)
local nvm = techage.get_nvm(pos)
if nvm.running then
return {level = (nvm.load or 0) / PWR_PERF, perf = PWR_PERF, capa = PWR_PERF * 2}
end
end
local function after_place_node(pos, placer) local function after_place_node(pos, placer)
local meta = M(pos) local meta = M(pos)
local nvm = techage.get_nvm(pos) local nvm = techage.get_nvm(pos)
local own_num = techage.add_node(pos, "techage:ta4_wind_turbine") local number = techage.add_node(pos, "techage:ta4_wind_turbine")
meta:set_string("node_number", own_num) State:node_init(pos, nvm, number)
meta:set_string("owner", placer:get_player_name()) meta:set_string("owner", placer:get_player_name())
nvm.providing = false M(pos):set_string("formspec", formspec(State, pos, nvm))
nvm.running = true nvm.running = true
add_rotor(pos, nvm) add_rotor(pos, nvm)
minetest.get_node_timer(pos):start(CYCLE_TIME)
Cable:after_place_node(pos) Cable:after_place_node(pos)
end end
local function on_punch(pos, node, puncher, pointed_thing)
if minetest.is_protected(pos, puncher:get_player_name()) then
return
end
local nvm = techage.get_nvm(pos)
add_rotor(pos, nvm)
end
local function after_dig_node(pos, oldnode, oldmetadata) local function after_dig_node(pos, oldnode, oldmetadata)
local hash = minetest.hash_node_position(pos) local hash = minetest.hash_node_position(pos)
if Rotors[hash] and Rotors[hash]:get_luaentity() then if Rotors[hash] and Rotors[hash]:get_luaentity() then
@ -158,10 +215,6 @@ local function after_dig_node(pos, oldnode, oldmetadata)
techage.del_mem(pos) techage.del_mem(pos)
end end
local function tubelib2_on_update2(pos, outdir, tlib2, node)
power.update_network(pos, outdir, tlib2)
end
minetest.register_node("techage:ta4_wind_turbine", { minetest.register_node("techage:ta4_wind_turbine", {
description = S("TA4 Wind Turbine"), description = S("TA4 Wind Turbine"),
inventory_image = "techage_wind_turbine_inv.png", inventory_image = "techage_wind_turbine_inv.png",
@ -185,15 +238,39 @@ minetest.register_node("techage:ta4_wind_turbine", {
}, },
after_place_node = after_place_node, after_place_node = after_place_node,
after_dig_node = after_dig_node, after_dig_node = after_dig_node,
tubelib2_on_update2 = tubelib2_on_update2, get_generator_data = get_generator_data,
on_timer = node_timer, on_timer = node_timer,
on_punch = on_punch, on_rightclick = on_rightclick,
on_receive_fields = on_receive_fields,
paramtype2 = "facedir", paramtype2 = "facedir",
groups = {cracky=2, crumbly=2, choppy=2}, groups = {cracky=2, crumbly=2, choppy=2},
is_ground_content = false, is_ground_content = false,
sounds = default.node_sound_metal_defaults(), sounds = default.node_sound_metal_defaults(),
ta4_formspec = techage.generator_settings("ta4", PWR_PERF),
}) })
power.register_nodes({"techage:ta4_wind_turbine"}, Cable, "gen", {"D"})
control.register_nodes({"techage:ta4_wind_turbine"}, {
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 Wind Turbine"),
number = meta:get_string("node_number") or "",
running = nvm.running or false,
available = PWR_PERF,
provided = nvm.provided or 0,
termpoint = meta:get_string("termpoint"),
}
end
return false
end,
}
)
minetest.register_node("techage:ta4_wind_turbine_nacelle", { minetest.register_node("techage:ta4_wind_turbine_nacelle", {
description = S("TA4 Wind Turbine Nacelle"), description = S("TA4 Wind Turbine Nacelle"),
@ -222,8 +299,6 @@ minetest.register_entity("techage:rotor_ent", {initial_properties = {
static_save = false, static_save = false,
}}) }})
Cable:add_secondary_node_names({"techage:ta4_wind_turbine"})
techage.register_node({"techage:ta4_wind_turbine"}, { techage.register_node({"techage:ta4_wind_turbine"}, {
on_recv_message = function(pos, src, topic, payload) on_recv_message = function(pos, src, topic, payload)
local nvm = techage.get_nvm(pos) local nvm = techage.get_nvm(pos)
@ -234,7 +309,7 @@ techage.register_node({"techage:ta4_wind_turbine"}, {
end end
if nvm.error then if nvm.error then
return "error" return "error"
elseif nvm.running and nvm.providing then elseif nvm.running then
return "running" return "running"
else else
return "stopped" return "stopped"
@ -252,7 +327,7 @@ techage.register_node({"techage:ta4_wind_turbine"}, {
on_node_load = function(pos) on_node_load = function(pos)
local nvm = techage.get_nvm(pos) local nvm = techage.get_nvm(pos)
add_rotor(pos, nvm) add_rotor(pos, nvm)
nvm.providing = false -- to force the rotor start nvm.running = false -- to force the rotor start
minetest.get_node_timer(pos):start(CYCLE_TIME) minetest.get_node_timer(pos):start(CYCLE_TIME)
end, end,
}) })