Serum v1

local f = peripheral.wrap("front")
local m = turtle
local t = peripheral.wrap("top")
local cData = {}
local d = {}

function getSerumsSpecies()
    local d  = t.getAllStacks()
        for slot, item in pairs(d) do
            cData[item.name] = slot
        end
    end
end

function getSerumsOther()
    local d  = f.getAllStacks()
        for slot, item in pairs(d) do
            cData[item.name] = slot
        end
    end
end

function checkSerums(serumName)
    return cData[serumName]
end

function moveItems()
    local data = m.getAllStacks()
    for slot,item in pairs(data) do
        local t = string.find(item.name,"Species")
        if t  ~= nil then
            getSerumsSpecies()
        else
            getSerumsOther()
        end
        if checkSerum(item.name) then
            while r.pushItem("down",  slot, 1) == 0 do
                print("Furnace")
                sleep(2)
            end
        else
            if t ~= nil  then
                turtle.drop()
            else
                turtle.dropUp()
            end
        end
    end
end

moveItems()