CC: Tinkers smeltery control

local basinpath = "right"
local tablepath = "bottom"
local drainpath = "tconstruct_smelterydrain_2"
local monitorpath = "monitor_3"

local basintime = 10
local basindelay = 5
local tabletime = 2
local tabledelay = 3

local drain = peripheral.wrap(drainpath) or error("Unable to wrap drain!",0)
os.loadAPI("display")
local mon = display.load(monitorpath)

local savefile = "activestate.sav"
local active = false
local updaterate = .1
local drawrate = .2

local mbtoingot = 144
-- millibucket to ingot ratio 144/1

local function getingots()
    local tank = drain.getTankInfo("back")
    if not tank[1].amount then return 0 end
    return tank[1].amount/mbtoingot
end

local function activatebasin()
    rs.setOutput(basinpath,true)
    sleep(10)
    rs.setOutput(basinpath,false)
    sleep(4)
end

local function activatetable()
    rs.setOutput(tablepath,true)
    sleep(2)
    rs.setOutput(tablepath,false)
    sleep(3)
end

local function draw()
    local w,h = mon.obj.getSize()
    local ingots = getingots()

    mon:setbgcolor(colors.black)
    mon:clear()

    -- ON/OFF
    local txt = ""
    if active then
        txt = "ON"
        mon:setbgcolor(colors.lime)
        mon:setfgcolor(colors.green)
    else
        txt = "OFF"
        mon:setbgcolor(colors.red)
        mon:setfgcolor(colors.brown)
    end
    mon:write(txt,3,2)
    mon:rect("fill",1,2,w,6,true)
    if active then
        mon:setbgcolor(colors.green)
        mon:line(2,4,4,6)
        mon:line(4,6,6,2)
    else
        mon:setbgcolor(colors.brown)
        mon:line(1,2,7,6)
        mon:line(7,2,1,6)
    end

    -- ingots
    mon:setfgcolor(colors.blue)
    mon:setbgcolor(colors.lightBlue)
    local txt = "storage"
    mon:write(txt,w/2-#txt/2+1,8)
    local txt = tostring(ingots)
    mon:write(txt,w/2-#txt/2+1,9)
    mon:rect("fill",1,7,w,10,true)

    mon:update()
    mon:draw()
end

local function save()
    local file = fs.open(savefile,"w")
    file.write(tostring(active))
    file.close()
end

local function load()
    if fs.exists(savefile) then
        local file = fs.open(savefile,"r")
        local state = file.readLine()
        if state == "true" then active = true end
        if state == "false" then active = false end
        file.close()
    end
end

local updatetimer = os.startTimer(updaterate)
local drawtimer = os.startTimer(drawrate)
local basintimer, tabletimer, basindelaytimer, tabledelaytimer
local drainready = true
load()
while true do
    local ev,p1,p2,p3 = os.pullEvent()

    if ev == "timer" then
        if p1 == updatetimer then
            updatetimer = os.startTimer(updaterate)
            if active then
                local ingots = getingots()
                if ingots < 9 and ingots > 0 and drainready then
                    -- smelt seperate ingot with table
                    rs.setOutput(tablepath,true)
                    tabletimer = os.startTimer(tabletime)
                    drainready = false
                end
                local ingots = getingots()
                if ingots >= 9 and drainready then
                    -- smelt block with basin
                    rs.setOutput(basinpath,true)
                    basintimer = os.startTimer(basintime)
                    drainready = false
                end
            end
        elseif p1 == drawtimer then
            drawtimer = os.startTimer(drawrate)
            draw()
        elseif p1 == tabletimer then
            rs.setOutput(tablepath,false)
            tabledelaytimer = os.startTimer(tabledelay)
        elseif p1 == basintimer then
            rs.setOutput(basinpath,false)
            basindelaytimer = os.startTimer(basindelay)
        elseif p1 == tabledelaytimer then
            drainready = true
        elseif p1 == basindelaytimer then
            drainready = true
        end
    elseif ev == "monitor_touch" then
        if p2 >= 1 and p2 <= 7
        and p3 >=2 and p3 <= 6 then
            active = not active
            save()
        end
    end
end