CC sFarm API

if not turtle then
    error( "Cannot load turtle API on computer" )
end

function fell(pos, s)
    s = sUtil.slotForm(s, true, 1)
    if not(sTurtle.detect('front', s)) then
        error('fell() cannot find tree')
    end
    local h = 0

    pos = sTurtle.mine(1, pos)

    --ascend
    while sTurtle.detect('up', s) do
        sTurtle.mineUp()
        h = h + 1
    end
    --descend
    for i=1,h do
        sTurtle.d()
    end
    return pos
end

--Function for cutting down a straight, 2x2 tree in front of the turtle.
--Tree should not have blocks adgecant to its bottom block, or above its top.
function fell2(side)
    --Sterilize
    if side ~= 'left' and side ~= right then
        side = nil
    end
    local h = 0

    --Check for appropriate tree
    if not(turtle.detect()) then
        error('fell2() cannot find tree')
    end
    sTurtle.mine()
    if side == nil then
        if sTurtle.detect('right') then
            side = 'right'
        elseif sTurtle.detect('left') then
            side = 'left'
        else
            sTurtle.b()
            error('fellFir() cannot find appropriate tree')
        end
    end

    --Fell
    print('Felling tree')
    turtle.dig()

    while turtle.detectUp() do
        sTurtle.mineUp()
        h = h + 1
        turtle.dig()
    end

    sTurtle.turn(side)
    sTurtle.mine()
    side = sUtil.faceInv(side)
    sTurtle.turn(side)
    turtle.dig()

    while h > 0 do
        sTurtle.mineDown()
        turtle.dig()
        h = h - 1
    end

    pos = sTurtle.turn(side)
    pos = sTurtle.mine()
    pos = sTurtle.turn(side)
    pos = sTurtle.mine()
    pos = sTurtle.turn('back')

    print('Finished felling tree.')
    return true
end