item aspect scanner

me=peripheral.wrap("tileinterface_7")
p=peripheral.wrap("top")
itemByAspect={}
items=me.getAvailableItems()
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"}



for i=1,49 do
itemByAspect[i]=0
end

function scan()
for i=1,#items do
--for i=1,42 do
me.exportItem(items[i].fingerprint,"down",1)
aspects=p.getAspects()
if aspects~=nil then
for i2=1,#aspects do
if itemByAspect[aspectsByName[aspects[i2]]]==0 then
itemByAspect[aspectsByName[aspects[i2]]]={}
end
item={}
item["aspects"]=p.getAspectCount(aspects[2])
item["fingerprint"]=items[i].fingerprint
itemByAspect[aspectsByName[aspects[i2]]][#itemByAspect[aspectsByName[aspects[i2]]]+1]=item

end
term.clear()
term.setCursorPos(1,1)
term.write(i.."/"..#items)
end
me.pullItem('down',1)
end
shell.run("mkdir aspects")
for i=1,49 do
fp=fs.open("aspects/"..i,"w")
fp.write("aspects="..textutils.serialize(itemByAspect[i]))
fp.close()
end
end

function getAspects()
itemByAspect={}
for i=1,49 do
shell.run("aspects/"..i)
itemByAspect[i]=aspects
end
end

function dump()
print("Bitte warten")
for i=1,300 do
me.pullItem("up",i+3)
end
end

function main()
getAspects()
aspectnames=""
for i=1,49 do
if itemByAspect[i]~=0 then
aspectnames=aspectnames..aspectsByNumber[i]..","
end
end
term.clear()
term.setCursorPos(1,1)
print(aspectnames)
print("\nGebe einen Aspekt ein fuer die Items die rausgesucht werden sollen")
print("\nGebe 'dump' ein um die Box wieder zu leeren")
aspect=io.read()
if aspect=='dump' then
dump()
end
if aspect=='scan' then
scan()
end
if aspectsByName[aspect]~=nil then
for i=1,#itemByAspect[aspectsByName[aspect]] do
me.exportItem(itemByAspect[aspectsByName[aspect]][i].fingerprint,"up",1)
end
end

end

while true do
main()
end