Turtle filler controller + me stock

file="bild"
me=peripheral.wrap("front")
r=peripheral.wrap("right")
r.link()
slot={}
chars={}
slot[" "]=12
slot["0"]=1
slot["1"]=2
slot["2"]=3
slot["3"]=4
slot["4"]=5
slot["5"]=6
slot["6"]=7
slot["7"]=8
slot["8"]=9
slot["9"]=10
slot["a"]=11
slot["b"]=12
slot["c"]=13
slot["d"]=14
slot["e"]=15
slot["f"]=16
id={}
id[" "]=15*32768+3225
id["0"]=0*32768+3225
id["1"]=1*32768+3225
id["2"]=2*32768+3225
id["3"]=3*32768+3225
id["4"]=4*32768+3225
id["5"]=5*32768+3225
id["6"]=6*32768+3225
id["7"]=7*32768+3225
id["8"]=8*32768+3225
id["9"]=9*32768+3225
id["a"]=10*32768+3225
id["b"]=11*32768+3225
id["c"]=12*32768+3225
id["d"]=13*32768+3225
id["e"]=14*32768+3225
id["f"]=15*32768+3225

function getCharCount(str,char)
charnum=0
for i=1, #str do
if string.sub(str,i,i)==char then
charnum=charnum+1
end
end
return(charnum)
end

function fileToTable(file)
if fs.exists(file)~=true then
print("file"..file.." not found")
return(false)
end
fp=fs.open(file,"r")
line={}
i=1
line[i]=fp.readLine()
if line[i]==nil then return(false) end
while line[i]~=nil do
i=i+1
line[i]=fp.readLine()
end
return(line)
end

img=fileToTable(file)

i=1
i2=1
i3=1
while img[i]~=nil do
for i2=1, #img[i] do
chars[i3]=string.sub(img[1],i2,i2)
i3=i3+1
end
i=i+1
end

onechar=""
for i=1, #img do
onechar=onechar..img[i]
end
term.clear()
term.setCursorPos(1,1)
term.write("Slot1 weiß: "..tostring(getCharCount(onechar,"0")))term.setCursorPos(1,2)
term.write("Slot2 orange: "..tostring(getCharCount(onechar,"1")))term.setCursorPos(1,3)
term.write("Slot3 magenta: "..tostring(getCharCount(onechar,"2")))term.setCursorPos(1,4)
term.write("Slot4 hellblau: "..tostring(getCharCount(onechar,"3")))term.setCursorPos(1,5)
term.write("Slot5 gelb: "..tostring(getCharCount(onechar,"4")))term.setCursorPos(1,6)
term.write("Slot6 hellgrün: "..tostring(getCharCount(onechar,"5")))term.setCursorPos(1,7)
term.write("Slot7 pink: "..tostring(getCharCount(onechar,"6")))term.setCursorPos(1,8)
term.write("Slot8 grau: "..tostring(getCharCount(onechar,"7")))term.setCursorPos(21,1)
term.write("Slot9 hellgrau: "..tostring(getCharCount(onechar,"8")))term.setCursorPos(21,2)
term.write("Slot10 cyan: "..tostring(getCharCount(onechar,"9")))term.setCursorPos(21,3)
term.write("Slot11 lila: "..tostring(getCharCount(onechar,"a")))term.setCursorPos(21,4)
term.write("Slot12 blau: "..tostring(getCharCount(onechar,"b")+getCharCount(onechar,"b")))term.setCursorPos(21,5)
term.write("Slot13 braun: "..tostring(getCharCount(onechar,"c")))term.setCursorPos(21,6)
term.write("Slot14 grün: "..tostring(getCharCount(onechar,"d")))term.setCursorPos(21,7)
term.write("Slot15 rot: "..tostring(getCharCount(onechar,"e")))term.setCursorPos(21,8)
term.write("Slot16 schwarz: "..tostring(getCharCount(onechar,"f")))term.setCursorPos(1,9)

as=io.read()

if as=="craft" then
me.craft(id["0"],getCharCount(onechar,"0"))
me.craft(id["1"],getCharCount(onechar,"1"))
me.craft(id["2"],getCharCount(onechar,"2"))
me.craft(id["3"],getCharCount(onechar,"3"))
me.craft(id["4"],getCharCount(onechar,"4"))
me.craft(id["5"],getCharCount(onechar,"5"))
me.craft(id["6"],getCharCount(onechar,"6"))
me.craft(id["7"],getCharCount(onechar,"7"))
me.craft(id["8"],getCharCount(onechar,"8"))
me.craft(id["9"],getCharCount(onechar,"9"))
me.craft(id["a"],getCharCount(onechar,"a"))
me.craft(id["b"],getCharCount(onechar,"b"))
me.craft(id["c"],getCharCount(onechar,"c"))
me.craft(id["d"],getCharCount(onechar,"d"))
me.craft(id["e"],getCharCount(onechar,"e"))
me.craft(id["f"],getCharCount(onechar,"f"))
end

if as=="request" then
me.retrieve(id["0"],getCharCount(onechar,"0"),1)
me.retrieve(id["1"],getCharCount(onechar,"1"),1)
me.retrieve(id["2"],getCharCount(onechar,"2"),1)
me.retrieve(id["3"],getCharCount(onechar,"3"),1)
me.retrieve(id["4"],getCharCount(onechar,"4"),1)
me.retrieve(id["5"],getCharCount(onechar,"5"),1)
me.retrieve(id["6"],getCharCount(onechar,"6"),1)
me.retrieve(id["7"],getCharCount(onechar,"7"),1)
me.retrieve(id["8"],getCharCount(onechar,"8"),1)
me.retrieve(id["9"],getCharCount(onechar,"9"),1)
me.retrieve(id["a"],getCharCount(onechar,"a"),1)
me.retrieve(id["b"],getCharCount(onechar,"b"),1)
me.retrieve(id["c"],getCharCount(onechar,"c"),1)
me.retrieve(id["d"],getCharCount(onechar,"d"),1)
me.retrieve(id["e"],getCharCount(onechar,"e"),1)
me.retrieve(id["f"],getCharCount(onechar,"f"),1)
end

print("Höhe: "..tostring(#img))
print("Breite: "..tostring(#img[1]))
e,key=os.pullEvent("key")
while key~=28 do
e,key=os.pullEvent("key")
end

for i=1, #chars do
turtle.select(slot[string.sub(onechar,i,i)])
if turtle.getItemCount(slot[string.sub(onechar,i,i)])>1 then
turtle.drop(1)
else
if r.resupply(slot[string.sub(onechar,i,i)])==false then term.write("Bitte Material nachfüllen und Taste drücken")
e,key=os.pullEvent("key")
while key~=28 do
e,key=os.pullEvent("key")
end
end
turtle.drop(1)
end
end