Tunnelbau

-- [[Ziel:
--  3 x 3 Felder breiten Tunnel
--  alle 10 Felder links und rechts oben eine Fackel]]

-- sorgt dafür, dass ein Boden da ist
function Boden ()
    while turtle.detectDown() == false do
        turtle.select(2)
        turtle.placeDown()
    end
end

-- beseitigt Stein vorne
function schlagVorn ()
    while turtle.detect() == true do
        turtle.dig()
        sleep(1)
    end
end

-- gehe nach oben
function gehOben()
    while turtle.detectUp() == true do
        turtle.digUp()
        sleep(1)
    end
    turtle.up()
end

-- gehe nach unten
function gehUnten()
    while turtle.detectDown() == true do
        turtle.digDown()
    end
    turtle.down()
end

-- 180 Grad Drehung
function Wende ()
    turtle.turnRight()
    turtle.turnRight()
end

-- erste Reihe mit Boden
function untersteReihe ()
    Boden()
    turtle.turnLeft()
    schlagVorn()
    turtle.forward()
    Boden()
    turtle.back()
    Wende()
    schlagVorn()
    turtle.forward()
    Boden()
    turtle.back()
    turtle.turnLeft()
end

-- höhere Reihen
function obereReihe ()
    turtle.turnLeft()
    schlagVorn()
    Wende()
    schlagVorn()
    turtle.turnLeft()
end

-- Fackel platzieren

function placeObject ()
    turtle.turnLeft()
    turtle.forward()
    if turtle.detect() == false then
        turtle.select(2)
        turtle.place()
    end
    turtle.back()
    turtle.select(1)
    turtle.place()
    Wende()
    turtle.forward()
    if turtle.detect() == false then
        turtle.select(2)
        turtle.place()
    end
    turtle.back()
    turtle.select(1)
    turtle.place()
    turtle.turnLeft()
end

local l = 30
print("Geben Sie die Laenge des Tunnels an")
l = tonumber(io.read())
local i = 1
while i<l+1 do
    untersteReihe()
    gehOben()
    obereReihe()
    gehOben()
    obereReihe()
    if i%10 == 0 or i==l then
        placeObject()
    end
    gehUnten()
    gehUnten()
    if i<l then
        schlagVorn()
        turtle.forward()
    end
    i=i+1

end