quarry

function Titel()
    shell.run("clear")
    print("**** Entwickelt & Copyright Birog ****")
    print("              Version 24              ")
    print("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
    print()
    print(" Bitte Hoehe angeben wo Sie stehen (y)")
    write(" Hoehe max 150: ")
    yy= io.read()
    print()
    write(" Laenge eingeben (max64): " )
    ll = io.read()
    print()
    write(" Breite eingeben (max64): " )
    bb = io.read()
    sleep(2)

    shell.run("clear")
    print("**** Entwickelt & Copyright Birog ****")
    print("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
    print("       Prüfung der Werte läuft        ")
    print(yy1)
    sleep(1)

      if yy > "150" then
       print("Error - Es wurde eine Hoehe von "..yy.." angegeben.")
       write("Max wert 150 - Enter zum erneuten eingeben")
       io.read()
       Titel()
      end
      if ll > "64" then
       print("Error - Es wurde eine Laenge von "..ll.." angegeben.")
       write("Max wert 64 - Enter zum erneuten eingeben")
       io.read()
       Titel()
      end
      if bb > "64" then
       print("Error - Es wurde eine Breite von "..bb.." angegeben.")
       write("Max wert 64 - Enter zum erneuten eingeben")
       io.read()
       Titel()
      end
    print("           Prüfung beendet            ")
    print()
    print("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
    sleep(2)
      yy2 = 150
      yy = yy + 0
      yy1 = yy2-yy
      ll = ll +0
      bb = bb +0

end
 a = 0
-- Auftanken
local function refuel()
    local fuelLevel = turtle.getFuelLevel()
    if fuelLevel == "unlimited" or fuelLevel > 0 then
        return
    end

local function tryRefuel()
    for n=15,16 do
        if turtle.getItemCount(n) > 0 then
            turtle.select(n)
            if turtle.refuel(1) then
                turtle.select(1)
                return true
            end
        end
    end
    turtle.select(1)
        return false
    end

    if not tryRefuel() then
        print( "Add more fuel to continue." )
        while not tryRefuel() do
            sleep(1)
        end
        print( "Resuming." )
    end
end

-- Abbau vorraus
local function tryDig()
    while turtle.detect() do
        if turtle.dig() then
            sleep(0.5)
        else
            return false
        end
    end
    return true
end

--Abbau oben
local function tryDigUp()
    while turtle.detectUp() do
        if turtle.digUp() then
            collect()
            sleep(0.5)
        else
            return false
        end
    end
    return true
end

-- Nach oben gehen
local function tryUp()
    refuel()
    while not turtle.up() do
        if turtle.detectUp() then
            if not tryDigUp() then
                return false
            end
        elseif turtle.attackUp() then
            collect()
        else
            sleep( 0.5 )
        end
    end
    return true
end

-- Nach Unten gehen
local function tryDown()
    refuel()
    while not turtle.down() do
        if turtle.detectDown() then
            if not tryDigDown() then
                return false
            end
        elseif turtle.attackDown() then
            collect()
        else
            sleep( 0.5 )
        end
    end
    return true
end

-- Vorwärts gehen
local function tryForward()
    refuel()
    while not turtle.forward() do
        if turtle.detect() then
            if not tryDig() then
                return false
            end
        elseif turtle.attack() then
            collect()
        else
            sleep( 0.5 )
        end
    end
    return true
end

-- Zurück gehen
local function tryBack()
    refuel()
    while not turtle.forward() do
        if turtle.detect() then
            if not tryDig() then
                return false
            end
        elseif turtle.attack() then
            collect()
        else
            sleep( 0.5 )
        end
    end
    return true
end

--Block platzieren
local function tryPlace()
    refuel()
    while not turtle.placeDown() do
        if turtle.detectDown() then
--          if not tryDigDown() then
                return false
--          end
        elseif turtle.attack() then
            collect()
        else
            sleep( 0.5 )
        end
    end
    return true
end

--Landmark setzen
function tryLand()
 tryUp()
 turtle.select(2)
 tryPlace()
  for n = 1,ll do
   tryForward()
   print(100/ll*n," % des Weges zurueck gelegt")
  end
  print("Gehe runter")
  tryDown()
  print("Plaziere Block")
  turtle.select(1)
  tryPlace()
  print("Geh ein Block hoch")
  tryUp()
  print("Platziere Landmark 2")
  turtle.select(2)
  tryPlace()
  print("Gehe zurück")
  turtle.turnLeft()
  turtle.turnLeft()
  for n = 1,ll do
   tryForward()
   print(100/ll*n," % des Rueckwegs zurueck gelegt")
  end
  turtle.turnLeft()
  for n = 1,bb do
   tryForward()
   print(100/bb*n," % des Weges zurueck gelegt")
  end
  print("Gehe runter")
  tryDown()
  print("Plaziere Block")
  turtle.select(1)
  tryPlace()
  print("Geh ein Block hoch")
  tryUp()
  print("Platziere Landmark 3")
  turtle.select(2)
  tryPlace()
  print("Gehe zurück")
  turtle.turnLeft()
  turtle.turnLeft()
  for n = 1,bb do
   tryForward()
   print(100/bb*n," % des Rueckwegs zurueck gelegt")
  end
  tryForward()
  turtle.turnRight()
  turtle.turnRight()
  tryDown()
  turtle.place()
end

-----------------------------------------------
Titel()
print("**** Entwickelt & Copyright Birog ****")
print("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
print()
print("        Gehe auf Arbeitshoehe         ")
 for n=1,yy1 do
  tryUp()
end
print("        Arbeitshoehe erreicht         ")
sleep(1)
print("        Platform wird gebaut..        " )
for nn=1,3 do
 for n=1,2 do
  turtle.select(1)
  tryPlace()
  tryForward()
  tryDigUp()
  tryPlace()
 end
  if a == 0 then
   turtle.turnRight()
   tryDig()
   tryForward()
   tryDigUp()
   turtle.turnRight()
   a = a+1
  elseif a == 1 then
   turtle.turnLeft()
   tryDig()
   tryForward()
   tryDigUp()
   turtle.turnLeft()
   a = a-1
  end
end
print("l")
turtle.turnRight()
tryForward()
print("r")
turtle.turnLeft()
tryForward()
tryPlace()
print("        Platform complete.            ")
print()
print()
print("        Landmarks werden gesetzt      ")
tryLand()