Fluid Monitor

local tanks={}
local data ={}
function Tanks ()
    print ("Loading tanks")
    tankID = 1

    per_list = peripheral.getNames()
    for i = 1, #per_list do
        methods = peripheral.getMethods(per_list[i])
        for j = 1, #methods do
            if methods[j] == "getTankInfo" then
                tanks[tankID] = per_list[i]
                tankID = tankID+1
            end
        end
    end
    print ("Tanks loaded")
    return tanks
end
function Tank_Data_Dump (__tank_ident)
    tank = peripheral.wrap(__tank_ident)
    if tank == nil then
        return
    end
    curr_tank_data = tank.getTankInfo()
    curr_tank_data["peripheralName"] = __tank_ident
    for i=1,#curr_tank_data do
        if curr_tank_data[i]["contents"]==nil then
            curr_tank_data[i]["contents"] = {}
            curr_tank_data[i]["contents"]["rawName"]=""
        else
            curr_tank_data[i]["contents"]["amount"]=nil
            curr_tank_data[i]["contents"]["name"]=nil
            curr_tank_data[i]["contents"]["id"]=nil
        end
        curr_tank_data[i]["capacity"] = nil
        curr_tank_data[i]["signalWhen"] = "above"
        curr_tank_data[i]["percentage"] = 50
        curr_tank_data[i]["redstone"] = {}
        curr_tank_data[i]["redstone"]["side"] = "top"
        --curr_tank_data[i]["redstone"]["strength"] = 15
        curr_tank_data[i]["redstone"]["bundled"] = 0
    end
    return curr_tank_data
end
function Data_Dump ()
    print("Preparing data dump")
    data["interval"] = 5
    data["tanks"] = {}
    for i=1,#tanks do
        data["tanks"][i] = Tank_Data_Dump(tanks[i])
    end

    local h = fs.open("config.cfg", "w")
    h.write(textutils.serialize( data ) )
    h.close()
    print ("Data dumped, Edit 'config.cfg' to your liking and start program again")
end
function Data_Load ()
    print("Loading config")
    local h = fs.open("config.cfg", "r")
    data = textutils.unserialize( h.readAll() )
    h.close()
    print("Loaded config")
end
function Reset_Redstone ()
    sides = rs.getSides()
    for i=1,#sides do
        rs.setOutput(sides[i],false)
        rs.setBundledOutput(sides[i],0)
    end
end
function Set_Redstone(__state,__redstone)
    if __redstone["bundled"]==0 then
        rs.setOutput(__redstone["side"],__state)
    else
        signal = rs.testBundledInput(__redstone["side"],__redstone["bundled"])
        if signal ~= __state then
            if signal ==true then

                rs.setBundledOutput(__redstone["side"],rs.getBundledInput(__redstone["side"]) - __redstone["bundled"])
            else

                rs.setBundledOutput(__redstone["side"],rs.getBundledInput(__redstone["side"]) + __redstone["bundled"])
            end
        end
    end
end
function Output (__tank_info, __tank_config)
    perc=0
    if  __tank_info["contents"]~= nil then
        perc = __tank_info["contents"]["amount"]/__tank_info["capacity"]*100
    end
    if __tank_config["signalWhen"] == "above" then
        if perc>__tank_config["percentage"] then
            Set_Redstone(true,__tank_config["redstone"])
        else
            Set_Redstone(false,__tank_config["redstone"])
        end
    else
        if __tank_config["signalWhen"] == "below" then
            if perc<__tank_config["percentage"] then
                Set_Redstone(true,__tank_config["redstone"])
            else
                Set_Redstone(false,__tank_config["redstone"])
            end
        end
    end
end


if not fs.exists("config.cfg") then

    Tanks()
    Data_Dump()
else
    Reset_Redstone()
    Data_Load()
    print ("Looping")
    while (true) do
        for i=1,#data["tanks"] do
            tank_info = peripheral.call(data["tanks"][i]["peripheralName"],"getTankInfo")
            if tank_info == nil then
                data["tanks"][i] = nil
            else
                for j=1, #data["tanks"][i] do
                    if data["tanks"][i][j]["contents"]["rawName"] == "" or tank_info[j]["contents"]==nil then
                        Output(tank_info[j],data["tanks"][i][j])
                    else
                        if (data["tanks"][i][j]["contents"]["rawName"] == tank_info[j]["contents"]["rawName"]) then
                            Output(tank_info[j],data["tanks"][i][j])
                        end
                    end

                end
            end
        end
        sleep(data["interval"])
    end
end