local NPNPNP = 0 --0 под роботом 1 над роботом 2 сзади робота 3 впереди робота 4 справа робота 5 слева робота
-- сторона сканирования

local PSPSPS = 1 -- сторона выброса вещей

local component = require("component")
local c = component.crafting
local ic = component.inventory_controller
local r = require("robot")
local r_ = component.robot

numslot = ic.getInventorySize(1)
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)

function craftthis(counts)
i = 0
while i < counts do
c.craft(64)
r_.drop(PSPSPS, 64)
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(PSPSPS, 64)
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

doWork = true
while doWork 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]))
if r.count(setkacrafta[j]) < 1 then
doWork = false
break
end
end
end
end
end