waxtatect/basic_machines-cd2025
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
basic_machines-cd2025/technic_power.lua
мтест de77ada483
everything fine 
cleaning againnn, fix /clockgen, read float with 2 digits precision
mark: looop, add 2 markers
mover: reeorganize things, reduce infotext overwriting, add upgradetype, add friendly overheat, add 2 buttons to formspec
recycler: no fuel check with priv privs
2022-11-15 17:51:25 +01:00

609 lines
22 KiB
Lua
Raw Blame History

local F, S = basic_machines.F, basic_machines.S
local energy_multiplier = basic_machines.settings.energy_multiplier
local generator_upgrade_max = 50 + math.max(0, basic_machines.settings.generator_upgrade)
local machines_minstep = basic_machines.properties.machines_minstep
local machines_timer = basic_machines.properties.machines_timer
local power_stackmax = basic_machines.settings.power_stackmax
local space_start_eff = basic_machines.settings.space_start_eff
-- BATTERY
local function battery_update_form(meta)
meta:set_string("formspec", ([[
size[8,7]
label[0,0;%s]list[context;fuel;0,0.5;1,1;]
box[1.45,0.48;1.85,1;#222222]
label[1.5,0.5;%s]label[1.5,1;%s]
image_button[4.3,0.65;1.5,0.5;basic_machines_wool_black.png;help;%s]
label[6,0;%s]list[context;upgrade;6,0.5;2,2;]
list[current_player;main;0,2.75;8,1;]
list[current_player;main;0,4;8,3;8]
listring[context;upgrade]
listring[current_player;main]
listring[context;fuel]
listring[current_player;main]
%s
]]):format(F(S("FUEL")), F(S("Power: @1", meta:get_float("maxpower"))),
F(S("Capacity: @1", meta:get_float("capacity"))), F(S("help")),
F(S("UPGRADE")), default.get_hotbar_bg(0, 2.75)
))
end
-- [power crystal name] = energy provided
local energy_crystals = {
["basic_machines:power_cell"] = 1 * energy_multiplier,
["basic_machines:power_block"] = 11 * energy_multiplier,
["basic_machines:power_rod"] = 100 * energy_multiplier
}
local function battery_recharge(pos)
local meta = minetest.get_meta(pos)
local energy = meta:get_float("energy")
local capacity = meta:get_float("capacity")
local inv = meta:get_inventory()
local stack = inv:get_stack("fuel", 1)
local add_energy = energy_crystals[stack:get_name()] or 0
if add_energy > 0 then
if pos.y > space_start_eff then add_energy = 2 * add_energy end -- in space recharge is more efficient
if add_energy <= capacity then
stack:take_item(1); inv:set_stack("fuel", 1, stack)
else
meta:set_string("infotext", S("Recharge problem: capacity @1, needed @2", capacity, energy + add_energy))
return energy
end
else -- try do determine caloric value of fuel inside battery
local fuellist = inv:get_list("fuel"); if not fuellist then return energy end
local fueladd, afterfuel = minetest.get_craft_result({method = "fuel", width = 1, items = fuellist})
if fueladd.time > 0 then
add_energy = fueladd.time / 40
if energy + add_energy <= capacity then
inv:set_stack("fuel", 1, afterfuel.items[1])
else
meta:set_string("infotext", S("Recharge problem: capacity @1, needed @2", capacity, energy + add_energy))
return energy
end
end
end
if add_energy > 0 then
energy = energy + add_energy
if energy < 0 then energy = 0 end
if energy > capacity then energy = capacity end -- excess energy is wasted
meta:set_float("energy", energy)
meta:set_string("infotext", S("(R) Energy: @1 / @2", math.ceil(energy * 10) / 10, capacity))
local count = meta:get_int("activation_count")
if count < 16 then
minetest.sound_play("basic_machines_electric_zap", {pos = pos, gain = 0.05, max_hear_distance = 8}, true)
end
local t0, t1 = meta:get_int("t"), minetest.get_gametime()
if t0 > t1 - machines_minstep then
meta:set_int("activation_count", count + 1)
elseif count > 0 then
meta:set_int("activation_count", 0)
end
meta:set_int("t", t1)
end
local full_coef = capacity > 0 and math.floor(energy / capacity * 3) or 0
if full_coef > 2 then full_coef = 2 end
minetest.swap_node(pos, {name = "basic_machines:battery_" .. full_coef}) -- graphic energy level display
return energy -- new battery energy level
end
-- API for power distribution, mover checks power source - battery
basic_machines.check_power = function(pos, power_draw)
if not (minetest.get_node(pos).name):find("basic_machines:battery") then -- check with hashtables probably faster ?
return -1 -- battery not found!
end
local meta = minetest.get_meta(pos)
local energy = meta:get_float("energy")
local capacity = meta:get_float("capacity")
local maxpower = meta:get_float("maxpower")
local not_R = true
local full_coef = capacity > 0 and math.floor(energy / capacity * 3) or 0 -- 0, 1, 2
if power_draw > maxpower then
meta:set_string("infotext", S("Power draw required: @1, maximum power output @2. Please upgrade battery.",
basic_machines.twodigits_float(power_draw), maxpower)); return 0
elseif power_draw > energy then
not_R = false; energy = battery_recharge(pos) -- try recharge battery and continue operation immediately
end
energy = energy - power_draw
if energy < 0 then
meta:set_string("infotext", S("Used fuel provides too little power for current power draw @1", power_draw)); return 0
end -- recharge wasnt enough, needs to be repeated manually, return 0 power available
meta:set_float("energy", energy)
-- update energy display
if not_R then meta:set_string("infotext", S("Energy: @1 / @2", math.ceil(energy * 10) / 10, capacity)) end
local full_coef_new = capacity > 0 and math.floor(energy / capacity * 3) or 0
if full_coef_new > 2 then full_coef_new = 2 end
-- graphic energy level display
if full_coef ~= full_coef_new then minetest.swap_node(pos, {name = "basic_machines:battery_" .. full_coef_new}) end
return power_draw
end
local function battery_upgrade(meta, pos)
local inv = meta:get_inventory()
local count1, count2 = 0, 0
for i = 1, 4 do
local stack = inv:get_stack("upgrade", i)
local item = stack:get_name()
if item == "default:mese" then
count1 = count1 + stack:get_count()
elseif item == "default:diamondblock" then
count2 = count2 + stack:get_count()
end
end
if pos.y > space_start_eff then count1, count2 = 2 * count1, 2 * count2 end -- space increases efficiency
local energy = 0
local capacity = 3 + 3 * count1 -- mese for capacity
capacity = math.ceil(capacity * 10) / 10 -- adjust capacity
local maxpower = 1 + count2 * 2 -- old 99 upgrade -> 200 power
if meta:get_float("energy") ~= energy then
minetest.swap_node(pos, {name = "basic_machines:battery_0"}) -- battery level 0
meta:set_float("energy", energy)
end
meta:set_int("upgrade", count2) -- diamond for power
meta:set_float("capacity", capacity)
meta:set_float("maxpower", maxpower)
meta:set_string("infotext", S("Energy: @1 / @2", math.ceil(energy * 10) / 10, capacity))
end
-- this function will activate furnace
local machines_activate_furnace = minetest.registered_nodes["default:furnace"].on_metadata_inventory_put
minetest.register_node("basic_machines:battery_0", {
description = S("Battery - stores energy, generates energy from fuel, can power nearby machines," ..
" or accelerate/run furnace above it, it's upgradeable"),
groups = {cracky = 3},
tiles = {"basic_machines_outlet.png", "basic_machines_battery.png", "basic_machines_battery_0.png"},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
if not placer then return end
local meta = minetest.get_meta(pos)
meta:set_string("infotext", S("Battery - stores energy, generates energy from fuel, can power nearby machines," ..
" or accelerate/run furnace above it"))
meta:set_string("owner", placer:get_player_name())
meta:set_float("capacity", 3)
meta:set_float("maxpower", 1)
meta:set_float("energy", 0)
meta:set_int("upgrade", 0) -- upgrade level determines max energy output
meta:set_int("t", 0); meta:set_int("activation_count", 0)
local inv = meta:get_inventory()
inv:set_size("fuel", 1) -- place to put crystals
inv:set_size("upgrade", 2 * 2)
battery_update_form(meta)
end,
can_dig = function(pos, player)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
return meta:get_string("owner") == player:get_player_name() and
inv:is_empty("upgrade") and inv:is_empty("fuel") -- fuel AND upgrade inv must be empty to be dug
end,
on_receive_fields = function(pos, formname, fields, sender)
if fields.help then
minetest.show_formspec(sender:get_player_name(), "basic_machines:help_battery",
"size[6,7]textarea[0,0;6.5,8.5;help;" .. F(S("BATTERY HELP")) .. ";" ..
F(S("Battery provides power to machines or furnace. It can either use " ..
"power crystals or convert ordinary furnace fuels into energy. 1 coal lump gives 1 energy.\n\n" ..
"UPGRADE with diamond blocks for more available power output or with " ..
"mese blocks for more power storage capacity.")) .. "]")
end
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
return 0
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) then return 0 end
return stack:get_count()
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) then return 0 end
return stack:get_count()
end,
on_metadata_inventory_put = function(pos, listname, index, stack, player)
if listname == "fuel" then
battery_recharge(pos)
elseif listname == "upgrade" then
local meta = minetest.get_meta(pos)
battery_upgrade(meta, pos)
battery_update_form(meta)
end
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
if listname == "upgrade" then
local meta = minetest.get_meta(pos)
battery_upgrade(meta, pos)
battery_update_form(meta)
end
end,
effector = {
action_on = function(pos, _)
local meta = minetest.get_meta(pos)
local energy = meta:get_float("energy")
-- try to power furnace on top of it
if energy > 0 then -- need at least 1 energy
local fpos = {x = pos.x, y = pos.y + 1, z = pos.z} -- furnace pos
local node = minetest.get_node(fpos).name
if node == "default:furnace_active" or node == "default:furnace" then
local t0 = meta:get_int("ftime") -- furnace time
local t1 = minetest.get_gametime()
local fmeta = minetest.get_meta(fpos)
if t1 - t0 < machines_minstep then -- to prevent too quick furnace acceleration, punishment is cooking reset
if t1 - t0 < 0 then meta:set_int("ftime", 0) end
fmeta:set_float("src_time", 0); return
end
meta:set_int("ftime", t1)
local fuel_time = fmeta:get_float("fuel_time")
local fuel_totaltime = fmeta:get_float("fuel_totaltime")
local upgrade = meta:get_int("upgrade") * 0.1
local energy_new = energy - 0.25 * upgrade -- use energy to accelerate burning
-- to add burn time: must burn for at least 40 secs or furnace out of fuel
if fuel_time > 40 or fuel_totaltime == 0 or node == "default:furnace" then
fmeta:set_float("fuel_totaltime", 60); fmeta:set_float("fuel_time", 0) -- add 60 seconds burn time to furnace
energy_new = energy_new - 0.5 -- use up energy to add fuel
-- make furnace start if not already started
if node ~= "default:furnace_active" and machines_activate_furnace then machines_activate_furnace(fpos) end
end
-- only accelerate if we had enough energy
-- note: upgrade * 0.1 * 0.25 < power_rod is limit upgrade, so upgrade = 40 * 100 = 4000
if energy_new < 0 then
energy_new = 0
else
-- accelerated smelt: with 99 upgrade battery furnace works 11x faster
fmeta:set_float("src_time", fmeta:get_float("src_time") + machines_timer * upgrade)
end
meta:set_float("energy", energy_new)
if energy_new > 0 then -- no need to recharge yet, will still work next time
local full_coef, full_coef_new = 0, 0
local capacity = meta:get_float("capacity")
if capacity > 0 then
full_coef = math.floor(energy / capacity * 3)
full_coef_new = math.floor(energy_new / capacity * 3)
end
if full_coef_new > 2 then full_coef_new = 2 end
if full_coef ~= full_coef_new then
minetest.swap_node(pos, {name = "basic_machines:battery_" .. full_coef_new})
end
-- update energy display
meta:set_string("infotext", S("Energy: @1 / @2", math.ceil(energy_new * 10) / 10, capacity))
elseif battery_recharge(pos) < 1 then
meta:set_string("infotext", S("Furnace needs at least 1 energy"))
end
return
end
end
-- try to recharge by converting inserted fuel/power crystals into energy
if energy < meta:get_float("capacity") then -- not full, try to recharge
battery_recharge(pos)
end
end
}
})
-- various battery levels: 0, 1, 2 (2 >= 66%, 1 >= 33%, 0>=0%)
local batdef = table.copy(minetest.registered_nodes["basic_machines:battery_0"])
batdef.groups.not_in_creative_inventory = 1
for i = 1, 2 do
batdef.tiles[3] = "basic_machines_battery_" .. i .. ".png"
minetest.register_node("basic_machines:battery_" .. i, batdef)
end
-- GENERATOR
local minenergy = 17500 -- amount of energy required to initialize a generator
local function generator_update_form(meta, not_init)
if not_init then
local upgrade = basic_machines.twodigits_float(meta:get_float("upgrade"))
meta:set_string("formspec", ([[
size[8,6.5]
label[0,0;%s]list[context;fuel;0,0.5;1,1;]
box[1.45,0.48;2.5,1;#222222]
label[1.5,0.5;%s]label[1.5,1;%s]
image_button[4.5,0.65;1.5,0.5;basic_machines_wool_black.png;init;%s]
list[current_player;main;0,2.25;8,1;]
list[current_player;main;0,3.5;8,3;8]
listring[context;fuel]
listring[current_player;main]
%s
]]):format(F(S("FUEL")), F(S("Power: @1", -1)),
F(S("Energy: @1 / @2", upgrade, minenergy)),
F(S("initialize")), default.get_hotbar_bg(0, 2.25)
))
else
local upgrade = meta:get_int("upgrade")
local level = upgrade >= 20 and "high" or (upgrade >= 5 and "medium" or "low")
meta:set_string("formspec", ([[
size[8,6.5]
label[0,0;%s]list[context;fuel;0,0.5;1,1;]
box[1.45,0.48;2,0.85;#222222]
label[1.5,0.5;%s]
image_button[4.5,0.65;1.5,0.5;basic_machines_wool_black.png;help;%s]
label[6,0;%s]list[context;upgrade;6,0.5;2,1;]
list[current_player;main;0,2.25;8,1;]
list[current_player;main;0,3.5;8,3;8]
listring[context;fuel]
listring[current_player;main]
listring[context;upgrade]
listring[current_player;main]
%s
]]):format(F(S("POWER CRYSTALS")), F(S("Power: @1 (" .. level .. ")", upgrade)),
F(S("help")), F(S("UPGRADE")), default.get_hotbar_bg(0, 2.25)
))
end
end
minetest.register_abm({
label = "[basic_machines] Generator",
nodenames = {"basic_machines:generator"},
neighbors = {},
interval = 19,
chance = 1,
action = function(pos, node, active_object_count, active_object_count_wider)
local meta = minetest.get_meta(pos)
local upgrade = meta:get_int("upgrade")
if upgrade > generator_upgrade_max then
meta:set_string("infotext", S("Error: max upgrade is @1", generator_upgrade_max)); return
end
if meta:get_string("owner") == "" then
local inv = meta:get_inventory()
if inv:get_size("fuel") == 0 then
meta:set_string("infotext", S("Generator - not enough energy to operate"))
meta:set_float("upgrade", 0)
inv:set_size("fuel", 1)
generator_update_form(meta, true)
end
return
end
local inv = meta:get_inventory()
local stack = inv:get_stack("fuel", 1)
local crystal, text
if upgrade >= 20 then
crystal = "basic_machines:power_rod " .. math.floor(1 + (upgrade - 20) * 9 / 178)
text = "High upgrade: power rod"
elseif upgrade >= 5 then
crystal = "basic_machines:power_block " .. math.floor(1 + (upgrade - 5) * 9 / 15)
text = "Medium upgrade: power block"
else
crystal = "basic_machines:power_cell " .. math.floor(1 + 2 * upgrade)
text = "Low upgrade: power cell"
end
stack:add_item(ItemStack(crystal))
inv:set_stack("fuel", 1, stack)
meta:set_string("infotext", S(text))
end
})
local function generator_upgrade(meta)
local inv = meta:get_inventory()
local count = 0
for i = 1, 2 do
local stack = inv:get_stack("upgrade", i)
if stack:get_name() == "basic_machines:generator" then
count = count + stack:get_count()
end
end
meta:set_int("upgrade", count)
end
local function generator_near_found(pos, name) -- check to prevent too many generators being placed at one place
if minetest.find_node_near(pos, 15, {"basic_machines:generator"}) then
minetest.set_node(pos, {name = "air"})
minetest.add_item(pos, "basic_machines:generator")
minetest.chat_send_player(name, S("Generator: Interference from nearby generator detected"))
return true
end
end
minetest.register_node("basic_machines:generator", {
description = S("Generator - very expensive, generates power crystals that provide power, it's upgradeable"),
groups = {cracky = 3},
tiles = {"basic_machines_generator.png"},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
if not placer then return end
local name = placer:get_player_name()
if generator_near_found(pos, name) then return end
local meta = minetest.get_meta(pos)
meta:set_string("infotext", S("Generator - generates power crystals that provide power," ..
" upgrade with up to @1 generators", generator_upgrade_max))
meta:set_string("owner", name)
meta:set_int("upgrade", 0) -- upgrade level determines quality of produced crystals
local inv = meta:get_inventory()
inv:set_size("fuel", 1) -- here generated power crystals are placed
inv:set_size("upgrade", 2)
generator_update_form(meta)
end,
can_dig = function(pos, player) -- fuel inv is not so important as generator generates it
local meta = minetest.get_meta(pos)
return meta:get_inventory():is_empty("upgrade") and meta:get_string("owner") == player:get_player_name()
end,
on_receive_fields = function(pos, formname, fields, sender)
if fields.help then
minetest.show_formspec(sender:get_player_name(), "basic_machines:help_generator",
"size[6,7]textarea[0,0;6.5,8.5;help;" .. F(S("GENERATOR HELP")) .. ";" ..
F(S("Generator slowly produces power crystals. Those can be used to recharge batteries and come in 3 flavours:\n\n" ..
"Low (0-4), medium (5-19) and high level (20+)." ..
" Upgrading the generator (upgrade with generators) will increase the rate at which the crystals are produced.\n\n" ..
"You can automate the process of battery recharging by using mover in inventory mode, taking from inventory \"fuel\".")) .. "]")
elseif fields.init then
local name = sender:get_player_name()
if minetest.is_protected(pos, name) or generator_near_found(pos, name) then return end
local meta = minetest.get_meta(pos)
if meta:get_float("upgrade") >= minenergy then
meta:set_string("owner", name)
meta:set_string("infotext", S("Generator - generates power crystals that provide power," ..
" upgrade with up to @1 generators", generator_upgrade_max))
meta:set_int("upgrade", 0) -- upgrade level determines quality of produced crystals
meta:get_inventory():set_size("upgrade", 2)
generator_update_form(meta)
end
end
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
return 0
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) then return 0 end
return stack:get_count()
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) then return 0 end
return stack:get_count()
end,
on_metadata_inventory_put = function(pos, listname, index, stack, player)
if listname == "upgrade" then
local meta = minetest.get_meta(pos)
generator_upgrade(meta)
generator_update_form(meta)
elseif listname == "fuel" then
local meta = minetest.get_meta(pos)
if meta:get_string("owner") == "" then
local inv = meta:get_inventory()
local inv_stack = inv:get_stack("fuel", 1)
local add_energy = energy_crystals[inv_stack:get_name()] or 0
local energy = meta:get_float("upgrade")
if add_energy > 0 then
add_energy = add_energy * inv_stack:get_count()
if add_energy <= minenergy then
inv:set_stack("fuel", 1, ItemStack(""))
else
return
end
else -- try do determine caloric value of fuel inside battery
local fueladd, _ = minetest.get_craft_result({method = "fuel", width = 1, items = {inv_stack}})
if fueladd.time > 0 then
add_energy = (fueladd.time / 40) * inv_stack:get_count()
if energy + add_energy <= minenergy + 3 then
inv:set_stack("fuel", 1, ItemStack(""))
else
return
end
end
end
if add_energy > 0 then
energy = energy + add_energy
if energy < 0 then energy = 0 end
if energy > minenergy then energy = minenergy end -- excess energy is wasted
meta:set_float("upgrade", energy)
minetest.sound_play("basic_machines_electric_zap", {pos = pos, gain = 0.05, max_hear_distance = 8}, true)
generator_update_form(meta, true)
end
end
end
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
if listname == "upgrade" then
local meta = minetest.get_meta(pos)
generator_upgrade(meta)
generator_update_form(meta)
end
end
})
-- CRAFTS
minetest.register_craftitem("basic_machines:power_cell", {
description = S("Power Cell - provides @1 energy", 1 * energy_multiplier),
groups = {energy = 1},
inventory_image = "basic_machines_power_cell.png",
stack_max = power_stackmax,
light_source = 7
})
minetest.register_craftitem("basic_machines:power_block", {
description = S("Power Block - provides @1 energy", 11 * energy_multiplier),
groups = {energy = 1},
inventory_image = "basic_machines_power_block.png",
stack_max = power_stackmax,
light_source = 9
})
minetest.register_craftitem("basic_machines:power_rod", {
description = S("Power Rod - provides @1 energy", 100 * energy_multiplier),
groups = {energy = 1},
inventory_image = "basic_machines_power_rod.png",
stack_max = power_stackmax,
light_source = 12
})
if basic_machines.settings.register_crafts then
minetest.register_craft({
output = "basic_machines:battery_0",
recipe = {
{"default:bronzeblock 2", "default:mese", "default:diamond"}
}
})
minetest.register_craft({
output = "basic_machines:generator",
recipe = {
{"default:diamondblock 5", "basic_machines:battery_0 5", "default:goldblock 5"}
}
})
end
Reference in New Issue View Git Blame Copy Permalink