SteAmPI ReWrite

--steAmPI By SteamPunk_Devil IGN - SteamPunk_Angel--
--Feel free to edit this in anyway as long as you credit me(and tell me if you can)--
--Initials: SPD = SteamPunk_Devil,

print("Successfully Loaded steAmPI, Version: Beta V1.0, By: SPD, Release Date: 08/03/2014") --Change release date and version every full release, The "By" is the initials of whoever release it and full names can be found in the header

function version() --Displays version
        print("Beta V1.0, By SPD, Release Date: 08/03/2014") --Same as above
end

function Percentage(current,total) --returns One number as a percentage of the second one --TBD Round to a Decimal place

        local No1 = current
        local No2 = total
        local Percent = (current / total) * 100

        return Percent
end

function Buckets(miliBuckets) -- turns milibuckets to buckets
        local total = miliBuckets / 1000
        return total
end

function Round(num, idp)
  local mult = 10^(idp or 0)
  return math.floor(num * mult + 0.5) / mult
end

function PercentBar(CursorX, CursorY, InActiveColor, ActiveColor, TextColor, n, Mon)
        local n10 = n/10
        local FormdN =  Round(n10, 0)
        local BarCursX = CursorX
        local BarCursY = CursorY
        local Paste = Mon
        Paste.setCursorPos(CursorX, CursorY)
        Paste.setBackgroundColor(InActiveColor)
        Paste.write("          ")
        Paste.setCursorPos(CursorX, CursorY)
        Paste.setBackgroundColor(ActiveColor)
        Paste.setTextColor(TextColor)
        Paste.write(string.rep("/", FormdN))
        BarCursX = BarCursX + 10
        Paste.setBackgroundColor(32768)
        Paste.setTextColor(1)
end

function FluNamePicker(FluName)
        if FluName == "bioethanol" then
                TankSpecs = {}
                TankSpecs["Name"] = "Ethanol"
                TankSpecs["BarColor"] = 2
                TankSpecs["TextColor"] = 16
                return TankSpecs
        elseif FluName == "steam" then
                TankSpecs = {}
                TankSpecs["Name"] = "Steam"
                TankSpecs["BarColor"] = 256
                TankSpecs["TextColor"] = 1
                return TankSpecs
        elseif FluName == "xpjuice" then
                TankSpecs = {}
                TankSpecs["Name"] = "XP"
                TankSpecs["BarColor"] = 32
                TankSpecs["TextColor"] = 8192
                return TankSpecs
        elseif FluName == "creosote" then
                TankSpecs = {}
                TankSpecs["Name"] = "Creo Oil"
                TankSpecs["BarColor"] = 4096
                TankSpecs["TextColor"] = 2
                return TankSpecs
        elseif FluName == "honey" then
                TankSpecs = {}
                TankSpecs["Name"] = "Honey"
                TankSpecs["BarColor"] = 16
                TankSpecs["TextColor"] = 4096
                return TankSpecs
        elseif FluName == "seedoil" then
                TankSpecs = {}
                TankSpecs["Name"] = "Seed Oil"
                TankSpecs["BarColor"] = 16
                TankSpecs["TextColor"] = 8192
                return TankSpecs
        elseif FluName == "liquiddna" then
                TankSpecs = {}
                TankSpecs["Name"] = "Liquid DNA"
                TankSpecs["BarColor"] = 1024
                TankSpecs["TextColor"] = 8
                return TankSpecs
        else
                TankSpecs = {}
                TankSpecs["Name"] = FluName
                TankSpecs["BarColor"] = 1
                TankSpecs["TextColor"] = 512
                return TankSpecs
        end
end

function FluPrinter(FluDetails, Mon, Pos)
        local x = 1
        local y = 1
    if Pos == 1 then
        x = 2
        y = 2
    elseif Pos == 2 then
        x = 18
        y = 2
    elseif Pos == 3 then
        x = 2
        y = 5
    elseif Pos == 4 then
        x = 18
        y = 5
    elseif Pos == 5 then
        x = 2
        y = 8
    elseif Pos == 6 then
        x = 18
        y = 8
    elseif Pos == 7 then
        x = 2
        y = 11
    elseif Pos == 8 then
        x = 18
        y = 11
    else
    end

local TankName = FluDetails
local Tank = peripheral.wrap(TankName)
local TankDetails = Tank.getTankInfo("unknown")
local name = TankDetails["name"]
local TankSpecs = FluNamePicker(name)
local FormdName = TankSpecs["Name"]
local ActiveColor = TankSpecs["BarColor"]
local TextColor = TankSpecs["TextColor"]
    Mon.setCursorPos(x, y)
    Mon.setTextColor(colors.white)
    Mon.write(FormdName)
    local Percent = Percentage(Amount,Cap)
    PercentBar(x, y + 1, 128, ActiveColor, TextColor, Percent, Mon)
end

function OnPushData(FluDetails, Mon)
        local Tank = peripheral.wrap(FLuDetails)
        local TankData = Tank.getTankInfo("unknown")
        local FluNameT = FluNamePicker(TankData["name"])
        local Amount = FluDetails["amount"]
        local Cap = FluDetails["capacity"]
        local Percent = Percentage(Amount, Cap)
        local RPercent = Round(Percent, 2)
        local FluName = FluNameT["Name"]
        Mon.clear()
        Mon.setCursorPos(5,2)
        Mon.setTextScale(2)
        Mon.setTextColor(colors.white)
        Mon.write(FluName)
        Mon.setTextScale(1)
        Mon.setCursorPos(3,3)
        Mon.write("" .. Amount .. "/" .. Cap .. "")
        Mon.setCursorPos(3,4)
        Mon.write("" .. RPercent .. "%")
        Mon.setCursorPos(13,10)
        Mon.setBackgroundColor(colors.red)
        Mon.setTextColor(colors.black)
        Mon.write("<Back")
        Mon.setBackgroundColor(colors.black)
       while true do
  event, side, xPos, yPos = os.pullEvent("monitor_touch")
  --print(event .. " => Side: " .. tostring(side) .. ", " ..
    --"X: " .. tostring(xPos) .. ", " ..
    --"Y: " .. tostring(yPos))
  if yPos == 10 and xPos >= 13 and xPos <= 17 then
    return -- end the function
  end
end
end