techage/solar/solarcell.lua
2020-02-24 20:59:26 +01:00

293 lines
7.5 KiB
Lua

--[[
TechAge
=======
Copyright (C) 2019-2020 Joachim Stolberg
GPL v3
See LICENSE.txt for more information
TA4 Solar Module and Carriers
]]--
-- for lazy programmers
local P = minetest.string_to_pos
local M = minetest.get_meta
local S = techage.S
local PWR_PERF = 3
local Cable = techage.TA4_Cable
local power = techage.power
local function temperature(pos)
local data = minetest.get_biome_data(pos)
if data then
return math.floor(data.heat) or 0
end
return 0
end
-- return the required param2 for solar modules
local function get_param2(pos, side)
local dir = techage.networks.side_to_outdir(pos, side)
return (dir + 1) % 4
end
-- do we have enough light?
local function light(pos)
if minetest.get_node(pos).name ~= "air" then return false end
local light = minetest.get_node_light(pos) or 0
return light >= (15 - 1)
end
-- check if solar module is available and has the correct orientation
local function is_solar_module(base_pos, pos, side)
local pos1 = techage.get_pos(pos, side)
if pos1 then
local node = techage.get_node_lvm(pos1)
if node and node.name == "techage:ta4_solar_module" and
light({x = pos1.x, y = pos1.y + 1, z = pos1.z}) then
if side == "L" and node.param2 == M(base_pos):get_int("left_param2") then
return true
elseif side == "R" and node.param2 == M(base_pos):get_int("right_param2") then
return true
end
end
end
return false
end
-- provide the available power, which is temperature dependent
local function on_getpower1(pos)
local pos1 = {x = pos.x, y = pos.y, z = pos.z}
if is_solar_module(pos, pos1, "L") and is_solar_module(pos, pos1, "R") then
return PWR_PERF * M(pos):get_int("temperature") / 100.0
end
return 0
end
local function on_getpower2(pos)
local pos1 = {x = pos.x, y = pos.y+1, z = pos.z}
if is_solar_module(pos, pos1, "L") and is_solar_module(pos, pos1, "R") then
return PWR_PERF * M(pos):get_int("temperature") / 100.0
end
return 0
end
local function after_place_node(pos)
M(pos):set_int("temperature", temperature(pos))
M(pos):set_int("left_param2", get_param2(pos, "L"))
M(pos):set_int("right_param2", get_param2(pos, "R"))
Cable:after_place_node(pos)
end
local function after_dig_node(pos, oldnode)
Cable:after_dig_node(pos)
end
local function tubelib2_on_update2(pos, outdir, tlib2, node)
power.update_network(pos, nil, tlib2)
end
local net_def1 = {
ele2 = {
sides = {F=1, B=1},
ntype = "junc",
on_getpower = on_getpower1,
},
}
local net_def2 = {
ele2 = {
sides = {F=1, B=1},
ntype = "junc",
on_getpower = on_getpower2,
},
}
minetest.register_node("techage:ta4_solar_module", {
description = S("TA4 Solar Module"),
inventory_image = "techage_solar_module_top.png",
tiles = {
-- up, down, right, left, back, front
"techage_solar_module_top.png",
"techage_solar_module_bottom.png",
},
drawtype = "nodebox",
node_box = {
type = "fixed",
fixed = {
{-1/2, 7/16, -1/2, 1/2, 8/16, 16/16},
},
},
techage_info = function(pos)
local power = 0
local pos1 = {x = pos.x, y = pos.y + 1, z = pos.z}
if light(pos1) then
power = PWR_PERF * temperature(pos) / 200.0
end
local light = minetest.get_node_light(pos1).." / " ..15
return S("power").." = "..power..", "..S("light").." = "..light
end,
paramtype = "light",
paramtype2 = "facedir",
on_rotate = screwdriver.disallow,
groups = {cracky=2, crumbly=2, choppy=2},
is_ground_content = false,
})
minetest.register_node("techage:ta4_solar_carrier", {
description = S("TA4 Solar Carrier Module"),
tiles = {
-- up, down, right, left, back, front
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten^techage_appl_ta4_cable.png",
"techage_concrete.png^[brighten^techage_appl_ta4_cable.png",
},
drawtype = "nodebox",
node_box = {
type = "fixed",
fixed = {
{-3/8, -8/16, -1/2, 3/8, -6/16, 1/2},
{-1/8, -6/16, -1/2, 1/8, 6/16, 1/2},
{-3/8, 5/16, -1/2, 3/8, 7/16, 1/2},
},
},
after_place_node = function(pos)
M(pos):set_int("temperature", temperature(pos))
M(pos):set_int("left_param2", get_param2(pos, "L"))
M(pos):set_int("right_param2", get_param2(pos, "R"))
end,
after_place_node = after_place_node,
after_dig_node = after_dig_node,
tubelib2_on_update2 = tubelib2_on_update2,
networks = net_def1,
paramtype = "light",
paramtype2 = "facedir",
on_rotate = screwdriver.disallow,
groups = {cracky=2, crumbly=2, choppy=2},
is_ground_content = false,
})
minetest.register_node("techage:ta4_solar_carrierB", {
description = S("TA4 Solar Carrier Module B"),
tiles = {
-- up, down, right, left, back, front
"techage_concrete.png^[brighten^techage_appl_ta4_cable.png",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten^techage_appl_ta4_cable.png",
"techage_concrete.png^[brighten^techage_appl_ta4_cable.png",
},
drawtype = "nodebox",
node_box = {
type = "fixed",
fixed = {
{-3/8, -8/16, -1/2, 3/8, -6/16, 1/2},
{-1/8, -6/16, -1/2, 1/8, 8/16, 1/2},
},
},
after_place_node = function(pos)
M(pos):set_int("temperature", temperature(pos))
M(pos):set_int("left_param2", get_param2(pos, "L"))
M(pos):set_int("right_param2", get_param2(pos, "R"))
Cable:after_place_node(pos)
end,
after_place_node = after_place_node,
after_dig_node = after_dig_node,
tubelib2_on_update2 = tubelib2_on_update2,
networks = net_def2,
paramtype = "light",
paramtype2 = "facedir",
on_rotate = screwdriver.disallow,
groups = {cracky=2, crumbly=2, choppy=2},
is_ground_content = false,
})
minetest.register_node("techage:ta4_solar_carrierT", {
description = S("TA4 Solar Carrier Module T"),
tiles = {
-- up, down, right, left, back, front
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
"techage_concrete.png^[brighten",
},
drawtype = "nodebox",
node_box = {
type = "fixed",
fixed = {
{-1/8, -8/16, -1/2, 1/8, 6/16, 1/2},
{-3/8, 5/16, -1/2, 3/8, 7/16, 1/2},
},
},
paramtype = "light",
paramtype2 = "facedir",
groups = {cracky=2, crumbly=2, choppy=2},
is_ground_content = false,
})
Cable:add_secondary_node_names({"techage:ta4_solar_carrier", "techage:ta4_solar_carrierB"})
minetest.register_craft({
output = "techage:ta4_solar_module",
recipe = {
{"techage:ta4_silicon_wafer", "techage:ta4_silicon_wafer", "techage:ta4_silicon_wafer"},
{"default:tin_ingot", "default:copper_ingot", "default:tin_ingot"},
{"", "", ""},
},
})
minetest.register_craft({
output = "techage:ta4_solar_carrierB 2",
recipe = {
{"", "default:steel_ingot", ""},
{"", "techage:ta4_power_cableS", ""},
{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
},
})
minetest.register_craft({
output = "techage:ta4_solar_carrierT 2",
recipe = {
{"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
{"", "default:steel_ingot", ""},
{"", "techage:ta4_power_cableS", ""},
},
})
minetest.register_craft({
output = "techage:ta4_solar_carrier",
recipe = {
{"", "techage:ta4_solar_carrierT", ""},
{"", "techage:ta4_solar_carrierB", ""},
{"", "", ""},
},
})
--minetest.register_lbm({
-- label = "Repair Carrier Module",
-- name = "techage:ta4_solar_carrier",
-- nodenames = {"techage:ta4_solar_carrier", "techage:ta4_solar_carrierB"},
-- run_at_every_load = false,
-- action = function(pos, node)
-- local ndef = minetest.registered_nodes[node.name]
-- ndef.after_place_node(pos)
-- end,
--})