SysKammMaik

function GRAB()
  for i=1,10 do
    while turtle.detect()==true do
      turtle.dig()
      os.sleep(0.5)
      turtle.digUp()
      os.sleep(0.5)
      turtle.digUp()
      os.sleep(0.5)
    end
    turtle.forward()
    turtle.digUp()
  end
end

function TORCH()
  w=turtle.getItemCount(16)
  for j=1,w do
    turtle.select(16)
    turtle.placeUp()
  end
end

function RETURN()
  turtle.turnLeft()
  turtle.turnLeft()
  for i=1,10 do
    while turtle.detect()==true do
      turtle.dig()
      os.sleep(0.5)
    end
    turtle.forward()
  end
end

function WAY()
  turtle.turnRight()
  for i=1,3 do
      while turtle.detect()==true do
        turtle.dig()
        os.sleep(0.5)
        turtle.dig()
        os.sleep(0.5)
        turtle.digUp()
        os.sleep(0.5)
      end
    turtle.forward()
    turtle.digUp()
  end
  turtle.turnRight()
end

function DOWN1()
  for i=1,3 do
    turtle.digDown()
    turtle.down()
  end
  turtle.turnRight()
end

function DOWN2()
  for i=1,9 do
    while turtle.detect()==true do
      turtle.dig()
      os.sleep(0.5)
      turtle.digUp()
      os.sleep(0.5)
    end
    turtle.forward()
  end
  turtle.turnLeft()
end

function CHEST()
  turtle.turnRight()
  if turtle.getItemCount(14) ~= 0 then
    while turtle.detect()==true do
      turtle.dig()
      os.sleep(0.5)
      turtle.digUp()
      os.sleep(0.5)
    end
    turtle.select(15)
    turtle.place()
     for i=1,14 do
       turtle.select(i)
       turtle.drop()
     end
  end
  turtle.turnLeft()
end

function REFUEL()
  if turtle.getFuelLevel() <= 10 then
    for i=1,14 do
      if turtle.refuel(0) then
        local halfStack = math.ceil(turtle.getItemCount (i) / 2)
        turtle.refuel (halfStack)
       end
     end
   end
end

print("Hallo.")
print("Bitte legen Sie Unten Rechts einen")
print("Stack Fackeln rein und Links davon einen")
print("Stack Kisten rein")

local run = 0
term.write("Wie viele Ebenen soll das Turtle machen?")
run = read()

for u=1, run do
  for o=1,3 do
    GRAB()
    TORCH()
    RETURN()
    WAY()
  end

  DOWN1()
  DOWN2()
  REFUEL()
  CHEST()
end