Energy Control v.2.0

function load(name)
  local file = fs.open(name,"r")
  local data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end
function save(table,name)
  local file = fs.open(name,"w")
  file.write(textutils.serialize(table))
  file.close()
end
function tablelength(T)
  local count = 0
  for _ in pairs(T) do count = count + 1 end
  return count
end
local function centerText(text)
    local x,y = term.getSize()
    local x2,y2 = term.getCursorPos()
    term.setCursorPos(math.floor((x / 2) - (string.len(text) / 2)), y2)
    write(text)
end
function create(x,y,width,height,color,mon)
    mon.setCursorPos(x,y)
        for j = 0, height do
        mon.setCursorPos(x,y+j)
        for i = 0,width do
            mon.setBackgroundColor(color)
            mon.write(" ")
        end
    end
end
function clearAll(mon, color)
    local w,h = mon.getSize()
    for i = 0,h do
        for j = 0, w do
            mon.setCursorPos(1+j,1+i)
            mon.setBackgroundColor(color)
            mon.write(" ")
        end
    end
end
function file_exists(name)
   local f=io.open(name,"r")
   if f~=nil then io.close(f) return true else return false end
end

local all = 0
local version = "2.0"
local mfsu = {}
local strom = {}
local length = 0
local counter = 0
local stopIt = false

term.clear()



function getAllEU()
        local all = 0
    for i = mfsu[1], tablelength(mfsu)+mfsu[1]-1 do
        all = all + strom[i]
    end
    return all
end
function progressBarInit()
   left = load("saves/left")
   top = load("saves/top")
   name = load("saves/name")
   length = load("saves/length")
   background = p.addBox(left,top,length + 6, 40, 0xE0E0E0, 0.3)
   background.setColor2(0x81BEF7)
   background.setGradient(2)
   p.addText(left,top, name, 0x00FFFF)
   box = p.addBox(left +3,top + 23,length,5,0x045FB4,1)
   box.setColor2(0x2ADEDE)
   box.setGradient(2)
   box1 = p.addBox(3,10,4,15,0xF22E2E,1)
   text = p.addText(3,3 , "EU", 0x00FFFF)
end
function progressBar()
left = load("saves/left")
top = load("saves/top")
mfsu = load("saves/id")
length = load("saves/length")
for i = mfsu[1], tablelength(mfsu)+mfsu[1]-1 do
    EU = nb.callRemote("mfsu_"..i, "getStored")
    strom[i] = EU
  end
   red =  length / (tablelength(mfsu) * 10000000) * getAllEU()
   box1.delete()
   text.delete()
   box1 = p.addBox(left + 3 + red - 2,top + 17,4,15,0xF22E2E,1)
   text = p.addText(left + 3,top + 10 , getAllEU() .."/".. (tablelength(mfsu) * 10000000).."EU", 0x00FFFF)
   sleep(1)
end
function startMessage()
    clearAll(term,colors.blue)
    term.setTextColor(colors.white)
    term.setCursorPos(1,1)
    centerText("Welcome to Sutrang's Glass Version ".. version)
    sleep(1)
end
function settings()
    term.clear()
    term.setCursorPos(1,1)
    local w, h = term.getSize()
    create(0,0,w, h, colors.blue,term)
    term.setTextColor(colors.white)
    startMessage()
    term.setCursorPos(1,3)
    centerText("Terminal Glasses Bridge Side:")
    termglass = read()
    term.setCursorPos(1,4)
    centerText("Network Cable Side:")
    networkcableside = read()
    save(networkcableside, "saves/networkcable")
    save(termglass, "saves/termglass")
    term.setCursorPos(1,5)
    centerText("Name your MFSU's:")
    name = read()
    save(name, "saves/name")
    term.setCursorPos(1,6)
    centerText("Progressbar distance from left:")
    left = read()
    save(tonumber(left), "saves/left")
    term.setCursorPos(1,7)
    centerText("Progressbar distance from top:")
    top = read()
    save(tonumber(top), "saves/top")

    while length < 130 do
        term.setCursorPos(1,8)
        term.clearLine()
        centerText("Length of Progressbar:")
        length = tonumber(read())
        save(length, "saves/length")
        if length < 113 then
            term.setCursorPos(1,8)
            term.setTextColor(colors.red)
            term.clearLine()
            centerText("ERROR:The length has to be over 130")
            sleep(3)
            term.setTextColor(colors.white)
        end
    end
    while stopIt ~= true do
        counter = counter + 1
        term.setCursorPos(1,8 + counter)
        centerText("Write id of your MFSU's:")
        message = read()
        if message == "" then
            stopIt = true
            term.clearLine()
        else
            table.insert(mfsu, message)
        end
    end
    save(mfsu, "saves/id")
    startMessage()
end


--{MAIN PROGRAMM}--
--{INIT}--
fs.makeDir("saves")
term.clear()
term.setCursorPos(1,1)

if fs.exists("saves/id") ~= true then
    settings()
end
networkcableside = load("saves/networkcable")

termglass = load("saves/termglass")
nb = peripheral.wrap(networkcableside)
p = peripheral.wrap(termglass)
p.clear()
progressBarInit()
while true do
    progressBar()
end
--{INIT}--