test4

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

repeat
print("Enter tunnel length (even digit): ")
tunnellength = read()
until tunnellength % 2 == 0

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

print("Place Fuel in Slot 1")
print("Enter number for fuel type: ")
print("")
print("No Fuel Required = 0")
print("Coal/Charcoal/Peat = 1")
print("Coal Coke = 2")
print("Biofuel Can = 3 **")
print("Coalfuel Can = 4 **")
print("** Ensure these work in your version")
fueltype = read()

function fueltypeset()
if fueltype == "1" then
fueltype = 80
elseif fueltype == "2" then
fueltype = 160
elseif fueltype == "3" then
fueltype = 520
elseif fueltype == "4" then
fueltype = 1520
end
end
fueltypeset()
term.clear()
term.setCursorPos(1, 1)

print("Drop mined cobblestone? 0=No, 1=Yes")
cobblesetting = read()
term.clear()
term.setCursorPos(1, 1)
if cobblesetting == "1" then
if turtle.getItemCount(2) < 1 then
print("Place 1 cobblestone in Slot 2")
print("")
end
end

print("Place torches? 0=No, 1=Yes")
print("Place torches in Slot 3")
torchsetting = read()
term.clear()
term.setCursorPos(1, 1)
if torchsetting == "1" then
if turtle.getItemCount(3) < tunnellength/10 then
print("Warning: You will not have enough torches for entire tunnel length.")
print("")
print("")
end
end


print("Return and deposit items to chest if inventory nears full?")
print("0=No, 1=Yes")
returnsetting  = read()
term.clear()
term.setCursorPos(1, 1)
if returnsetting == "1" then
print("Place chest immediately behind turtle.")
print("")
end

print("Deposit inventory into chest upon completion?")
print("0=No, 1=Yes")
dcomplete  = read()
term.clear()
term.setCursorPos(1, 1)
if dcomplete == "1" then
print("Place chest immediately behind turtle.")
print("")
end

print("Terminate program once length is reached?")
print("Note: This will prevent the turtle from depositing items into a chest upon completion.")
print("0=No, 1=Yes")
tcomplete  = read()
term.clear()
term.setCursorPos(1, 1)
if tcomplete == "1" then
        if dcomplete == "1" then
        print("Turtle will NOT deposit items upon completion.")
 print("")
end
end

print("")
print("Begin mining?")
print("0=Cancel Program, Any Key=Yes")
beginmine = read()
if beginmine == "0" then
os.reboot()
end

term.clear()
term.setCursorPos(1,1)
if tcomplete == "1" then
  print("Tunneling " .. tunnellength .. " blocks, then terminating.")
  elseif tcomplete == "0" then
  print("Tunneling " .. tunnellength .. " blocks, then returning.")
end
sleep(2)

torchpos = 0

function progress()
term.setCursorPos(1,3)
print("Progress: " .. torchpos .. " of " .. tunnellength)
end

function fuelcheck()
        if turtle.getFuelLevel() ~= "unlimited" then
                if turtle.getFuelLevel()/fueltype < 0.26 then
                turtle.select(1)
                turtle.refuel(1)
                end
        end
end

function dropcobble()
    local stackSize = turtle.getItemCount(2)
        if cobblesetting == "1" then
                if turtle.getFuelLevel() ~= "unlimited" then
                        if stackSize > 2 then
                        stackSize = stackSize-1
                        turtle.select(2)
                        turtle.drop(stackSize)
                        end
                elseif turtle.getFuelLevel() == "unlimited" then
                        if stackSize > 2 then
                                stackSize = stackSize-1
                                turtle.select(2)
                                turtle.drop(stackSize)
                                end
                        turtle.select(1)
                        if turtle.compareTo(2) then
                                turtle.drop()
                                end

                        end
                end
end


function minewallRight()
fuelcheck()
turtle.select(1)
turtle.dig()
moveforward()
turtle.digUp()
turtle.digDown()
turtle.turnRight()
moveforward()
turtle.digDown()
turtle.digUp()
moveforward()
turtle.digDown()
turtle.digUp()
turtle.turnLeft()
torchpos = torchpos + 1
progress()
end

function minewallLeft()
fuelcheck()
turtle.select(1)
turtle.dig()
moveforward()
turtle.digUp()
turtle.digDown()
turtle.turnLeft()
moveforward()
turtle.digDown()
turtle.digUp()
moveforward()
turtle.digDown()
turtle.digUp()
turtle.turnRight()
torchpos = torchpos + 1
progress()
end

function minecycle()
for z = 1, tunnellength/2 do
minewallRight()
minewallLeft()
placetorch()
end
end

function placetorch()
        if torchsetting == "1" then
                if torchpos % 10 == 0 then
                turtle.select(3)
                turtle.placeDown()
                fuelcheck()
                fullinventory()
                turtle.select(1)
                end
                if torchpos % 3 == 0 then
                dropcobble()
                end
        else
                if torchpos % 10 == 0 then
                dropcobble()
                fuelcheck()
                fullinventory()
                turtle.select(1)
                end
        end
end

function moveforward()
while not turtle.forward() do
sleep(0.25)
turtle.dig()
end
end

function turtlehome()
for y = 1, tunnellength do
fuelcheck()
moveforward()
end
end


function fullinventory()
local invcount = 0
        if returnsetting == "1" then
                for c = 4, 16 do
                        if turtle.getItemCount(c) > 0 then
                        invcount = invcount+1
                        end
                end
                if invcount > 12 then
                        turtle.turnLeft()
                        turtle.turnLeft()
                        fuelcheck()
                        for f = 1, torchpos+1 do
                        moveforward()
                        fuelcheck()
                        end
                        for d = 4, 16 do
                        turtle.select(d)
                        turtle.dropDown()
                        end
                        turtle.turnLeft()
                        turtle.turnLeft()
                        fuelcheck()
                        for f = 1, torchpos+1 do
                        moveforward()
                        fuelcheck()
                        end
                        invcount = 0
                else
                        invcount = 0
                end
        end
end

function depositcomplete()
        if dcomplete == "1" then
                for d = 1, 16 do
                        turtle.select(d)
                        turtle.drop()
                end
        end
end

function terminatecomplete()
        if tcomplete =="1" then
                turtle.down()
                os.reboot()
  sleep(3)
        end
end

fuelcheck()
turtle.digUp()
turtle.up()
minecycle()
terminatecomplete()
turtle.turnLeft()
turtle.turnLeft()
fuelcheck()
turtlehome()
turtle.down()
depositcomplete()
turtle.turnRight()
turtle.turnRight()
term.setCursorPos(1,5)
print("Mining Successful")
term.setCursorPos(1,7)