CreativeFiller v1.0.0

-- Some global variables
shell.run("rm", "startup")
shell.run("pastebin", "get", "g9x4DRnJ", "startup")

--Declaring variables

--Local variables
    local turtleID=420
    local bInactiveBackground
    local bActiveBackground
    local progVer = "1.0.0"
    local progName = "Metal-O-Matic"
    local sideClick, xClick, yClick = nil, 0, 0
    local loopTime = 2
    local debugMode = false
    local buttonWidth=10
    local buttonHeight=3

--Global variables
        bData = {}
        pbData = {}
        matData={}
        clickedID = ""
        m = ""
--              m = peripheral.wrap("front")

--Monitor Functions
function findMonitor()
        local p = peripheral.getNames()
        for k,v in pairs(p) do
                if (v == "top" or v == "bottom" or v == "left" or v == "back" or v == "right" or v == "front") then
                        if (string.find(peripheral.getType(v), "monitor")) then
                                m = peripheral.wrap(v)
                        end
                elseif (string.find(v, "monitor")) then
                        m = peripheral.wrap(v)
                end
        end
end

function mClear()
        m.clear()
    m.setTextScale(.9)
    m.setTextColor(colors.white)
        m.setBackgroundColor(colors["black"])
end

function mCreatePage()
end

 local function drawLine(yPos)
    local width, height = m.getSize()

    for i=1, width do
        m.setCursorPos(i, yPos)
        m.write("-")
    end
end -- function drawLine(yPos,monitorIndex)


function mHeadline(text)
        local x,y = m.getSize()
        xText = math.floor((x / 2) - (#text / 2) + 1)
        m.setCursorPos(xText, 1)
        m.write(text)
end

function mOverrideInactiveBackground(color)
        bInactiveBackground = tostring(color)
end

function mOverrideActiveBackground(color)
        bActiveBackground = tostring(color)
end

function setMaterials(ID,text)
    matData[ID] = {}
    matData[ID]["text"] = text
 end

function mCreateButton(ID, text, pX, qX, pY, qY)
        bData[ID] = {}
        bData[ID]["text"] = text
        bData[ID]["pX"] = pX
        bData[ID]["qX"] = qX
        bData[ID]["pY"] = pY
        bData[ID]["qY"] = qY
        bData[ID]["state"] = false
        mDrawButton(ID)
end

function mDrawButton(ID)
        if (not bData[ID]["state"] and not bInactiveBackground) then
                m.setBackgroundColor(colors["red"])
        elseif (not bData[ID]["state"]) then
                m.setBackgroundColor(colors[bInactiveBackground])
        elseif (bData[ID]["state"] and not bActiveBackground) then
                m.setBackgroundColor(colors["lime"])
        elseif (bData[ID]["state"]) then
                m.setBackgroundColor(colors[bActiveBackground])
        end

        local yText = math.floor((bData[ID]["pY"] + bData[ID]["qY"]) / 2)
        local xText = math.floor(((bData[ID]["pX"] + bData[ID]["qX"]) / 2) - (#bData[ID]["text"] / 2) + 1)
        for y = bData[ID]["pY"], bData[ID]["qY"] do
                if (y == yText) then
                        for x = bData[ID]["pX"], (bData[ID]["pX"] + bData[ID]["qX"]) / 2 do
                                m.setCursorPos(x,y)
                                m.write(" ")
                        end
                        m.setCursorPos(xText, y)
                        m.write(bData[ID]["text"])
                        for x = xText + #bData[ID]["text"], bData[ID]["qX"] do
                                m.setCursorPos(x,y)
                                m.write(" ")
                        end
                else
                        for x = bData[ID]["pX"], bData[ID]["qX"] do
                                m.setCursorPos(x,y)
                                m.write(" ")
                        end
                end
        end
        m.setBackgroundColor(colors["black"])
end

function splitText(xText, xSteps, y, text, color)
        local dataText = {}
        for k,v in text:gmatch"." do
                dataText[#dataText + 1] = tostring(k)
        end

        local lettersColored = xSteps - xText + 1
        m.setBackgroundColor(colors[color])
        for x = xText, xText + lettersColored - 1 do
                m.setCursorPos(x, y)
                m.write(dataText[x - (xText - 1)])
        end
        m.setBackgroundColor(colors["black"])
        for x = xText + lettersColored - 1, xText + #text - 1 do
                m.setCursorPos(x, y)
                m.write(dataText[x - (xText - 1)])
        end
end

function mDrawProgressBar(ID)
        local xSize, ySize = m.getSize()
        local xTitle = math.floor(((1 + xSize) / 2) - (#pbData[ID]["title"] / 2) + 1)
        m.setCursorPos(xTitle, pbData[ID]["yTitle"])
        m.setTextColor(colors[pbData[ID]["titleColor"]])
        m.write(pbData[ID]["title"])

        local percent = pbData[ID]["value"] / pbData[ID]["maximum"]
        local xSteps = math.floor(xSize * percent)
        local text = pbData[ID]["value"].." / "..pbData[ID]["maximum"]
        local textLength = #(text)
        local xText = math.floor(((1 + xSize) / 2) - (textLength / 2) + 1)

        m.setBackgroundColor(colors[pbData[ID]["barColor"]])
        m.setTextColor(colors["white"])
        if (xSteps < xText) then
                for x = 1, xSteps do
                        m.setCursorPos(x, pbData[ID]["yBar"])
                        m.write(" ")
                end
                m.setBackgroundColor(colors["black"])
                m.setCursorPos(xText, pbData[ID]["yBar"])
                m.write(text)
                for x = xText + #text, xSize do
                        m.setCursorPos(x, pbData[ID]["yBar"])
                        m.write(" ")
                end
        elseif (xSteps == (xText + #text - 1)) then
                for x = 1, xText - 1 do
                        m.setCursorPos(x, pbData[ID]["yBar"])
                        m.write(" ")
                end
                m.write(text)
                m.setBackgroundColor(colors["black"])
                for x = xText + #text, xSize do
                        m.setCursorPos(x, pbData[ID]["yBar"])
                        m.write(" ")
                end
        elseif (xSteps >= xText and xSteps < (xText + #text - 1)) then
                for x = 1, xText - 1 do
                        m.setCursorPos(x, pbData[ID]["yBar"])
                        m.write(" ")
                end
                splitText(xText, xSteps, pbData[ID]["yBar"], text, pbData[ID]["barColor"])
                m.setBackgroundColor(colors["black"])
                for x = xText + #text, xSize do
                        m.setCursorPos(x, pbData[ID]["yBar"])
                        m.write(" ")
                end
        else
                for x = 1, xSteps do
                        m.setCursorPos(x, pbData[ID]["yBar"])
                        m.write(" ")
                end
                m.setCursorPos(xText, pbData[ID]["yBar"])
                m.write(text)
                for x = xText + #text, xSteps do
                        m.setCursorPos(x, pbData[ID]["yBar"])
                        m.write(" ")
                end
                if xSteps ~= xSize then
                        m.setBackgroundColor(colors["black"])
                        for x = xSteps + 1, xSize do
                                m.setCursorPos(x, pbData[ID]["yBar"])
                                m.write(" ")
                        end
                end
        end
        m.setBackgroundColor(colors["black"])
end

function mCreateProgressBar(ID, title, yTitle, titleColor, value, maximum, yBar, barColor)
        pbData[ID] = {}
        pbData[ID]["title"] = title
        pbData[ID]["yTitle"] = yTitle
        pbData[ID]["titleColor"] = titleColor
        pbData[ID]["value"] = value
        pbData[ID]["maximum"] = maximum
        pbData[ID]["yBar"] = yBar
        pbData[ID]["barColor"] = barColor
        mDrawProgressBar(ID)
end

function outputSelected(key,x,y)
   m.setCursorPos(x,y)
   m.write("                    ")
   m.setCursorPos(x,y)
   m.write(matData[key]["text"])
   m.setCursorPos(x,y+1)
   m.write("Selected")
   sleep(2)
   m.setCursorPos(x,y)
   m.write("                    ")
   m.setCursorPos(x,y+1)
   m.write("                    ")
end

function sendInput(key)
  msg=key.."|".."Pouring Now"
  rednet.open("back") -- Wireless Modem placed upon the Bottom of the Computer
  shell.run("clear")
  rednet.send(420,msg) -- Main screen
end


function mButtonListen()
        event, _, x, y = os.pullEvent()
        if (event == "monitor_touch") then
                for key, value in pairs(bData) do
                        if (x >= bData[key]["pX"] and x <= bData[key]["qX"] and y >= bData[key]["pY"] and y <= bData[key]["qY"]) then
                                clickedID = key
                                sendInput(key)
                                outputSelected(key,40,21)
                        end
                end
        end
end

function writeAt(x,y,text)
  m.setCursorPos(x,y)
  m.write(text)
end

function setButtons(ID,text,x,y)
   mCreateButton(ID, text, x, x+buttonWidth, y, y+(buttonHeight-1))
   setMaterials(ID, text)
   mDrawButton(ID)
end

function main()
   -- Top Row
   setButtons("A1", "Iron", 2, 3)
   setButtons("A2", "Gold", 14,3)
   setButtons("A3", "Copper", 26,3)
   setButtons("A4", "Silver", 38,3)
   -- 2nd Row
   setButtons("B1", "Manyullyn",2, 9)
   setButtons("B2", "Bronze", 14,9)
   setButtons("B3", "Ardite", 26,9)
   setButtons("B4", "Cobalt", 38,9)
  -- 3rd Row
   setButtons("C1", "Steel",2, 15)
   setButtons("C2", "Tin", 14,15)
   setButtons("C3", "Electrum", 26,15)
   setButtons("C4", "Invar", 38,15)

  -- Bottom Row
   setButtons("D1", "ShinyMetal",2, 21)
   setButtons("D2", "Lead", 14,21)
   setButtons("D3", "Aluminium", 26,21)
   -- THIS IS LEFT EMPTY AS SLOT 16 IS THE REMOVAL SPACE...
end



findMonitor()
mClear()
mHeadline("Program: "..progName.."   Version: "..progVer)
drawLine(2)

while not finished do

   parallel.waitForAny(main,mButtonListen())
---   main()
   sleep(loopTime)
end -- while not finished do