Quarry

local aHeight = 0
local mHeight = 0
local x = 0
local z = 0
local xPos = 1
local zPos = 1
heading = true

function clear()
    term.clear()
    term.setCursorPos(1,1)
end

function coordinates()
    print("Altura atual: "..aHeight)
    print("Altura final: "..mHeight)
    print("Dist�A2ncia para Frente: "..x)
    print("Dist�A2ncia para Direita: "..z)

end

function repeating()
    clear()
    coordinates()
end

function settingCoordinates()
   repeating()
   print("Qual a altura atual?")
   aHeight = tonumber(read())
   repeating()
   print("Qual a altura desejada?")
   mHeight = tonumber(read())
   repeating()
   print("Quantos blocos a frente?")
   x = tonumber(read())
   repeating()
   print("Quantos blocos para Direita?")
   z = tonumber(read())
   repeating()
   print("Come�A7ando Minera�A7ao!")
   down = aHeight - mHeight


end

function miningDown()
   if aHeight > mHeight then
    if turtle.detectDown() then
        turtle.digDown()
        turtle.down()
        down = down - 1
    else
        turtle.down()
        down = down - 1
    end
   end
end

function miningForward()
    if turtle.detect() then
        turtle.dig()
        turtle.forward()
    else
    turtle.forward()
    end

end

function mining1()
if down > 0 then

    miningDown()


    while zPos <= z do

        while xPos < x and heading do
            miningForward()
            xPos = xPos + 1
        end

        if xPos == x and zPos < z then
            turtle.turnRight()
            miningForward()
            turtle.turnRight()
            zPos = zPos + 1
            heading = false
        end

        while xPos <= x and xPos > 1 and not heading do
            miningForward()
            xPos = xPos - 1
        end

        if xPos == 1 and zPos < z then
            turtle.turnLeft()
            miningForward()
            turtle.turnLeft()
            zPos = zPos + 1
            heading = true
        end

        if zPos == z and xPos == x and heading then
        mining2()
        break
        end
    end


end
os.shutdown()
end



function mining2()
if down > 0 then
    if zPos == z then

            if heading then
            turtle.turnLeft()
            turtle.turnLeft()
            heading = false
            miningDown()

                while zPos <= z and zPos >= 1 do


                    while xPos < x and heading do
                        miningForward()
                        xPos = xPos + 1
                    end

                    if xPos == 1 and zPos <= z and z ~= 1 then
                        turtle.turnRight()
                        miningForward()
                        turtle.turnRight()
                        zPos = zPos - 1
                        heading = true
                    end

                    while xPos <= x and xPos > 1 and not heading do
                        miningForward()
                        xPos = xPos - 1
                    end
                    if zPos == 1 and xPos == 1 and not heading then
                        print("ok")
                        turtle.turnLeft()
                        turtle.turnLeft()
                        heading = true
                        mining1()
                    end

                    if xPos == x and zPos < z then
                        turtle.turnLeft()
                        miningForward()
                        turtle.turnLeft()
                        zPos = zPos - 1
                        heading = false
                    end


                end

            end
    end
end
os.shutdown()
end





--Inicio do Programa
settingCoordinates()
mining1()