farming_turtle_crops

local tArgs = { ... }

local size_x         = 0
local size_y         = 0

local done          = false;

local firstStart     = 1

local depth          = 0
local unloaded       = 0
local collected      = 0
local timer          = 0
local tmpTimer       = 0

local xPos,zPos      = 0,0
local xDir,zDir      = 0,1

local goTo   -- Filled in further down
local refuel -- Filled in further down


local function checkSeeds()
   local need = 2

   if turtle.getItemCount(1) < need then
      return false;
   end

   return true
end

function refillSeeds()
   for n = 2,16 do
      local count1 = turtle.getItemCount(n);
      local count2 = turtle.getItemCount(1);

      if count1 > 0 then
         turtle.select(n)
         if turtle.compareTo(1) then
            turtle.transferTo(1,64)
            if count2 >= 64 then
               break
            end
         end
      end
   end
end

local function plant()
   local counter = turtle.getItemCount(1)
   if counter < 2 then
      refillSeeds()
   end

   if  counter > 1 then
      turtle.select(1)
      turtle.placeDown()
   end
end


local function unload( _bKeepOneFuelStack )
      print( "Unloading items..." )
      for n=2,16 do
         local nCount = turtle.getItemCount(n)
         if nCount > 0 then
            turtle.select(n)
            local bDrop = true
            if _bKeepOneFuelStack and turtle.refuel(0) then
               bDrop = false
               _bKeepOneFuelStack = false
            end
            if bDrop then
               while not turtle.dropDown() do
                  term.clear()
                  print("no empty space in chest!")
                  sleep(6)
               end
               unloaded = unloaded + nCount
            end
         end
      end
      collected = 0
      turtle.select(1)
end

local function returnSupplies()
      local x,y,z,xd,zd = xPos,depth,zPos,xDir,zDir
      print( "Returning to Chest ..." )
      goTo( 0,0,0,0,-1 )

      local fuelNeeded = 2*(x+y+z) + 1
      if not refuel( fuelNeeded ) then
         unload( true )
         print( "Waiting for fuel" )
         while not refuel( fuelNeeded ) do
            sleep(1)
         end
      else
         unload( true )
      end

      print( "Resuming Farming..." )
      goTo( x,y,z,xd,zd )
end

function split( pString, pPattern )
      local Table = {}  -- NOTE: use {n = 0} in Lua-5.0
      local fpat = "(.-)" .. pPattern
      local last_end = 1
      local s, e, cap = pString:find( fpat, 1 )
      while s do
       if s ~= 1 or cap ~= "" then
         table.insert( Table,cap )
       end
       last_end = e+1
       s, e, cap = pString:find( fpat, last_end )
      end
      if last_end <= #pString then
       cap = pString:sub( last_end )
       table.insert(Table, cap)
      end
      return Table
   end

function removeData()
   if fs.exists("FarmiPos.data") then
      fs.delete("FarmiPos.data")
   end

   if fs.exists("startup") then
      fs.delete("startup")
   end
end

function saveData()
   file = fs.open("FarmiPos.data", "w")
   file.write(depth .. "|" .. unloaded .. "|" .. collected .. "|" .. xPos .. "|" .. zPos .. "|" .. xDir .. "|" .. zDir .. "|" .. size_x .."|".. size_y .."|".. timer .. "|" .. tmpTimer .. "|" .. firstStart)
   file.close()
end

function loadData()
   if fs.exists("FarmiPos.data") then
      file = fs.open("FarmiPos.data", "r")
      tmp = file.readAll()
      file.close()

      tmp = split(tmp, "|")
      depth       = tonumber(tmp[1])
      unloaded    = tonumber(tmp[2])
      collected   = tonumber(tmp[3])
      xPos        = tonumber(tmp[4])
      zPos        = tonumber(tmp[5])
      xDir        = tonumber(tmp[6])
      zDir        = tonumber(tmp[7])
      size_x      = tonumber(tmp[8])
      size_y      = tonumber(tmp[9])
      timer       = tonumber(tmp[10])
      tmpTimer    = tonumber(tmp[11])
      firstStart  = tonumber(tmp[12])

      goTo(0,0,0,0,1)
      unload(true)
   else
      if #tArgs < 1 or #tArgs > 3 then
         print( "Usage: farmi <size_x> [<size_y> <timer>]" )
         return
      end

      size_x    = tonumber( tArgs[1] )
      size_y    = size_x
      timer     = 300

      if #tArgs >= 2 then
         size_y  = tonumber( tArgs[2] )
      end

      if #tArgs == 3 then
         timer = tonumber( tArgs[3] )
      end

      if size_x < 1 then
         print( "farmi size_x must be positive" )
         done = true
      end

      if size_y < 1 then
         print( "farmi size_y must be positive" )
         done = true
      end

      if timer < 1 then
         print( "farmi timer must be positive" )
         done = true
      end

      return
   end
end

-- ------------------------------------------------------------------------ --

local function collect()
      local bFull = true
      local nTotalItems = 0
      for n=1,16 do
         local nCount = turtle.getItemCount(n)
         if nCount == 0 then
            bFull = false
         end
         nTotalItems = nTotalItems + nCount
      end

      if nTotalItems > collected then
         collected = nTotalItems
         if math.fmod(collected + unloaded, 50) == 0 then
            print( "Farmed "..(collected + unloaded).." items." )
         end
      end

      if bFull then
         print( "No empty slots left." )
         return false
      end
      return true
end

function refuel( ammount )
      local fuelLevel = turtle.getFuelLevel()
      if fuelLevel == "unlimited" then
         return true
      end

      local needed = ammount or (xPos + zPos + depth + 2)
      if turtle.getFuelLevel() < needed then
         local fueled = false
         for n=1,16 do
            if turtle.getItemCount(n) > 0 then
          turtle.select(n)
          if turtle.refuel(1) then
             while turtle.getItemCount(n) > 0 and turtle.getFuelLevel() < needed do
                turtle.refuel(1)
             end
             if turtle.getFuelLevel() >= needed then
                turtle.select(1)
                return true
             end
          end
            end
         end
         turtle.select(1)
         return false
      end

      return true
end

-- ------------------- MOVEMENT -------------
local function tryForward()
   if not refuel() then
      print( "Not enough Fuel" )
      returnSupplies()
   end

   while not turtle.forward() do
      if turtle.detect() then
         if turtle.dig() then
            if not collect() then
               returnSupplies()
            end
         end
      elseif turtle.attack() then
         if not collect() then
            returnSupplies()
         end
      else
         sleep( 0.5 )
      end
   end

   xPos = xPos + xDir
   zPos = zPos + zDir

   saveData()
   return true
end

local function tryUp()
   if not refuel() then
      print( "Not enough Fuel" )
      returnSupplies()
   end

   while not turtle.up() do
      if turtle.detectUp() then
         if turtle.digUp() then
            if not collect() then
               returnSupplies()
            end
         end
      elseif turtle.attackUp() then
         if not collect() then
            returnSupplies()
         end
      else
         sleep( 0.5 )
      end
   end

   depth = depth - 1

   saveData()
   return true
end

local function turnLeft()
      turtle.turnLeft()
      xDir, zDir = -zDir, xDir
      saveData()
end

local function turnRight()
      turtle.turnRight()
      xDir, zDir = zDir, -xDir
      saveData()
end

------------------------------------------------------------------------------

function goTo( x, y, z, xd, zd )
      while depth > y do
         if turtle.up() then
            depth = depth - 1
         elseif turtle.digUp() or turtle.attackUp() then
            collect()
         else
            sleep( 0.5 )
         end

      saveData()
      end

      if xPos > x then
         while xDir ~= -1 do
            turnLeft()
         end
         while xPos > x do
            if turtle.forward() then
          xPos = xPos - 1
            elseif turtle.dig() or turtle.attack() then
          collect()
            else
          sleep( 0.5 )
            end

       saveData()
         end
      elseif xPos < x then
         while xDir ~= 1 do
            turnLeft()
       saveData()
         end
         while xPos < x do
            if turtle.forward() then
          xPos = xPos + 1
            elseif turtle.dig() or turtle.attack() then
          collect()
            else
          sleep( 0.5 )
            end
       saveData()
         end
      end

      if zPos > z then
         while zDir ~= -1 do
            turnLeft()
       saveData()
         end
         while zPos > z do
            if turtle.forward() then
          zPos = zPos - 1
            elseif turtle.dig() or turtle.attack() then
          collect()
            else
          sleep( 0.5 )
            end
       saveData()
         end
      elseif zPos < z then
         while zDir ~= 1 do
            turnLeft()
       saveData()
         end
         while zPos < z do
            if turtle.forward() then
          zPos = zPos + 1
            elseif turtle.dig() or turtle.attack() then
          collect()
            else
          sleep( 0.5 )
            end
       saveData()
         end
      end

      while depth < y do
         if turtle.down() then
            depth = depth + 1
         elseif turtle.digDown() or turtle.attackDown() then
            collect()
         else
            sleep( 0.5 )
         end
      saveData()
      end

      while depth > y do
         if turtle.up() then
            depth = depth - 1
         elseif turtle.digUp() or turtle.attackUp() then
            collect()
         else
            sleep( 0.5 )
         end
      saveData()
      end

      while zDir ~= zd or xDir ~= xd do
         turnLeft()
      saveData()
      end
end

function createStartup()
   local file = fs.open("startup","w")
   file.writeLine('if fs.exists("FarmiPos.data") then')
   file.writeLine('shell.run("farmi")')
   file.writeLine('else')
   file.writeLine('shell.run("rm startup")')
   file.writeLine('end')
   file.close()
end

local alternate = 0

loadData()
createStartup()

while not done do
   alternate = 0

   if firstStart == 0 then
      while tmpTimer < timer do
         local wait    = timer - tmpTimer
         local hours   = math.floor(wait / 3600)
         local minutes = math.floor((wait / 60) % 60)
         local seconds = wait % 60

         if hours < 10 then
            hours = tostring("0"..hours)
         else
            hours = tostring(hours)
         end

         if minutes < 10 then
            minutes = tostring("0"..minutes)
         else
            minutes = tostring(minutes)
         end

         if seconds < 10 then
            seconds = tostring("0"..seconds)
         else
            seconds = tostring(seconds)
         end

         term.clear()
         print( "Collected : "..(collected + unloaded).." items total." )
         print("Waiting: " .. hours .. " Hou " .. minutes .. " Min " .. seconds .." Sec")

         tmpTimer = tmpTimer + 1
         sleep(1)
         saveData()
      end
   end

   firstStart = 0
   tmpTimer   = 0
   saveData()

   term.clear()
   print("Farming ...")

   tryUp()
   tryForward()

   -- harvesting
   for n = 1, size_y do
      for m = 2, size_x do
         if collect() then
            turtle.digDown()
            tryForward()
            turtle.digDown()
         else
            returnSupplies()
         end
      end

      if n < size_y then
         if alternate == 1 then
            turnLeft()
            tryForward()
            turnLeft()
         else
            turnRight()
            tryForward()
            turnRight()
         end

         alternate = 1 - alternate
      end
      saveData()
   end

   term.clear()
   print("Planting ...")

   -- planting
   goTo(0,0,0,0,1)
   refillSeeds()
   alternate = 0

   if checkSeeds() then
      tryUp()
      tryForward()

      local loop = true

      for n = 1, size_y do
         for m = 2, size_x do
            plant()
            tryForward()
            plant()
            if not checkSeeds() then
               loop = false
               break
            end
         end

         if not loop then
            break
         end

         if n < size_y then
            if alternate == 1 then
               turnLeft()
               tryForward()
               turnLeft()
            else
               turnRight()
               tryForward()
               turnRight()
            end

            alternate = 1 - alternate
         end
      end
   else
      while not checkSeeds() do
         term.clear()
         print("need minimum 2 seeds in slot 1")
         sleep(1)
      end
   end

   goTo(0,0,0,0,1)
   refillSeeds()
   unload(true)
end