bot.lua

local tArgs = { ... }
local rows = nil
local length = nil
if #tArgs < 1 then
    print( "Usage: farm [number:rows] [number:length]" )
    return
else
    rows = tonumber(tArgs[1])
    length = tonumber(tArgs[2])
end



local crafted = 0

local function get_used_slots()
    local used = 0
    for s = 1,15 do
        if turtle.getItemCount(s) > 0 then
            used = used + 1
        end
    end
    return used
end

local function get_items_in_slots(slots)
    local items = 0
    for s = 1, slots do
        items = items + turtle.getItemCount(s)
    end
    return items
end

local function dump_bread()
    turtle.turnRight()
    turtle.turnRight()
    turtle.select(16)
    crafted = crafted + turtle.getItemCount(16)
    turtle.drop(64)
    turtle.turnLeft()
    turtle.turnLeft()
end

local function do_crafting()
    -- Select slot 16 for the destination
    turtle.select(16)
    -- Should only have bread-stuff now, craft
    turtle.craft()

    -- Will now have bread in slot 16
    -- move the bread into the destination chest
    dump_bread()
end

local function selected_is_wheat()
    if turtle.getItemCount() == 0 then
        return false
    end
    if turtle.getItemDetail().name == "minecraft:wheat" then
        return true
    else
        return false
    end
end

local function selected_is_seeds()
    if turtle.getItemCount() == 0 then
        return false
    end
    if turtle.getItemDetail().name == "minecraft:wheat_seeds" then
        return true
    else
        return false
    end
end

local function check_fuel(required)
    -- Always assumes the turtle is currently at the
    -- bread creation place

    if turtle.getFuelLevel() == 'unlimited' or turtle.getFuelLevel() > required + 1 then
        return
    end

    -- Not enough fuel
    -- Try to refuel through inventory
    turtle.select(16)
    if turtle.refuel() then
        return
    end

    -- Turn right and check the chest for fuel
    turtle.turnRight()

    -- We need an additional action now (turn left)
    -- so increment required
    required = required + 1

    empty_spots = {}

    -- Suck it all up and call refuel on every item
    for s = 1, 16 do
        if turtle.getItemCount(s) == 0 then
            empty_spots[s] = 1
            turtle.suck()
            turtle.refuel()
            if turtle.getFuelLevel() > required + 1 then
                return
            end
        else
            empty_spots[s] = 0
        end
    end
    for s = 1, 16 do
        if empty_spots[s] == 1 then
            turtle.dump()
        end
    end

    -- Ask for fuel
    turtle.select(16)
    print("Need fuel!")

    -- Will be reduced by 3 at the destination
    redstone.setAnalogOutput("bottom", 14)
    while not turtle.refuel() or turtle.getFuelLevel() < required + 1 do
        os.pullEvent( "turtle_inventory")
    end
    redstone.setOutput("bottom", false)
    print("Got fuel!")

    turtle.turnLeft()
end

local function dump_drops()
    turtle.turnRight()
    for s = 1, 15 do
        turtle.select(s)
        turtle.drop(64)
    end
    turtle.turnLeft()
end

local function dump_fuel(slot)
    if not slot then
        slot = 16
    end
    turtle.turnLeft()
    turtle.select(slot)
    turtle.drop()
    turtle.turnRight()
end


-- Returns 0 if it got wheat,
-- 1 if it got seeds and
-- 2 if it got fuel or nothing
local function get_wheat_stack(slot)
    turtle.select(slot)
    turtle.suck(64)
    if turtle.getItemCount() == 0 then
        -- Picked up nothing, end
        return 2
    end
    if selected_is_seeds() == true then
        -- Drop seeds off at the seed box
        turtle.turnLeft()
        turtle.turnLeft()
        turtle.drop(64)
        turtle.turnRight()
        turtle.turnRight()
        return 1
    end
    if selected_is_wheat() == false then
        -- Just picked up fuel,
        -- drop it off again
        dump_fuel(s)
        return 2
    end
    return 0
end

local function get_wheat()
    turtle.turnRight()
    for s = 1, 3 do
        while get_wheat_stack(s) == 1 do
            -- Repeat this to remove all seeds from
            -- storage
        end
    end
    turtle.turnLeft()
end

local function balance(used_slots, items_per_slot)
    if used_slots == 1 then
        -- Just move one third at a time from the
        -- first slot to the second and third
        turtle.select(1)
        turtle.transferTo(2, items_per_slot)
        turtle.transferTo(3, items_per_slot)
    else
        -- Get the amount the first slot has to "lose"
        -- then check howmuch we can transfer to slot
        -- 2 and then transfer the rest to slot 3
        local first_too_many = turtle.getItemCount(1) - items_per_slot
        local second_needed = items_per_slot - turtle.getItemCount(2)
        if second_needed < 0 then
            -- Must get rid of some items,
            -- this means we just have to dump the first's items in
            -- the third slot
            turtle.select(1)
            turtle.transferTo(3, first_too_many)
            -- as well as the second's
            turtle.select(2)
            turtle.transferTo(3, -second_needed)
        else
            -- Transfer what the second one needs to
            -- the second one and the rest to the third
            turtle.select(1)
            turtle.transferTo(2, second_needed)
            -- as well as the second's
            turtle.select(1)
            turtle.transferTo(3, first_too_many - second_needed)
        end
    end
end

local function suck_all()
    for s = 1, 15 do
        turtle.select(s)
        turtle.suck()
    end
end

local function get_fuel()
    turtle.turnLeft()

    for s = 1, 15 do
        turtle.select(s)
        turtle.suck()
        if not selected_is_wheat() and not selected_is_seeds() then
            -- Picked up fuel
            turtle.transferTo(16, 64)
            break
        end
    end

    -- Dump it all again
    for s = 1, 15 do
        turtle.select(s)
        if turtle.getItemCount() > 0 then
            turtle.drop(64)
        end
    end

    turtle.turnRight()
end

local function make_bread()
    sleep(120)
    return


    -- dump_fuel()

    -- -- Suck it all up
    -- suck_all()

    -- -- If we picked up nothing, just end
    -- if get_used_slots() == 0 then
    --  get_fuel()
    --  return
    -- end
    -- print("Making bread")

    -- -- Dump all wheat for now
    -- dump_drops()


    -- local used_slots = get_used_slots()
    -- local items = get_items_in_slots(used_slots)

    -- while true do
    --  -- Pick up a max of 3 stacks from the chest
    --  get_wheat()

    --  local used_slots = get_used_slots()
    --  local items = get_items_in_slots(used_slots)


    --  if items == 0 then
    --      break
    --  elseif items < 3 then
    --      -- Spit it out
    --      turtle.select(1)
    --      turtle.drop(64)
    --  end

    --  local remaining_items = items % 3
    --  if remaining_items > 0 then
    --      -- Got some items left, dump those in the chest
    --      turtle.select(used_slots)
    --      turtle.turnRight()
    --      turtle.drop(items % 3)
    --      turtle.turnLeft()
    --      items = get_items_in_slots(used_slots)
    --  end

    --  local items_per_slot = items / 3
    --  balance(used_slots, items_per_slot)

    --  do_crafting()
    -- end

    -- get_fuel()

    -- print("Made a total of ", crafted, " breads")
    -- print("Going back to sleep")
end

local function faces_chest()
    local success, data = turtle.inspect()
    if not success then
        return false
    end
    if data.name == "minecraft:chest" or data.name == "IronChest:BlockIronChest" then
        return true
    else
        return false
    end
end

local function is_at_start()
    turtle.turnLeft()
    if not faces_chest() then
        turtle.turnRight()
        return false
    end

    turtle.turnLeft()
    if not faces_chest() then
        turtle.turnRight()
        turtle.turnRight()
        return false
    end

    turtle.turnLeft()
    if not faces_chest() then
        turtle.turnRight()
        turtle.turnRight()
        turtle.turnRight()
        return false
    end


    turtle.turnLeft()
    return true
end


local function move(dir, amount)
    if dir == "fw" then
        for t = 1, amount do
            turtle.forward()
        end
    elseif dir == "bw" then
        for t = 1, amount do
            turtle.back()
        end
    elseif dir == "up" then
        for t = 1, amount do
            turtle.up()
        end
    elseif dir == "down" then
        for t = 1, amount do
            turtle.down()
        end
    end
end

local function initial_farm_path()
    -- check_fuel(12)

    move("fw", 1)
    turtle.turnLeft()
    move("fw", 6)
    move("up", 2)
    turtle.turnLeft()
end

local row_offset = 0

local function find_seeds()
    for s = 1, 15 do
        turtle.select(s)
        if selected_is_seeds() then
            return true
        end
    end
    return false
end

local function place_seed()
    if not find_seeds() then
        return false
    end
    turtle.digDown()
    turtle.placeDown()
    return true
end

local function return_from_row(len_traveled)
    turtle.turnLeft()
    turtle.turnLeft()

    for t = 0, len_traveled do
        move("down", 1)
        if t == len_traveled then
            move("fw", 8)
        else
            move("fw", 7)
        end
    end

    turtle.turnLeft()
    turtle.turnLeft()
end

local function farm_single_row()
    -- check_fuel((length * 16) + 1)

    local len_traveled = 0

    local do_cancel = false
    for l = 1, length do
        local local_len = 7
        if l == 1 then
            -- First row is 1 longer
            local_len = 8
        else
            move("up", 1)
        end

        if do_cancel then
            break
        end

        len_traveled = len_traveled + 1

        for f = 1, local_len do
            move("fw", 1)
            if not place_seed() then
                -- No more seeds, cancel after this row
                do_cancel = true
            end
        end
    end

    return_from_row(len_traveled)
end

local function farm_double_row()
    -- check_fuel((length * 23) + 1)

    local len_traveled = 0

    local do_cancel = false
    for l = 1, length do
        local local_len = 7
        if l == 1 then
            -- First row is 1 longer
            local_len = 8
        else
            move("up", 1)
        end

        if do_cancel then
            break
        end

        len_traveled = len_traveled + 1

        for f = 1, local_len / 2 do
            move("fw", 1)
            if not place_seed() then
                -- No more seeds, cancel after this row
                do_cancel = true
            end
            turtle.turnRight()
            move("fw", 1)
            if not place_seed() then
                -- No more seeds, cancel after this row
                do_cancel = true
            end
            turtle.turnLeft()
            move("fw", 1)
            if not place_seed() then
                -- No more seeds, cancel after this row
                do_cancel = true
            end
            turtle.turnLeft()
            move("fw", 1)
            if not place_seed() then
                -- No more seeds, cancel after this row
                do_cancel = true
            end
            turtle.turnRight()
        end
        if local_len % 2 > 0 then
            move("fw", 1)
            if not place_seed() then
                -- No more seeds, cancel after this row
                do_cancel = true
            end
            turtle.turnRight()
            move("fw", 1)
            if not place_seed() then
                -- No more seeds, cancel after this row
                do_cancel = true
            end
            turtle.turnLeft()
            turtle.turnLeft()
            move("fw", 1)
            turtle.turnRight()
        end
    end

    return_from_row(len_traveled)
end

local function go_home()
    -- check_fuel(row_offset + 12)

    turtle.turnLeft()
    move("fw", row_offset)
    move("fw", 4)
    move("down", 4)
    move("fw", 2)
    turtle.turnRight()
    move("fw", 1)
    turtle.turnLeft()
    turtle.turnLeft()
end

local function dump_excess()
    check_fuel(6)

    move("up", 1)
    turtle.turnRight()
    move("fw", 2)
    for s = 1, 15 do
        turtle.select(s)
        turtle.drop(64)
    end

    turtle.turnLeft()
    turtle.turnLeft()
    move("fw", 2)
    turtle.turnRight()
    move("down", 1)
end

local function next_row(doubled)
    local amount = nil
    if doubled then
        amount = 3
    else
        amount = 2
    end

    -- check_fuel(amount)

    row_offset = row_offset + amount
    turtle.turnRight()
    move("fw", amount)
    turtle.turnLeft()
end

local function pick_up_seeds()
    turtle.turnLeft()
    for s = 1, 15 do
        turtle.select(s)
        turtle.suck(64)
    end
    turtle.turnRight()
end

local function farm()
    sleep(120)
    return

    -- if rows < 3 then
    --  check_fuel(12 + (((length * 16) + 1) * rows) + ((rows - 1) * 4) + 12)
    -- else
    --  check_fuel(12 + 12 + 4 + 4 + ((((length * 23) + 1) + 3 + 3) * (rows - 2)) +
    --      (((length * 16) + 1) * 2) + (8))
    -- end

    -- pick_up_seeds()
    -- initial_farm_path()

    -- if rows < 1 then
    --  print("Amount of rows is set to lower than 1")
    --  return
    -- end

    -- farm_single_row()
    -- for r = 0, rows - 2 do
    --  if r == 0 then
    --      next_row()
    --  else
    --      next_row(true)
    --  end
    --  farm_double_row()
    -- end
    -- if rows > 1 then
    --  if rows > 2 then
    --      next_row(true)
    --  else
    --      next_row()
    --  end
    --  farm_single_row()
    -- end

    -- go_home()
    -- dump_excess()
end

local function signal_task_start()
    redstone.setAnalogOutput("bottom", 13)
end

local function signal_task_end()
    redstone.setAnalogOutput("bottom", 12)
end

local function listen()
    while true do
        os.pullEvent("redstone")
        if redstone.getAnalogInput("top") > 0 then
            -- Go to the data source
            check_fuel(2)
            move("fw", 1)

            local val = redstone.getAnalogInput("right")
            move("bw", 1)

            if val == 5 then
                signal_task_start()
                make_bread()
                signal_task_end()
            elseif val == 6 then
                signal_task_start()
                print("Replanting farm")
                farm()
                signal_task_end()
            end
        end
    end
end

local function init()
    -- Check fuel first
    check_fuel(1)
    print("Fuel remaining: ", turtle.getFuelLevel())

    -- Check its position
    if not is_at_start() then
        print("Turtle is not at start position!")
    end

    redstone.setAnalogOutput("bottom", 11)
    sleep(10)
    redstone.setAnalogOutput("bottom", 0)

    listen()
end

init()