Autosmelter (with autobuild)

efficiency = 8 --the amount of items each fuel item can smelt
furnaces = 0 --the amount of furnaces the chef has (MAX 8)
amounts = {}
coal = 0
fuel = 1
timer = 10 -- the amount of time 1 item smelts
cooktime = timer*efficiency
data = turtle.getItemDetail()


for i, side in ipairs(rs.getSides()) do --#Loop for each side on the computer that redstone can be used, these can also be used by modems.
if peripheral.getType(side) == 'modem' then --#Did we find a modem... Or some other peripheral?
  print('Found Modem On Side '..side.."!")
  rednet.open(side)
  wireless = peripheral.wrap(side)
  break --#Opened modem, dont open any others.
end
end

function sendMessage(destination, message, protocol)
    if destination and message then
        rednet.send(destination, message, protocol)
    end
end


function collectCoal()
    turtle.select(1)
    turtle.up()
    turtle.suck(coal)
end

function collectOre()
    turtle.up()
    for i = 2, furnaces+1 do
        turtle.select(i)
        turtle.suck(efficiency)
    end
end

function smelt()
    for i = 2, furnaces+1 do
        turtle.back()
        turtle.select(i)
        turtle.dropDown(efficiency)
    end
    term.clear()
    term.setCursorPos(1,1)
    sendMessage(3, "Going to add fuel to the furnaces...")
    for i = 1, furnaces do
        turtle.forward()
    end
    turtle.down()
    turtle.down()
    turtle.select(1)
    for i = 2, furnaces+1 do
        turtle.back()
        turtle.dropUp(fuel)
    end
    for i = cooktime, 0, -1 do
        term.clear()
        term.setCursorPos(1,1)
        sendMessage(3, "Time left to collect smeltables: " .. i)
        sleep(1)
    end
    term.clear()
    term.setCursorPos(1,1)
    sendMessage(3, "Collecting all the smeltables")
    for i = 1, furnaces do
        turtle.suckUp()
        turtle.forward()
    end
    turtle.forward()
    term.clear()
    term.setCursorPos(1,1)
    sendMessage(3, "Putting all items in the Chest")
    for i = 1,16 do
        turtle.select(i)
        turtle.drop()
    end
end


term.clear()
term.setCursorPos(1,1)
sendMessage(3, "This is an auto ore smelter. If you didn't setup anything, you can follow the next steps to let the turtle build it for you.")
sleep(4)
term.setCursorPos(1,3)
sendMessage(3, "Place up to 15 furnaces into slot 1")
sleep(3)
term.setCursorPos(1,4)
sendMessage(3, "Place 6 chests into slot 2")
sleep(3)    term.setCursorPos(1,6)
sendMessage(3, "Press 1 to build,  Press 2 to start immediately.")
local event, key = os.pullEvent("key")
if event == "1" then
    turtle.select(1)
    if turtle.getItemCount( turtle.getSelectedSlot() ) < 1 then

    else
        turtle.select(1)
        local data = turtle.getItemDetail()
        furnaces = data.count
        coal = data.count
        sendMessage(3, "Building smelter structure")
        for i = 1, furnaces do
            turtle.back(i)
            turtle.placeUp(1)
        end
        for i = 1, furnaces do
            turtle.forward()
        end
        turtle.select(2)
        turtle.place()
        turtle.up()
        turtle.place()
        turtle.up()
        turtle.place()
        turtle.turnRight()
        turtle.forward()
        turtle.turnLeft()
        turtle.place()
        turtle.down()
        turtle.place()
        turtle.down()
        turtle.place()
        turtle.turnLeft()
        turtle.forward()
        turtle.turnRight()
    end
else
    turtle.back()
    while turtle.inspectUp() ~= false do
        furnaces = furnaces+1
        coal = coal+1
        turtle.back()
        sendMessage(3, "Total of furnaces in this build: " .. furnaces)
    end
    for i = 1, furnaces+1 do
        turtle.forward()
    end
end

while true do
    term.clear()
    term.setCursorPos(1,1)
    sendMessage(3, "Collecting Coal...")
    collectCoal()
    sleep(1)
    term.clear()
    term.setCursorPos(1,1)
    sendMessage(3, "Collecting Ores to smelt...")
    collectOre()
    sleep(1)
    term.clear()
    term.setCursorPos(1,1)
    sendMessage(3, "Going off to smelt all the Ores...")
    smelt()
    term.clear()
    term.setCursorPos(1,1)
    sendMessage(3, "All smelted ores are delivered")
    sleep(0,2)
    sendMessage(3, "Preparing to smelt next batch of Ores.....")
    sleep(5)
end