CC Genetic Sampler and Apiary Species Sampling Automation

if #fs.find("hashlist")==0 then
shell.run("pastebin get FBVLGpd9 hashlist")
end
shell.run("hashlist")
a=peripheral.wrap("front")
im=peripheral.wrap("top")

print("start")
function checkItem()
name=turtle.getItemDetail(1).name
found=false
    if string.find(name,"Princess")~=nil then
    turtle.drop()
    found=true
    end
    if string.find(name,"Drone")~=nil then
    turtle.drop(1)
    turtle.dropUp()
    found=true
    end
    if found==false then
    turtle.dropDown()
    end
end

function checkFrame()
    fstatus=false
    if a.getStackInSlot(10)~=nil then
        if a.getStackInSlot(10).dmg<40 then
            fstatus=true
        else
            print("replace frame :(")
            io.read()
        end
    else
        print("add frame :(")
        io.read()
    end
    return fstatus
end

function checkSample()
    smple=im.getStackInSlot(4)
    if smple~=nil then
    print("checking sample..")
        if sample[smple.nbt_hash]~=nil then
        print("found Species "..sample[smple.nbt_hash].value.." Sample")
        needSample=false
        print("cleaning up..")
        im.destroyStack(3)
        turtle.suckUp()
        turtle.dropDown()
            while a.getStackInSlot(1)~=nil do
            sleep(1)
            end
            for i=3,9 do
                a.pushItem("up",i,64)
            end
        else
        im.pushItem("up",4,1)
        end
    end
end

needSample=true
while needSample do
    print("breeding bee..")
    while a.getStackInSlot(1)~=nil and checkFrame() do
    checkSample()
    sleep(1)
    end
    for i=1,7 do
    turtle.suck()
        if turtle.getItemCount(1) > 0 then
        print("extracting bees..")
        checkItem()
        else
        i=7
        end
    end
    sleep(1)
end
print("Done! Ready for next Queen!")