steAmPI Indev 0.04

--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: Indev V0.03, By: SPD, Release Date: 04/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("Indev V0.03, By SPD, Release Date: 04/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



------Works to here all else is WIP and untested
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)
    local name = FluDetails["name"]
    local Amount = FluDetails["amount"]
    local Cap = FluDetails["capacity"]
    local X = FluDetails["XPos"]
    local Y = FluDetails["YPos"]
    local YBar = FluDetails["YBarPos"]
    local XBar = FluDetails["XPos"]
    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(XBar, YBar, 128, ActiveColor, TextColor, Percent, Mon)
end

function OnPushData(FluDetails, Mon)
    local FluNameT = FluNamePicker(FluDetails["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