TurtleFarm

term.clear()
print("Turtle crop farm! (Before starting, ensure you have seeds in the first slot [it'll tell you where else you need to put them for first time autoplanting] and fuel in the last 2 slots before continuing with this program)")
print("Length? (the way the turtle is facing.)")
Length = tonumber(read())
if Length == 0 then
    print("Invalid")
    else do
        print("Width?")
        Width = tonumber(read())
        SeedSlotAmount = Length*Width/64
        SeedSlotAmount = math.ceil(SeedSlotAmount)
        if SeedSlotAmount>14 then
            SeedSlotAmount = 14
        end
        print("Delay between farming sessions?")
        Delay = tonumber(read())
        print("Do you want to have the turtle plant them for the first run as a first time?")
        FirstRun = read()
        if FirstRun == "yes" then
            FirstRun = true
        print("Okay farming time make sure you have seeds in slots 1- "..SeedSlotAmount.." and fuel in the last 2 slots.")
        elseif FirstRun == "no" then
            FirstRun = false
            print("Okay farming time just have fuel in the last 2 slots.")
            else
                print("Invalid.")
            end
    end
end


TurtleXPos = 1
TurtleYPos = 1


turnLeft = false
changeXPos = false

function changeReverseXPos()
    if changeXPos == false then
        changeXPos = true
    else
        changeXPos = false
        print(changeXPos)
    end
end


SeedCount = Length*Width

function checkFirst()
local x
    if turtle.getItemCount(1)==0 then
        print("No seeds in first slot!")
        repeat
            sleep(1)
        until turtle.getItemCount(1)>=1
    end
end

function checkSeedCount()
    local SlotNum = 1
    local x
    local y = false
    SeedAmount = 0
    for x=1,SeedSlotAmount do
        if turtle.getItemCount(SlotNum)>1 then
                SeedAmount = turtle.getItemCount(SlotNum)
        elseif turtle.getItemCount(SlotNum)==0 then
            if turtle.getSelectedSlot()<14 then
                repeat
                    SlotNum=SlotNum+1
                    turtle.select(SlotNum)
                    sleep(0.5)
                until turtle.getSelectedSlot()==14
            end
            if turtle.getSelectedSlot()==14 then
                turtle.select(14)
            end
        end
        if turtle.getItemCount(SlotNum)==0 and turtle.getSelectedSlot()==14 then
            SlotNum = 1
            print("Out of seeds")
            repeat
                sleep(1)
            until turtle.getItemCount(SlotNum)>0
            turtle.select(SlotNum)
        end
    end
    return SeedAmount
end


function doRefuel()
    local slotNum = 15
    local TurtleXPoss = TurtleXPos
    local TurtleYPoss = TurtleYPos
    local TurtleXPosss = TurtleXPos
    local TurtleYPosss = TurtleYPos
    local g
    local j
    local l
    local h
    local k
    local v
    local SlotNum2 = 15
    if turtle.getFuelLevel()<100 then
        if turtle.getItemCount(15)>0 then
            turtle.select(15)
            turtle.refuel()
            turtle.select(1)
        elseif turtle.getItemCount(15)==0 then
            if turtle.getItemCount(16)>0 then
                turtle.select(16)
                turtle.refuel()
                turtle.select(1)
            elseif turtle.getItemCount(16)==0 then
                turtle.select(15)
                 if bit.band(TurtleYPoss, 1) == 0 then
                        turtle.turnRight()
                    else
                        turtle.turnLeft()
                    end
                        for j=1,(TurtleYPosss-1) do
                            turtle.forward()
                        end
                        turtle.turnLeft()
                        for g=1,(TurtleXPosss-1) do
                            turtle.forward()
                        end
                turtle.up()
                turtle.select(15)
                if turtle.suck() == true then
                    turtle.refuel(32)
                    turtle.select(16)
                    turtle.suck()
                    turtle.refuel(32)
                    else
                    turtle.select(16)
                    if turtle.suck() == true and turtle.refuel(32) == true then
                        turtle.refuel(32)
                        else
                        turtle.select(15)
                        print("Turtle is out of fuel. Please input fuel into the chest/turtle.")
                        repeat
                            sleep(1)
                            until turtle.refuel() == true or turtle.suck() == true and turtle.refuel(32)
                        turtle.refuel(32)
                        turtle.select(1)
                    end
                end
                turtle.down()
                turtle.turnRight()
                turtle.turnRight()
                for h=1,TurtleXPos-1 do
                    turtle.forward()
                end
                turtle.turnRight()
                for k=1,TurtleYPos-1 do
                    turtle.forward()
                end
                if bit.band(TurtleYPoss, 2) == 0 then
                        turtle.turnLeft()
                    else
                        turtle.turnRight()
                    end
            end
        end
    turtle.select(1)
    end
end


function doDelay()
    for l=1,Delay do
        sleep(60)
    end
end

function checkFull()
    local ResourceSlotCount = SeedSlotAmount + 1
    local q
    local j
    local g
    local p
    local l
    local h
    local k
    local SlotNum = 2
    local SlotNum2 = ResourceSlotCount
    local TurtleXPoss = TurtleXPos
    local TurtleYPoss = TurtleYPos
    local TurtleXPosss = TurtleXPos
    local TurtleYPosss = TurtleYPos
    for q=2,14 do
        if SlotNum2>14 then
            SlotNum2 = 14
        end
        if turtle.getItemCount(SlotNum2)==64 then
            repeat
                SlotNum2=SlotNum2+1
                local itemCount=turtle.getItemCount(SlotNum2)
                until itemCount<64 or SlotNum2 == 15
                turtle.select(1)
                elseif SlotNum2==15 and turtle.getItemCount==64 then
                    if bit.band(TurtleYPoss, 2) == 0 then
                        turtle.turnRight()
                    else
                        turtle.turnLeft()
                    end
                        for j=1,TurtleYPoss-1 do
                            turtle.forward()
                        end
                        turtle.turnLeft()
                        for g=1,TurtleXPoss-1 do
                            turtle.forward()
                        end
                    for l=ResourceSlotCount,13 do
                        turtle.select(SlotNum)
                        turtle.drop()
                        SlotNum=SlotNum+1
                    end
                turtle.turnRight()
                turtle.turnRight()
                for h=1,TurtleXPosss-1 do
                    turtle.forward()
                end
                turtle.turnRight()
                for k=1,TurtleYPosss-1 do
                    turtle.forward()
                end
                if bit.band(TurtleYPoss, 2) == 0 then
                        turtle.turnLeft()
                    else
                        turtle.turnRight()
                    end
                ResourceSlotCount=SeedSlotAmount+1
                turtle.select(1)
            end
       end
end


function goHome()
local TurtleXPoss = TurtleXPos
local TurtleYPoss = TurtleYPos
local TurtleXPosss = TurtleXPos
local TurtleYPosss = TurtleYPos
local q
local p
local h
local SlotNum = SeedSlotAmount+1
local b
local SlotNum2 = 2
      if bit.band(TurtleYPoss, 1) == 0 then
                        turtle.turnRight()
                    else
                        turtle.turnLeft()
                    end
        for q=1,TurtleYPosss-1 do
            turtle.forward()
        end
        turtle.turnLeft()
        for p=1,TurtleXPosss-1 do
            turtle.forward()
        end
        if FirstRun==true then
            for h=SeedSlotAmount,14 do
                turtle.select(SlotNum)
                turtle.drop(64)
                SlotNum=SlotNum+1
                if SlotNum==15 then
                    SlotNum=1
                end
            end
        else
            for b=2,14 do
                turtle.select(SlotNum2)
                turtle.drop(64)
                SlotNum2=SlotNum2+1
                if SlotNum2==15 then
                    SlotNum2=1
                end
            end
        end
    turtle.select(15)
    turtle.up()
    turtle.suck(64)
    turtle.refuel()
    turtle.select(16)
    turtle.suck(64)
    turtle.refuel()
    turtle.select(1)
    turtle.down()
    turtle.turnRight()
    turtle.turnRight()
end





function lengthSpan()
    local p
    for LengthLoop = 1,Length-1 do
        if FirstRun == false then
            checkFull()
        else
            checkSeedCount()
        end
        doRefuel()
        turtle.digDown()
        turtle.placeDown()
        turtle.forward()
        if changeXPos == false then
            TurtleXPos = TurtleXPos+1
            print("Debug: TurtleXPos: "..TurtleXPos)
            elseif changeXPos == true then
                TurtleXPos = TurtleXPos-1
                print("Debug: TurtleXPos: "..TurtleXPos)
        end
    end
end

function nextRow()
    if turnLeft == false then
        turtle.turnRight()
        turtle.digDown()
        turtle.placeDown()
        turtle.forward()
        turtle.digDown()
        turtle.placeDown()
        turtle.turnRight()
        turnLeft = true
        TurtleYPos = TurtleYPos + 1
        print(TurtleYPos)
        elseif turnLeft == true then
        turtle.turnLeft()
        turtle.digDown()
        turtle.placeDown()
        turtle.forward()
        turtle.digDown()
        turtle.placeDown()
        turtle.turnLeft()
        turnLeft = false
        TurtleYPos = TurtleYPos+1
        print(TurtleYPos)
    end
end





function harvestLand()
while true do
    local q
    local l
    local slotNum=1
        checkFirst()
        for q=1,Width do
            lengthSpan()
            nextRow()
            changeReverseXPos()
        end
    goHome()
    doDelay()
    if FirstRun==true then
        FirstRun=false
    end
end
end
while true do
    harvestLand()
end