CC Thaumcraft Aspect Anzeige

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
aspectsByName={iter=1,tutamen=2,bestia=3,victus=4,metallum=5,gelum=6,machina=7,tenebrae=8,terra=9,meto=10,potentia=11,ordo=12,sano=13,corpus=14,messis=15,humanus=16,tempus=17,herba=18,permutatio=19,pannus=20,fames=21,spiritus=22,lux=23,limus=24,mortuus=25,tempestas=26,perfodio=27,auram=28,fabrico=29,volatus=30,aqua=31,venenum=32,arbor=33,exanimis=34,vacuos=35,ignis=36,lucrum=37,sensus=38,aer=39,alienis=40,motus=41,vitreus=42,telum=43,vinculum=44,praecantatio=45,vitium=46,cognitio=47,perditio=48,instrumentum=49}
aspectsByNumber={"iter","tutamen","bestia","victus","metallum","gelum","machina","tenebrae","terra","meto","potentia","ordo","sano","corpus","messis","humanus","tempus","herba","permutatio","pannus","fames","spiritus","lux","limus","mortuus","tempestas","perfodio","auram","fabrico","volatus","aqua","venenum","arbor","exanimis","vacuos","ignis","lucrum","sensus","aer","alienis","motus","vitreus","telum","vinculum","praecantatio","vitium","cognitio","perditio","instrumentum"}

w=wrapPs("tt_aspectContainer")
m=wrapPs("monitor")[1]
me=wrapPs("tileinterface")[1]
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",  },}

function addAspect(aspect,aspectCount)
    if aspects[aspect]==nil then
    aspects[aspect]=0
    end
    aspects[aspect]=aspects[aspect]+aspectCount
end

function refill(aspect,aspectCount)
me.exportItem(crystalAspects[aspect],"down",aspectCount)
sleep(5)
end

while true do
aspects={}
for i=1,#w do
cAspects=w[i].getAspects()
    for i2=1,#cAspects do
    addAspect(cAspects[i2],w[i].getAspectCount(cAspects[i2]))
    end
end

i2=1
m.clear()
for i=1, #aspectsByNumber do
    if aspects[aspectsByNumber[i]]~=nil then
        if aspects[aspectsByNumber[i]]<64 then
        m.setTextColor(colors.red)
        else
        m.setTextColor(colors.green)
        end
        if i2<27 then
        m.setCursorPos(1,i2)
        else
        m.setCursorPos(26,i2-26)
        end
        m.write(aspectsByNumber[i].." : "..aspects[aspectsByNumber[i]])
    end
    if aspects[aspectsByNumber[i]]<64 then
    m.clear()
    m.setCursorPos(1,1)
    m.write(aspects[aspectsByNumber[i]].." "..aspectsByNumber[i].." fehlen")
    refill(aspectsByNumber[i],64-aspects[aspectsByNumber[i]])
    end
i2=i2+1
end
sleep(1)
end