Harvest

--8 rows
--23 blocks large
--42 blocks long
END=0
ib=0

function DetectGlass()
turtle.select(16)
if turtle.compare() then
error("Perimeter Detected")
end -- if not
end -- Detect Glass

function RowFront()
i=1
while i<42 do
DetectGlass()
turtle.dig()
while not turtle.forward() do
turtle.dig()
turtle.forward()
turtle.suckUp()
turtle.suckDown()
end -- Force Forward END
i=i+1
end -- while END
turtle.turnRight()
DetectGlass()
turtle.dig()
turtle.suckUp()
turtle.suckDown()
while not turtle.forward() do
turtle.dig()
turtle.forward()
turtle.suckUp()
turtle.suckDown()
end -- while END
turtle.turnRight()
end -- Row END

function RowBack()
ia=1
while ia<42 do
DetectGlass()
turtle.dig()
while not turtle.forward() do
turtle.dig()
turtle.forward()
turtle.suckUp()
turtle.suckDown()
end -- Force Forward END
ia=ia+1
end -- while END
turtle.turnLeft()
DetectGlass()
turtle.dig()
while not turtle.forward() do
turtle.dig()
turtle.forward()
turtle.suckUp()
turtle.suckDown()
end --while not
DetectGlass()
turtle.dig()
while not turtle.forward() do
turtle.dig()
turtle.forward()
turtle.suckUp()
turtle.suckDown()
end --while not
print(ib)
turtle.turnLeft()
end -- Row END

repeat


--Workflow
DetectGlass()
turtle.dig()
while not turtle.forward() do
turtle.dig()
turtle.forward()
turtle.suckUp()
turtle.suckDown()
end -- while not end
ib=0
while ib<8 do
ib=ib+1
RowFront()
RowBack()
end --while END

turtle.turnLeft()
turtle.turnLeft()
DetectGlass()
turtle.dig()
while not turtle.forward() do
turtle.dig()
turtle.forward()
end
turtle.turnRight()
ic=1
while ic<25 do
ic=ic+1
DetectGlass()
while not turtle.forward() do
turtle.dig()
turtle.forward()
end --while not END
end --while END
turtle.turnRight()
print("Unloading")
id=1
while id<15 do
id=id+1
turtle.select(id)
turtle.dropDown()
end
turtle.select(16)
until END==1