smelter

function refillFuel()
    t.select(1)
    t.goto(1,0,0,3)
    t.r(1)
    t.goto(1,1,4,2)
    --picking up any excess charcoal
    for i=1,8 do
        t.suck("down")
    end
    t.d(2)
    t.w(1)
    --now above charcoal chest

    for i=0,15 do
        cSlot,cCount=t.findItem("charcoal")
        if cSlot then
            if cCount<64 then
                t.goto(1,1,3,0)
                t.suck("down")
            end
        else
            t.goto(1,1,3,0)
            t.suck("down")
        end
       t.goto(1,1,i,1)
       t.drop("front","charcoal")
    end
    t.goto(1,1,3,0)
    t.suck("down")
    shell.run("refuel all")
    t.goto(1,1,4,2)
    t.dropAll("down","charcoal")
    t.goto(1,1,0,1)
    t.f(1)
    t.goto(0,0,0,0)
end --end of function refillFuel

function insertSmeltingItems()
    t.select(1)
    t.goto(1,0,0,3)
    t.r(1)
    t.goto(1,1,1,2)
    --picking up all items to be smelted
    for i=1,16 do
        t.suck("down")
    end

    for i=0,15 do
        t.goto(0,2,i,2)
        for j=1,16 do
            t.select(j)
            turtle.dropDown()
        end
        t.select(1)
    end
    t.goto(0,2,1,3)
    t.w(1)
    t.f(1)
    for j=1,16 do
        t.select(j)
        turtle.dropDown()
    end
    t.select(1)
    t.goto(1,1,0,1)
    t.f(1)
    t.goto(0,0,0,2)
end --end of function insertSmeltingItems

function waitForFurnaces(dura)
    if dura<2 then dura=2 end
    print("waiting for Furnaces:    ")
    for p=dura,1,-1 do
        term.setCursorPos(23,1)
        if p<10 then term.write("  ") end
        if p<100 then term.write(" ") end
        print(p)
        sleep(1)
    end
    term.setCursorPos(1,1)
    term.write("                          ")
end

function collectSmeltedItems()
    for k=1,16 do
        t.suck("up")
        if k<16 then t.w(1) end
    end
    t.goto(0,0,2,3)
    for j=1,16 do
        t.select(j)
        turtle.drop()
    end
    t.select(1)
    t.goto(0,0,0,0)
end

insertSmeltingItems()
read()
waitForFurnaces(12) --310
collectSmeltedItems()
refillFuel()