ComputerCraft: 'strip' Digs tunnels for strip mining.

--v2.1 by GraySloth 2013-Feb-23
--here is an old video demonstration of my scripts, it is almost good. http://youtu.be/9vhl7dSENs8
local tArgs = { ... }
if #tArgs ~= 1 then
    print( "Usage: strip <#length>")
    return
end

local size = tonumber( tArgs[1] )
if size < 1 then
    print( "strip length must be positive" )
    return
end

--functions
function fuelCheck()
    if turtle.getFuelLevel() == "unlimited" then
      return true
    elseif turtle.getFuelLevel() < 1 then
      print("Traveled "..dist.." of "..tArgs[1]..", Need more fuel")
      print("Searching for fuel hold ctrl+t to stop")
      while turtle.getFuelLevel() < 10 do
         for n=1,16 do
            if turtle.getFuelLevel() < 10 then
               turtle.select(n)
               turtle.refuel(1)
            end
         end
      end
      print("Refueled: "..turtle.getFuelLevel())
   end
end

local dist = 0
function count()
dist = dist + 1
   if (math.fmod( dist, 8 ) == 0) or (math.fmod( dist, tArgs[1] ) == 0) then
      print("Traveled "..dist.." of "..tArgs[1]..", Fuel: "..turtle.getFuelLevel())
   end
end
--main
print("Fuel level: "..turtle.getFuelLevel())
for i = 1, size do
   fuelCheck()
   turtle.dig()
   while not turtle.forward() do
      turtle.dig()
   end
   turtle.digUp()
   count()
end
print("Done")