startup

local bedrockPath='/' if OneOS then OneOS.LoadAPI('/System/API/Bedrock.lua', false)elseif fs.exists(bedrockPath..'/Bedrock')then os.loadAPI(bedrockPath..'/Bedrock')else if http then print('Downloading Bedrock...')local h=http.get('http://pastebin.com/raw.php?i=0MgKNqpN')if h then local f=fs.open(bedrockPath..'/Bedrock','w')f.write(h.readAll())f.close()h.close()os.loadAPI(bedrockPath..'/Bedrock')else error('Failed to download Bedrock. Is your internet working?') end else error('This program needs to download Bedrock to work. Please enable HTTP.') end end if Bedrock then Bedrock.BasePath = bedrockPath Bedrock.ProgramPath = shell.getRunningProgram() end

local monitor = peripheral.wrap( "right" )

local barrels_drums = {}

for k, v in pairs( peripheral.getNames() ) do
    if ( peripheral.getType(v) == "drum" or peripheral.getType(v) == "mcp_mobius_betterbarrel" ) then
        table.insert( barrels_drums, v )
    end
end

term.redirect( monitor )
monitor.setTextScale( 1 )

local page = 1
local maxpage = math.ceil( table.getn( barrels_drums ) / 4 )

local program = Bedrock:Initialise()

function format_thousand(v)
    local s = string.format("%d", math.floor(v))
    local pos = string.len(s) % 3
    if pos == 0 then pos = 3 end
    return string.sub(s, 1, pos)
    .. string.gsub(string.sub(s, pos+1), "(...)", ",%1")
end

program:StartRepeatingTimer(function()
    local pageText = "Page: " .. tostring( page )

    -- Object 1
    local object1Name = "N/A"
    local object1Quantity = 0
    local object1Max = 0
    local object1Text = "N/A - N/A"
    local object1Decimal = 0

    if not ( barrels_drums[ ( ( page - 1 ) * 4 ) + 1 ] == nil ) then
        local object1 = peripheral.wrap( barrels_drums[ ( ( page - 1 ) * 4 ) + 1 ] )
        local object1Type = peripheral.getType( barrels_drums[ ( ( page - 1 ) * 4 ) + 1 ] )

        if ( object1Type == "mcp_mobius_betterbarrel" ) then
            if not ( object1.getStoredItems() == nil ) then
                object1Name = object1.getStoredItems().display_name
                object1Quantity = object1.getStoredItems().qty
                object1Max = object1.getMaxStoredItems()
                object1Text = object1Name .. " - " .. format_thousand( object1Quantity ) .. " / " .. format_thousand( object1Max )
            end
        elseif ( object1Type == "drum" ) then
            if not ( object1.getTankInfo()[1].contents == nil ) then
                object1Name = object1.getTankInfo()[1].contents.rawName
                object1Quantity = object1.getTankInfo()[1].contents.amount
                object1Max = object1.getTankInfo()[1].capacity
                object1Text = object1Name .. " - " .. format_thousand( object1Quantity ) .. " / " .. format_thousand( object1Max ) .. " mB"
            end
        end

        object1Decimal = object1Quantity / object1Max
    end

    -- Object 2
    local object2Name = "N/A"
    local object2Quantity = 0
    local object2Max = 0
    local object2Text = "N/A - N/A"
    local object2Decimal = 0

    if not ( barrels_drums[ ( ( page - 1 ) * 4 ) + 2 ] == nil ) then
        local object2 = peripheral.wrap( barrels_drums[ ( ( page - 1 ) * 4 ) + 2 ] )
        local object2Type = peripheral.getType( barrels_drums[ ( ( page - 1 ) * 4 ) + 2 ] )

        if ( object2Type == "mcp_mobius_betterbarrel" ) then
            if not ( object2.getStoredItems() == nil ) then
                object2Name = object2.getStoredItems().display_name
                object2Quantity = object2.getStoredItems().qty
                object2Max = object2.getMaxStoredItems()
                object2Text = object2Name .. " - " .. format_thousand( object2Quantity ) .. " / " .. format_thousand( object2Max )
            end
        elseif ( object2Type == "drum" ) then
            if not ( object2.getTankInfo().contents == nil ) then
                object2Name = object2.getTankInfo()[1].contents.rawName
                object2Quantity = object2.getTankInfo()[1].contents.amount
                object2Max = object2.getTankInfo()[1].capacity
                object2Text = object2Name .. " - " .. format_thousand( object2Quantity ) .. " / " .. format_thousand( object2Max ) .. " mB"
            end
        end

        object2Decimal = object2Quantity / object2Max
    end

    -- Object 3
    local object3Name = "N/A"
    local object3Quantity = 0
    local object3Max = 0
    local object3Text = "N/A - N/A"
    local object3Decimal = 0

    if not ( barrels_drums[ ( ( page - 1 ) * 4 ) + 3 ] == nil ) then
        local object3 = peripheral.wrap( barrels_drums[ ( ( page - 1 ) * 4 ) + 3 ] )
        local object3Type = peripheral.getType( barrels_drums[ ( ( page - 1 ) * 4 ) + 3 ] )

        if ( object3Type == "mcp_mobius_betterbarrel" ) then
            if not ( object3.getStoredItems() == nil ) then
                object3Name = object3.getStoredItems().display_name
                object3Quantity = object3.getStoredItems().qty
                object3Max = object3.getMaxStoredItems()
                object3Text = object3Name .. " - " .. format_thousand( object3Quantity ) .. " / " .. format_thousand( object3Max )
            end
        elseif ( object3Type == "drum" ) then
            if not ( object3.getTankInfo().contents == nil ) then
                object3Name = object3.getTankInfo()[1].contents.rawName
                object3Quantity = object3.getTankInfo()[1].contents.amount
                object3Max = object3.getTankInfo()[1].capacity
                object3Text = object3Name .. " - " .. format_thousand( object3Quantity ) .. " / " .. format_thousand( object3Max ) .. " mB"
            end
        end

        object3Decimal = object3Quantity / object3Max
    end

    -- Object 4
    local object4Name = "N/A"
    local object4Quantity = 0
    local object4Max = 0
    local object4Text = "N/A - N/A"
    local object4Decimal = 0

    if not ( barrels_drums[ ( ( page - 1 ) * 4 ) + 4 ] == nil ) then
        local object4 = peripheral.wrap( barrels_drums[ ( ( page - 1 ) * 4 ) + 4 ] )
        local object4Type = peripheral.getType( barrels_drums[ ( ( page - 1 ) * 4 ) + 4 ] )

        if ( object4Type == "mcp_mobius_betterbarrel" ) then
            if not ( object4.getStoredItems() == nil ) then
                object4Name = object4.getStoredItems().display_name
                object4Quantity = object4.getStoredItems().qty
                object4Max = object4.getMaxStoredItems()
                object4Text = object4Name .. " - " .. format_thousand( object4Quantity ) .. " / " .. format_thousand( object4Max )
            end
        elseif ( object4Type == "drum" ) then
            if not ( object4.getTankInfo()[1].contents == nil ) then
                object4Name = object4.getTankInfo()[1].contents.rawName
                object4Quantity = object4.getTankInfo()[1].contents.amount
                object4Max = object4.getTankInfo()[1].capacity
                object4Text = object4Name .. " - " .. format_thousand( object4Quantity ) .. " / " .. format_thousand( object4Max ) .. " mB"
            end
        end

        object4Decimal = object4Quantity / object4Max
    end

    program:GetObject('PageLabel1').Text = pageText
    program:GetObject('PageLabel2').Text = pageText

    program:GetObject('Indicator1').Text = object1Text
    program:GetObject('IndicatorP1').Text = tostring( math.floor( object1Decimal * 100 ) ) .. "%"
    program:GetObject('IndicatorBar1').Value = object1Decimal

    program:GetObject('Indicator2').Text = object2Text
    program:GetObject('IndicatorP2').Text = tostring( math.floor( object2Decimal * 100 ) ) .. "%"
    program:GetObject('IndicatorBar2').Value = object2Decimal

    program:GetObject('Indicator3').Text = object3Text
    program:GetObject('IndicatorP3').Text = tostring( math.floor( object3Decimal * 100 ) ) .. "%"
    program:GetObject('IndicatorBar3').Value = object3Decimal

    program:GetObject('Indicator4').Text = object4Text
    program:GetObject('IndicatorP4').Text = tostring( math.floor( object4Decimal * 100 ) ) .. "%"
    program:GetObject('IndicatorBar4').Value = object4Decimal

end, 5)

program:Run(function()
    program:GetObject('PageRightButton1').OnClick = function(self, event, side, x, y)
        if not ( page == maxpage ) then
            page = page + 1
        end
    end
    program:GetObject('PageRightButton2').OnClick = function(self, event, side, x, y)
        if not ( page == maxpage ) then
            page = page + 1
        end
    end
    program:GetObject('PageLeftButton1').OnClick = function(self, event, side, x, y)
        if not ( page == 1 ) then
            page = page - 1
        end
    end
    program:GetObject('PageLeftButton2').OnClick = function(self, event, side, x, y)
        if not ( page == 1 ) then
            page = page - 1
        end
    end
end)

term.restore()