View difference between Paste ID: K4DU8d3n and bxM5eg3r

 -- Юзер-дефинед вариаблы :3
 
 -- Начальное положение робота:
 coordx = 785
 coordy = 60
 coordz = 3993
 orLine = "z" -- линия движения: x или z
 orPos = -1 -- 1 значит pos, -1 значит neg по orLine
 
 retries = 3 -- попытки движения робота
 
 INV_SIZE = 16 -- вместимость инвертаря
 SLEEP_TIME = 600 -- задержка между уборками полей
 
 -- <velosipedy_na_kostylah>
 
 -- Подключение апи и прочее задание вариаблов
 
 savedretr = retries
 
 savedx = coordx
 savedy = coordy
 savedz = coordz
 savedline = orLine
 savedpos = orPos
 
 robot = require("robot")
 computer = require("computer")
 io = require("io")
 string = require("string")
 component = require("component")
 geolyzer = component.geolyzer
 invcon = component.inventory_controller
 
 -- Копипастнутый split
 function split(str, pat)
    local t = {}  -- NOTE: use {n = 0} in Lua-5.0
    local fpat = "(.-)" .. pat
    local last_end = 1
    local s, e, cap = str:find(fpat, 1)
    while s do
       if s ~= 1 or cap ~= "" then
    table.insert(t,cap)
       end
       last_end = e+1
       s, e, cap = str:find(fpat, last_end)
    end
    if last_end <= #str then
       cap = str:sub(last_end)
       table.insert(t, cap)
    end
    return t
 end
 
 -- Навигатсия
 function forward()
  if robot.forward() == true then
   if orLine == "x" then coordx = coordx + orPos end
   if orLine == "z" then coordz = coordz + orPos end
   retries = savedretr
  else
   retry("f")
  end
 end
 
 function back()
  if robot.back() == true then
   if orLine == "x" then coordx = coordx - orPos end
   if orLine == "z" then coordz = coordz - orPos end
   retries = savedretr
  else
   retry("b")
  end
 end
 
 function turnLeft() -- интересно, а поворот робот может провалить?
  robot.turnLeft()
  if orLine == "x" then
   orLine = "z"
   orPos = orPos - 2 * orPos -- инвертируем
   return 0
  end
  if orLine == "z" then
   orLine = "x"
   return 0
  end
 end
 
 function turnRight()
  robot.turnRight()
  if orLine == "x" then
   orLine = "z"
   return 0
  end
  if orLine == "z" then
   orLine = "x"
   orPos = orPos - 2 * orPos
   return 0
  end
 end
 
 function turnAround()
  robot.turnAround()
  orPos = orPos - 2 * orPos
 end
 
 function up()
  if robot.up() == true then
   coordy = coordy + 1
   retries = savedretr
  else
   retry("u")
  end
 end
 
 function down()
  if robot.down() == true then
   coordy = coordy - 1
   retries = savedretr
  else
   retry("d")
  end
 end
 
 function retry(ftocall)
  if retries > 0 then
   retries = retries - 1
   computer.beep()
   os.sleep(5) -- если энтитя мешается, ждем, вдруг отойдет
   if ftocall == "f" then
    forward()
   end
   if ftocall == "b" then
    back()
   end
   if ftocall == "u" then
    up()
   end
   if ftocall == "d" then
    down()
   end
  else
   print("Не могу продолжать движение по причинам, от меня не зависящим.")
   error()
  end
 end
 
 function orientTo(destline,destpos)
  if destline == orLine and destpos ~= orPos then
   turnAround()
   return 0
  end
  if destline ~= orLine and destpos == orPos then
   if orLine == "x" then turnRight() else turnLeft() end
   return 0
  end
  if destline ~= orLine and destpos ~= orPos then
   if orLine == "x" then turnLeft() else turnRight() end
   return 0
  end
 end
 
 function moveTo(destx,desty,destz)
  while desty ~= coordy do
   if desty < coordy then down() end
   if desty > coordy then up() end
  end
  if destx ~= coordx then orientTo("x",1) end
  while destx ~= coordx do
   if destx < coordx then back() end
   if destx > coordx then forward() end
  end
  if destz ~= coordz then orientTo("z",1) end
  while destz ~= coordz do
   if destz < coordz then back() end
   if destz > coordz then forward() end
  end
 end
 
 function findXY(spx,spz,apx,apz) -- находим длину и ширину поля
  if apx > spx then
   widthX = apx - spx + 1
  else
   widthX = spx - apx + 1
  end
  if apz > spz then
   widthZ = apz - spz + 1
  else
   widthZ = spz - apz + 1
  end
  return widthX, widthZ
 end
 
 -- Фермофункстии
 
 function takeBlock(blockName,metadata,itemName,isUse)
  block = geolyzer.analyze(0)
  if block.metadata == metadata or metadata == -1 then
   metaChecked = true
  else
   metaChecked = false
  end -- так проще, чем писать еще or в if ниже
  if block.name == blockName and metaChecked == true then
   if isUse == "true" then
    robot.useDown()
   else
    robot.swingDown()
   end
   if itemName ~= "nil" then
    placeItem(itemName)
   end
  end
 end
 
 function placeItem(itemtp)
  asgCounter = INV_SIZE
  item = invcon.getStackInInternalSlot(robot.select())
  if item ~= nil and item.name == itemtp then
   robot.placeDown()
  else
   while asgCounter > 0 do
    item = invcon.getStackInInternalSlot(asgCounter)
    if item ~= nil and item.name == itemtp then
     robot.select(asgCounter)
     robot.placeDown()
     break
    else
     asgCounter = asgCounter - 1
    end
   end
  end
 end
 
 function harvestField(num)
  moveTo(startPointX[num],fieldY[num]+1,startPointZ[num])
  wx, wz = findXY(startPointX[num],startPointZ[num],anotherPointX[num],anotherPointZ[num])
  if wx > wz then -- костыли-костылики
   anotherPointX[num] = anotherPointX[num] - 1
   wx = wx - 1
   kostylFlag = false
  else
   if wx == wz then -- Костыль для костыля :O
    kostylFlag = true
   else
    kostylFlag = false
   end
   anotherPointZ[num] = anotherPointZ[num] - 1
   wz = wz - 1
  end
  counter = wx * wz -- площадь поля
  if wx > wz and kostylFlag == false then
   if anotherPointX[num] > startPointX[num] then
    orPosTmp = 1
   else
    orPosTmp = -1
   end
   while counter > 0 do
    orientTo("x",orPosTmp)
    length = wx
    while length > 0 do
     takeBlock(blockToTake[num],fullGrownState[num],itemToPlant[num],isRight[num])
     forward()
     if coordx == startPointX[num] or coordx == anotherPointX[num] + 1 then
      takeBlock(blockToTake[num],fullGrownState[num],itemToPlant[num],isRight[num])
     end
     length = length - 1
     counter = counter - 1
    end
    if counter > 0 then
     if startPointZ[num] < anotherPointZ[num] then
      moveTo(coordx,coordy,coordz+1)
     else
      moveTo(coordx,coordy,coordz-1)
     end
     orPosTmp = orPosTmp - 2 * orPosTmp
    end
   end
  else
   if anotherPointZ[num] > startPointZ[num] then
    orPosTmp = 1
   else
    orPosTmp = -1
   end
   while counter > 0 do
    orientTo("z",orPosTmp)
    length = wz
    while length > 0 do
     takeBlock(blockToTake[num],fullGrownState[num],itemToPlant[num],isRight[num])
     forward()
     if coordz == startPointZ[num] or coordz == anotherPointZ[num] + 1 then
      takeBlock(blockToTake[num],fullGrownState[num],itemToPlant[num],isRight[num])
     end
     length = length - 1
     counter = counter - 1
    end
    if counter > 0 then
     if startPointX[num] < anotherPointX[num] then
      moveTo(coordx+1,coordy,coordz)
     else
      moveTo(coordx-1,coordy,coordz)
     end
     orPosTmp = orPosTmp - 2 * orPosTmp
    end
   end
  end
 end
 
 -- Читаем конфиг
 
 startPointX = {}
 startPointZ = {}
 anotherPointX = {}
 anotherPointZ = {}
 fieldY = {}
 blockToTake = {}
 itemToPlant = {}
 fullGrownState = {}
 isRight = {}
 
 function getFields()
  counter = 1
  for line in io.lines("/fields.txt") do
   lineTable = split(line,",")
   startPointX[counter] = tonumber(lineTable[1])
   startPointZ[counter] = tonumber(lineTable[2])
   anotherPointX[counter] = tonumber(lineTable[3])
   anotherPointZ[counter] = tonumber(lineTable[4])
   fieldY[counter] = tonumber(lineTable[5])
   blockToTake[counter] = lineTable[6]
   itemToPlant[counter] = lineTable[7]
   fullGrownState[counter] = tonumber(lineTable[8])
-  isRight[counter] = lineTable[9]
+  if lineTable[9] == nil then
    isRight[counter] = "false"
   else
    isRight[counter] = lineTable[9]
   end
   counter = counter + 1
  end
 end
 
 while true do
  getFields()
  for foobar=1, #startPointX do
   harvestField(foobar)
  end
  moveTo(savedx,coordy,savedz)
  moveTo(coordx,savedy,coordz)
  orientTo(savedline,savedpos)
  os.sleep(SLEEP_TIME)
 end
 
 -- </velosipedy_na_kostylah>