StripMining_28052017

local tArgs = { ... }
if #tArgs ~= 1 then
        print( "Usage: tunnel <length>" )
        return
end

-- Mine in a quarry pattern until we hit something we can't dig
local length = tonumber( tArgs[1] )
if length < 1 then
        print( "Tunnel length must be positive" )
        return
end

local depth = length
local collected = 0

local function collect()
        collected = collected + 1
        if math.fmod(collected, 25) == 0 then
                print( "Mined "..collected.." items." )
        end
end

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

local function tryDigDown()
        while turtle.detectDown() do
                if turtle.digDown() then
                        collect()
                        sleep(0.5)
                else
                        return false
                end
        end
        return true
end

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

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

        local function tryRefuel()
                for n=1,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 Tunnel." )
        end
end

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

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

local function tryFackel()
        turtle.select(16)
        turtle.turnRight()
        print("Fackel 1")
        turtle.place()
        turtle.turnLeft()
        turtle.select(1)
end

function tryFackel2()
        turtle.select(16)
        turtle.placeDown()
        turtle.select(1)
end


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

local function tryGaenge()
        refuel()
        turtle.turnLeft()
        tryUp()
        tryForward()
        FAL = 0
        for n=1,20 do
                FAL = FAL +1
                tryForward()
                tryDigUp()
                tryDigDown()
                if FAL == 5 then
                        tryFackel2()
                        FAL = 0
                end
        end
        turtle.turnLeft()
        turtle.turnLeft()
        for n=1,21 do
                tryForward()
        end
        tryForward()
        FAR = 0
        for n=1,20 do
                FAR = FAR +1
                tryForward()
                tryDigUp()
                tryDigDown()
                if FAR == 5 then
                        tryFackel2()
                        FAR = 0
                end
        end
        turtle.turnLeft()
        turtle.turnLeft()
        for n=1,21 do
                tryForward()
        end
		if ki == 2 then
			turtle.turnLeft()
			turtle.select(15)
			turtle.place()
				for k=1,14 do
					turtle.select(k)
					turtle.drop()
				end
			turtle.turnRight()
			ki = 0
		end
        turtle.turnRight()
        tryDown()
end

fa = 2
ga = 0
ki = 0
shell.run("clear")
print("")
print("Copyright @ Birog ")
print("")
print(" Fackel bitte ins Fach 16 legen ")
print(" Kisten ins Fach 15 legen ")
print("")
print( "Tunnelling..." )
print()
for n=1,length do
        turtle.placeDown()
        tryDigUp()
        turtle.turnLeft()
        tryDig()
        tryUp()
        tryDig()
        tryUp()
        tryDig()
        turtle.turnRight()
        turtle.turnRight()
        tryDig()
        tryDown()
        tryDig()
        tryDown()
        tryDig()
        turtle.turnLeft()
        ga = ga +1
        fa = fa +1
		ki = ki +1
        if ga == 3 then
                tryGaenge()
                ga = 0
        end
        if fa == 3 then
                tryFackel()
                fa = 0
       	end
        term.setCursorPos(9,1)
        pro = 100/length*n
        print(" Es sind bereits "..pro.." Prozent abgeschlossen")
        if n<length then
                tryDig()
                if not tryForward() then
                        print( "Aborting Tunnel." )
                        break
                end
        else
                print( "Tunnel complete." )
        end

end


print( "Returning to start..." )

-- Return to where we started
turtle.turnLeft()
turtle.turnLeft()
tryUp()
j = 0
while depth > 1 do
        if tryForward() then
                depth = depth - 1
        else
                turtle.dig()
        end
end
tryDown()
turtle.turnRight()
turtle.turnRight()


print( "Tunnel complete." )
print( "Mined "..collected.." items total." )