vines/turtle.lua: command strings testing 3

diff --git a/vines/turtle.lua b/vines/turtle.lua
index 0cbe3905c721c64d3ab52c3b00bcbe327be89241..4df09c64b8acf97879dd49dce12a7ae05e94c0f4 100644 (file)
--- a/vines/turtle.lua
+++ b/vines/turtle.lua
@@ -119,7 +119,7 @@ end
 local harvest = function()
   local facing_block, block = turtle.inspect()
   if not (facing_block and block.name == "minecraft:vine") then return false, "Not facing vine" end
-  if not select(shears) then return false, "No shears available" end
+  if not transferAndSelect(shears) then return false, "No shears available" end
   local cut, cut_error = automata.digBlock()
   if not cut then return false, "Could not cut vine: " .. cut_error end
   local collect, collect_error = automata.collectItems()
@@ -156,16 +156,34 @@ runCommand = function(str)
 --     print(cmd, tostring(i).."/"..tostring(n))
 --   end
   return runCommand(rest)
+end 
+
+-- rep : number of repeats -> string -> string | nil
+-- repeats string n times
+--
+local  = function(n, str)
+  if not n or n < 0 then return nil end
+  local s = ""
+  for i 1, i do
+    s = s .. str
+  end
 end
-  
+    
 -- for testing purposes
 local sequence = function()
   print("pretending to unload stray items")
   print("pretending to refuel")
   print("pretending to stock up on shears")
-  local cmd = "rf3hfhflfr2"
+  local enter_vineyard = "rf3hfhflfr2"
+  local harvest_north =
+    "d2h u4h"
+    .. rep(6,"u2h") .. "lfdrh"
+    .. rep(7,"d2h") .. "lfurh"
+    .. rep(7,"u2h") .. "lfdrh"
+    .. rep(7,"d2h") .. "lfurh"
+    .. rep(7,"u2h") .. "lfdrh"
   print(cmd)
-  return runCommand(cmd)
+  return runCommand(cmd..)
 end
 
 while true do