-- -- -- -- -- -- -- -- -- -- -- -- -- -- --
-- Name: DanielKermanStripMining (DKSM)   --
-- Author: Daniel_Kerman                  --
-- Version: 1.0.1                         --
-- -- -- -- -- -- -- -- -- -- -- -- -- -- --


-- Initializing --

local rowsMined = {0}
local totalRows = {0}
local hallLength = {0}
local fuelNeeded = {0}
local fuelLevel = turtle.getFuelLevel() 
local fuelLimit = turtle.getFuelLimit()
local startConfirmed = "No"
local slot = turtle.getSelectedSlot()
local itemSpace = turtle.getItemSpace()
local torchCounter = 0

-- Declaring Functions --

function forward() -- Help from the user Foogles (http://www.computercraft.info/forums2/index.php?/user/46239-foogles/) -- THANK YOU FOR THIS BUG SOLUTION!
  local x = turtle.forward()
  if (x == false) then
        return forward()
  end
end

local function clear(column,row)
	term.clear()
	if column == nil and row == nil then
		column = 1
		row = 1
	elseif row == nil then
		row = 1
	elseif column == nil then
		column = 1
	end
	term.setCursorPos(column,row)
end

local function checkNumber(varToCheck)
	assert(type(varToCheck) == "number", "Program expected number. Got string or something else instead.")
end

local function fallingBlock()
local success, data = turtle.inspect()
local fBlocks = 
{
sand="minecraft:sand",
gravel="minecraft:gravel",
anvil="minecraft:anvil",
dragon_egg="minecraft:dragon_egg"
}
	if data.name==fBlocks.sand or data.name==fBlocks.gravel or data.name==fBlocks.anvil or data.name==fBlocks.dragon_egg then
		return true
	else
		return false
	end
end

local function dig(length,back)
for i=1, length do
	torchCounter=torchCounter+1	
	while fallingBlock() == true do
		turtle.dig()
		sleep(1)
	end
	turtle.dig()
	forward()
	turtle.digDown()
	if torchCounter >= 8 then
		turtle.select(16)
		if turtle.getItemSpace() < 64 then
		local data = turtle.getItemDetail()
		if data.name == "minecraft:torch" then
		turtle.placeDown()
		end
		end	
		torchCounter = 0
		turtle.select(1)
	end
end
if back == true then
turtle.turnLeft()
turtle.turnLeft()
for i=2, length do
	forward()
end
forward()
turtle.turnLeft()
turtle.turnLeft()
end

end

-- Welcome + User input --

clear(1,1)

print("Welcome to the Strip Mining Program.")
sleep(1)
print("Please enter a Hall/Strip Length (x = x block/s): ")
hallLength[1] = io.read()
hallLength[1] = tonumber(hallLength[1])
checkNumber(hallLength[1])
print("Please enter a number of rows:")
totalRows[1] = io.read()
totalRows[1] = tonumber(totalRows[1])
checkNumber(totalRows[1])
print("Calculating if turtle has enough fuel...")
fuelNeeded[1] = (hallLength[1]*3*totalRows[1])+(12*totalRows[1])
sleep(1.0)
assert(fuelNeeded[1]<fuelLimit, "Your fuel Limit is too low. Try an advanced turtle.")
assert(fuelNeeded[1]<fuelLevel, "Your turtle hasn't enought fuel.")
print("Your turtle has enough fuel. Please place a chest behind the turtle.")
sleep(2.0)
clear(1,1)
print("Place a chest behind the turtle.")
print("Place Torches to place in Slot 16 (Bottom right hand corner)")
write("Press any key to start the program.")
local skip = io.read()

-- Post initialization -- 

local rowsToMine = totalRows[1]-rowsMined[1]
clear(1,1)
turtle.select(1)

-- Main Loop --

for i=1, totalRows[1] do
	turtle.select(1)
	dig(3,false) 
	turtle.turnLeft()
	dig(hallLength[1],true)
	rowsMined[1] = rowsMined[1]+1
	clear(1,1)
	print("Rows Mined: ",rowsMined[1])
	local z = 1
	turtle.select(15)
	if turtle.getItemSpace() < 64 then
		turtle.turnLeft()
		for i=1,rowsMined[1]*3+1 do
			forward()
		end
		for i=1,15 do
			turtle.select(z)
			z=z+1
			turtle.drop(64)
		end
		turtle.turnRight()
		turtle.turnRight()
		for i=1,rowsMined[1]*3+1 do
			forward()
		end
		turtle.turnLeft()
	end
	turtle.turnRight()
	rowsToMine = totalRows[1]-rowsMined[1]
end

-- Ending --

do
	print("Putting Items into chest.")
	turtle.turnLeft()
	turtle.turnLeft()
	for i=1, (rowsMined[1]*3)+1 do
		forward()
	end
	z=1
    for i=1,16 do
			turtle.select(z)
			z=z+1
			turtle.drop(64)
	end
end

turtle.select(1)

print("Mining Complete.")

sleep(2)

clear(1,1)