random-stuff/computercraft/autokit.lua

local box_side = "down"
local box = peripheral.find "thermalexpansion:storage_strongbox"
local interface = peripheral.find "appliedenergistics2:interface"

local kitfile = ...
if not kitfile then error "provide a kit file" end
local kit = dofile(kitfile)

for slot, stack in pairs(box.list()) do
	local name = stack.name .. "@" .. tostring(stack.damage)
	print(stack.count, name, "already present")
	for i, it in pairs(kit) do
		if it[1] == stack.name or it[1] == name then
			it[2] = it[2] - stack.count
			if it[2] <= 0 then table.remove(kit, i) end
			break
		end
	end
end

local function free_crafting_CPUs()
	local count = 0
	for _, CPU in pairs(interface.getCraftingCPUs()) do
		if not CPU.busy then count = count + 1 end
	end
	return count
end

local max_concurrency = math.max(free_crafting_CPUs() / 2, 1)
print("Using max", max_concurrency, "crafting CPUs")

local function display_kit_item(i)
	return ("%s x%d"):format(i[1], i[2])
end

local function export(item, count)
	local total = 0
	while total < count do
		local new = item.export(box_side, count - total)
		if new == 0 then error "no items available or storage full" end
		total = total + new
	end
end

local tasks = {}

while true do
	if #tasks < max_concurrency and #kit > 0 then
		-- pop off next item
		local nexti = table.remove(kit, 1)
		local item = interface.findItem(nexti[1])
		if not item then error(display_kit_item(nexti) .. " not found?") end
		local desired = nexti[2]
		local existing = item.getMetadata().count
		if existing < desired then
			local crafting_job = item.craft(desired - existing)
			print("Queueing", display_kit_item(nexti))
			table.insert(tasks, { job = crafting_job, itemtype = nexti, item = item })
		end
		if existing > 0 then
			export(item, math.min(existing, desired))
			print("Exporting existing", display_kit_item { nexti[1], math.min(existing, desired) })
		end
	else
		for i, task in pairs(tasks) do
			local status = task.job.status()
			if status == "canceled" then
				error("Job for " .. display_kit_item(task.itemtype) .. " cancelled by user")
				table.remove(tasks, i)
			elseif status == "missing" then
				error("Job for " .. display_kit_item(task.itemtype) .. " missing items")
				table.remove(tasks, i)
			elseif status == "finished" then
				print("Exporting", display_kit_item(task.itemtype))
				export(task.item, task.itemtype[2])
				table.remove(tasks, i)
			end
		end
		sleep(1)
	end
	if #tasks == 0 and #kit == 0 then print "Done!" break end
end