stripmine

l = 0
p = 0
a = 0

write("Laenge von Hauptgang? ")
laengeHaupt=tonumber(read())
write("Laenge von Nebengaengen? ")
laengeNeben=tonumber(read())

function fforward()
    while (turtle.forward()==false) do
        turtle.dig()
  turtle.placeDown()
    end
end

function fdigUp()
    while(turtle.detectUp()) do
        turtle.digUp()
        sleep(0.4)
    end
end

function placeTorch()
    turtle.turnRight()
    turtle.turnRight()
    turtle.forward()
    turtle.turnRight()
    turtle.turnRight()
    turtle.select(2)
    turtle.place()
    turtle.select(1)
end

function graben()
    fforward()
    fdigUp()
end


function nebengang()
    turtle.turnLeft()
    while(l<laengeNeben) do
        graben()
        l=l+1
    end
    l=0
    placeTorch()
    turtle.turnRight()
    turtle.turnRight()
    while((l+1)<laengeNeben) do
        turtle.forward()
        l=l+1
    end
    l=0
    while(l<laengeNeben) do
        graben()
        l=l+1
    end
    l=0
    placeTorch()
    turtle.turnRight()
    turtle.turnRight()
    while((l+1)<laengeNeben) do
        turtle.forward()
        l=l+1
    end
    l=0
    turtle.turnRight()
end

function hauptgang()
 fforward()
 fdigUp()
 turtle.forward()
 turtle.turnRight()
 turtle.turnRight()
 turtle.select(2)
 turtle.place()
 turtle.select(1)
 turtle.turnRight()
 turtle.turnRight()
        while(p<2) do
            fforward()
   fdigUp()
            p=p+1
        end
        p=0
        a=a+3
end

function stripmine()
    while(a<laengeHaupt) do
        hauptgang()
        nebengang()
    end
end

stripmine()