View difference between Paste ID: REyTTip0 and jp5s2D5d

-local ms = require("movescript")
+-- pastebin get -f REyTTip0 planter.lua
-local robot = require("robot")
+
-local component = require("component")
+local ms = require("movescript")
-local ic = component.inventory_controller
+local robot = require("robot")
-
+local component = require("component")
-local function equipItemOrWait(name)
+local sides = require("sides")
-  repeat
+local ic = component.inventory_controller
-    local success = ms.selectItem(name)
+local geolyzer = component.geolyzer
-    if not success then
+
-      print("Please add more " .. name .. ", then press enter.")
+-- The list of names of all blocks that crops may be planted on.
-      io.read()
+local PLANTABLE_BLOCKS = {
-    end
+  "minecraft:dirt",
-  until success
+  "minecraft:grass",
-  ic.equip()
+  "biomesoplenty:dirt",
-end
+  "biomesoplenty:grass"
-
+}
-local function goToNextSpot()
+
-  equipItemOrWait("pickaxe")
+local PICKAXE_NAME = "pickaxe"
-  while robot.detect() do
+local HOE_NAME = "mattock"
-    ms.exec("d_U")
+
-  end
+local DISPLACEMENT = -1 -- Displacement == 0 means we're on the first row of the field.
-  ms.exec("F")
+
-  while not robot.detectDown() do
+local function equipNothing()
-    ms.exec("d_D")
+  for i = 1, robot.inventorySize() do
-  end
+    if robot.count(i) == 0 then
-  ms.exec("d_U")
+      robot.select(i)
-end
+      ic.equip()
-
+      return true
-local function plantSpot(cropName)
+    end
-  repeat
+  end
-    equipItemOrWait("hoe")
+  return false
-    robot.useDown()
+end
-    equipItemOrWait(cropName)
+
-    local success = robot.useDown()
+local function dropAllExcept(names)
-  until success
+  for i = 1, robot.inventorySize() do
-end
+    local stack = ic.getStackInInternalSlot(i)
-
+    if stack ~= nil then
-local function plantArea(length, width, cropName)
+      local shouldDrop = true
-  goToNextSpot()
+      for _, acceptableName in ipairs(names) do
-  plantSpot(cropName)
+        if string.find(stack.name, acceptableName) then
-  ms.exec("R")
+          shouldDrop = false
-  for row = 1, length do
+        end
-    for col = 1, width - 1 do
+      end
-      goToNextSpot()
+      if shouldDrop then
-      plantSpot(cropName)
+        robot.select(i)
-    end
+        robot.dropDown()
-    if row % 2 == 1 then
+      end
-      ms.exec("L")
+    end
-    else
+  end
-      ms.exec("R")
+end
-    end
+
-    if row ~= length then
+local function equipItemOrWait(name, cropName)
-      goToNextSpot()
+  -- First, ensure that nothing is equipped.
-      plantSpot(cropName)
+  repeat
-    end
+    local success = equipNothing()
-    if row % 2 == 1 then
+    if not success then
-      ms.exec("L")
+      dropAllExcept({PICKAXE_NAME, HOE_NAME, cropName})
-    else
+    end
-      ms.exec("R")
+  until success
-    end
+  -- Then try and select the item until we succeed.
-    print("Completed row " .. row .. " of " .. length)
+  repeat
-  end
+    local success = ms.selectItem(name)
-end
+    if not success then
-
+      print("Please add more " .. name .. ", then press enter.")
-
+      io.read()
-local args = {...}
+    end
-
+  until success
-local length = tonumber(args[1])
+  ic.equip()
-local width = tonumber(args[2])
+end
-local cropName = args[3]
+
-if not length or not width or not cropName then
+local function ensureEnoughEnergy()
-  error("Invalid args.")
+  if ms.getEnergyRatio() < 0.05 then
-end
+    while ms.getEnergyRatio() < 0.5 do
-print("Planting an area " .. length .. " by " .. width .. " with " .. cropName .. ".")
+      print("Energy low! Sleeping for a while.")
       os.sleep(60)
     end
   end
 end
 
 -- Moves from the current position to the next planting spot (just above grass).
 -- Returns false if no spot could be found.
 local function goToNextSpot(cropName)
   ensureEnoughEnergy()
   equipItemOrWait(PICKAXE_NAME, cropName)
   -- Go up to try and get around an obstacle, or give up if we can't.
   while robot.detect() do
     if not robot.up() then return false end
   end
   ms.exec("F")
   DISPLACEMENT = DISPLACEMENT + 1
   local grassFound = false
   while true do
     local blocking, desc = robot.detectDown()
     -- If we hit a liquid, quit right away.
     if not blocking and desc == "liquid" then return false end
     if blocking then -- There is something blocking the robot's path.
       -- If the block below us is something passable or an entity, keep swinging until it's gone.
       if desc == "passable" or desc == "entity" then
         repeat
           ms.exec("Sd")
         until not robot.detectDown()
       end
       if desc == "solid" then
         local blockData = geolyzer.analyze(sides.bottom)
         -- If for some reason we can't analyze the block, quit.
         if blockData == nil then return false end
         for _, plantableBlockName in ipairs(PLANTABLE_BLOCKS) do
           if blockData.name == plantableBlockName then
             ms.exec("U")
             return true
           end
         end
         -- If we reached a solid block that's not plantable, quit and return false.
         if not grassFound then return false end
       end
     else -- The robot is free to move down.
       ms.exec("D")
     end
   end
 end
 
 local function plantSpot(cropName)
   repeat
     equipItemOrWait(HOE_NAME, cropName)
     robot.useDown()
     equipItemOrWait(cropName, cropName)
     local success = robot.useDown()
   until success
 end
 
 local function plantUnboundedLength(width, cropName)
   for col = 1, width do
     -- Go as far as possible in this column.
     repeat
       local success = goToNextSpot(cropName)
       if success then
         plantSpot(cropName)
       end
     until not success
     -- We've reached the end. Go all the way back, then go into the next column.
     ms.exec("RR")
     while DISPLACEMENT ~= 0 do
       while not robot.detectDown() do
         ms.exec("D")
       end
       while robot.detect() do
         ms.exec("U")
       end
       ms.exec("F")
       DISPLACEMENT = DISPLACEMENT - 1
     end
     ms.exec("L")
     print("Completed column " .. col .. " of " .. width)
     if col ~= width then
       goToNextSpot(cropName)
       plantSpot(cropName)
       DISPLACEMENT = 0 -- Reset our global displacement tracker before going on the next run.
     end
     ms.exec("L")
   end
 end
 
 local function plantArea(length, width, cropName)
   goToNextSpot(cropName)
   plantSpot(cropName)
   ms.exec("R")
   for row = 1, length do
     for col = 1, width - 1 do
       goToNextSpot(cropName)
       plantSpot(cropName)
     end
     if row % 2 == 1 then
       ms.exec("L")
     else
       ms.exec("R")
     end
     if row ~= length then
       goToNextSpot(cropName)
       plantSpot(cropName)
     end
     if row % 2 == 1 then
       ms.exec("L")
     else
       ms.exec("R")
     end
     print("Completed row " .. row .. " of " .. length)
   end
 end
 
 
 if ic == nil then error("Missing inventory controller component.") end
 if geolyzer == nil then error("Missing geolyzer component.") end
 
 local arg = {...}
 
 local length = tonumber(arg[1])
 local width = tonumber(arg[2])
 local cropName = arg[3]
 if not length or not width or not cropName then
   error("Invalid args.")
 end
 
 if length < 0 and width > 0 then
   print("Planting area " .. width .. " blocks wide, with unbounded length, with " .. cropName)
   plantUnboundedLength(width, cropName)
   return
 end
 
 print("Planting an area " .. length .. " by " .. width .. " with " .. cropName .. ".")
 plantArea(length, width, cropName)