CocoaFarmer

local i,test,item
local function selectBean()
    for i=1,16 do
        item = turtle.getItemDetail(i)
        if item and item.name=="minecraft:dye" and item.damage==3 then
            turtle.select(i)
            return true
        end
    end
    return false
end

local function crop()
    for i=1,4 do
        test,item = turtle.inspect()
        if test and item.name=="minecraft:cocoa" and item.state.age==2 then
            turtle.dig()
            if selectBean() then
                turtle.place()
            end
        end
        turtle.turnLeft()
    end
end

local _f = math.floor
local function strTime(sec)
    local str,d,h,m,s = "",_f(sec/86400),_f(sec/3600)%24,_f(sec/60)%60,_f(sec%60)
    if d>0 then str = d>1 and d.." days " or "1 day " end
    if h>0 then str = str..h.."h" end
    if m>0 then str = str..(m>9 and m or "0"..m) end
    if h==0 then str = m>0 and str..":"..(s>9 and s or "0"..s) or s.."s" end
    return str
end
local w,h = term.getSize()
local function computer()
    term.setBackgroundColor(colors.white)
    term.setTextColor(colors.black)
    term.setCursorPos(1,1) term.clearLine()
    term.write("#"..os.getComputerID().." - "..os.getComputerLabel())
    term.setCursorPos(1,2) term.clearLine()
    term.write("Running: "..strTime(os.clock()))
    term.setBackgroundColor(colors.black)
    term.setTextColour(colors.gray)
    term.setCursorPos(1,3) term.clearLine()
    term.write(string.rep(string.char(131),w))
    term.setTextColor(colors.white)
end

term.clear()
computer()
local batch,tick,e,p = os.startTimer(.1),os.startTimer(1)
while true do
    e,p = os.pullEvent("timer")
    if p==batch then
        os.cancelTimer(tick)
        rs.setOutput("bottom",true) -- lock hopper
        crop()
        rs.setOutput("bottom",false) -- unlock hopper
        batch = os.startTimer(60) --1 min
        tick = os.startTimer(1)
    elseif p==tick then
        computer()
        tick = os.startTimer(1)
    end
end