Tunnel.lua

fd   = turtle.forward
t    = turtle
L    = turtle.turnLeft
R    = turtle.turnRight
up   = turtle.up
down = turtle.down
start_legth = 0
wave = 0

function dig()
 while turtle.detect() do
  turtle.dig()
 end
end

function digDown()
  turtle.digDown()
 end

function Ndig()
 dig()
 digDown()
end

function DFd()
 for i = 1, 3 do
  Ndig()
  fd()
 end
end

function search_torch()
 for i = 1, 16 do
  turtle.select(i)
  local item = t.getItemDetail(i)
  if item then
   if item.name == "minecraft:torch" then
    turtle.transferTo(1)
   end
  end
 end
end
function search_torch_konsekvens()
 turtle.select(1)
 local Item = turtle.getItemDetail()
 if Item.count <= 2 * wave then
  print("You haven't got ".. tostring(Iten.count).. "torches, but you need ".. tostring(2 * wave))
  write("Do you want to carry on (y/N)")
  local answer = read()
  if string.lower(answer) == "n" or answer == "" then
   return false
  end
 end
end


function refuel()
 local fuel = t.getFuelLevel()
 if fuel <= 1000 then
  for i = 1, 16 do
   t.select(i)
   local item = t.getItemDetail()
   if item.name == "minecraft:coal" then
    local how_much = (2000 - fuel)/80
    if item.count >= how_much then
     t.refuel(how_much)
     return true
    else
     t.refuel(item.count)
     return false
    end
   end
  end
 else
  return true
 end
end

print("I will refuel my self with everything in my inventory in")
for i = 10, 1, -1 do
 print(i, "seconds")
 sleep(1)
end
shell.run("refuel", "all")
f = t.getFuelLevel()
if f <= 1000 then
 write("your fuelLevel is under 1000, do you want to carry on? (y/N)    ")
 answer = read()
 if string.lower(answer) == "n" or answer == "" then
  return false
 end
end

search_torch()
search_torch_konsekvens()

write("How many 30 legth do you want to mine?   ")
wave = read()
wave = tonumber(wave)
varv = 0

while t.detect() == false do
 fd()
 start_legth = start_legth + 1
end
for i = 1, wave do
 for n = 1, 30 do
  print(n)
  dig()
  fd()
  R()
  DFd()
  digDown()
  t.down()
  digDown()
  if n % 15 == 0 then
   L()
   dig()
   R()
   t.down()
   t.select(1)
   t.placeUp()
  else
   t.down()
  end
  L()
  L()
  DFd()
  digDown()
  t.up()
  t.up()
  R()
 end
 R()
 R()
 varv = varv + 1
 for a = 1, (30 * varv) + 1 + start_legth do
  fd()
 end
 for p = 2, 16 do
  t.select(p)
  t.drop()
 end
 if not varv == wave then
  local fuel = refuel()
  if fuel == false then
   local fuelLevel = t.getFuelLevel()
   print("low fuel level! "..tostring(fuelLevel))
  end
  R()
  R()
  for p = 1, (30 * varv) + 1 + start_legth do
   fd()
  end
 else
  break
 end
end
L()
L()