Barrel Identifier (OpenPeripheral)

local x,y,z = 239,427,58

local stringThing = {}

local count = 1

for i=1,32 do
    local thisBarrel = peripheral.wrap("front")

    local thisSlot = thisBarrel.getStackInSlot(1)

    if thisSlot then
        stringThing[count] = "[\""..thisSlot.name.." ("..thisSlot.id..":"..thisSlot.dmg..")\"] = {[\"x\"] = "..x..", [\"y\"] = "..y..", [\"z\"] = "..z.."},"
    else
        stringThing[count] = "[\"Unused\"] = {[\"x\"] = "..x..", [\"y\"] = "..y..", [\"z\"] = "..z.."},"
    end

    if i<32 then
        while not turtle.turnRight() do end
        while not turtle.forward() do end
        while not turtle.turnLeft() do end
        x=x-1
    end

    count = count+1
end


while not turtle.back() do end
turtle.up()
turtle.up()
while not turtle.forward() do end

z=60
sleep(1)
for i=1,32 do
    local thisBarrel = peripheral.wrap("front")

    local thisSlot = thisBarrel.getStackInSlot(1)

    if thisSlot then
        stringThing[count] = "[\""..thisSlot.name.." ("..thisSlot.id..":"..thisSlot.dmg..")\"] = {[\"x\"] = "..x..", [\"y\"] = "..y..", [\"z\"] = "..z.."},"
    else
        stringThing[count] = "[\"Unused\"] = {[\"x\"] = "..x..", [\"y\"] = "..y..", [\"z\"] = "..z.."},"
    end

    if i<32 then
        while not turtle.turnLeft() do end
        while not turtle.forward() do end
        while not turtle.turnRight() do end
        x=x+1
    end

    count = count+1
end

while not turtle.turnLeft() do end
while not turtle.turnLeft() do end
while turtle.forward() do end

x,y,z = 239,420,60
sleep(1)
for i=1,32 do
    local thisBarrel = peripheral.wrap("front")

    local thisSlot = thisBarrel.getStackInSlot(1)

    if thisSlot then
        stringThing[count] = "[\""..thisSlot.name.." ("..thisSlot.id..":"..thisSlot.dmg..")\"] = {[\"x\"] = "..x..", [\"y\"] = "..y..", [\"z\"] = "..z.."},"
    else
        stringThing[count] = "[\"Unused\"] = {[\"x\"] = "..x..", [\"y\"] = "..y..", [\"z\"] = "..z.."},"
    end

    if i<32 then
        while not turtle.turnLeft() do end
        while not turtle.forward() do end
        while not turtle.turnRight() do end
        x=x-1
    end

    count = count+1
end

while not turtle.back() do end
turtle.down()
turtle.down()
while not turtle.forward() do end

z=58
sleep(1)
for i=1,32 do
    local thisBarrel = peripheral.wrap("front")

    local thisSlot = thisBarrel.getStackInSlot(1)

    if thisSlot then
        stringThing[count] = "[\""..thisSlot.name.." ("..thisSlot.id..":"..thisSlot.dmg..")\"] = {[\"x\"] = "..x..", [\"y\"] = "..y..", [\"z\"] = "..z.."},"
    else
        stringThing[count] = "[\"Unused\"] = {[\"x\"] = "..x..", [\"y\"] = "..y..", [\"z\"] = "..z.."},"
    end

    if i<32 then
        while not turtle.turnRight() do end
        while not turtle.forward() do end
        while not turtle.turnLeft() do end
        x=x+1
    end

    count = count+1
end

local myFile = fs.open("barrels","w")

for i=1,count-1 do myFile.writeLine(stringThing[i]) end

myFile.close()