[DL] ComputerCraft OpenPeripherals Base Monitoring Program

-- ComputerCraft/OpenPeripherals Base Monitoring Program for MC 1.6.4
-- Thanks: Fogger, @EsperNet: #OpenMods, #computercraft @Freenode: #lua

-- The color palette. You can add more.
local palette = {["white"] = 1, ["orange"] = 2, ["magenta"] = 4, ["lightBlue"] = 8, ["yellow"] = 16,
["lime"] = 32, ["pink"] = 64, ["gray"] = 128, ["lightGray"] = 256, ["cyan"] = 512, ["purple"] = 1024,
["blue"] = 2048, ["brown"] = 4096, ["green"] = 8192, ["red"] = 16384, ["black"] = 32768}

-- *** CONFIG SECTION **
-- MONITORS (the only required config change)
local left = "monitor_0" -- first main display monitor
local right = "monitor_1" -- second main display monitor
local aux_1 = "monitor_5" -- auxiliary monitor for total power/capacity reading
-- VARIOUS
local activeMsg, inactiveMsg, pendingMsg = "USING", "INACT", "PENDI"
local textSize = 1 -- increments of 0.5
local isGPS = true -- should we look for and display a nearby GPS?
-- MACHINE and PERIPHERAL NAMES --
-- Use the same # of characters for each so that formatting is aligned
local name_comp = "CMPRESR" -- compressor
local name_furnace = "FURNACE" -- electric furnace
local name_ext = "EXTRCTR" -- extractor
local name_mace = "MACERTR" -- macerator
local name_washer = "ORWASHR" -- ore washer
local name_centrifuge = "THR_CTR" -- thermal centrifuge
local name_former = "MTL_FRM" -- metal former
local name_recycler = "RECYCLR" -- recycler
local name_canning = "CAN_MCN" -- canning machine
-- Name these whatever you wish, but it may not fit or alter alignment of other items
local name_mfsu = "MFSU"
-- COLORS
local hc = palette.lightBlue -- default heading color
local tc = palette.white -- default text color
local color_reading = palette.lime -- power readings for example
local color_inactive = palette.gray -- inactive reading for machines
local color_active = palette.red -- active reading for machines
local color_machines = palette.orange -- machine names
local color_ores = palette.pink -- ore name color
-- TEXT POSITIONS
local pwrX_Reading = 20 -- X pos to display power readings
local machineDisplayXPos = 6 -- X pos to start displaying machines
local offsetPos = 2 -- left margin offset for text
local mStatusPos = 11
local orePos = 18
-- SPECIAL CHARACTERS
local separator = " | "
local spacer = " : "
-----------------------------------------------

local pversion = "1.3.5.1b"

local waitTime = {9,13}
local timer = {0,0,0,0,0,0,0,0,0,0,0}
local supported_Power = {"mfsu","cesu","mfe","batbox"}
local supported_Machines = {"macerator","furnace","orewashing","thermalcentrifuge", "extractor",
"compressor", "canning", "recycler", "metalformer"}
local sleepAmt = 0.2
local numFormat = 1 -- don't use it (yet) for multiple formatting types
-- MACHINE SLOTS --
local ic2ItemUsed = 7 -- input slot for most ic2 machines
local ic2ItemCreated = 2 -- output slot for most ic2 machines
local oreWashItemUsed = 9 -- input slot for orewasher
local thermCentrItemUsed = 9 -- input slot for thermal centrifuge

-- Load API ---
if fs.exists("marik") then shell.run("rm marik") end
print("Updating API...")
shell.run("pastebin get Th8tne6p marik")
os.loadAPI("marik")
---------------

term.clear()
print("Base Monitoring Program v" .. pversion)
print("Starting...")

machines = peripheral.getNames() -- load a list of peripherals into a table
table.sort(machines) -- so it displays in non-random manner

n,count = marik.numOfMachines()
print("Total peripherals detected: " .. count)
print("Power storage devices: " .. n)
print("Checking peripheral connections...")

-- Monitors
local mon = peripheral.wrap(left)
local mon2 = peripheral.wrap(right)
mon.clear()
mon2.clear()
mon.setTextScale(textSize)
mon2.setTextScale(textSize)

-- MONITOR 1 x,y Positions
local machinesInfoCol = 6 -- machines info HEADING
local GPS_x = 25 -- right side GPS info
local GPS_y = 58

-- MONITOR 2 x,y Positions
local tankPosStart = 1 -- to replace the rest of these

-- MONITOR 1 - Write lines that won't be cleared
marik.cString(offsetPos, 1, hc, left, "-- Main Power --")
marik.cString(offsetPos, machinesInfoCol, hc, left, "-- Machines Info --")

-- MONITOR 2 - Write lines that won't be cleared
marik.cString(offsetPos, 1, hc, right, "-- RailCraft Tank Information --")

function dispAE()

    -- AE TERMINAL (not working yet)
    mon2.setTextColor(tc)
    mon2.setCursorPos(offsetPos,aeCraftCol)

    beingCrafted = aeController.getJobList()
    if beingCrafted.name ~= nil then
        timer[1] = os.clock()
        mon2.clearLine()
        mon2.write("Currently Crafting: " .. beingCrafted.name)
    elseif beingCrafted.name == nil then
            mon2.clearLine()
            mon2.write("Currently Crafting: Nothing")
    else
            mon2.clearLine()
            mon2.write("Currently Crafting: Unknown")
    end
end

function pFormat(pName)
-- Renames peripherals for formatting purposes

    if string.find(pName, "compressor") then
        pName = name_comp
    elseif string.find(pName, "electric_furnace") then
        pName = name_furnace
    elseif string.find(pName, "extractor") then
        pName = name_ext
    elseif string.find(pName, "macerator") then
        pName = name_mace
    elseif string.find(pName, "orewashing") then
        pName = name_washer
    elseif string.find(pName, "thermalcentrifuge") then
        pName = name_centrifuge
    elseif string.find(pName, "canning") then
        pName = name_canning
    elseif string.find(pName, "recycler") then
        pName = name_recycler
    elseif string.find(pName, "former") then
        pName = name_former
    elseif string.find(pName, "mfsu") then
        pName = name_mfsu
    end
return pName
end

function dispTanks()
mon.setCursorPos(offsetPos, 1)
mon2.setCursorPos(offsetPos,1)

    for i=1, #machines do
    -- RC Tanks --------------------------------------------
        if string.find(machines[i], "rcirontankvalvetile")
            or string.find(machines[i], "rcsteeltankvalvetile") then

            if peripheral.isPresent(machines[i]) then
                periph = peripheral.wrap(machines[i])

                fluidRaw, fluidName, fluidAmount, fluidCapacity, fluidID = marik.getTank(periph)

                if fluidName == nil then
                -- does not display empty tanks
                elseif fluidName ~= nil then
                    mon2.setTextColor(tc)
                    x,y = mon2.getCursorPos()
                    mon2.setCursorPos(offsetPos, (y+1))
                    mon2.clearLine()
            -- marik.cString(offsetPos,(y+1), tc, right, " ")
            mon2.write("Tank (" .. marik.comma(fluidName) .. ") : " .. marik.comma(fluidAmount) .. " / " .. marik.comma(fluidCapacity) .. " mb (" .. marik.getBuckets(fluidAmount) .. " buckets)")
        end
        end
    end
    end
end

function dispPower()

    for i=1, #machines do
  -- IC2 Power -------------------------------------------
    for s=1, #supported_Power do
        if string.find(machines[i], supported_Power[s]) then

            periph = peripheral.wrap(machines[i])
            local storedEU = periph.getEUStored()
            local capacity = periph.getEUCapacity()

                -- modify these later for multiple storage peripherals
                local totalStorage = storedEU
                local totalCapacity = capacity

                marik.appendString(left, tc, "Total EU       " .. separator, true, offsetPos, 2)
                marik.appendString(left, color_reading, (marik.comma(totalStorage)), false, pwrX_Reading, 2)

                marik.appendString(left, tc, "Total Capacity " .. separator, true, offsetPos, 3)
                marik.appendString(left, color_reading, (marik.comma(totalCapacity)), false, pwrX_Reading, 3)

                marik.appendString(left, tc, pFormat(machines[i]) .. " Storage   " .. separator, true, offsetPos, 4)
                marik.appendString(left, color_reading, (marik.comma(storedEU)), false, pwrX_Reading, 4)

            end
        end
    end
end


function dispIC2()

machineDispStart = machineDisplayXPos -- screen start positon

    for i=1, #machines do
    -- IC2 Machines -----------------------------------------
        local m
        for m=1, #supported_Machines do
            -- check if the machine is a supported machine
            if string.find(machines[i], supported_Machines[m]) then

                -- check if the peripheral is connected
                -- if peripheral.isPresent(machines[i]) then
                    periph = peripheral.wrap(machines[i])

                        -- determine what slot to use for the machines' input
                        if string.find(machines[i], "thermalcentrifuge") then itemStackUsed = periph.getStackInSlot(thermCentrItemUsed)
                        elseif string.find(machines[i], "orewashing") then itemStackUsed = periph.getStackInSlot(oreWashItemUsed)
                        else itemStackUsed = periph.getStackInSlot(ic2ItemUsed)
                        end

                        machineDispStart = machineDispStart + 1 -- move this down?

                        -- if there's something in the input slot
                        if itemStackUsed ~= nil then
                            itemName = marik.itemRename(itemStackUsed.name)
                            timer[2] = os.clock()

                            -- display machine, active message and itemName
                            marik.appendString(left, color_ores, itemName, true, orePos, machineDispStart) -- append the itemName
                            str = (pFormat(peripheral.getType(machines[i])))
                            marik.appendString(left, tc, str, false, offsetPos, machineDispStart) -- append the [      ] that contains the itemName
                            marik.appendString(left, color_active, activeMsg, false, 11, machineDispStart) -- append the activeMsg

                        -- if there is nothing in the input slot
                        elseif itemStackUsed == nil then
                            if os.clock() - timer[2] > waitTime[1] then -- clear the message only if it has been waitTime[1] seconds

                                --display machine and inactive message
                                marik.appendString(left, color_inactive, inactiveMsg, true, mStatusPos, machineDispStart) -- append INACTIVE
                                str = (pFormat(peripheral.getType(machines[i])))
                                marik.appendString(left, tc, str, false, offsetPos, machineDispStart) -- append the [      ] that contains the itemName

                            end

                        else
                            -- marik.appendString(left, color_active, "***TEST CASE***", false, offsetPos, machineDispStart)
                    end
                -- end
            end
        end
    end
end


-- Loop Start
while true do

mon.setTextColor(tc)
if marik.GPSinfo() then
    mon.setCursorPos(GPS_y, GPS_x)
    mon.write("GPS: Online")
else
    mon.setCursorPos(GPS_y, GPS_x)
    mon.write("GPS: Offline")
end

dispTanks()
dispPower()
dispIC2()

sleep(sleepAmt)

end