craftwerk

forzakenus

May 1st, 2020

1,064

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

Lua 11.85 KB | None | 0 0

raw download clone embed print report

local args ={...}
local component = require("component")
local robot = require("robot")
local sides = require("sides")
-- Main output side
local f = sides.forward
-- Main input sides
local u = sides.up
local d = sides.down
-- Controllers named
inv_controller = component.inventory_controller
-- What to craft
toCraft = args[1]
--Amount to craft
amount = tonumber(args[2])
if amount==nil then
amount=1
end
-- Craftin formulas
formulas = {}
formulas["Item Barrel"] = {
[1] = 'Oak Wood',
[2] = 'Oak Wood Slab',
[3] = 'Oak Wood',
[5] = 'Oak Wood',
[6] = 'Emptyness is hard',
[7] = 'Oak Wood',
[9] = 'Oak Wood',
[10] = 'Oak Wood',
[11] = 'Oak Wood',
}
formulas["Double Compressed Cobblestone"]={
[1] = 'Compressed Cobblestone',
[2] = 'Compressed Cobblestone',
[3] = 'Compressed Cobblestone',
[5] = 'Compressed Cobblestone',
[6] = 'Compressed Cobblestone',
[7] = 'Compressed Cobblestone',
[9] = 'Compressed Cobblestone',
[10] = 'Compressed Cobblestone',
[11] = 'Compressed Cobblestone',
}
formulas["Triple Compressed Cobblestone"]={
[1] = 'Double Compressed Cobblestone',
[2] = 'Double Compressed Cobblestone',
[3] = 'Double Compressed Cobblestone',
[5] = 'Double Compressed Cobblestone',
[6] = 'Double Compressed Cobblestone',
[7] = 'Double Compressed Cobblestone',
[9] = 'Double Compressed Cobblestone',
[10] = 'Double Compressed Cobblestone',
[11] = 'Double Compressed Cobblestone',
}
formulas["Quadruple Compressed Cobblestone"]={
[1] = 'Triple Compressed Cobblestone',
[2] = 'Triple Compressed Cobblestone',
[3] = 'Triple Compressed Cobblestone',
[5] = 'Triple Compressed Cobblestone',
[6] = 'Triple Compressed Cobblestone',
[7] = 'Triple Compressed Cobblestone',
[9] = 'Triple Compressed Cobblestone',
[10] = 'Triple Compressed Cobblestone',
[11] = 'Triple Compressed Cobblestone',
}
formulas["Compressed Cobblestone"]={
[1] = 'Cobblestone',
[2] = 'Cobblestone',
[3] = 'Cobblestone',
[5] = 'Cobblestone',
[6] = 'Cobblestone',
[7] = 'Cobblestone',
[9] = 'Cobblestone',
[10] = 'Cobblestone',
[11] = 'Cobblestone',
}
craftingSlots = {
[0] = 1,
[1] = 2,
[2] = 3,
[4] = 5,
[5] = 6,
[6] = 7,
[7] = 9,
[8] = 10,
[9] = 11
}
materials_list = {}
materials_formula = {}
function moveStuff(material,to_slot,amount)
local input_chest = inv_controller.getAllStacks(d).getAll()
i = 1
for slot_key, item in pairs(input_chest) do
if item then
itemName = item.label
if itemName == material then
robot.select(to_slot)
inv_controller.suckFromSlot(d,i,amount)
return
end
else
end
i = i+1
end
end
function clearTable()
for key, slot in pairs(craftingSlots) do
robot.select(slot)
robot.drop()
end
robot.select(1)
end
function dump(o)
if type(o) == 'table' then
local s = '{ '
for k,v in pairs(o) do
if type(k) ~= 'number' then k = '"'..k..'"' end
s = s .. '['..k..'] = ' .. dump(v) .. ','
end
return s .. '} '
else
return tostring(o)
end
end
function innventoryList(side)
inv_list = inv_controller.getAllStacks(side).getAll()
i = 1
inv_list_array = {}
for key, inv_slot in pairs(inv_list) do
if type(inv_slot) == 'table' then
if inv_slot.label then
if inv_slot.label == 'Air' then
else
if type(inv_list_array[inv_slot.label])=='table' then
inv_list_array[inv_slot.label]['totalcount'] = inv_list_array[inv_slot.label]['totalcount'] + inv_slot.size
inv_list_array[inv_slot.label]['slots'][i] = {}
inv_list_array[inv_slot.label]['slots'][i] = inv_slot.size
else
inv_list_array[inv_slot.label] = {}
inv_list_array[inv_slot.label]['totalcount'] = inv_slot.size
inv_list_array[inv_slot.label]['slots'] = {}
inv_list_array[inv_slot.label]['slots'][i] = {}
inv_list_array[inv_slot.label]['slots'][i] = inv_slot.size
end
end
end
end
i = i + 1
end
return inv_list_array
end
function countMaterialsInInventory(list,inv_list_array,direction)
materials_status = {}
for material, amount_needed in pairs(list) do
materials_status[material] = {}
if inv_list_array[material] then
inv_count = inv_list_array[material]['totalcount']
if inv_count >= amount_needed then
materials_status[material]['have'] = inv_count
materials_status[material]['needed'] = 0
else
materials_status[material]['have'] = inv_count
materials_status[material]['needed'] = amount_needed - inv_count
end
else
materials_status[material]['have'] = 0
materials_status[material]['needed'] = amount_needed
end
end
return materials_status
end
function countMaterials(mainMaterial)
if formulas[mainMaterial] then
materials_list = countToList(mainMaterial)
end
end
function countToList(materialName,material_list)
material_list = {}
if(formulas[materialName]) then
for slot, material in pairs(formulas[materialName]) do
if type(material_list[material])=='table' then
if material_list[material]['count'] then
material_list[material]['count'] = material_list[material]['count'] + 1
else
material_list[material]['count'] = 1
end
else
material_list[material] = {}
material_list[material]['count'] = 1
end
if formulas[material] then
-- materials_list[material]['submaterials'] = {}
materials_list = material_list
material_list[material]['submaterials'] = countToList(material,materials_list)
end
end
end
return material_list
end
function findMissing(materials_list,inv_list,missing_materials,multiplier)
missing_materials = {}
for material,materialInfo in pairs(materials_list) do
if multiplier then
multiplier = multiplier * materialInfo['count']
else
multiplier = materialInfo['count']
end
if inv_list[material] then
print(dump(inv_list[material]))
if inv_list[material]['totalcount'] then
total = inv_list[material]['totalcount']
if total < materialInfo['count'] then
if materialInfo['submaterials'] then
missing_materials[material]['count'] = findMissing(materialInfo['submaterials'],inv_list,missing_materials,multiplier)
else
if missing_materials[material] then
missing_materials[material]['count'] = materials_missing[material]['count'] + 1
else
missing_materials[material] = {}
fullamount = multiplier
fullamount = fullamount - total
missing_materials[material]['count'] = fullamount
end
end
end
end
else
if materialInfo['submaterials'] then
missing_materials[material] = {}
missing_materials[material] = findMissing(materialInfo['submaterials'],inv_list,missing_materials,multiplier)
else
if missing_materials[material] then
missing_materials[material['count']] = multiplier
else
missing_materials[material] = {}
missing_materials[material]['count'] = multiplier
end
end
end
end
return missing_materials
end
function materials_multiplied(materials_list,amount,mat_multiplied)
mat_multiplied = {}
for mat_name, mat_info in pairs(materials_list) do
multiplier = mat_info['count']
if amount then
multiplier = amount * multiplier
end
if type(mat_multiplied[mat_name]) == 'table' then
mat_multiplied[mat_name]['count'] = multiplier
else
mat_multiplied[mat_name] = {}
mat_multiplied[mat_name]['count'] = multiplier
end
if mat_info['submaterials'] then
mat_multiplied[mat_name]['submaterials'] = materials_multiplied(mat_info['submaterials'],multiplier,mats_multiplied)
end
end
return mat_multiplied
end
function checkMaterials(mats_multiplied,inv_list,inv_total,mats_needed)
mats_needed = {}
for mat, mat_info in pairs(mats_multiplied) do
if inv_list[mat] then
inv_total = inv_list[mat]['totalcount']
if inv_total < mat_info['count'] then
amount = mat_info['count'] - inv_total
if inv_total then
amount = amount - materials_formula[mat]
end
if type(mats_needed[mat]) == 'table' then
mats_needed[mat]['missing'] = amount
else
mats_needed[mat] = {}
mats_needed[mat]['missing'] = amount
end
if mat_info['submaterials'] then
mats_needed[mat]['submaterials'] = checkMaterials(mat_info['submaterials'],inv_list,inv_total)
end
end
else
amount = mat_info['count']
if inv_total then
substract = inv_total * materials_formula[mat]
amount = amount - substract
end
if type(mats_needed[mat]) == 'table' then
mats_needed[mat]['missing'] = amount
else
mats_needed[mat] = {}
mats_needed[mat]['missing'] = amount
end
if mat_info['submaterials'] then
mats_needed[mat]['submaterials'] = checkMaterials(mat_info['submaterials'],inv_list)
end
end
end
return mats_needed
end
function materialsTable(thingName,mats)
for mat,mat_info in pairs(mats) do
if mat_info['count'] then
materials_formula[mat] = mat_info['count']
end
if mat_info['submaterials'] then
materialsTable(thingName,mat_info['submaterials'])
end
end
end
function printMessages(materials_needed)
for mat, mat_info in pairs(materials_needed) do
print('Add atleast '.. mat_info['missing']..' ' .. mat)
if mat_info['submaterials'] then
print ('or')
printMessages(mat_info['submaterials'])
end
end
end
function craftStuff(thingName,amount)
countMaterials(thingName)
mats_multiplied = materials_multiplied(materials_list)
inv_list = innventoryList(d)
materialsTable(thingName,materials_list)
materials_needed = checkMaterials(mats_multiplied,inv_list)
if next(materials_needed)==nil then
print("We have everything")
else
printMessages(materials_needed)
end
end
while true do
craftStuff(toCraft,amount)
return
end

Add Comment

Please, Sign In to add comment