Automated Thaumcraft Infusion Altar

function wrapP(peripheralName)
if os.version()~="CraftOS 1.5" then
if peripheralName==nil then
print("Fehler")
end
local peripherals = peripheral.getNames()
local i = 1
while i < #peripherals and peripheral.getType(peripherals[i])~=peripheralName do
i=i+1
end
if peripheral.getType(peripherals[i])==peripheralName then
return peripheral.wrap(peripherals[i]),peripherals[i]
else
return nil
end
else
local sides={"top","bottom","left","right","front","back"}
for i=1,#sides do
if peripheral.getType(sides[i])==peripheralName then
return peripheral.wrap(sides[i]),sides[i]
end
end
end
end


function wrapPs(peripheralName)
periTab={}
sideTab={}
if peripheralName==nil then
print("Fehler")
end
local peripherals = peripheral.getNames()
local i2 = 1
for i =1, #peripherals do
if peripheral.getType(peripherals[i])==peripheralName then
periTab[i2]=peripheral.wrap(peripherals[i])
sideTab[i2]=peripherals[i]
i2=i2+1
end
end
if periTab~={} then
return periTab,sideTab
else
return nil
end
end

crystalAspects={  iter = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "e02b869d0f5fae947df6187fa86c89ff",  },  tutamen = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "7efe695fcc02157c8d6b336a22951b18",  },  bestia = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "44b2fd6ee511aceb6d66d89ab0cc3ab3",  },  victus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "deb8b6eae28ee107f585558014b784ae",  },  metallum = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "07275fa65074555c50144eeaadcaa369",  },  gelum = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "6d1c371dc8953ab3b349d038149fbabf",  },  machina = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "e49f0a0b4c2005d70427b2cf0bb547c1",  },  tenebrae = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "d750071ba212a62216ff3509f819aa0a",  },  terra = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "bb9211b894dea99a6b674ebe63759333",  },  meto = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "438d48d3ad9a71d7c74b740d9af0d498",  },  potentia = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "3e4cde7bf9498dfb8d074b11fde2c2d8",  },  ordo = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "a77c4b35bbb1a4c84b15122dd52354bf",  },  sano = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "a552823dce9fa32a4d0a643fc6d80a2a",  },  corpus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "fc3b58c6d43b367885edb94a1c0b4a9e",  },  messis = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "edcfd189529c148e868fa75f723b8688",  },  humanus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "5e4a7da5863dfff7dbc5bc2613372aa6",  },  tempus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "f21dc7a7a65b31e1036f583ba9c63016",  },  herba = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "1c288c94a8a1868d12b5842efa3ad6af",  },  permutatio = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "363450adb133ce7c203fc43eadde8978",  },  pannus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "7adcf7ebaa90cc8cbb52edde554d096b",  },  fames = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "d78c7daa7e7404c74b5652b528b4bf98",  },  spiritus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "ae9bbd1dc25b4265679ff7f62e7bad22",  },  lux = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "1b9a468a86912077309e99d381993d22",  },  limus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "e2b2efb91662c9c82aea577feecb6a1e",  },  mortuus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "e58e5e079bc42dd22a42918b30a50949",  },  tempestas = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "74359249c0ceae36dbbcbbc6ac0aef32",  },  perfodio = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "932f023de69175bddc9e49726204eb26",  },  auram = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "74e597f80329c162890ae5c586baebd7",  },  fabrico = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "4bd51093dae3a8de9f013bdbb9f38e5b",  },  volatus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "b1863b99cb7c15b3c6a7a253c17d9129",  },  aqua = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "358c318e194980b0c0835a9f1ce41750",  },  venenum = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "4ff390fa1460fcfff17b3959c63622f9",  },  arbor = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "8003e0e23f094ccea997e06935a7f768",  },  exanimis = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "115fc0e04f597df5cb2f05075b640178",  },  vacuos = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "e17a8e072528e849045d2fc9292500b6",  },  ignis = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "ad5cc1bd74d2230c5c483e4c1bbc7948",  },  lucrum = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "045fd94215a5f119598e95d4961d508b",  },  sensus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "9edea0f9fa5a09fcd7ce93ca83f865ed",  },  aer = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "64630f917da3a7214b1ef2c91a90d090",  },  alienis = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "f4822536f3c421b0c4f7976181d1614d",  },  motus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "2dc5bd6dfbc37d3dda4f078312b78449",  },  vitreus = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "047206f1fafce8cdc716c9c822b1d2cb",  },  telum = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "3b3b1614a2b9152dcbf2b884ded1e3fc",  },  vinculum = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "100f092974acf71f2f081ac59d724f4c",  },  praecantatio = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "b06b63e28f76cf46121ac7ac9f195242",  },  vitium = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "8aeb0e0af059fc412dcfa2c42e983203",  },  cognitio = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "045aec975e8e153977a7dda8243425a7",  },  perditio = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "18add493aeeb97a3fe71cf8130fe8675",  },  instrumentum = {    id = "Thaumcraft:ItemCrystalEssence",    dmg = 0,    nbt_hash = "577749d66e4d1ca063910eb52c72de2b",  },}

args={...}
pedestals=wrapPs("container_pedestal")
mainPedestal=wrapP("dropper")
jar=wrapP("tt_aspectContainer")
me=wrapPs("tileinterface")
meItems=2
meAspects=1

function scan()
recipe={}
mainPedestal.pullItem("up",1)
detail=mainPedestal.getStackInSlot(1)
recipe[1]={id=detail.id,dmg=detail.dmg}
if detail.nbt_hash~=nil then
recipe[1].nbt_hash=detail.nbt_hash
end
mainPedestal.pushItem("up",1)
i2=2
for i=1,#pedestals do
detail=pedestals[i].getStackInSlot(1)
if detail~=nil then
recipe[i2]={id=detail.id,dmg=detail.dmg}
if detail.nbt_hash~=nil then
recipe[i2].nbt_hash=detail.nbt_hash
end
i2=i2+1
end
end
print("Speichern als:")
name=io.read()
fp=fs.open(name,'w')
fp.write('recipe='..textutils.serialize(recipe))
fp.close()
fp=fs.open(name.."Aspects",'a')
aspects=jar.getAspects()
for i=1,#aspects do
aspects[aspects[i]]=jar.getAspectCount(aspects[i])
end
fp.write('aspects='..textutils.serialize(aspects))
fp.close()
end

function abort()
for i=1,#pedestals do
pedestals[i].pushItem("down",1)
end
mainPedestal.pullItem("up",1)
sleep(1)
mainPedestal.pushItem("up",1)
for i=1,#pedestals do
pedestals[i].pullItem("down",1)
end
end

function craft(name)
space=0
for i=1,#pedestals do
space=pedestals[i].getStackInSlot(1)
end
space=mainPedestal.getStackInSlot(1)
if space==nil then
shell.run(name)
me[meItems].exportItem(recipe[1],'down',1)
for i=2,#recipe do
me[meItems].exportItem(recipe[i],'up',1)
end
getAspects(name)
end
end

function getAspects(name)
print("debug1")
shell.run(name.."Aspects")
items=me[meAspects].getAvailableItems()
gotAspects=true
for i=1,#aspects do
hasAspect=false
for i2=1,#items do
if items[i2].fingerprint.nbt_hash==crystalAspects[aspects[i]].nbt_hash then
hasAspect=true
print("debug2")
if items[i2].size < aspects[aspects[i]] then
hasAspect=false
print(aspects[aspects[i]]-items[i2].size..aspects[i].." fehlen")
end
end
end
if hasAspect==false then
gotAspects=false
end
end
if gotAspects then
for i=1,#aspects do
for i2=1,aspects[aspects[i]] do
me[meAspects].exportItem(crystalAspects[aspects[i]],"up",1)
end
end
end
end

if args[1]=="scan" then scan() end
if args[1]=="abort" then abort() end
if args[1]=="craft" then craft(args[2]) end