Quarry3

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

    shell.run("clear")
    print("**** Entwickelt & Copyright Birog ****")
    print("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
    print("       PråBCfung der Werte låA4uft        ")
        print(yy1)
    sleep(1)

      if yy > 100 then
       print("Error - Es wurde eine Hoehe von "..yy.." angegeben.")
       write("Max Arbeitshoehe 100 - 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åBCfung beendet            ")
    print()
    print("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
    sleep(2)
    a = 0
    yy2=100
    yy1 = yy2 - yy
    bb2 = bb +1
end

-- 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
            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
        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
        else
            sleep( 0.5 )
        end
    end
    return true
end

-- VorwåA4rts 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
        else
            sleep( 0.5 )
        end
    end
    return true
end

-- ZuråBCck 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
        else
            sleep( 0.5 )
        end
    end
    return true
end

--Block platzieren
local function tryPlace()
 refuel()
 while not turtle.placeDown() do
  if turtle.detectDown() then
   return false
  elseif turtle.attack() then
   print("Attack")
  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åBCck")
  turtle.turnLeft()
  turtle.turnLeft()
  for n = 1,ll do
   tryForward()
   print(100/ll*n," % des Rueckwegs zurueck gelegt")
  end
  turtle.turnRight()
  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åBCck")
  turtle.turnLeft()
  turtle.turnLeft()
  for n = 1,bb2 do
   tryForward()
   print(100/bb2*n," % des Rueckwegs zurueck gelegt")
  end
  turtle.turnRight()
  turtle.turnRight()
  tryDown()
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..        " )
    a = 0
    for nn=1,3 do
    for n=1,3 do
     turtle.select(1)
     tryPlace()
     tryForward()
     tryDig()
     if n==3 and a ==0 then
      turtle.turnRight()
      tryForward()
      turtle.turnRight()
      tryForward()
      a = a +1
     elseif n==3 and a==1 then
      turtle.turnLeft()
      tryForward()
      turtle.turnLeft()
      tryForward()
      a = a -1
     end
    end
    if nn==3 then
     turtle.turnRight()
     tryForward()
     tryForward()
    end
    end

turtle.turnRight()
print("        Platform complete.            ")
print()
print()
print("        Landmarks werden gesetzt      ")
tryLand()