robot.lua

local component = require "component"
local computer = require "computer"
local generator = component.generator
local term = require "term"
local robot = require "robot"
local sides = require "sides"

local ISGENERATOR = component.isAvailable("generator")
local TORCHSLOT = 1
local SECTIONENERGY
local SLOTCOUNT
local SUBTUNNELLENGTH, SECTIONLENGTH --TODO
local energy = computer.energy()

local function detect(type, direction)  --Обнаружение определенноо типа [направления] роботом. Возвращает boolean.
  local detection
  if direction == "up" then detection = select(2, robot.detectUp())
   elseif direction == "down" then detection = select(2, robot.detectDown())
   else
    detection =  select(2, robot.detect())
  end
  if detection  == type then
    return true
  end
end

local function slotCount()
  print("Input chestcount :")
  SLOTCOUNT = term.read() * 16
end

local function unloading() --TODO
  robot.turnAround()
  for i = 4, SLOTCOUNT do
    robot.select(i)
    robot.drop()
  end
  robot.turnAround()
end

local function gen(slot)
  if generator.count() == 0 then
    print ("Put coal into "..slot.." slot and input something")
    term.read()
    robot.select(slot)
    generator.insert()
    gen(slot)
  end
end

local function checkEnergy(sectCount)
  if  math.floor(computer.energy()) <= 1000*sectCount + SECTIONENERGY then
    while math.floor(computer.energy()) <= 1000*sectCount + SECTIONENERGY + 30000 do
      print(math.floor(computer.energy()))
      os.sleep(20)
    end
  end
end


local function placeBlock(types, slot, direction)
  robot.select(slot)
  for _, type in pairs(types) do
    if detect(type,direction) then
      if direction == "up"  then
        robot.placeUp()
       elseif direction == "down"then
        robot.placeDown()
       else robot.place()
      end
    end
  end
end


local function killLiquid(slot)
  types = {"liquid", "replaceable"}

  placeBlock(types, slot, "up")
  placeBlock(types, slot,"down")
  placeBlock(types, slot)
  robot.turnRight()
  placeBlock(types, slot)
  robot.turnAround()
  placeBlock(types, slot)
  robot.turnRight()

end

local function checkInstr ()
  if robot.durability() == nil then
    print("Place pickaxe and input something")
    term.read()
    checkInstr()
  end
end

local function checkTorches(slot)
  if robot.count(slot) == 0 then
    print("Place torches in slot "..slot.." and press Enter")
    term.read()
    checkTorches(slot)
  end
end

local function placeTorch(slot)
  robot.turnAround()
  robot.select(slot)
  robot.place()
  robot.turnAround()
  checkTorches(slot)
end

local function tunnel(numSteps, height, isBack)  --REFACTOR!!
  local types = {"air", "liquid", "replaceable"}

  for i = 1, numSteps  do
    checkInstr()
    while robot.detect() do robot.swing()  end
    robot.forward()
    if not isBack then placeBlock(types, 2, "down") end
    if (i%13 == 0 or i == 2) and height > 1  then placeTorch(TORCHSLOT) end
    for i = 1, height-1 do
      while robot.detectUp() do robot.swingUp() end
      robot.up()
    end
    for i = 1, height-1 do
      while robot.detectDown() do robot.swingDown() end
      robot.down()
    end
  end
end

local function section(length)
  local function subTunnels(length)
    robot.turnLeft()
    tunnel(length,1)
    robot.turnAround()
    tunnel(length,1,true)
    tunnel(length,1)
    robot.turnAround()
    tunnel(length,1,true)
    robot.turnRight()
  end

  tunnel(length, 2)
  placeTorch(TORCHSLOT)
  robot.up()
  robot.turnAround()
  local count = math.floor(length/4)
  repeat
    subTunnels(5)
    tunnel(4, 1, true)
    count = count - 1
  until count == 0
  robot.turnAround()
  robot.down()
  gen(3)
end

local function miner(sectionCount,sectionLength)
  SECTIONENERGY = computer.energy()
  slotCount()
  checkInstr()
  checkTorches(TORCHSLOT)
  gen(3)
  section(sectionLength)
  unloading()
  SECTIONENERGY = SECTIONENERGY - computer.energy() + 1000
  for i = 1, sectionCount do
    robot.turnLeft()
    tunnel(11*i, 2)
    robot.turnRight()
    section(sectionLength)
    robot.up()
    robot.turnRight()
    tunnel(11*i, 1, true)
    robot.turnLeft()
    robot.down()
    unloading()
    checkEnergy(i)
  end

end

term.clear()
print("Input section count: ")
local secCount = term.read()
print("Input section length: ")
local secLength = term.read()
print('Start energy: '..energy)
miner(secCount,secLength)
print('Energy used  : ' .. math.floor(energy - computer.energy()))