dig3

--Если бур надо заряжать, в первый слот кладем
--энергохранилище во второй ключ, ставим
--на игнор 2 слота и подключаем апгрейд
--контроллера инвентаря
------------Настройки---------------
incont=false;--заряжать кирку?
slots=16--количество слотов у робота?
propusk=1;--игнорировать первые N слотов
slotstocheck=2--выгрузка если заполнены последние N слотов
cobblestone=1
------------Переменные---------------
local computer = require('computer')
local component = require("component")
if require("component").isAvailable("generator") then
  generator=require("component").generator
end
if require("component").isAvailable("inventory_controller") then
  incontrol=require("component").inventory_controller
end
if require("component").isAvailable("chunkloader") then
  component.chunkloader.setActive(true)
  loader=require("component").chunkloader
end
robot=require("robot")

withg=(generator~=nil)
propusk=propusk+1;
coords={x=0,y=0,z=0,side=1}
extcoords={x=0,y=0,z=0,side=1}
sx={0,1,0,-1}
sy={1,0,-1,0}
-------------Функции-----------------
function go() while not robot.forward() do robot.swing()end coords.x=coords.x + sx[coords.side];coords.y = coords.y + sy[coords.side] end
function godown() while not robot.down() do robot.swingDown()end coords.z = coords.z - 1 end
function goup() while not robot.up() do robot.swingUp()end coords.z = coords.z + 1 end
function check() return robot.count(slots-(slotstocheck-1)) == 0 end
function energy() return computer.energy()>((computer.maxEnergy()*5)/100) end
function turnLeft() robot.turnLeft(); coords.side = (coords.side + 3)%4;if coords.side == 0 then coords.side =4 end; end
function turnRight() robot.turnRight(); coords.side = (coords.side + 1)%4; if coords.side == 0 then coords.side =4 end; end
function tosurf()
    extcoords.x=coords.x
    extcoords.y=coords.y
    extcoords.z=coords.z
    extcoords.side=coords.side
    while coords.z ~= 0 do goup() end
    while coords.side ~= 3 do turnRight() end
    while coords.y ~= 0 do go() end
    turnRight();
    while coords.x ~= 0 do go() end
    turnLeft();
end
function back()
    while coords.z ~= extcoords.z do godown() end
    while coords.side~= 1 do turnRight() end
    while coords.y ~= extcoords.y do go() end
    turnRight();
    while coords.x ~= extcoords.x do go() end
    while coords.side ~= extcoords.side do turnRight() end
end
function clearinv()
  alreadyhave=false
  for invcounter=propusk,slots do
    robot.select(invcounter)
    if withg then
      suc,error=generator.insert()
      if (error=="selected slot does not contain fuel" or alreadyhave) then
        robot.drop()
      else
        alreadyhave=true
      end
    else
      robot.drop()
    end
  end
robot.select(1)
end

function cobbleDel()
  if incontrol.getStackInInternalSlot(cobblestone).name=='minecraft:cobblestone' then
    if robot.count(cobblestone)>1 then
      robot.select(cobblestone)
      if robot.count()==1 then
        robot.select(1)
      else
        robot.dropDown(robot.count()-1)
        robot.select(1)
      end
    end
  end
end

function prevent()
--print((check()) and (energy()) and (robot.durability()>0.01),check(),energy(),(robot.durability()>0.01))
    if ((check()) and (energy()))==false then
      tosurf()
      clearinv()
      if computer.energy()<((computer.maxEnergy()*5)/100) then
        while computer.energy()<computer.maxEnergy()-20 do
          computer.beep(2000, 5)
          print('ТРЕВОГА!!! Низкий уровень энергии. ',computer.energy())
          print('Сохранение данных не поддерживается')
          os.sleep(30);
        end
      end
      --if (incont and robot.durability()>0.01)==false then
      --  robot.turnLeft()
      --  robot.place()--ставим буфер
      --  incontrol.equip()--извлекаем бур
      --  robot.drop()--пихаем в буфер
      --  os.sleep(25)
      --  robot.select(2)
      --  incontrol.equip()--берем ключ из второго слота
       -- robot.suck()--забрать бур(2 слот)
      --  robot.select(1)
      --  robot.use()--свинтить буфер (1 слот)
      --  robot.select(2)
      --  incontrol.equip()--меняем ключ и бур
      --  robot.select(1)
      --  turnRight()
      --end
      back()
    end
end

function digrow(n)
  prevent()
  robot.swingUp()
  robot.swingDown()
  for k=1,n do
    go()
    robot.swingUp()
    robot.swingDown()
    cobbleDel()
    prevent()
  end
end
function digdim(x,y)
  godown()
  godown()
  for n=1,y do
    if tl then turnLeft() else turnRight() end
    digrow(ex)
    if tl then turnRight() else turnLeft() end
    tl = not tl
    if n==y then print("ok") else go() end
  end
  turnRight();
  turnRight();
  tl= not tl
end
------------Глав прог-----------------
x,y,z=...
tl=false
x=x+0
y=y+0
z=z+0
ex=x-1
fullz=(z-z%3)/3
print("Fullz = " .. fullz)
do
if incont==true then
  if (incontrol~=nil)==false then
    print("!!!ОШИБКА!!!")
    print("Вы забыли установить контроллер инвентаря, зарядка невозможна без него")
    print("Продолжить работать без него?(1-продолжить, 0-выйти)")
    a=io.read(1)
    if a=='1' then
      print('Продолжаем работать, зарядка отключена')
      incont=false;
    else
      print('Инициализация выхода...')
      os.sleep(3)
      computer.shutdown()
    end
  else
    print('Контроллер инвентаря подключен, бур будет заряжаться, не забудьте положить энергохранилище и ключ')
  end
else
  print('Зарядка рабочего инструмента отключена')
end
end
print('Запуск генератора... ',generator~=nil)
print('Запуск чанклодера... ',loader~=nil)
print('Объем рабочей зоны - ',x*y*z,' м^3, будет добыто ~',math.ceil((x*y*z)/64))
print('Проверка завершена, запуск...')
for i=1,fullz do
  digdim(x,y)
  godown()
end
if fullz*3==z then
  elseif fullz*3+1==z then
    goup();
    goup();
    digdim(tl,x,y)
else
  goup();
  digdim(tl,x,y)
end
tosurf()
clearinv()
computer.shutdown()