Added the Mv and HV down converters. Doing that required some changes to th...

kpoppel

2013-06-12 cfb5bd190c8188d0a0ffd43701864cb1de48bd5d

Added the Mv and HV down converters.
Doing that required some changes to the batteries in that they have new meta data
aligned with the other machines.
I also added a BA type machine in addition to the existing PR and RE types.
This way it is easy to find he batteries on the network.

 technic/battery_box.lua

@@ -1,23 +1,18 @@
LV_machines = {}
registered_LV_machines_count=0

function register_LV_machine (string1,string2)
registered_LV_machines_count=registered_LV_machines_count+1
LV_machines[registered_LV_machines_count]={}
LV_machines[registered_LV_machines_count].machine_name=string1
LV_machines[registered_LV_machines_count].machine_type=string2
-- register LV machines here
local LV_machines = {}
function register_LV_machine(string1,string2)
   LV_machines[string1] = string2
end

power_tools ={}
registered_power_tools_count=0

function register_power_tool (string1,max_charge)
registered_power_tools_count=registered_power_tools_count+1
power_tools[registered_power_tools_count]={}
power_tools[registered_power_tools_count].tool_name=string1
power_tools[registered_power_tools_count].max_charge=max_charge
   registered_power_tools_count=registered_power_tools_count+1
   power_tools[registered_power_tools_count]={}
   power_tools[registered_power_tools_count].tool_name=string1
   power_tools[registered_power_tools_count].max_charge=max_charge
end


register_power_tool ("technic:battery",10000)
register_power_tool ("technic:red_energy_crystal",100000)
@@ -25,384 +20,374 @@
register_power_tool ("technic:blue_energy_crystal",500000)

minetest.register_craft({
    output = 'technic:battery 1',
    recipe = {
        {'default:wood', 'moreores:copper_ingot', 'default:wood'},
        {'default:wood', 'moreores:tin_ingot', 'default:wood'},
        {'default:wood', 'moreores:copper_ingot', 'default:wood'},
    }
}) 
               output = 'technic:battery 1',
               recipe = {
                  {'default:wood', 'moreores:copper_ingot', 'default:wood'},
                  {'default:wood', 'moreores:tin_ingot', 'default:wood'},
                  {'default:wood', 'moreores:copper_ingot', 'default:wood'},
               }
            })

minetest.register_craft({
    output = 'technic:battery_box 1',
    recipe = {
        {'technic:battery', 'default:wood', 'technic:battery'},
        {'technic:battery', 'moreores:copper_ingot', 'technic:battery'},
        {'default:steel_ingot', 'default:steel_ingot', 'default:steel_ingot'},
    }
}) 
               output = 'technic:battery_box 1',
               recipe = {
                  {'technic:battery', 'default:wood', 'technic:battery'},
                  {'technic:battery', 'moreores:copper_ingot', 'technic:battery'},
                  {'default:steel_ingot', 'default:steel_ingot', 'default:steel_ingot'},
               }
            })


minetest.register_tool("technic:battery",
{description = "RE Battery",
inventory_image = "technic_battery.png",
tool_capabilities = {load=0,max_drop_level=0, groupcaps={fleshy={times={}, uses=10000, maxlevel=0}}}}) 
               {description = "RE Battery",
            inventory_image = "technic_battery.png",
            tool_capabilities = {load=0,max_drop_level=0, groupcaps={fleshy={times={}, uses=10000, maxlevel=0}}}})

minetest.register_craftitem("technic:battery_box", {
    description = "Battery box",
    stack_max = 99,
}) 
                   description = "Battery box",
                   stack_max = 99,
                })



battery_box_formspec =
    "invsize[8,9;]"..
    "image[1,1;1,2;technic_power_meter_bg.png]"..
    "list[current_name;src;3,1;1,1;]"..
    "image[4,1;1,1;technic_battery_reload.png]"..
    "list[current_name;dst;5,1;1,1;]"..
    "label[0,0;Battery box]"..
    "label[3,0;Charge]"..
    "label[5,0;Discharge]"..
    "label[1,3;Power level]"..
    "list[current_player;main;0,5;8,4;]"
   "invsize[8,9;]"..
   "image[1,1;1,2;technic_power_meter_bg.png]"..
   "list[current_name;src;3,1;1,1;]"..
   "image[4,1;1,1;technic_battery_reload.png]"..
   "list[current_name;dst;5,1;1,1;]"..
   "label[0,0;Battery box]"..
   "label[3,0;Charge]"..
   "label[5,0;Discharge]"..
   "label[1,3;Power level]"..
   "list[current_player;main;0,5;8,4;]"

minetest.register_node("technic:battery_box", {
    description = "Battery box",
    tiles = {"technic_battery_box_top.png", "technic_battery_box_bottom.png", "technic_battery_box_side0.png",
        "technic_battery_box_side0.png", "technic_battery_box_side0.png", "technic_battery_box_side0.png"},
    groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
    sounds = default.node_sound_wood_defaults(),
    technic_power_machine=1,
    last_side_shown=0,
    drop="technic:battery_box",
    on_construct = function(pos)
        local meta = minetest.env:get_meta(pos)
        meta:set_string("infotext", "Battery box")
        meta:set_float("technic_power_machine", 1)
        meta:set_string("formspec", battery_box_formspec)
        local inv = meta:get_inventory()
        inv:set_size("src", 1)
        inv:set_size("dst", 1)
        battery_charge = 0
        max_charge = 60000
        last_side_shown=0
        end,	
    can_dig = function(pos,player)
        local meta = minetest.env:get_meta(pos);
        local inv = meta:get_inventory()
        if not inv:is_empty("dst") then
            return false
        elseif not inv:is_empty("src") then
            return false
        end
        return true
    end,
})
minetest.register_node(
   "technic:battery_box", {
      description = "LV Battery Box",
      tiles = {"technic_battery_box_top.png", "technic_battery_box_bottom.png", "technic_battery_box_side0.png",
           "technic_battery_box_side0.png", "technic_battery_box_side0.png", "technic_battery_box_side0.png"},
      groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
      sounds = default.node_sound_wood_defaults(),
      drop="technic:battery_box",
      on_construct = function(pos)
                 if pos == nil then return end
                 local meta = minetest.env:get_meta(pos)
                 local inv = meta:get_inventory()
                 meta:set_string("infotext", "Battery box")
                 meta:set_float("technic_power_machine", 1)
                 meta:set_string("formspec", battery_box_formspec)
                 meta:set_float("internal_EU_buffer", 0)
                 meta:set_float("internal_EU_buffer_size", 60000)
                 inv:set_size("src", 1)
                 inv:set_size("dst", 1)
              end,
      can_dig = function(pos,player)
            if pos == nil then return end
            local meta = minetest.env:get_meta(pos);
            local inv = meta:get_inventory()
            if not inv:is_empty("dst") then
               return false
            elseif not inv:is_empty("src") then
               return false
            end
            return true
             end,
   })


for i=1,8,1 do
minetest.register_node("technic:battery_box"..i, {
    description = "Battery box",
    tiles = {"technic_battery_box_top.png", "technic_battery_box_bottom.png", "technic_battery_box_side0.png^technic_power_meter"..i..".png",
        "technic_battery_box_side0.png^technic_power_meter"..i..".png", "technic_battery_box_side0.png^technic_power_meter"..i..".png", "technic_battery_box_side0.png^technic_power_meter"..i..".png"},
    groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
    sounds = default.node_sound_wood_defaults(),
    technic_power_machine=1,
    last_side_shown=0,
    drop="technic:battery_box",
    on_construct = function(pos)
        local meta = minetest.env:get_meta(pos)
        meta:set_string("infotext", "Battery box")
        meta:set_float("technic_power_machine", 1)
        meta:set_string("formspec", battery_box_formspec)
        local inv = meta:get_inventory()
        inv:set_size("src", 1)
        inv:set_size("dst", 1)
        battery_charge = 0
        max_charge = 60000
        last_side_shown=0
        end,	
    can_dig = function(pos,player)
        local meta = minetest.env:get_meta(pos);
        local inv = meta:get_inventory()
        if not inv:is_empty("dst") then
            return false
        elseif not inv:is_empty("src") then
            return false
        end
        return true
    end,
})
   minetest.register_node(
      "technic:battery_box"..i, {
     description = "LV Battery Box",
     tiles = {"technic_battery_box_top.png", "technic_battery_box_bottom.png", "technic_battery_box_side0.png^technic_power_meter"..i..".png",
          "technic_battery_box_side0.png^technic_power_meter"..i..".png", "technic_battery_box_side0.png^technic_power_meter"..i..".png", "technic_battery_box_side0.png^technic_power_meter"..i..".png"},
     groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
     sounds = default.node_sound_wood_defaults(),
     drop="technic:battery_box",
     on_construct = function(pos)
                 if pos == nil then return end
                 local meta = minetest.env:get_meta(pos)
                 local inv = meta:get_inventory()
                 meta:set_string("infotext", "Battery box")
                 meta:set_float("technic_power_machine", 1)
                 meta:set_string("formspec", battery_box_formspec)
                 meta:set_float("internal_EU_buffer", 0)
                 meta:set_float("internal_EU_buffer_size", 60000)
                 inv:set_size("src", 1)
                 inv:set_size("dst", 1)
              end,
     can_dig = function(pos,player)
            if pos == nil then return end
            local meta = minetest.env:get_meta(pos);
            local inv = meta:get_inventory()
            if not inv:is_empty("dst") then
               return false
            elseif not inv:is_empty("src") then
               return false
            end
            return true
             end,
      })
end

LV_nodes_visited = {}

function get_RE_item_load (load1,max_load)
if load1==0 then load1=65535 end
local temp = 65536-load1
temp= temp/65535*max_load
return math.floor(temp + 0.5)
   if load1==0 then load1=65535 end
   local temp = 65536-load1
   temp= temp/65535*max_load
   return math.floor(temp + 0.5)
end

function set_RE_item_load (load1,max_load)
if load1 == 0 then return 65535 end
local temp=load1/max_load*65535
temp=65536-temp
return math.floor(temp)
   if load1 == 0 then return 65535 end
   local temp=load1/max_load*65535
   temp=65536-temp
   return math.floor(temp)
end

function set_RE_wear (item_stack,load1,max_load)
local temp=65536-math.floor(load1/max_load*65535)
item_stack["wear"]=tostring(temp)
return item_stack
   local temp=65536-math.floor(load1/max_load*65535)
   item_stack["wear"]=tostring(temp)
   return item_stack
end

minetest.register_abm({
    nodenames = {"technic:battery_box","technic:battery_box1","technic:battery_box2","technic:battery_box3","technic:battery_box4",
        "technic:battery_box5","technic:battery_box6","technic:battery_box7","technic:battery_box8"},
    interval = 1,
    chance = 1,
    action = function(pos, node, active_object_count, active_object_count_wider)
    local meta = minetest.env:get_meta(pos)
    charge= meta:get_int("battery_charge")
    max_charge= 60000
    local i=math.ceil((charge/max_charge)*8)
    if i>8 then i=8 end
    j=meta:get_float("last_side_shown")
    if i~=j then
    if i>0 then hacky_swap_node(pos,"technic:battery_box"..i)  
    elseif i==0 then hacky_swap_node(pos,"technic:battery_box") end 
    meta:set_float("last_side_shown",i)
    end
minetest.register_abm(
   {nodenames = {"technic:battery_box","technic:battery_box1","technic:battery_box2","technic:battery_box3","technic:battery_box4",
         "technic:battery_box5","technic:battery_box6","technic:battery_box7","technic:battery_box8"},
    interval = 1,
    chance = 1,
    action = function(pos, node, active_object_count, active_object_count_wider)
        local meta       = minetest.env:get_meta(pos)
        local max_charge = 60000 -- Set maximum charge for the device here
        local charge     = meta:get_int("internal_EU_buffer")

--loading registered power tools
    local inv = meta:get_inventory()
    if inv:is_empty("src")==false  then 
        local srcstack = inv:get_stack("src", 1)
        local src_item=srcstack:to_table()
        local src_meta=get_item_meta(src_item["metadata"])

        local item_max_charge=nil
        for i=1,registered_power_tools_count,1 do
            if power_tools[i].tool_name==src_item["name"] then
                src_meta=get_item_meta(src_item["metadata"])
                if src_meta==nil then 
                    src_meta={}
                    src_meta["technic_power_tool"]=true
                    src_meta["charge"]=0
                else 
                    if src_meta["technic_power_tool"]==nil then
                        src_meta["technic_power_tool"]=true
                        src_meta["charge"]=0
                    end
                end
                item_max_charge=power_tools[i].max_charge
            end
        -- Select node textures
        local i=math.ceil((charge/max_charge)*8)
        if i > 8 then i = 8 end
        local j = meta:get_float("last_side_shown")
        if i~=j then
           if i>0 then hacky_swap_node(pos,"technic:battery_box"..i)
           elseif i==0 then hacky_swap_node(pos,"technic:battery_box") end
           meta:set_float("last_side_shown",i)
        end
        
        if item_max_charge then
            load1=src_meta["charge"] 
            load_step=1000
            if load1<item_max_charge and charge>0 then 
                if charge-load_step<0 then load_step=charge end
                if load1+load_step>item_max_charge then load_step=item_max_charge-load1 end
                load1=load1+load_step
                charge=charge-load_step
                set_RE_wear(src_item,load1,item_max_charge)
                src_meta["charge"]=load1
                src_item["metadata"]=set_item_meta(src_meta)
                inv:set_stack("src", 1, src_item)
            end
            meta:set_int("battery_charge",charge)
        end	
    end
	
-- discharging registered power tools
        if inv:is_empty("dst") == false then 
        srcstack = inv:get_stack("dst", 1)
        src_item=srcstack:to_table()
        local src_meta=get_item_meta(src_item["metadata"])
        local item_max_charge=nil
        for i=1,registered_power_tools_count,1 do
            if power_tools[i].tool_name==src_item["name"] then
                src_meta=get_item_meta(src_item["metadata"])
                if src_meta==nil then 
                    src_meta={}
                    src_meta["technic_power_tool"]=true
                    src_meta["charge"]=0
                else 
                    if src_meta["technic_power_tool"]==nil then
                        src_meta["technic_power_tool"]=true
                        src_meta["charge"]=0
                    end
                end
                item_max_charge=power_tools[i].max_charge
            end
        end

        if item_max_charge then
        local load1=src_meta["charge"] 
        load_step=1000
        if load1>0 and charge<max_charge then 
             if charge+load_step>max_charge then load_step=max_charge-charge end
               if load1-load_step<0 then load_step=load1 end
        load1=load1-load_step
        charge=charge+load_step
        set_RE_wear(src_item,load1,item_max_charge)
        src_meta["charge"]=load1
        src_item["metadata"]=set_item_meta(src_meta)
        inv:set_stack("dst", 1, src_item)
        end		
        end
        --charge registered power tools
        local inv = meta:get_inventory()
        if inv:is_empty("src")==false  then
           local srcstack = inv:get_stack("src", 1)
           local src_item=srcstack:to_table()
           local src_meta=get_item_meta(src_item["metadata"])
		   
           local item_max_charge=nil
           for i=1,registered_power_tools_count,1 do
              if power_tools[i].tool_name==src_item["name"] then
             src_meta=get_item_meta(src_item["metadata"])
             if src_meta==nil then
                src_meta={}
                src_meta["technic_power_tool"]=true
                src_meta["charge"]=0
             else
                if src_meta["technic_power_tool"]==nil then
                   src_meta["technic_power_tool"]=true
                   src_meta["charge"]=0
                end
             end
             -- Do the charging
             local item_max_charge = power_tools[i].max_charge
             local load1           = src_meta["charge"]
             local load_step       = 1000 -- how much to charge per tick
             if load1<item_max_charge and charge>0 then
                if charge-load_step<0 then load_step=charge end
                if load1+load_step>item_max_charge then load_step=item_max_charge-load1 end
                load1=load1+load_step
                charge=charge-load_step
                set_RE_wear(src_item,load1,item_max_charge)
                src_meta["charge"]=load1
                src_item["metadata"]=set_item_meta(src_meta)
                inv:set_stack("src", 1, src_item)
             end
             meta:set_int("internal_EU_buffer",charge)
             break
              end
           end
        end
        
    meta:set_int("battery_charge",charge)
        -- discharging registered power tools
        if inv:is_empty("dst") == false then
           srcstack = inv:get_stack("dst", 1)
           src_item=srcstack:to_table()
           local src_meta=get_item_meta(src_item["metadata"])
           local item_max_charge=nil
           for i=1,registered_power_tools_count,1 do
              if power_tools[i].tool_name==src_item["name"] then
             src_meta=get_item_meta(src_item["metadata"])
             if src_meta==nil then
                src_meta={}
                src_meta["technic_power_tool"]=true
                src_meta["charge"]=0
             else
                if src_meta["technic_power_tool"]==nil then
                   src_meta["technic_power_tool"]=true
                   src_meta["charge"]=0
                end
             end
             local item_max_charge = power_tools[i].max_charge
             local load1           = src_meta["charge"]
             local load_step       = 4000 -- how much to discharge per tick
             if load1>0 and charge<max_charge then
                if charge+load_step>max_charge then load_step=max_charge-charge end
                if load1-load_step<0 then load_step=load1 end
                load1=load1-load_step
                charge=charge+load_step
                set_RE_wear(src_item,load1,item_max_charge)
                src_meta["charge"]=load1
                src_item["metadata"]=set_item_meta(src_meta)
                inv:set_stack("dst", 1, src_item)
             end
             meta:set_int("internal_EU_buffer",charge)
             break
              end
           end
        end

    local load = math.floor(charge/60000 * 100)
    meta:set_string("formspec",
        local load = math.floor(charge/60000 * 100)
        meta:set_string("formspec",
                battery_box_formspec..
                "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
                        (load)..":technic_power_meter_fg.png]")
                   "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
                   (load)..":technic_power_meter_fg.png]"
                 )

    local pos1={}
        -- Next index the surrounding network the get the producers and receivers on the power grid
        local pos1={}
        pos1.y=pos.y-1
        pos1.x=pos.x
        pos1.z=pos.z

    pos1.y=pos.y-1
    pos1.x=pos.x
    pos1.z=pos.z
        meta1 = minetest.env:get_meta(pos1)
        if meta1:get_float("cablelike")~=1 then return end

        local LV_nodes = {}
        local PR_nodes = {}
        local RE_nodes = {}
        local BA_nodes = {}

        LV_nodes[1]={}
        LV_nodes[1].x=pos1.x
        LV_nodes[1].y=pos1.y
        LV_nodes[1].z=pos1.z
        LV_nodes[1].visited=false

        local table_index=1
        repeat
           check_LV_node(PR_nodes,RE_nodes,BA_nodes,LV_nodes,table_index)
           table_index=table_index+1
           if LV_nodes[table_index]==nil then break end
        until false


    meta1 = minetest.env:get_meta(pos1)
    if meta1:get_float("cablelike")~=1 then return end
        -- Get power from all connected producers
        local pr_pos
                for _,pr_pos in ipairs(PR_nodes) do
           local meta1              = minetest.env:get_meta(pr_pos)
           local internal_EU_buffer = meta1:get_float("internal_EU_buffer")
           local charge_to_take     = 200
           if charge<max_charge then
              if internal_EU_buffer-charge_to_take<=0 then
             charge_to_take=internal_EU_buffer
              end
              if charge_to_take>0 then
             charge=charge+charge_to_take
             internal_EU_buffer=internal_EU_buffer-charge_to_take
             meta1:set_float("internal_EU_buffer",internal_EU_buffer)
              end
           end
        end

    local LV_nodes = {}
    local PR_nodes = {}
    local RE_nodes = {}
        if charge>max_charge then charge=max_charge end

    LV_nodes[1]={}
    LV_nodes[1].x=pos1.x
    LV_nodes[1].y=pos1.y
    LV_nodes[1].z=pos1.z
    LV_nodes[1].visited=false
        -- Provide power to all connected receivers
        local re_pos
                for _,re_pos in ipairs(RE_nodes) do
           local meta1                   = minetest.env:get_meta(re_pos)
           local internal_EU_buffer      = meta1:get_float("internal_EU_buffer")
           local internal_EU_buffer_size = meta1:get_float("internal_EU_buffer_size")
           local charge_to_give          = math.min(200, charge/table.getn(RE_nodes))
           if internal_EU_buffer+charge_to_give>internal_EU_buffer_size then
              charge_to_give=internal_EU_buffer_size-internal_EU_buffer
           end
           if charge-charge_to_give<0 then charge_to_give=charge end

           internal_EU_buffer=internal_EU_buffer+charge_to_give
           meta1:set_float("internal_EU_buffer",internal_EU_buffer)
           charge=charge-charge_to_give;
        end
        charge=math.floor(charge)
        meta:set_string("infotext", "LV Battery box: "..charge.."/"..max_charge);
        meta:set_int("internal_EU_buffer",charge)
         end
 })

table_index=1
    repeat
    check_LV_node (PR_nodes,RE_nodes,LV_nodes,table_index)
    table_index=table_index+1
    if LV_nodes[table_index]==nil then break end
    until false


local pos1={}
i=1
    repeat
    if PR_nodes[i]==nil then break end -- getting power from all connected producers
        pos1.x=PR_nodes[i].x
        pos1.y=PR_nodes[i].y
        pos1.z=PR_nodes[i].z
    local meta1 = minetest.env:get_meta(pos1)
    local internal_EU_buffer=meta1:get_float("internal_EU_buffer")
    if charge<max_charge then 
    charge_to_take=200	
    if internal_EU_buffer-charge_to_take<=0 then
        charge_to_take=internal_EU_buffer
    end
    if charge_to_take>0 then 
    charge=charge+charge_to_take 
    internal_EU_buffer=internal_EU_buffer-charge_to_take
    meta1:set_float("internal_EU_buffer",internal_EU_buffer)
    end
    end
    i=i+1
    until false

if charge>max_charge then charge=max_charge end

i=1
    repeat
    if RE_nodes[i]==nil then break end
        pos1.x=RE_nodes[i].x         -- loading all conected machines buffers
        pos1.y=RE_nodes[i].y
        pos1.z=RE_nodes[i].z
    local meta1 = minetest.env:get_meta(pos1)
    local internal_EU_buffer=meta1:get_float("internal_EU_buffer")
    local internal_EU_buffer_size=meta1:get_float("internal_EU_buffer_size")

    local charge_to_give=200
    if internal_EU_buffer+charge_to_give>internal_EU_buffer_size then
        charge_to_give=internal_EU_buffer_size-internal_EU_buffer
    end
    if charge-charge_to_give<0 then charge_to_give=charge end

    internal_EU_buffer=internal_EU_buffer+charge_to_give
    meta1:set_float("internal_EU_buffer",internal_EU_buffer)
    charge=charge-charge_to_give;
	
    i=i+1
    until false
    charge=math.floor(charge)
    charge_string=tostring(charge)
    meta:set_string("infotext", "Battery box: "..charge_string.."/"..max_charge);
    meta:set_int("battery_charge",charge)

-- Register as a battery type
-- Battery type machines function as power reservoirs and can both receive and give back power
register_LV_machine("technic:battery_box","BA")
for i=1,8,1 do
   register_LV_machine("technic:battery_box"..i,"BA")
end
})

function add_new_cable_node (LV_nodes,pos1)
    local i=1
    repeat
        if LV_nodes[i]==nil then break end
        if pos1.x==LV_nodes[i].x and pos1.y==LV_nodes[i].y and pos1.z==LV_nodes[i].z then return false end
        i=i+1
    until false
    LV_nodes[i]={}
    LV_nodes[i].x=pos1.x
    LV_nodes[i].y=pos1.y
    LV_nodes[i].z=pos1.z
    LV_nodes[i].visited=false
    return true
   if LV_nodes == nil then return true end
   local i=1
   repeat
      if LV_nodes[i]==nil then break end
      if pos1.x==LV_nodes[i].x and pos1.y==LV_nodes[i].y and pos1.z==LV_nodes[i].z then return false end
      i=i+1
   until false
   LV_nodes[i]={}
   LV_nodes[i].x=pos1.x
   LV_nodes[i].y=pos1.y
   LV_nodes[i].z=pos1.z
   return true
end

function check_LV_node (PR_nodes,RE_nodes,LV_nodes,i)
    local pos1={}
    pos1.x=LV_nodes[i].x
    pos1.y=LV_nodes[i].y
    pos1.z=LV_nodes[i].z
    LV_nodes[i].visited=true
    new_node_added=false
function check_LV_node(PR_nodes,RE_nodes,BA_nodes,LV_nodes,i)
   local pos1={}
   pos1.x=LV_nodes[i].x
   pos1.y=LV_nodes[i].y
   pos1.z=LV_nodes[i].z

    pos1.x=pos1.x+1
    check_LV_node_subp (PR_nodes,RE_nodes,LV_nodes,pos1)
    pos1.x=pos1.x-2
    check_LV_node_subp (PR_nodes,RE_nodes,LV_nodes,pos1)
    pos1.x=pos1.x+1
   pos1.x=pos1.x+1
   check_LV_node_subp (PR_nodes,RE_nodes,BA_nodes,LV_nodes,pos1)
   pos1.x=pos1.x-2
   check_LV_node_subp (PR_nodes,RE_nodes,BA_nodes,LV_nodes,pos1)
   pos1.x=pos1.x+1

    pos1.y=pos1.y+1
    check_LV_node_subp (PR_nodes,RE_nodes,LV_nodes,pos1)
    pos1.y=pos1.y-2
    check_LV_node_subp (PR_nodes,RE_nodes,LV_nodes,pos1)
    pos1.y=pos1.y+1
   pos1.y=pos1.y+1
   check_LV_node_subp (PR_nodes,RE_nodes,BA_nodes,LV_nodes,pos1)
   pos1.y=pos1.y-2
   check_LV_node_subp (PR_nodes,RE_nodes,BA_nodes,LV_nodes,pos1)
   pos1.y=pos1.y+1

    pos1.z=pos1.z+1
    check_LV_node_subp (PR_nodes,RE_nodes,LV_nodes,pos1)
    pos1.z=pos1.z-2
    check_LV_node_subp (PR_nodes,RE_nodes,LV_nodes,pos1)
    pos1.z=pos1.z+1
return new_node_added
   pos1.z=pos1.z+1
   check_LV_node_subp (PR_nodes,RE_nodes,BA_nodes,LV_nodes,pos1)
   pos1.z=pos1.z-2
   check_LV_node_subp (PR_nodes,RE_nodes,BA_nodes,LV_nodes,pos1)
   pos1.z=pos1.z+1
   return new_node_added
end

function check_LV_node_subp (PR_nodes,RE_nodes,LV_nodes,pos1)
meta = minetest.env:get_meta(pos1)
if meta:get_float("cablelike")==1 then new_node_added=add_new_cable_node(LV_nodes,pos1) end
for i in ipairs(LV_machines) do
    if minetest.env:get_node(pos1).name == LV_machines[i].machine_name then 
        if LV_machines[i].machine_type == "PR" then
            new_node_added=add_new_cable_node(PR_nodes,pos1) 
            end
        if LV_machines[i].machine_type == "RE" then
            new_node_added=add_new_cable_node(RE_nodes,pos1) 
            end
    end
end
function check_LV_node_subp (PR_nodes,RE_nodes,BA_nodes,LV_nodes,pos1)
   local meta = minetest.env:get_meta(pos1)
   local name = minetest.env:get_node(pos1).name
   if meta:get_float("cablelike")==1 then
      add_new_cable_node(LV_nodes,pos1)
   elseif LV_machines[name] then
      --print(name.." is a "..LV_machines[name])
      if     LV_machines[name] == "PR" then
     add_new_cable_node(PR_nodes,pos1)
      elseif LV_machines[name] == "RE" then
     add_new_cable_node(RE_nodes,pos1)
      elseif LV_machines[name] == "BA" then
     add_new_cable_node(BA_nodes,pos1)
      end
   end
end

 technic/battery_box_hv.lua

@@ -1,357 +1,331 @@
HV_machines = {}

registered_HV_machines_count=0

function register_HV_machine (string1,string2)
registered_HV_machines_count=registered_HV_machines_count+1
HV_machines[registered_HV_machines_count]={}
HV_machines[registered_HV_machines_count].machine_name=string1
HV_machines[registered_HV_machines_count].machine_type=string2
-- register MV machines here
technic.HV_machines = {}
local HV_machines = technic.HV_machines
function register_HV_machine(string1,string2)
   technic.HV_machines[string1] = string2
end

minetest.register_craft({
    output = 'technic:hv_battery_box 1',
    recipe = {
        {'technic:mv_battery_box', 'technic:mv_battery_box', 'mv_technic:battery_box'},
        {'technic:mv_battery_box', 'technic:hv_transformer', 'mv_technic:battery_box'},
        {'', 'technic:hv_cable', ''},
    }
}) 
               output = 'technic:hv_battery_box 1',
               recipe = {
                  {'technic:mv_battery_box', 'technic:mv_battery_box', 'mv_technic:battery_box'},
                  {'technic:mv_battery_box', 'technic:hv_transformer', 'mv_technic:battery_box'},
                  {'', 'technic:hv_cable', ''},
               }
            })

hv_battery_box_formspec =
    "invsize[8,9;]"..
    "image[1,1;1,2;technic_power_meter_bg.png]"..
    "list[current_name;src;3,1;1,1;]"..
    "image[4,1;1,1;technic_battery_reload.png]"..
    "list[current_name;dst;5,1;1,1;]"..
    "label[0,0;HV Battery Box]"..
    "label[3,0;Charge]"..
    "label[5,0;Discharge]"..
    "label[1,3;Power level]"..
    "list[current_player;main;0,5;8,4;]"
   "invsize[8,9;]"..
   "image[1,1;1,2;technic_power_meter_bg.png]"..
   "list[current_name;src;3,1;1,1;]"..
   "image[4,1;1,1;technic_battery_reload.png]"..
   "list[current_name;dst;5,1;1,1;]"..
   "label[0,0;HV Battery Box]"..
   "label[3,0;Charge]"..
   "label[5,0;Discharge]"..
   "label[1,3;Power level]"..
   "list[current_player;main;0,5;8,4;]"

minetest.register_node("technic:hv_battery_box", {
    description = "HV Battery Box",
    tiles = {"technic_hv_battery_box_top.png", "technic_hv_battery_box_bottom.png", "technic_hv_battery_box_side0.png",
        "technic_hv_battery_box_side0.png", "technic_hv_battery_box_side0.png", "technic_hv_battery_box_side0.png"},
    groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
    sounds = default.node_sound_wood_defaults(),
    technic_mv_power_machine=1,
    last_side_shown=0,
    drop="technic:hv_battery_box",
    on_construct = function(pos)
        local meta = minetest.env:get_meta(pos)
        meta:set_string("infotext", "HV Battery Box")
        meta:set_float("technic_hv_power_machine", 1)
        meta:set_string("formspec", battery_box_formspec)
        local inv = meta:get_inventory()
        inv:set_size("src", 1)
        inv:set_size("dst", 1)
        battery_charge = 0
        max_charge = 1500000
        last_side_shown=0
        end,	
    can_dig = function(pos,player)
        local meta = minetest.env:get_meta(pos);
        local inv = meta:get_inventory()
        if not inv:is_empty("dst") then
            return false
        elseif not inv:is_empty("src") then
            return false
        end
        return true
    end,
})

minetest.register_node(
   "technic:hv_battery_box", {
      description = "HV Battery Box",
      tiles = {"technic_hv_battery_box_top.png", "technic_hv_battery_box_bottom.png", "technic_hv_battery_box_side0.png",
           "technic_hv_battery_box_side0.png", "technic_hv_battery_box_side0.png", "technic_hv_battery_box_side0.png"},
      groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
      sounds = default.node_sound_wood_defaults(),
      drop="technic:hv_battery_box",
      on_construct = function(pos)
            if pos==nil then return end
            local meta = minetest.env:get_meta(pos)
            local inv = meta:get_inventory()
            meta:set_string("infotext", "HV Battery Box")
            meta:set_float("technic_hv_power_machine", 1)
            meta:set_string("formspec", battery_box_formspec)
            inv:set_size("src", 1)
            inv:set_size("dst", 1)
             end,
      can_dig = function(pos,player)
           if pos==nil then return end
           local meta = minetest.env:get_meta(pos);
           local inv = meta:get_inventory()
           if not inv:is_empty("dst") then
              return false
           elseif not inv:is_empty("src") then
              return false
           end
           return true
        end,
   })

for i=1,8,1 do
minetest.register_node("technic:hv_battery_box"..i, {
    description = "HV Battery Box",
    tiles = {"technic_hv_battery_box_top.png", "technic_hv_battery_box_bottom.png", "technic_hv_battery_box_side0.png^technic_power_meter"..i..".png",
        "technic_hv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_hv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_hv_battery_box_side0.png^technic_power_meter"..i..".png"},
    groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
    sounds = default.node_sound_wood_defaults(),
    paramtype="light",
    light_source=9,
    technic_power_machine=1,
    last_side_shown=0,
    drop="technic:hv_battery_box",
    on_construct = function(pos)
        local meta = minetest.env:get_meta(pos)
        meta:set_string("infotext", "HV Battery box")
        meta:set_float("technic_hv_power_machine", 1)
        meta:set_string("formspec", battery_box_formspec)
        local inv = meta:get_inventory()
        inv:set_size("src", 1)
        inv:set_size("dst", 1)
        battery_charge = 0
        max_charge = 1500000
        last_side_shown=0
        end,
    can_dig = function(pos,player)
        local meta = minetest.env:get_meta(pos);
        local inv = meta:get_inventory()
        if not inv:is_empty("dst") then
            return false
        elseif not inv:is_empty("src") then
            return false
        end
        return true
    end,
})
   minetest.register_node(
      "technic:hv_battery_box"..i, {
     description = "HV Battery Box",
     tiles = {"technic_hv_battery_box_top.png", "technic_hv_battery_box_bottom.png", "technic_hv_battery_box_side0.png^technic_power_meter"..i..".png",
          "technic_hv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_hv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_hv_battery_box_side0.png^technic_power_meter"..i..".png"},
     groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
     sounds = default.node_sound_wood_defaults(),
     paramtype="light",
     light_source=9,
     drop="technic:hv_battery_box",
     on_construct = function(pos)
               local meta = minetest.env:get_meta(pos)
               local inv = meta:get_inventory()
               meta:set_string("infotext", "HV Battery box")
               meta:set_float("technic_hv_power_machine", 1)
               meta:set_string("formspec", battery_box_formspec)
               inv:set_size("src", 1)
               inv:set_size("dst", 1)
            end,
     can_dig = function(pos,player)
              local meta = minetest.env:get_meta(pos);
              local inv = meta:get_inventory()
              if not inv:is_empty("dst") then
             return false
              elseif not inv:is_empty("src") then
             return false
              end
              return true
           end,
      })
end

minetest.register_abm(
   {nodenames = {"technic:hv_battery_box","technic:hv_battery_box1","technic:hv_battery_box2","technic:hv_battery_box3","technic:hv_battery_box4",
         "technic:hv_battery_box5","technic:hv_battery_box6","technic:hv_battery_box7","technic:hv_battery_box8"
          },
    interval = 1,
    chance = 1,
    action = function(pos, node, active_object_count, active_object_count_wider)
        local meta       = minetest.env:get_meta(pos)
        local max_charge = 1500000
        local charge     = meta:get_int("internal_EU_buffer")

HV_nodes_visited = {}


minetest.register_abm({
    nodenames = {"technic:hv_battery_box","technic:hv_battery_box1","technic:hv_battery_box2","technic:hv_battery_box3","technic:hv_battery_box4",
             "technic:hv_battery_box5","technic:hv_battery_box6","technic:hv_battery_box7","technic:hv_battery_box8"
            },
    interval = 1,
    chance = 1,
    action = function(pos, node, active_object_count, active_object_count_wider)
    local meta = minetest.env:get_meta(pos)
    charge= meta:get_int("battery_charge")
    max_charge= 1500000
    local i=math.ceil((charge/max_charge)*8)
    if i>8 then i=8 end
    j=meta:get_float("last_side_shown")
    if i~=j then
    if i>0 then hacky_swap_node(pos,"technic:hv_battery_box"..i)  
    elseif i==0 then hacky_swap_node(pos,"technic:hv_battery_box") end 
    meta:set_float("last_side_shown",i)
    end

--loading registered power tools
    local inv = meta:get_inventory()
    if inv:is_empty("src")==false  then 
        local srcstack = inv:get_stack("src", 1)
        local src_item=srcstack:to_table()
        local src_meta=get_item_meta(src_item["metadata"])

        local item_max_charge=nil
        for i=1,registered_power_tools_count,1 do
            if power_tools[i].tool_name==src_item["name"] then
                src_meta=get_item_meta(src_item["metadata"])
                if src_meta==nil then 
                    src_meta={}
                    src_meta["technic_power_tool"]=true
                    src_meta["charge"]=0
                else 
                    if src_meta["technic_power_tool"]==nil then
                        src_meta["technic_power_tool"]=true
                        src_meta["charge"]=0
                    end
                end
                item_max_charge=power_tools[i].max_charge
            end
        end
		
        if item_max_charge then
            load1=src_meta["charge"] 
            load_step=16000
            if load1<item_max_charge and charge>0 then 
                if charge-load_step<0 then load_step=charge end
                if load1+load_step>item_max_charge then load_step=item_max_charge-load1 end
                load1=load1+load_step
                charge=charge-load_step
                set_RE_wear(src_item,load1,item_max_charge)
                src_meta["charge"]=load1
                src_item["metadata"]=set_item_meta(src_meta)
                inv:set_stack("src", 1, src_item)
            end
            meta:set_int("battery_charge",charge)
        end	
    end
	
-- dischargin registered power tools
        if inv:is_empty("dst") == false then 
        srcstack = inv:get_stack("dst", 1)
        src_item=srcstack:to_table()
        local src_meta=get_item_meta(src_item["metadata"])
        local item_max_charge=nil
        for i=1,registered_power_tools_count,1 do
            if power_tools[i].tool_name==src_item["name"] then
                src_meta=get_item_meta(src_item["metadata"])
                if src_meta==nil then 
                    src_meta={}
                    src_meta["technic_power_tool"]=true
                    src_meta["charge"]=0
                else 
                    if src_meta["technic_power_tool"]==nil then
                        src_meta["technic_power_tool"]=true
                        src_meta["charge"]=0
                    end
                end
                item_max_charge=power_tools[i].max_charge
            end
        -- Select node textures
        local i = math.ceil((charge/max_charge)*8)
        if i > 8 then i = 8 end
        local j = meta:get_float("last_side_shown")
        if i~=j then
           if i>0 then hacky_swap_node(pos,"technic:hv_battery_box"..i)
           elseif i==0 then hacky_swap_node(pos,"technic:hv_battery_box") end
           meta:set_float("last_side_shown",i)
        end

        if item_max_charge then
        local load1=src_meta["charge"] 
        load_step=16000
        if load1>0 and charge<max_charge then 
             if charge+load_step>max_charge then load_step=max_charge-charge end
               if load1-load_step<0 then load_step=load1 end
        load1=load1-load_step
        charge=charge+load_step
        set_RE_wear(src_item,load1,item_max_charge)
        src_meta["charge"]=load1
        src_item["metadata"]=set_item_meta(src_meta)
        inv:set_stack("dst", 1, src_item)
        end		
        end
        end
		
    meta:set_int("battery_charge",charge)
        --charge registered power tools
        local inv = meta:get_inventory()
        if inv:is_empty("src")==false  then
           local srcstack = inv:get_stack("src", 1)
           local src_item=srcstack:to_table()
           local src_meta=get_item_meta(src_item["metadata"])

    local load = math.floor((charge/1500000) * 100)
    meta:set_string("formspec",
           for i=1,registered_power_tools_count,1 do
              if power_tools[i].tool_name==src_item["name"] then
             src_meta=get_item_meta(src_item["metadata"])
             if src_meta==nil then
                src_meta={}
                src_meta["technic_power_tool"]=true
                src_meta["charge"]=0
             else
                if src_meta["technic_power_tool"]==nil then
                   src_meta["technic_power_tool"]=true
                   src_meta["charge"]=0
                end
             end
             -- Do the charging
             local item_max_charge = power_tools[i].max_charge
             local load1           = src_meta["charge"]
             local load_step       = 16000 -- how much to charge per tick
             if load1<item_max_charge and charge>0 then
                if charge-load_step<0 then load_step=charge end
                if load1+load_step>item_max_charge then load_step=item_max_charge-load1 end
                load1=load1+load_step
                charge=charge-load_step
                set_RE_wear(src_item,load1,item_max_charge)
                src_meta["charge"]=load1
                src_item["metadata"]=set_item_meta(src_meta)
                inv:set_stack("src", 1, src_item)
             end
             meta:set_int("internal_EU_buffer",charge)
             break
              end
           end
        end

        -- discharging registered power tools
        if inv:is_empty("dst") == false then
           srcstack = inv:get_stack("dst", 1)
           src_item=srcstack:to_table()
           local src_meta=get_item_meta(src_item["metadata"])
           local item_max_charge=nil
           for i=1,registered_power_tools_count,1 do
              if power_tools[i].tool_name==src_item["name"] then
             src_meta=get_item_meta(src_item["metadata"])
             if src_meta==nil then
                src_meta={}
                src_meta["technic_power_tool"]=true
                src_meta["charge"]=0
             else
                if src_meta["technic_power_tool"]==nil then
                   src_meta["technic_power_tool"]=true
                   src_meta["charge"]=0
                end
             end
             local item_max_charge = power_tools[i].max_charge
             local load1           = src_meta["charge"]
             local load_step       = 16000 -- how much to discharge per tick
             if load1>0 and charge<max_charge then
                if charge+load_step>max_charge then load_step=max_charge-charge end
                if load1-load_step<0 then load_step=load1 end
                load1=load1-load_step
                charge=charge+load_step
                set_RE_wear(src_item,load1,item_max_charge)
                src_meta["charge"]=load1
                src_item["metadata"]=set_item_meta(src_meta)
                inv:set_stack("dst", 1, src_item)
             end
             meta:set_int("internal_EU_buffer",charge)
             break
              end
           end
        end


        local load = math.floor((charge/1500000) * 100)
        meta:set_string("formspec",
                hv_battery_box_formspec..
                "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
                        (load)..":technic_power_meter_fg.png]"
                )
		
    local pos1={}
                   "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
                   (load)..":technic_power_meter_fg.png]"
                 )

    pos1.y=pos.y-1
    pos1.x=pos.x
    pos1.z=pos.z
        -- Next index the surrounding network the get the producers and receivers on the 
        local pos1={}
        pos1.y=pos.y-1
        pos1.x=pos.x
        pos1.z=pos.z


    meta1 = minetest.env:get_meta(pos1)
    if meta1:get_float("hv_cablelike")~=1 then return end
        meta1 = minetest.env:get_meta(pos1)
        if meta1:get_float("hv_cablelike")~=1 then return end

        local HV_nodes = {}
        local PR_nodes = {}
        local RE_nodes = {}
        local BA_nodes = {}

        HV_nodes[1]={}
        HV_nodes[1].x=pos1.x
        HV_nodes[1].y=pos1.y
        HV_nodes[1].z=pos1.z
        HV_nodes[1].visited=false
	
table_index=1
    repeat
    check_HV_node (PR_nodes,RE_nodes,HV_nodes,table_index)
    table_index=table_index+1
    if HV_nodes[table_index]==nil then break end
    until false

        local table_index=1
        repeat
           check_HV_node (PR_nodes,RE_nodes,BA_nodes,HV_nodes,table_index)
           table_index=table_index+1
           if HV_nodes[table_index]==nil then break end
        until false

local pos1={}
i=1
    repeat
    if PR_nodes[i]==nil then break end -- gettin power from all connected producers
        pos1.x=PR_nodes[i].x
        pos1.y=PR_nodes[i].y
        pos1.z=PR_nodes[i].z
    local meta1 = minetest.env:get_meta(pos1)
    local internal_EU_buffer=meta1:get_float("internal_EU_buffer")
    if charge<max_charge then 
    charge_to_take=4000
    if internal_EU_buffer-charge_to_take<=0 then
        charge_to_take=internal_EU_buffer
    end
    if charge_to_take>0 then 
    charge=charge+charge_to_take 
    internal_EU_buffer=internal_EU_buffer-charge_to_take
    meta1:set_float("internal_EU_buffer",internal_EU_buffer)
    end
    end
    i=i+1
    until false
        -- Get power from all connected producers
        local pr_pos
                for _,pr_pos in ipairs(PR_nodes) do
           local meta1              = minetest.env:get_meta(pr_pos)
           local internal_EU_buffer = meta1:get_float("internal_EU_buffer")
           local charge_to_take     = 4000
           if charge<max_charge then
              if internal_EU_buffer-charge_to_take<=0 then
             charge_to_take=internal_EU_buffer
              end
              if charge_to_take>0 then
             charge=charge+charge_to_take
             internal_EU_buffer=internal_EU_buffer-charge_to_take
             meta1:set_float("internal_EU_buffer",internal_EU_buffer)
              end
           end
        end

if charge>max_charge then charge=max_charge end
        if charge>max_charge then charge=max_charge end

i=1
    repeat
    if RE_nodes[i]==nil then break end
        pos1.x=RE_nodes[i].x         -- loading all conected machines buffers
        pos1.y=RE_nodes[i].y
        pos1.z=RE_nodes[i].z
    local meta1 = minetest.env:get_meta(pos1)
    local internal_EU_buffer=meta1:get_float("internal_EU_buffer")
    local internal_EU_buffer_size=meta1:get_float("internal_EU_buffer_size")
        -- Provide power to all connected receivers
        local re_pos
                for _,re_pos in ipairs(RE_nodes) do
           local meta1                   = minetest.env:get_meta(re_pos)
           local internal_EU_buffer      = meta1:get_float("internal_EU_buffer")
           local internal_EU_buffer_size = meta1:get_float("internal_EU_buffer_size")
           local charge_to_give          = math.min(4000, charge/table.getn(RE_nodes))
           if internal_EU_buffer+charge_to_give>internal_EU_buffer_size then
              charge_to_give=internal_EU_buffer_size-internal_EU_buffer
           end
           if charge-charge_to_give<0 then charge_to_give=charge end

    local charge_to_give=4000
    if internal_EU_buffer+charge_to_give>internal_EU_buffer_size then
        charge_to_give=internal_EU_buffer_size-internal_EU_buffer
    end
    if charge-charge_to_give<0 then charge_to_give=charge end
           internal_EU_buffer=internal_EU_buffer+charge_to_give
           meta1:set_float("internal_EU_buffer",internal_EU_buffer)
           charge=charge-charge_to_give;
        end
        charge=math.floor(charge)
        meta:set_string("infotext", "MV Battery box: "..charge.."/"..max_charge);
        meta:set_int("internal_EU_buffer",charge)
         end
 })

    internal_EU_buffer=internal_EU_buffer+charge_to_give
    meta1:set_float("internal_EU_buffer",internal_EU_buffer)
    charge=charge-charge_to_give;
	
    i=i+1
    until false
    charge=math.floor(charge)
    charge_string=tostring(charge)
    meta:set_string("infotext", "HV Battery Box: \n"..charge_string.."/"..max_charge);
    meta:set_int("battery_charge",charge)

-- Register as a battery type
-- Battery type machines function as power reservoirs and can both receive and give back power
register_HV_machine("technic:hv_battery_box","BA")
for i=1,8,1 do
   register_HV_machine("technic:hv_battery_box"..i,"BA")
end
})

function add_new_HVcable_node (HV_nodes,pos1)
local i=1
    repeat
        if HV_nodes[i]==nil then break end
        if pos1.x==HV_nodes[i].x and pos1.y==HV_nodes[i].y and pos1.z==HV_nodes[i].z then return false end
        i=i+1
    until false
HV_nodes[i]={}
HV_nodes[i].x=pos1.x
HV_nodes[i].y=pos1.y
HV_nodes[i].z=pos1.z
HV_nodes[i].visited=false
return true
   if HV_nodes == nil then return true end
   local i=1
   repeat
      if HV_nodes[i]==nil then break end
      if pos1.x==HV_nodes[i].x and pos1.y==HV_nodes[i].y and pos1.z==HV_nodes[i].z then return false end
      i=i+1
   until false
   HV_nodes[i]={}
   HV_nodes[i].x=pos1.x
   HV_nodes[i].y=pos1.y
   HV_nodes[i].z=pos1.z
   return true
end

function check_HV_node (PR_nodes,RE_nodes,HV_nodes,i)
        local pos1={}
        pos1.x=HV_nodes[i].x
        pos1.y=HV_nodes[i].y
        pos1.z=HV_nodes[i].z
        HV_nodes[i].visited=true
        new_node_added=false
	
        pos1.x=pos1.x+1
        check_HV_node_subp (PR_nodes,RE_nodes,HV_nodes,pos1)
        pos1.x=pos1.x-2
        check_HV_node_subp (PR_nodes,RE_nodes,HV_nodes,pos1)
        pos1.x=pos1.x+1
		
        pos1.y=pos1.y+1
        check_HV_node_subp (PR_nodes,RE_nodes,HV_nodes,pos1)
        pos1.y=pos1.y-2
        check_HV_node_subp (PR_nodes,RE_nodes,HV_nodes,pos1)
        pos1.y=pos1.y+1
function check_HV_node(PR_nodes,RE_nodes,BA_nodes,HV_nodes,i)
   local pos1={}
   pos1.x=HV_nodes[i].x
   pos1.y=HV_nodes[i].y
   pos1.z=HV_nodes[i].z

        pos1.z=pos1.z+1
        check_HV_node_subp (PR_nodes,RE_nodes,HV_nodes,pos1)
        pos1.z=pos1.z-2
        check_HV_node_subp (PR_nodes,RE_nodes,HV_nodes,pos1)
        pos1.z=pos1.z+1
return new_node_added
   pos1.x=pos1.x+1
   check_HV_node_subp (PR_nodes,RE_nodes,BA_nodes,HV_nodes,pos1)
   pos1.x=pos1.x-2
   check_HV_node_subp (PR_nodes,RE_nodes,BA_nodes,HV_nodes,pos1)
   pos1.x=pos1.x+1

   pos1.y=pos1.y+1
   check_HV_node_subp (PR_nodes,RE_nodes,BA_nodes,HV_nodes,pos1)
   pos1.y=pos1.y-2
   check_HV_node_subp (PR_nodes,RE_nodes,BA_nodes,HV_nodes,pos1)
   pos1.y=pos1.y+1

   pos1.z=pos1.z+1
   check_HV_node_subp (PR_nodes,RE_nodes,BA_nodes,HV_nodes,pos1)
   pos1.z=pos1.z-2
   check_HV_node_subp (PR_nodes,RE_nodes,BA_nodes,HV_nodes,pos1)
   pos1.z=pos1.z+1
end

function check_HV_node_subp (PR_nodes,RE_nodes,HV_nodes,pos1)
meta = minetest.env:get_meta(pos1)
if meta:get_float("hv_cablelike")==1 then new_node_added=add_new_HVcable_node(HV_nodes,pos1) end
for i in ipairs(HV_machines) do
    if minetest.env:get_node(pos1).name == HV_machines[i].machine_name then 
        if HV_machines[i].machine_type == "PR" then
            new_node_added=add_new_HVcable_node(PR_nodes,pos1) 
            end
        if HV_machines[i].machine_type == "RE" then
            new_node_added=add_new_HVcable_node(RE_nodes,pos1) 
            end
    end
function check_HV_node_subp (PR_nodes,RE_nodes,BA_nodes,HV_nodes,pos1)
   local meta = minetest.env:get_meta(pos1)
   local name = minetest.env:get_node(pos1).name
   if meta:get_float("hv_cablelike")==1 then
      add_new_HVcable_node(HV_nodes,pos1)
   elseif HV_machines[name] then
      --print(name.." is a "..HV_machines[name])
      if     HV_machines[name] == "PR" then
     add_new_HVcable_node(PR_nodes,pos1)
      elseif HV_machines[name] == "RE" then
     add_new_HVcable_node(RE_nodes,pos1)
      elseif HV_machines[name] == "BA" then
     add_new_HVcable_node(BA_nodes,pos1)
      end
   end
end
end


 technic/battery_box_mv.lua

@@ -1,355 +1,338 @@
MV_machines = {}

registered_MV_machines_count=0

function register_MV_machine (string1,string2)
registered_MV_machines_count=registered_MV_machines_count+1
MV_machines[registered_MV_machines_count]={}
MV_machines[registered_MV_machines_count].machine_name=string1
MV_machines[registered_MV_machines_count].machine_type=string2
-- register MV machines here
technic.MV_machines = {}
--local MV_machines = {}
local MV_machines = technic.MV_machines
function register_MV_machine(string1,string2)
   technic.MV_machines[string1] = string2
end

minetest.register_craft({
    output = 'technic:mv_battery_box 1',
    recipe = {
        {'technic:battery_box', 'technic:battery_box', 'technic:battery_box'},
        {'technic:battery_box', 'technic:mv_transformer', 'technic:battery_box'},
        {'', 'technic:mv_cable', ''},
    }
}) 
minetest.register_craft(
   {
      output = 'technic:mv_battery_box 1',
      recipe = {
     {'technic:battery_box', 'technic:battery_box', 'technic:battery_box'},
     {'technic:battery_box', 'technic:mv_transformer', 'technic:battery_box'},
     {'', 'technic:mv_cable', ''},
      }
   })

mv_battery_box_formspec =
    "invsize[8,9;]"..
    "image[1,1;1,2;technic_power_meter_bg.png]"..
    "list[current_name;src;3,1;1,1;]"..
    "image[4,1;1,1;technic_battery_reload.png]"..
    "list[current_name;dst;5,1;1,1;]"..
    "label[0,0;MV_Battery box]"..
    "label[3,0;Charge]"..
    "label[5,0;Discharge]"..
    "label[1,3;Power level]"..
    "list[current_player;main;0,5;8,4;]"
   "invsize[8,9;]"..
   "image[1,1;1,2;technic_power_meter_bg.png]"..
   "list[current_name;src;3,1;1,1;]"..
   "image[4,1;1,1;technic_battery_reload.png]"..
   "list[current_name;dst;5,1;1,1;]"..
   "label[0,0;MV_Battery box]"..
   "label[3,0;Charge]"..
   "label[5,0;Discharge]"..
   "label[1,3;Power level]"..
   "list[current_player;main;0,5;8,4;]"

minetest.register_node("technic:mv_battery_box", {
    description = "MV Battery Box",
    tiles = {"technic_mv_battery_box_top.png", "technic_mv_battery_box_bottom.png", "technic_mv_battery_box_side0.png",
        "technic_mv_battery_box_side0.png", "technic_mv_battery_box_side0.png", "technic_mv_battery_box_side0.png"},
    groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
    sounds = default.node_sound_wood_defaults(),
    technic_mv_power_machine=1,
    last_side_shown=0,
    drop="technic:mv_battery_box",
    on_construct = function(pos)
        local meta = minetest.env:get_meta(pos)
        meta:set_string("infotext", "MV Battery box")
        meta:set_float("technic_mv_power_machine", 1)
        meta:set_string("formspec", battery_box_formspec)
        local inv = meta:get_inventory()
        inv:set_size("src", 1)
        inv:set_size("dst", 1)
        battery_charge = 0
        max_charge = 300000
        last_side_shown=0
        end,	
    can_dig = function(pos,player)
        local meta = minetest.env:get_meta(pos);
        local inv = meta:get_inventory()
        if not inv:is_empty("dst") then
            return false
        elseif not inv:is_empty("src") then
            return false
minetest.register_node(
   "technic:mv_battery_box", {
      description = "MV Battery Box",
      tiles  = {"technic_mv_battery_box_top.png", "technic_mv_battery_box_bottom.png", "technic_mv_battery_box_side0.png",
            "technic_mv_battery_box_side0.png", "technic_mv_battery_box_side0.png", "technic_mv_battery_box_side0.png"},
      groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
      sounds = default.node_sound_wood_defaults(),
      drop   = "technic:mv_battery_box",
      on_construct = function(pos)
            if pos==nil then return end
            local meta = minetest.env:get_meta(pos);
            local inv = meta:get_inventory()
            meta:set_string("infotext", "MV Battery box")
            meta:set_float("technic_mv_power_machine", 1)
            meta:set_string("formspec", battery_box_formspec)
            meta:set_float("internal_EU_buffer", 0)
            meta:set_float("internal_EU_buffer_size", 300000)
            inv:set_size("src", 1)
            inv:set_size("dst", 1)
             end,
      can_dig = function(pos,player)
           if pos==nil then return end
           local meta = minetest.env:get_meta(pos);
           local inv = meta:get_inventory()
           if not inv:is_empty("dst") then
              return false
           elseif not inv:is_empty("src") then
              return false
           end
           return true
        end
        return true
    end,
})
   })


for i=1,8,1 do
minetest.register_node("technic:mv_battery_box"..i, {
    description = "MV Battery Box",
    tiles = {"technic_mv_battery_box_top.png", "technic_mv_battery_box_bottom.png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png",
        "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png"},
    groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
    sounds = default.node_sound_wood_defaults(),
    technic_power_machine=1,
    last_side_shown=0,
    drop="technic:mv_battery_box",
    on_construct = function(pos)
        local meta = minetest.env:get_meta(pos)
        meta:set_string("infotext", "MV Battery box")
        meta:set_float("technic_mv_power_machine", 1)
        meta:set_string("formspec", battery_box_formspec)
        local inv = meta:get_inventory()
        inv:set_size("src", 1)
        inv:set_size("dst", 1)
        battery_charge = 0
        max_charge = 300000
        last_side_shown=0
        end,
    can_dig = function(pos,player)
        local meta = minetest.env:get_meta(pos);
        local inv = meta:get_inventory()
        if not inv:is_empty("dst") then
            return false
        elseif not inv:is_empty("src") then
            return false
        end
        return true
    end,
})
   minetest.register_node(
      "technic:mv_battery_box"..i, {
     description = "MV Battery Box",
     tiles  = {"technic_mv_battery_box_top.png", "technic_mv_battery_box_bottom.png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png",
           "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png"},
     groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
     sounds = default.node_sound_wood_defaults(),
     drop   = "technic:mv_battery_box",
     on_construct = function(pos)
               if pos==nil then return end
               local meta = minetest.env:get_meta(pos);
               local inv = meta:get_inventory()
               meta:set_string("infotext", "MV Battery box")
               meta:set_float("technic_mv_power_machine", 1)
               meta:set_string("formspec", battery_box_formspec)
               meta:set_float("internal_EU_buffer", 0)
               meta:set_float("internal_EU_buffer_size", 300000)
               inv:set_size("src", 1)
               inv:set_size("dst", 1)
            end,
     can_dig = function(pos,player)
              if pos==nil then return end
              local meta = minetest.env:get_meta(pos);
              local inv = meta:get_inventory()
              if not inv:is_empty("dst") then
             return false
              elseif not inv:is_empty("src") then
             return false
              end
              return true
           end
      })
end

minetest.register_abm(
   {nodenames = {"technic:mv_battery_box","technic:mv_battery_box1","technic:mv_battery_box2","technic:mv_battery_box3","technic:mv_battery_box4",
         "technic:mv_battery_box5","technic:mv_battery_box6","technic:mv_battery_box7","technic:mv_battery_box8"
          },
    interval = 1,
    chance = 1,
    action = function(pos, node, active_object_count, active_object_count_wider)
        local meta       = minetest.env:get_meta(pos)
        local max_charge = 300000 -- Set maximum charge for the device here
        local charge     = meta:get_int("internal_EU_buffer")

MV_nodes_visited = {}


minetest.register_abm({
    nodenames = {"technic:mv_battery_box","technic:mv_battery_box1","technic:mv_battery_box2","technic:mv_battery_box3","technic:mv_battery_box4",
             "technic:mv_battery_box5","technic:mv_battery_box6","technic:mv_battery_box7","technic:mv_battery_box8"
            },
    interval = 1,
    chance = 1,
    action = function(pos, node, active_object_count, active_object_count_wider)
    local meta = minetest.env:get_meta(pos)
    charge= meta:get_int("battery_charge")
    max_charge= 300000
    local i=math.ceil((charge/max_charge)*8)
    if i>8 then i=8 end
    j=meta:get_float("last_side_shown")
    if i~=j then
    if i>0 then hacky_swap_node(pos,"technic:mv_battery_box"..i)  
    elseif i==0 then hacky_swap_node(pos,"technic:mv_battery_box") end 
    meta:set_float("last_side_shown",i)
    end

--loading registered power tools
    local inv = meta:get_inventory()
    if inv:is_empty("src")==false  then 
        local srcstack = inv:get_stack("src", 1)
        local src_item=srcstack:to_table()
        local src_meta=get_item_meta(src_item["metadata"])

        local item_max_charge=nil
        for i=1,registered_power_tools_count,1 do
            if power_tools[i].tool_name==src_item["name"] then
                src_meta=get_item_meta(src_item["metadata"])
                if src_meta==nil then 
                    src_meta={}
                    src_meta["technic_power_tool"]=true
                    src_meta["charge"]=0
                else 
                    if src_meta["technic_power_tool"]==nil then
                        src_meta["technic_power_tool"]=true
                        src_meta["charge"]=0
                    end
                end
                item_max_charge=power_tools[i].max_charge
            end
        end
		
        if item_max_charge then
            load1=src_meta["charge"] 
            load_step=4000
            if load1<item_max_charge and charge>0 then 
                if charge-load_step<0 then load_step=charge end
                if load1+load_step>item_max_charge then load_step=item_max_charge-load1 end
                load1=load1+load_step
                charge=charge-load_step
                set_RE_wear(src_item,load1,item_max_charge)
                src_meta["charge"]=load1
                src_item["metadata"]=set_item_meta(src_meta)
                inv:set_stack("src", 1, src_item)
            end
            meta:set_int("battery_charge",charge)
        end	
    end
	
-- dischargin registered power tools
        if inv:is_empty("dst") == false then 
        srcstack = inv:get_stack("dst", 1)
        src_item=srcstack:to_table()
        local src_meta=get_item_meta(src_item["metadata"])
        local item_max_charge=nil
        for i=1,registered_power_tools_count,1 do
            if power_tools[i].tool_name==src_item["name"] then
                src_meta=get_item_meta(src_item["metadata"])
                if src_meta==nil then 
                    src_meta={}
                    src_meta["technic_power_tool"]=true
                    src_meta["charge"]=0
                else 
                    if src_meta["technic_power_tool"]==nil then
                        src_meta["technic_power_tool"]=true
                        src_meta["charge"]=0
                    end
                end
                item_max_charge=power_tools[i].max_charge
            end
        -- Select node textures
        local i = math.ceil((charge/max_charge)*8)
        if i > 8 then i = 8 end
        local j = meta:get_float("last_side_shown")
        if i~=j then
           if i>0 then hacky_swap_node(pos,"technic:mv_battery_box"..i)
           elseif i==0 then hacky_swap_node(pos,"technic:mv_battery_box") end
           meta:set_float("last_side_shown",i)
        end

        if item_max_charge then
        local load1=src_meta["charge"] 
        load_step=4000
        if load1>0 and charge<max_charge then 
             if charge+load_step>max_charge then load_step=max_charge-charge end
               if load1-load_step<0 then load_step=load1 end
        load1=load1-load_step
        charge=charge+load_step
        set_RE_wear(src_item,load1,item_max_charge)
        src_meta["charge"]=load1
        src_item["metadata"]=set_item_meta(src_meta)
        inv:set_stack("dst", 1, src_item)
        end		
        end
        end
		
    meta:set_int("battery_charge",charge)
        --charge registered power tools
        local inv = meta:get_inventory()
        if inv:is_empty("src")==false  then
           local srcstack = inv:get_stack("src", 1)
           local src_item=srcstack:to_table()
           local src_meta=get_item_meta(src_item["metadata"])

    local load = math.floor((charge/300000) * 100)
    meta:set_string("formspec",
           -- Power tools should really be made into a hash table to avoid linear search. But the list is short so okay...
           for i=1,registered_power_tools_count,1 do
              if power_tools[i].tool_name==src_item["name"] then
             -- What is this code doing? Setting tool properties if not set already????
             src_meta=get_item_meta(src_item["metadata"])
             if src_meta==nil then
                src_meta={}
                src_meta["technic_power_tool"]=true
                src_meta["charge"]=0
             else
                if src_meta["technic_power_tool"]==nil then
                   src_meta["technic_power_tool"]=true
                   src_meta["charge"]=0
                end
             end
             -- Do the charging
             local item_max_charge = power_tools[i].max_charge
             local load1           = src_meta["charge"]
             local load_step       = 4000 -- how much to charge per tick
             if load1<item_max_charge and charge>0 then
                if charge-load_step<0 then load_step=charge end
                if load1+load_step>item_max_charge then load_step=item_max_charge-load1 end
                load1=load1+load_step
                charge=charge-load_step
                set_RE_wear(src_item,load1,item_max_charge)
                src_meta["charge"]   = load1
                src_item["metadata"] = set_item_meta(src_meta)
                inv:set_stack("src", 1, src_item)
             end
             meta:set_int("internal_EU_buffer",charge)
             break
              end
           end
        end

        -- discharging registered power tools
        if inv:is_empty("dst") == false then
           srcstack = inv:get_stack("dst", 1)
           src_item=srcstack:to_table()
           local src_meta=get_item_meta(src_item["metadata"])
           local item_max_charge=nil
           for i=1,registered_power_tools_count,1 do
              if power_tools[i].tool_name==src_item["name"] then
             src_meta=get_item_meta(src_item["metadata"])
             if src_meta==nil then
                src_meta={}
                src_meta["technic_power_tool"]=true
                src_meta["charge"]=0
             else
                if src_meta["technic_power_tool"]==nil then
                   src_meta["technic_power_tool"]=true
                   src_meta["charge"]=0
                end
             end
             local item_max_charge = power_tools[i].max_charge
             local load1           = src_meta["charge"]
             local load_step       = 4000 -- how much to discharge per tick
             if load1>0 and charge<max_charge then
                if charge+load_step>max_charge then load_step=max_charge-charge end
                if load1-load_step<0 then load_step=load1 end
                load1=load1-load_step
                charge=charge+load_step
                set_RE_wear(src_item,load1,item_max_charge)
                src_meta["charge"]=load1
                src_item["metadata"]=set_item_meta(src_meta)
                inv:set_stack("dst", 1, src_item)
             end
             meta:set_int("internal_EU_buffer",charge)
             break
              end
           end
        end

        local load = math.floor((charge/300000) * 100)
        meta:set_string("formspec",
                mv_battery_box_formspec..
                "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
                        (load)..":technic_power_meter_fg.png]"
                )
		
    local pos1={}
                   "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
                   (load)..":technic_power_meter_fg.png]"
                 )

    pos1.y=pos.y-1
    pos1.x=pos.x
    pos1.z=pos.z
        -- Next index the surrounding network the get the producers and receivers on the power grid
        local pos1 = {}
        pos1.y = pos.y-1
        pos1.x = pos.x
        pos1.z = pos.z


    meta1 = minetest.env:get_meta(pos1)
    if meta1:get_float("mv_cablelike")~=1 then return end
        meta1 = minetest.env:get_meta(pos1)
        if meta1:get_float("mv_cablelike")~=1 then return end

        local MV_nodes = {}
        local PR_nodes = {}
        local RE_nodes = {}
        local BA_nodes = {}

         MV_nodes[1]={}
         MV_nodes[1].x=pos1.x
        MV_nodes[1].y=pos1.y
        MV_nodes[1].z=pos1.z
        MV_nodes[1].visited=false
	
table_index=1
    repeat
    check_MV_node (PR_nodes,RE_nodes,MV_nodes,table_index)
    table_index=table_index+1
    if MV_nodes[table_index]==nil then break end
    until false
        MV_nodes[1]   = {}
        MV_nodes[1].x = pos1.x
        MV_nodes[1].y = pos1.y
        MV_nodes[1].z = pos1.z

        local table_index=1
        repeat
           check_MV_node(PR_nodes,RE_nodes,BA_nodes,MV_nodes,table_index)
           table_index=table_index+1
           if MV_nodes[table_index]==nil then break end
        until false

local pos1={}
i=1
    repeat
    if PR_nodes[i]==nil then break end -- gettin power from all connected producers
        pos1.x=PR_nodes[i].x
        pos1.y=PR_nodes[i].y
        pos1.z=PR_nodes[i].z
    local meta1 = minetest.env:get_meta(pos1)
    local internal_EU_buffer=meta1:get_float("internal_EU_buffer")
    if charge<max_charge then 
    charge_to_take=1000	
    if internal_EU_buffer-charge_to_take<=0 then
        charge_to_take=internal_EU_buffer
    end
    if charge_to_take>0 then 
    charge=charge+charge_to_take 
    internal_EU_buffer=internal_EU_buffer-charge_to_take
    meta1:set_float("internal_EU_buffer",internal_EU_buffer)
    end
    end
    i=i+1
    until false
        -- Get power from all connected producers
        local pr_pos
                for _,pr_pos in ipairs(PR_nodes) do
           local meta1              = minetest.env:get_meta(pr_pos)
           local internal_EU_buffer = meta1:get_float("internal_EU_buffer")
           local charge_to_take     = 1000
           if charge<max_charge then
              if internal_EU_buffer-charge_to_take<=0 then
             charge_to_take=internal_EU_buffer
              end
              if charge_to_take>0 then
             charge=charge+charge_to_take
             internal_EU_buffer=internal_EU_buffer-charge_to_take
             meta1:set_float("internal_EU_buffer",internal_EU_buffer)
              end
           end
        end

if charge>max_charge then charge=max_charge end
        if charge>max_charge then charge=max_charge end

i=1
    repeat
    if RE_nodes[i]==nil then break end
        pos1.x=RE_nodes[i].x         -- loading all conected machines buffers
        pos1.y=RE_nodes[i].y
        pos1.z=RE_nodes[i].z
    local meta1 = minetest.env:get_meta(pos1)
    local internal_EU_buffer=meta1:get_float("internal_EU_buffer")
    local internal_EU_buffer_size=meta1:get_float("internal_EU_buffer_size")
        -- Provide power to all connected receivers
        local re_pos
                for _,re_pos in ipairs(RE_nodes) do
           local meta1                   = minetest.env:get_meta(re_pos)
           local internal_EU_buffer      = meta1:get_float("internal_EU_buffer")
           local internal_EU_buffer_size = meta1:get_float("internal_EU_buffer_size")
           local charge_to_give          = math.min(1000, charge/table.getn(RE_nodes))
           if internal_EU_buffer+charge_to_give>internal_EU_buffer_size then
              charge_to_give=internal_EU_buffer_size-internal_EU_buffer
           end
           if charge-charge_to_give<0 then charge_to_give=charge end

    local charge_to_give=1000
    if internal_EU_buffer+charge_to_give>internal_EU_buffer_size then
        charge_to_give=internal_EU_buffer_size-internal_EU_buffer
    end
    if charge-charge_to_give<0 then charge_to_give=charge end
           internal_EU_buffer=internal_EU_buffer+charge_to_give
           meta1:set_float("internal_EU_buffer",internal_EU_buffer)
           charge=charge-charge_to_give;
        end
        charge=math.floor(charge)
        meta:set_string("infotext", "MV Battery box: "..charge.."/"..max_charge);
        meta:set_int("internal_EU_buffer",charge)
         end
 })

    internal_EU_buffer=internal_EU_buffer+charge_to_give
    meta1:set_float("internal_EU_buffer",internal_EU_buffer)
    charge=charge-charge_to_give;
	
    i=i+1
    until false
    charge=math.floor(charge)
    charge_string=tostring(charge)
    meta:set_string("infotext", "Battery box: "..charge_string.."/"..max_charge);
    meta:set_int("battery_charge",charge)

-- Register as a battery type
-- Battery type machines function as power reservoirs and can both receive and give back power
register_MV_machine("technic:mv_battery_box","BA")
for i=1,8,1 do
   register_MV_machine("technic:mv_battery_box"..i,"BA")
end
})

function add_new_MVcable_node (MV_nodes,pos1)
local i=1
    repeat
        if MV_nodes[i]==nil then break end
        if pos1.x==MV_nodes[i].x and pos1.y==MV_nodes[i].y and pos1.z==MV_nodes[i].z then return false end
        i=i+1
    until false
MV_nodes[i]={}
MV_nodes[i].x=pos1.x
MV_nodes[i].y=pos1.y
MV_nodes[i].z=pos1.z
MV_nodes[i].visited=false
return true
   if MV_nodes == nil then return true end
   local i=1
   repeat
      if MV_nodes[i]==nil then break end
      if pos1.x==MV_nodes[i].x and pos1.y==MV_nodes[i].y and pos1.z==MV_nodes[i].z then return false end
      i=i+1
   until false
   MV_nodes[i]={}
   MV_nodes[i].x=pos1.x
   MV_nodes[i].y=pos1.y
   MV_nodes[i].z=pos1.z
   return true
end

function check_MV_node (PR_nodes,RE_nodes,MV_nodes,i)
        local pos1={}
        pos1.x=MV_nodes[i].x
        pos1.y=MV_nodes[i].y
        pos1.z=MV_nodes[i].z
        MV_nodes[i].visited=true
        new_node_added=false
	
        pos1.x=pos1.x+1
        check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
        pos1.x=pos1.x-2
        check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
        pos1.x=pos1.x+1
		
        pos1.y=pos1.y+1
        check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
        pos1.y=pos1.y-2
        check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
        pos1.y=pos1.y+1
function check_MV_node(PR_nodes,RE_nodes,BA_nodes,MV_nodes,i)
   local pos1={}
   pos1.x=MV_nodes[i].x
   pos1.y=MV_nodes[i].y
   pos1.z=MV_nodes[i].z

        pos1.z=pos1.z+1
        check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
        pos1.z=pos1.z-2
        check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
        pos1.z=pos1.z+1
return new_node_added
   pos1.x=pos1.x+1
   check_MV_node_subp(PR_nodes,RE_nodes,BA_nodes,MV_nodes,pos1)
   pos1.x=pos1.x-2
   check_MV_node_subp(PR_nodes,RE_nodes,BA_nodes,MV_nodes,pos1)
   pos1.x=pos1.x+1

   pos1.y=pos1.y+1
   check_MV_node_subp(PR_nodes,RE_nodes,BA_nodes,MV_nodes,pos1)
   pos1.y=pos1.y-2
   check_MV_node_subp(PR_nodes,RE_nodes,BA_nodes,MV_nodes,pos1)
   pos1.y=pos1.y+1

   pos1.z=pos1.z+1
   check_MV_node_subp(PR_nodes,RE_nodes,BA_nodes,MV_nodes,pos1)
   pos1.z=pos1.z-2
   check_MV_node_subp(PR_nodes,RE_nodes,BA_nodes,MV_nodes,pos1)
   pos1.z=pos1.z+1
end

function check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
meta = minetest.env:get_meta(pos1)
if meta:get_float("mv_cablelike")==1 then new_node_added=add_new_MVcable_node(MV_nodes,pos1) end
for i in ipairs(MV_machines) do
    if minetest.env:get_node(pos1).name == MV_machines[i].machine_name then 
        if MV_machines[i].machine_type == "PR" then
            new_node_added=add_new_MVcable_node(PR_nodes,pos1) 
            end
        if MV_machines[i].machine_type == "RE" then
            new_node_added=add_new_MVcable_node(RE_nodes,pos1) 
            end
    end
function check_MV_node_subp (PR_nodes,RE_nodes,BA_nodes,MV_nodes,pos1)
   local meta = minetest.env:get_meta(pos1)
   local name = minetest.env:get_node(pos1).name
   if meta:get_float("mv_cablelike")==1 then
      add_new_MVcable_node(MV_nodes,pos1)
   elseif MV_machines[name] then
      --print(name.." is a "..MV_machines[name])
      if     MV_machines[name] == "PR" then
     add_new_MVcable_node(PR_nodes,pos1)
      elseif MV_machines[name] == "RE" then
     add_new_MVcable_node(RE_nodes,pos1)
      elseif MV_machines[name] == "BA" then
     add_new_MVcable_node(BA_nodes,pos1)
      end
   end
end
end


 technic/down_converter_hv.lua

New file
@@ -0,0 +1,225 @@
-- The HV down converter will step down HV EUs to MV EUs
-- If we take the solar panel as calibration then the
-- 1 HVEU = 5 MVEU as we stack 5 MV arrays to get a HV array.
-- The downconverter does of course have a conversion loss.
-- This loses 30% of the power.
-- The converter does not store any energy by itself.
minetest.register_node("technic:down_converter_hv", {
        description = "HV Down Converter",
    tiles  = {"technic_hv_down_converter_top.png", "technic_hv_down_converter_bottom.png", "technic_hv_down_converter_side.png",
          "technic_hv_down_converter_side.png", "technic_hv_down_converter_side.png", "technic_hv_down_converter_side.png"},
    groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
    sounds = default.node_sound_wood_defaults(),
    drawtype = "nodebox",
    paramtype = "light",
    is_ground_content = true,
    node_box = {
       type = "fixed",
       fixed = {-0.5, -0.5, -0.5, 0.5, 0.5, 0.5},
    },
    selection_box = {
       type = "fixed",
       fixed = {-0.5, -0.5, -0.5, 0.5, 0.5, 0.5},
    },
    on_construct = function(pos)
              local meta = minetest.env:get_meta(pos)
              meta:set_float("technic_hv_power_machine", 1)
              meta:set_float("technic_mv_power_machine", 1)
              meta:set_float("internal_EU_buffer",0)
              meta:set_float("internal_EU_buffer_size",0)
              meta:set_string("infotext", "HV Down Converter")
              meta:set_float("active", false)
               end,
     })

minetest.register_craft({
    output = 'technic:down_converter_hv 1',
    recipe = {
        {'technic:stainless_steel_ingot', 'technic:stainless_steel_ingot','technic:stainless_steel_ingot'},
        {'technic:hv_transformer',        'technic:hv_cable',             'technic:mv_transformer'},
        {'technic:hv_cable',              'technic:rubber',               'technic:mv_cable'},
    }
})

minetest.register_abm(
    {nodenames = {"technic:down_converter_hv"},
    interval   = 1,
    chance     = 1,
    action = function(pos, node, active_object_count, active_object_count_wider)
            -- HV->MV conversion factor
            local hv_mv_factor = 5
            -- The maximun charge a single converter can handle. Let's set this to
            -- what 5 HV solar arrays can produce - 30% loss (2880*5*0.7)
            local max_charge = 10080*hv_mv_factor

            local meta             = minetest.env:get_meta(pos)
            local meta1            = nil
            local pos1             = {}
            local available_charge = 0 -- counted in MV units
            local used_charge      = 0 -- counted in MV units

            -- Index all HV nodes connected to the network
            -- HV cable comes in through the bottom
            pos1.y = pos.y-1
            pos1.x = pos.x
            pos1.z = pos.z
            meta1  = minetest.env:get_meta(pos1)
            if meta1:get_float("hv_cablelike")~=1 then return end

            local HV_nodes    = {} -- HV type
            local HV_PR_nodes = {} -- HV type
            local HV_BA_nodes = {} -- HV type

            HV_nodes[1]         = {}
            HV_nodes[1].x       = pos1.x
            HV_nodes[1].y       = pos1.y
            HV_nodes[1].z       = pos1.z

            local table_index = 1
            repeat
               check_HV_node(HV_PR_nodes,nil,HV_BA_nodes,HV_nodes,table_index)
               table_index = table_index + 1
               if HV_nodes[table_index] == nil then break end
            until false

            --print("HV_nodes: PR="..table.getn(HV_PR_nodes).." BA="..table.getn(HV_BA_nodes))

            -- Index all MV nodes connected to the network
            -- MV cable comes out of the top
            pos1.y = pos.y+1
            pos1.x = pos.x
            pos1.z = pos.z
            meta1  = minetest.env:get_meta(pos1)
            if meta1:get_float("mv_cablelike")~=1 then return end

            local MV_nodes    = {} -- MV type
            local MV_RE_nodes = {} -- MV type
            local MV_BA_nodes = {} -- MV type

            MV_nodes[1]         = {}
            MV_nodes[1].x       = pos1.x
            MV_nodes[1].y       = pos1.y
            MV_nodes[1].z       = pos1.z

            table_index = 1
            repeat
               check_MV_node(nil,MV_RE_nodes,MV_BA_nodes,MV_nodes,table_index)
               table_index = table_index + 1
               if MV_nodes[table_index] == nil then break end
            until false

            --print("MV_nodes: RE="..table.getn(MV_RE_nodes).." BA="..table.getn(MV_BA_nodes))

            -- First get available power from all the attached HV suppliers
            -- Get the supplier internal EU buffer and read the EUs from it
            -- No update yet!
            local pos1
-- FIXME: Until further leave the producers out of it and just let the batteries be the hub
--            for _,pos1 in ipairs(HV_PR_nodes) do
--               meta1  = minetest.env:get_meta(pos1)
--               local internal_EU_buffer = meta1:get_float("internal_EU_buffer")
--               available_charge = available_charge + meta1:get_float("internal_EU_buffer") * hv_mv_factor
--               -- Limit conversion capacity
--               if available_charge > max_charge then
--              available_charge = max_charge
--              break
--               end
--            end
--            --print("Available_charge PR:"..available_charge)

            for _,pos1 in ipairs(HV_BA_nodes) do
               meta1  = minetest.env:get_meta(pos1)
               local internal_EU_buffer = meta1:get_float("internal_EU_buffer")
               available_charge = available_charge + meta1:get_float("internal_EU_buffer") * hv_mv_factor
               -- Limit conversion capacity
               if available_charge > max_charge then
              available_charge = max_charge
              break
               end
            end
            --print("Available_charge PR+BA:"..available_charge)

            -- Calculate total number of receivers:
            local MV_receivers = table.getn(MV_RE_nodes)+table.getn(MV_BA_nodes)

            -- Next supply power to all connected MV machines
            -- Get the power receiver internal EU buffer and give EUs to it
            -- Note: for now leave out RE type machines until producers distribute power themselves even without a battery
--            for _,pos1 in ipairs(MV_RE_nodes) do
--               local meta1                   = minetest.env:get_meta(pos1)
--               local internal_EU_buffer      = meta1:get_float("internal_EU_buffer")
--               local internal_EU_buffer_size = meta1:get_float("internal_EU_buffer_size")
--               local charge_to_give = math.min(4000, available_charge/MV_receivers) -- power rating limit on the MV wire
--               -- How much can this unit take?
--               if internal_EU_buffer+charge_to_give > internal_EU_buffer_size then
--              charge_to_give=internal_EU_buffer_size-internal_EU_buffer
--               end
--               -- If we are emptying the supply take the remainder
--               if available_charge<used_charge+charge_to_give then charge_to_give=available_charge-used_charge end
--               -- Update the unit supplied to
--               internal_EU_buffer = internal_EU_buffer + charge_to_give
--               meta1:set_float("internal_EU_buffer",internal_EU_buffer)
--               -- Do the accounting
--               used_charge = used_charge + charge_to_give
--               if available_charge == used_charge then break end -- bail out if supply depleted
--            end
            --print("used_charge RE:"..used_charge)

            for _,pos1 in ipairs(MV_BA_nodes) do
               local meta1 = minetest.env:get_meta(pos1)
               local internal_EU_buffer      = meta1:get_float("internal_EU_buffer")
               local internal_EU_buffer_size = meta1:get_float("internal_EU_buffer_size")
               --print("internal_EU_buffer:"..internal_EU_buffer)
               --print("internal_EU_buffer_size:"..internal_EU_buffer_size)
               local charge_to_give = math.min(math.floor(available_charge/MV_receivers), 4000) -- power rating limit on the MV wire
               --print("charge_to_give:"..charge_to_give)
               -- How much can this unit take?
               if internal_EU_buffer+charge_to_give > internal_EU_buffer_size then
              charge_to_give=internal_EU_buffer_size-internal_EU_buffer
               end
               --print("charge_to_give2:"..charge_to_give)
               -- If we are emptying the supply take the remainder
               if available_charge<used_charge+charge_to_give then charge_to_give=available_charge-used_charge end
               -- Update the unit supplied to
               --print("charge_to_give3:"..charge_to_give)
               internal_EU_buffer = internal_EU_buffer + charge_to_give
               --print("internal_EU_buffer:"..internal_EU_buffer)
               meta1:set_float("internal_EU_buffer",internal_EU_buffer)
               -- Do the accounting
               used_charge = used_charge + charge_to_give
               --print("used_charge:"..used_charge)
               if available_charge == used_charge then break end -- bail out if supply depleted
            end
            --print("used_charge RE+BA:"..used_charge)

            -- Last update the HV suppliers with the actual demand.
            -- Get the supplier internal EU buffer and update the EUs from it
            -- Note: So far PR nodes left out and only BA nodes are updated
            local HV_BA_size = table.getn(HV_BA_nodes)
            for _,pos1 in ipairs(HV_BA_nodes) do
               meta1  = minetest.env:get_meta(pos1)
               local internal_EU_buffer = meta1:get_float("internal_EU_buffer")
               local charge_to_take = math.floor(used_charge/HV_BA_size/hv_mv_factor) -- HV units
               if internal_EU_buffer-charge_to_take <= 0 then
              charge_to_take = internal_EU_buffer
               end
               if charge_to_take > 0 then
              internal_EU_buffer = internal_EU_buffer-charge_to_take
              meta1:set_float("internal_EU_buffer",internal_EU_buffer)
               end
            end

            if used_charge>0 then
               meta:set_string("infotext", "HV Down Converter is active (HV:"..available_charge.."/MV:"..used_charge..")");
               meta:set_float("active",1) -- used for setting textures someday maybe
            else
               meta:set_string("infotext", "HV Down Converter is inactive (HV:"..available_charge.."/MV:"..used_charge..")");
               meta:set_float("active",0) -- used for setting textures someday maybe
               return
            end
    end,
})

-- This machine does not store energy it receives energy from the HV side and outputs it on the MV side
register_HV_machine ("technic:down_converter_hv","RE")
register_MV_machine ("technic:down_converter_hv","PR")

 technic/down_converter_mv.lua

New file
@@ -0,0 +1,226 @@
-- The MV down converter will step down MV EUs to LV EUs
-- If we take the solar panel as calibration then the
-- 1 MVEU = 5 LVEU as we stack 5 LV arrays to get an MV array.
-- The downconverter does of course have a conversion loss.
-- This loses 30% of the power.
-- The converter does not store any energy by itself.
minetest.register_node(
   "technic:down_converter_mv", {
      description = "MV Down Converter",
      tiles  = {"technic_mv_down_converter_top.png", "technic_mv_down_converter_bottom.png", "technic_mv_down_converter_side.png",
        "technic_mv_down_converter_side.png", "technic_mv_down_converter_side.png", "technic_mv_down_converter_side.png"},
      groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
      sounds = default.node_sound_wood_defaults(),
      drawtype = "nodebox",
      paramtype = "light",
      is_ground_content = true,
      node_box = {
     type = "fixed",
     fixed = {-0.5, -0.5, -0.5, 0.5, 0.5, 0.5},
      },
      selection_box = {
     type = "fixed",
     fixed = {-0.5, -0.5, -0.5, 0.5, 0.5, 0.5},
      },
      on_construct = function(pos)
            local meta = minetest.env:get_meta(pos)
            meta:set_float("technic_mv_power_machine", 1)
            meta:set_float("technic_power_machine", 1)
            meta:set_float("internal_EU_buffer",0)
            meta:set_float("internal_EU_buffer_size",0)
            meta:set_string("infotext", "MV Down Converter")
              meta:set_float("active", false)
               end,
   })

minetest.register_craft({
    output = 'technic:down_converter_mv 1',
    recipe = {
        {'technic:stainless_steel_ingot', 'technic:stainless_steel_ingot','technic:stainless_steel_ingot'},
        {'technic:mv_transformer',        'technic:mv_cable',             'technic:lv_transformer'},
        {'technic:mv_cable',              'technic:rubber',               'technic:lv_cable'},
    }
})

minetest.register_abm(
    {nodenames = {"technic:down_converter_mv"},
    interval   = 1,
    chance     = 1,
    action = function(pos, node, active_object_count, active_object_count_wider)
            -- MV->LV conversion factor
            local mv_lv_factor = 5
            -- The maximun charge a single converter can handle. Let's set this to
            -- what 5 MV solar arrays can produce - 30% loss (720*5*0.7)
            local max_charge = 2520*mv_lv_factor

            local meta             = minetest.env:get_meta(pos)
            local meta1            = nil
            local pos1             = {}
            local available_charge = 0 -- counted in LV units
            local used_charge      = 0 -- counted in LV units

            -- Index all MV nodes connected to the network
            -- MV cable comes in through the bottom
            pos1.y = pos.y-1
            pos1.x = pos.x
            pos1.z = pos.z
            meta1  = minetest.env:get_meta(pos1)
            if meta1:get_float("mv_cablelike")~=1 then return end

            local MV_nodes    = {} -- MV type
            local MV_PR_nodes = {} -- MV type
            local MV_BA_nodes = {} -- MV type

            MV_nodes[1]         = {}
            MV_nodes[1].x       = pos1.x
            MV_nodes[1].y       = pos1.y
            MV_nodes[1].z       = pos1.z

            local table_index = 1
            repeat
               check_MV_node(MV_PR_nodes,nil,MV_BA_nodes,MV_nodes,table_index)
               table_index = table_index + 1
               if MV_nodes[table_index] == nil then break end
            until false

            --print("MV_nodes: PR="..table.getn(MV_PR_nodes).." BA="..table.getn(MV_BA_nodes))

            -- Index all LV nodes connected to the network
            -- LV cable comes out of the top
            pos1.y = pos.y+1
            pos1.x = pos.x
            pos1.z = pos.z
            meta1  = minetest.env:get_meta(pos1)
            if meta1:get_float("cablelike")~=1 then return end

            local LV_nodes    = {} -- LV type
            local LV_RE_nodes = {} -- LV type
            local LV_BA_nodes = {} -- LV type

            LV_nodes[1]         = {}
            LV_nodes[1].x       = pos1.x
            LV_nodes[1].y       = pos1.y
            LV_nodes[1].z       = pos1.z

            table_index = 1
            repeat
               check_LV_node(nil,LV_RE_nodes,LV_BA_nodes,LV_nodes,table_index)
               table_index = table_index + 1
               if LV_nodes[table_index] == nil then break end
            until false

            --print("LV_nodes: RE="..table.getn(LV_RE_nodes).." BA="..table.getn(LV_BA_nodes))

            -- First get available power from all the attached MV suppliers
            -- Get the supplier internal EU buffer and read the EUs from it
            -- No update yet!
            local pos1
-- FIXME: Until further leave the producers out of it and just let the batteries be the hub
--            for _,pos1 in ipairs(MV_PR_nodes) do
--               meta1  = minetest.env:get_meta(pos1)
--               local internal_EU_buffer = meta1:get_float("internal_EU_buffer")
--               available_charge = available_charge + meta1:get_float("internal_EU_buffer") * mv_lv_factor
--               -- Limit conversion capacity
--               if available_charge > max_charge then
--              available_charge = max_charge
--              break
--               end
--            end
--            print("Available_charge PR:"..available_charge)

            for _,pos1 in ipairs(MV_BA_nodes) do
               meta1  = minetest.env:get_meta(pos1)
               local internal_EU_buffer = meta1:get_float("internal_EU_buffer")
               available_charge = available_charge + meta1:get_float("internal_EU_buffer") * mv_lv_factor
               -- Limit conversion capacity
               if available_charge > max_charge then
              available_charge = max_charge
              break
               end
            end
            --print("Available_charge PR+BA:"..available_charge)

            -- Calculate total number of receivers:
            local LV_receivers = table.getn(LV_RE_nodes)+table.getn(LV_BA_nodes)

            -- Next supply power to all connected LV machines
            -- Get the power receiver internal EU buffer and give EUs to it
            -- Note: for now leave out RE type machines until producers distribute power themselves even without a battery
--            for _,pos1 in ipairs(LV_RE_nodes) do
--               local meta1                   = minetest.env:get_meta(pos1)
--               local internal_EU_buffer      = meta1:get_float("internal_EU_buffer")
--               local internal_EU_buffer_size = meta1:get_float("internal_EU_buffer_size")
--               local charge_to_give = math.min(1000, available_charge/LV_receivers) -- power rating limit on the LV wire
--               -- How much can this unit take?
--               if internal_EU_buffer+charge_to_give > internal_EU_buffer_size then
--              charge_to_give=internal_EU_buffer_size-internal_EU_buffer
--               end
--               -- If we are emptying the supply take the remainder
--               if available_charge<used_charge+charge_to_give then charge_to_give=available_charge-used_charge end
--               -- Update the unit supplied to
--               internal_EU_buffer = internal_EU_buffer + charge_to_give
--               meta1:set_float("internal_EU_buffer",internal_EU_buffer)
--               -- Do the accounting
--               used_charge = used_charge + charge_to_give
--               if available_charge == used_charge then break end -- bail out if supply depleted
--            end
            --print("used_charge RE:"..used_charge)

            for _,pos1 in ipairs(LV_BA_nodes) do
               local meta1 = minetest.env:get_meta(pos1)
               local internal_EU_buffer      = meta1:get_float("internal_EU_buffer")
               local internal_EU_buffer_size = meta1:get_float("internal_EU_buffer_size")
               --print("internal_EU_buffer:"..internal_EU_buffer)
               --print("internal_EU_buffer_size:"..internal_EU_buffer_size)
               local charge_to_give = math.min(math.floor(available_charge/LV_receivers), 1000) -- power rating limit on the LV wire
               --print("charge_to_give:"..charge_to_give)
               -- How much can this unit take?
               if internal_EU_buffer+charge_to_give > internal_EU_buffer_size then
              charge_to_give=internal_EU_buffer_size-internal_EU_buffer
               end
               --print("charge_to_give2:"..charge_to_give)
               -- If we are emptying the supply take the remainder
               if available_charge<used_charge+charge_to_give then charge_to_give=available_charge-used_charge end
               -- Update the unit supplied to
               --print("charge_to_give3:"..charge_to_give)
               internal_EU_buffer = internal_EU_buffer + charge_to_give
               --print("internal_EU_buffer:"..internal_EU_buffer)
               meta1:set_float("internal_EU_buffer",internal_EU_buffer)
               -- Do the accounting
               used_charge = used_charge + charge_to_give
               --print("used_charge:"..used_charge)
               if available_charge == used_charge then break end -- bail out if supply depleted
            end
            --print("used_charge RE+BA:"..used_charge)

            -- Last update the MV suppliers with the actual demand.
            -- Get the supplier internal EU buffer and update the EUs from it
            -- Note: So far PR nodes left out and only BA nodes are updated
            local MV_BA_size = table.getn(MV_BA_nodes)
            for _,pos1 in ipairs(MV_BA_nodes) do
               meta1  = minetest.env:get_meta(pos1)
               local internal_EU_buffer = meta1:get_float("internal_EU_buffer")
               local charge_to_take = math.floor(used_charge/MV_BA_size/mv_lv_factor) -- MV units
               if internal_EU_buffer-charge_to_take <= 0 then
              charge_to_take = internal_EU_buffer
               end
               if charge_to_take > 0 then
              internal_EU_buffer = internal_EU_buffer-charge_to_take
              meta1:set_float("internal_EU_buffer",internal_EU_buffer)
               end
            end

            if used_charge>0 then
               meta:set_string("infotext", "MV Down Converter is active (MV:"..available_charge.."/LV:"..used_charge..")");
               meta:set_float("active",1) -- used for setting textures someday maybe
            else
               meta:set_string("infotext", "MV Down Converter is inactive (MV:"..available_charge.."/LV:"..used_charge..")");
               meta:set_float("active",0) -- used for setting textures someday maybe
               return
            end
    end,
})

-- This machine does not store energy it receives energy from the MV side and outputs it on the LV side
register_MV_machine ("technic:down_converter_mv","RE")
register_LV_machine ("technic:down_converter_mv","PR")

 technic/init.lua

@@ -36,6 +36,7 @@
dofile(modpath.."/wires_mv.lua")
dofile(modpath.."/battery_box_mv.lua")
dofile(modpath.."/solar_array_mv.lua")
dofile(modpath.."/down_converter_mv.lua")
dofile(modpath.."/electric_furnace_mv.lua")
dofile(modpath.."/alloy_furnace_mv.lua")
dofile(modpath.."/forcefield.lua")
@@ -44,6 +45,7 @@
dofile(modpath.."/wires_hv.lua")
dofile(modpath.."/battery_box_hv.lua")
dofile(modpath.."/solar_array_hv.lua")
dofile(modpath.."/down_converter_hv.lua")

--Tools
if technic.config:getBool("enable_mining_drill") then dofile(modpath.."/mining_drill.lua") end

 technic/solar_array_mv.lua

@@ -83,7 +83,8 @@
            meta:set_float("active",1)
            internal_EU_buffer=internal_EU_buffer+charge_to_give
            meta:set_float("internal_EU_buffer",internal_EU_buffer)
			
            -- Idea: How about letting solar panels provide power without battery boxes?
            -- This could provide an even distribution to all receivers.			
        else
            meta:set_string("infotext", "Solar Array is inactive");
            meta:set_float("active",0)

 technic/textures/technic_hv_down_converter_bottom.png

 technic/textures/technic_hv_down_converter_side.png

 technic/textures/technic_hv_down_converter_top.png

 technic/textures/technic_mv_down_converter_bottom.png

 technic/textures/technic_mv_down_converter_side.png

 technic/textures/technic_mv_down_converter_top.png