cr

local drop = 1 --0 = под роботом 1 = над роботом;
               --сторона дропа
local NPNPNP = 3 --0 под роботом 1 над роботом 2 сзади робота 3 впереди робота 4 справа робота 5 слева робота
                 -- сторона сканирования
local component = require("component")
local c = component.crafting
local ic = component.inventory_controller
local r = require("robot")

numslot = ic.getInventorySize(NPNPNP)
hotslotchest = 0
if numslot == nil then
    print("Сундук над роботом не найден!")
else
    print("Всего слотов в сундуке:"..numslot)
end
if(ic.getStackInSlot(NPNPNP,1) ~= nil) then
    if(ic.getStackInSlot(NPNPNP,1)["label"] == "Diamond Hoe") then
        print("Путь:"..os.getenv("PWD"))
        file = io.open(os.getenv("PWD") .."/curentcraft.txt","w")
        for j = 2, 10 do
            if ic.getStackInSlot(NPNPNP,j) == nil then
                item = "<empty>"
            else
                item = ic.getStackInSlot(NPNPNP,j)["label"]
            end
            file:write(item.."\n")
        end
        file:close()
        print("Крафт успешно записан!")
        os.exit()
    end
end
file = io.open(os.getenv("PWD") .."/curentcraft.txt","r")
if file == nil then
    print("Файл крафта не найден!")
    os.exit()
end
local arr = {}
for line in file:lines() do
    table.insert (arr, line);
end
file:close()
setkacrafta = {1,2,3,5,6,7,9,10,11}
itemforcraft = {arr[1], arr[2], arr[3],arr[4],arr[5],arr[6],arr[7],arr[8],arr[9]}
r.select(4)

local function craftthis(counts)
    i = 0
    while i < counts do
        c.craft(64)
        r.drop(drop)
        i = i + 1
    end
end

function loadItem(robotslot, chestslot)
    if chestslot == 0 then
        print("В сундуке не найден нужный предмет!")
        unloadallitem()
    else
        ic.suckFromSlot(NPNPNP,chestslot,64)
        r.transferTo(robotslot,64)
    end
end

function unloadallitem()
for j = 1, 16 do
r.select(j)
r.drop(drop)
end
r.select(4)
end

function finditem(nameitem)
onlyfirst = 0
Cnumslot = numslot
i = hotslotchest
::startfind::
while i < Cnumslot do
i = i + 1
ItemStack = ic.getStackInSlot(NPNPNP,i)
 if ItemStack ~= nil then
 if ic.getStackInSlot(NPNPNP,i)["label"] == nameitem then
 hotslotchest = i
 return i
 end
 end
end
i = 0
Cnumslot = hotslotchest
onlyfirst = onlyfirst + 1
if onlyfirst == 1 then goto startfind end
return 0
end

while true do
craftthis(1)
    for j = 1, 9 do
        if itemforcraft[j] ~= "<empty>" then
            if r.count(setkacrafta[j]) < 1 then
                print("Кончилось "..itemforcraft[j].." в слоте "..setkacrafta[j].."...")
                loadItem(setkacrafta[j],finditem(itemforcraft[j]))
            end
        end
    end
end