-- Forcefield mod by ShadowNinja
|
-- Modified by kpoppel
|
--
|
-- Forcefields are powerful barriers but they consume huge amounts of power.
|
-- Forcefield Generator is a HV machine.
|
|
-- How expensive is the generator?
|
-- Leaves room for upgrades lowering the power drain?
|
local forcefield_power_drain = 10
|
local forcefield_step_interval = 1
|
|
local S = technic.getter
|
|
minetest.register_craft({
|
output = 'technic:forcefield_emitter_off',
|
recipe = {
|
{'default:mese', 'technic:motor', 'default:mese' },
|
{'technic:deployer_off', 'technic:machine_casing', 'technic:deployer_off'},
|
{'default:mese', 'technic:hv_cable0', 'default:mese' },
|
}
|
})
|
|
|
-- Idea: Let forcefields have different colors by upgrade slot.
|
-- Idea: Let forcefields add up by detecting if one hits another.
|
-- ___ __
|
-- / \/ \
|
-- | |
|
-- \___/\___/
|
|
local function update_forcefield(pos, range, active)
|
local vm = VoxelManip()
|
local p1 = {x = pos.x-range, y = pos.y-range, z = pos.z-range}
|
local p2 = {x = pos.x+range, y = pos.y+range, z = pos.z+range}
|
local MinEdge, MaxEdge = vm:read_from_map(p1, p2)
|
local area = VoxelArea:new({MinEdge = MinEdge, MaxEdge = MaxEdge})
|
local data = vm:get_data()
|
|
local c_air = minetest.get_content_id("air")
|
local c_field = minetest.get_content_id("technic:forcefield")
|
|
for z=-range, range do
|
for y=-range, range do
|
local vi = area:index(pos.x+(-range), pos.y+y, pos.z+z)
|
for x=-range, range do
|
if x*x+y*y+z*z <= range * range + range and
|
x*x+y*y+z*z >= (range-1) * (range-1) + (range-1) then
|
if active and data[vi] == c_air then
|
data[vi] = c_field
|
elseif not active and data[vi] == c_field then
|
data[vi] = c_air
|
end
|
end
|
vi = vi + 1
|
end
|
end
|
end
|
|
vm:set_data(data)
|
vm:update_liquids()
|
vm:write_to_map()
|
vm:update_map()
|
end
|
|
local function set_forcefield_formspec(meta)
|
local formspec = "size[5,1.5]"..
|
"field[2,0.5;2,1;range;"..S("Range")..";"..meta:get_int("range").."]"
|
if meta:get_int("enabled") == 0 then
|
formspec = formspec.."button[0,1;5,1;enable;"..S("%s Disabled"):format(S("%s Forcefield Emitter"):format("HV")).."]"
|
else
|
formspec = formspec.."button[0,1;5,1;disable;"..S("%s Enabled"):format(S("%s Forcefield Emitter"):format("HV")).."]"
|
end
|
meta:set_string("formspec", formspec)
|
end
|
|
local forcefield_receive_fields = function(pos, formname, fields, sender)
|
local meta = minetest.get_meta(pos)
|
if fields.range then
|
local range = tonumber(fields.range) or 0
|
-- Smallest field is 5. Anything less is asking for trouble.
|
-- Largest is 20. It is a matter of pratical node handling.
|
-- At the maximim range updating the forcefield takes about 0.2s
|
range = math.max(range, 5)
|
range = math.min(range, 20)
|
if meta:get_int("range") ~= range then
|
update_forcefield(pos, meta:get_int("range"), false)
|
meta:set_int("range", range)
|
end
|
end
|
if fields.enable then meta:set_int("enabled", 1) end
|
if fields.disable then meta:set_int("enabled", 0) end
|
set_forcefield_formspec(meta)
|
end
|
|
local mesecons = {
|
effector = {
|
action_on = function(pos, node)
|
minetest.get_meta(pos):set_int("enabled", 0)
|
end,
|
action_off = function(pos, node)
|
minetest.get_meta(pos):set_int("enabled", 1)
|
end
|
}
|
}
|
|
minetest.register_node("technic:forcefield_emitter_off", {
|
description = S("%s Forcefield Emitter"):format("HV"),
|
tiles = {"technic_forcefield_emitter_off.png"},
|
groups = {cracky = 1},
|
on_receive_fields = forcefield_receive_fields,
|
on_construct = function(pos)
|
local meta = minetest.get_meta(pos)
|
meta:set_int("HV_EU_input", 0)
|
meta:set_int("HV_EU_demand", 0)
|
meta:set_int("range", 10)
|
meta:set_int("enabled", 0)
|
meta:set_string("infotext", S("%s Forcefield Emitter"):format("HV"))
|
set_forcefield_formspec(meta)
|
end,
|
mesecons = mesecons
|
})
|
|
minetest.register_node("technic:forcefield_emitter_on", {
|
description = S("%s Forcefield Emitter"):format("HV"),
|
tiles = {"technic_forcefield_emitter_on.png"},
|
groups = {cracky = 1, not_in_creative_inventory=1},
|
drop = "technic:forcefield_emitter_off",
|
on_receive_fields = forcefield_receive_fields,
|
on_construct = function(pos)
|
local meta = minetest.get_meta(pos)
|
local range = meta:get_int("range")
|
meta:set_string("formspec", get_forcefield_formspec(range))
|
end,
|
on_destruct = function(pos)
|
local meta = minetest.get_meta(pos)
|
update_forcefield(pos, meta:get_int("range"), false)
|
end,
|
mesecons = mesecons
|
})
|
|
minetest.register_node("technic:forcefield", {
|
description = S("%s Forcefield"):format("HV"),
|
sunlight_propagates = true,
|
drawtype = "glasslike",
|
groups = {not_in_creative_inventory=1, unbreakable=1},
|
paramtype = "light",
|
light_source = 15,
|
drop = '',
|
tiles = {{
|
name = "technic_forcefield_animated.png",
|
animation = {
|
type = "vertical_frames",
|
aspect_w = 16,
|
aspect_h = 16,
|
length = 1.0,
|
},
|
}},
|
})
|
minetest.register_abm({
|
nodenames = {"technic:forcefield_emitter_on", "technic:forcefield_emitter_off"},
|
interval = 1,
|
chance = 1,
|
action = function(pos, node, active_object_count, active_object_count_wider)
|
local meta = minetest.get_meta(pos)
|
local eu_input = meta:get_int("HV_EU_input")
|
local eu_demand = meta:get_int("HV_EU_demand")
|
local enabled = meta:get_int("enabled")
|
local machine_name = S("%s Forcefield Emitter"):format("HV")
|
-- Power off automatically if no longer connected to a switching station
|
technic.switching_station_timeout_count(pos, "HV")
|
|
local power_requirement = math.floor(
|
4 * math.pi * math.pow(meta:get_int("range"), 2)
|
) * forcefield_power_drain
|
|
if meta:get_int("enabled") == 0 then
|
if node.name == "technic:forcefield_emitter_on" then
|
meta:set_int("HV_EU_demand", 0)
|
update_forcefield(pos, meta:get_int("range"), false)
|
technic.swap_node(pos, "technic:forcefield_emitter_off")
|
meta:set_string("infotext", S("%s Disabled"):format(machine_name))
|
return
|
end
|
elseif eu_input < power_requirement then
|
meta:set_string("infotext", S("%s Unpowered"):format(machine_name))
|
if node.name == "technic:forcefield_emitter_on" then
|
update_forcefield(pos, meta:get_int("range"), false)
|
technic.swap_node(pos, "technic:forcefield_emitter_off")
|
end
|
elseif eu_input >= power_requirement then
|
if node.name == "technic:forcefield_emitter_off" then
|
technic.swap_node(pos, "technic:forcefield_emitter_on")
|
meta:set_string("infotext", S("%s Active"):format(machine_name))
|
end
|
update_forcefield(pos, meta:get_int("range"), true)
|
end
|
meta:set_int("HV_EU_demand", power_requirement)
|
end
|
})
|
|
if minetest.get_modpath("mesecons_mvps") then
|
mesecon:register_mvps_stopper("technic:forcefield")
|
end
|
-- TODO: Register a stopper for frames
|
|
technic.register_machine("HV", "technic:forcefield_emitter_on", technic.receiver)
|
technic.register_machine("HV", "technic:forcefield_emitter_off", technic.receiver)
|
