qtest

print("Downloading 'quarry'")
local quarry = fs.open("quarry", "w")
quarry.write('os.loadAPI("inv")
os.loadAPI("t")

local x = 0
local y = 0
local z = 0
local max = 16
local deep = 64
local facingfw = true

local OK = 0
local ERROR = 1
local LAYERCOMPLETE = 2
local OUTOFFUEL = 3
local FULLINV = 4
local BLOCKEDMOV = 5
local USRINTERRUPT = 6

local CHARCOALONLY = false
local USEMODEM = false


-- Arguments
local tArgs = {...}
for i=1,#tArgs do
	local arg = tArgs[i]
	if string.find(arg, "-") == 1 then
		for c=2,string.len(arg) do
			local ch = string.sub(arg,c,c)
			if ch == 'c' then
				CHARCOALONLY = true
			elseif ch == 'm' then
				USEMODEM = true
			else
				write("Invalid flag '")
				write(ch)
				print("'")
			end
		end
	end
end


function out(s)

	s2 = s .. " @ [" .. x .. ", " .. y .. ", " .. z .. "]"

	print(s2)
	if USEMODEM then
		rednet.broadcast(s2, "miningTurtle")
	end
end

function dropInChest()
	turtle.turnLeft()

	local success, data = turtle.inspect()

	if success then
		if data.name == "minecraft:chest" then

			out("Dropping items in chest")

			for i=1, 16 do
				turtle.select(i)

				data = turtle.getItemDetail()

				if data ~= nil and
						data.name ~= "minecraft:charcoal" and
						(data.name == "minecraft:coal" and CHARCOALONLY == false) == false and
						(data.damage == nil or data.name .. data.damage ~= "minecraft:coal1") then

					turtle.drop()
				end
			end
		end
	end

	turtle.turnRight()

end

function goDown()
	while true do
		if turtle.getFuelLevel() <= fuelNeededToGoBack() then
			if not refuel() then
				return OUTOFFUEL
			end
		end

		if not turtle.down() then
			turtle.up()
			z = z+1
			return
		end
		z = z-1
	end
end

function fuelNeededToGoBack()
	return -z + x + y + 2
end

function refuel()
	for i=1, 16 do
		-- Only run on Charcoal
		turtle.select(i)

		item = turtle.getItemDetail()
		if item and
				(item.name == "minecraft:charcoal" or (item.name == "minecraft:coal" and
				(CHARCOALONLY == false or item.damage == 1))) and
				turtle.refuel(1) then
			return true
		end
	end

	return false
end

function moveH()
	if inv.isInventoryFull() then
		out("Dropping thrash")
		inv.dropThrash()

		if inv.isInventoryFull() then
			out ("Stacking items")
			inv.stackItems()
		end

		if inv.isInventoryFull() then
			out("Full inventory!")
			return FULLINV
		end
	end

	if turtle.getFuelLevel() <= fuelNeededToGoBack() then
		if not refuel() then
			out("Out of fuel!")
			return OUTOFFUEL
		end
	end

	if facingfw and y<max-1 then
	-- Going one way
		local dugFw = t.dig()
		if dugFw == false then
			out("Hit bedrock, can't keep going")
			return BLOCKEDMOV
		end
		t.digUp()
		t.digDown()

		if t.fw() == false then
			return BLOCKEDMOV
		end

		y = y+1

	elseif not facingfw and y>0 then
	-- Going the other way
		t.dig()
		t.digUp()
		t.digDown()

		if t.fw() == false then
			return BLOCKEDMOV
		end

		y = y-1

	else
		if x+1 >= max then
			t.digUp()
			t.digDown()
			return LAYERCOMPLETE -- Done with this Y level
		end

		-- If not done, turn around
		if facingfw then
			turtle.turnRight()
		else
			turtle.turnLeft()
		end

		t.dig()
		t.digUp()
		t.digDown()

		if t.fw() == false then
			return BLOCKEDMOV
		end

		x = x+1

		if facingfw then
			turtle.turnRight()
		else
			turtle.turnLeft()
		end

		facingfw = not facingfw
	end

	return OK
end

function digLayer()

	local errorcode = OK

	while errorcode == OK do
		if USEMODEM then
			local msg = rednet.receive(1)
			if msg ~= nil and string.find(msg, "return") ~= nil then
				return USRINTERRUPT
			end
		end
		errorcode = moveH()
	end

	if errorcode == LAYERCOMPLETE then
		return OK
	end

	return errorcode
end

function goToOrigin()

	if facingfw then

		turtle.turnLeft()

		t.fw(x)

		turtle.turnLeft()

		t.fw(y)

		turtle.turnRight()
		turtle.turnRight()

	else

		turtle.turnRight()

		t.fw(x)

		turtle.turnLeft()

		t.fw(y)

		turtle.turnRight()
		turtle.turnRight()

	end

	x = 0
	y = 0
	facingfw = true

end

function goUp()

	while z < 0 do

		t.up()

		z = z+1

	end

	goToOrigin()

end

function mainloop()

	while true do

		local errorcode = digLayer()

		if errorcode ~= OK then
			goUp()
			return errorcode
		end

		goToOrigin()

		for i=1, 3 do
			t.digDown()
			success = t.down()

			if not success then
				goUp()
				return BLOCKEDMOV
			end

			z = z-1
			out("Z: " .. z)

		end
	end
end

if USEMODEM then
	rednet.open("right")
end

out("\n\n\n-- WELCOME TO THE MINING TURTLE --\n\n")

while true do

	goDown()

	local errorcode = mainloop()
	dropInChest()

	if errorcode ~= FULLINV then
		break
	end
end

if USEMODEM then
	rednet.close("right")
end')
quarry.close()
write("done!")

print("Downloading 'inv'")
local inv = fs.open("inv", "w")
inv.write('function isInventoryFull()
	for i=1, 16 do
		if turtle.getItemCount(i) == 0 then
			return false
		end
	end

	return true
end

-- Fixes inventory scattering.
function stackItems()
	-- Remember seen items
	m = {}

	for i=1, 16 do
		local this = turtle.getItemDetail(i)

		if this ~= nil then
			-- Slot is not empty

			local saved = m[this.name .. (this.damage or "")]

			if saved ~= nil then
				-- We've seen this item before in the inventory

				local ammount = this.count

				turtle.select(i)
				turtle.transferTo(saved.slot)

				if ammount > saved.space then
					-- We have leftovers, and now the
					-- saved slot is full, so we replace
					-- it by the current one

					saved.slot = i
					saved.count = ammount - saved.space
					-- Update on table.
					m[this.name .. (this.damage or "")] = saved

				elseif ammount == saved.space then
					-- Just delete the entry

					m[this.name .. (this.damage or "")] = nil

				end

			else
				-- There isn't another slot with this
				-- item so far, so sign this one up.

			this.slot = i
			this.space = turtle.getItemSpace(i)

			m[this.name .. (this.damage or "")] = this

			end
		end
	end
end

function selectItem(name)
	for i=1, 16 do
		local data = turtle.getItemDetail(i)
		if data and data.name == name then
			turtle.select(i)
			return true
		end
	end
	return false
end

function getItemCount(name)
	local count = 0
	for i=1, 16 do
		local data = turtle.getItemDetail(i)
		if data and data.name == name then
			count = count + data.count
		end
	end
	return count
end

function dropThrash()
	local thrash = {"minecraft:stone", "minecraft:granite", "minecraft:andesite", "minecraft:diorite", "minecraft:cobbled_deepslate", "minecraft:tuff", "minecraft:dirt", "minecraft:coarse_dirt", "minecraft:gravel", "minecraft:sand", "minecraft:red_sand", "minecraft:cobblestone", "minecraft:sandstone", "minecraft:red_sandstone", "minecraft:bedrock", "chisel:limestone", "chisel:marble", "chisel:diorite", "chisel:granite", "chisel:andesite", "harvestcraft:salt"}

	for i=1, 16 do

		details = turtle.getItemDetail(i)

		if details then

			for j=1, #thrash do
				if details.name == thrash[j] then
					turtle.select(i)
					turtle.drop()
				end
			end
		end
	end
end')
inv.close()
print("done!")

print("Downloading 't'")
local t = fs.open("t", "w")
t.write('local MAXTRIES = 100

function turnAround()
	local success = false

	success = turtle.turnRight()
	success = success and turtle.turnRight()

	return success
end

function dig()
	local tries = 0

	while turtle.detect() do

		local s, data = turtle.inspect()
		if data.name == "minecraft:bedrock" then
			printError("Hit bedrock forwards!")
			return false
		end

		turtle.dig()
		sleep(0.4)

		tries = tries+1
		if tries > MAXTRIES then

			printError("Can't dig forward")
			return false

		end
	end

	return true
end

function digDown()
	local tries = 0

	while turtle.detectDown() do

		local s, data = turtle.inspectDown()
		if data.name == "minecraft:bedrock" then
			printError("Hit bedrock below!")
			return false
		end

		turtle.digDown()
		sleep(0.4)

		tries = tries+1
		if tries > MAXTRIES then
			printError("Can't dig down")
			return false
		end
	end

	return true
end

function digUp()
	local tries = 0

	while turtle.detectUp() do

		local s, data = turtle.inspectUp()
		if data.name == "minecraft:bedrock" then
			printError("Hit bedrock above!")
			return false
		end

		turtle.digUp()
		sleep(0.4)

		tries = tries+1
		if tries > MAXTRIES then
			printError("Can't dig up")
			return false
		end
	end

	return true
end


function fw(l)
	l=l or 1

	for i=1, l do

		local tries = 0

		while turtle.forward() ~= true do

			turtle.dig()
			turtle.attack()
			sleep(0.2)

			tries = tries+1
			if tries > MAXTRIES then
				printError("Can't move forward")
				return false
			end
		end
	end

	return true
end

function up(l)
	l=l or 1

	for i=1, l do

		local tries = 0

		while turtle.up() ~= true do

			turtle.digUp()
			turtle.attackUp()
			sleep(0.2)

			tries = tries+1
			if tries > MAXTRIES then
				printError("Can't move up")
				return false
			end
		end
	end

	return true
end

function down(l)
	l=l or 1

	for i=1, l do

		local tries = 0

		while turtle.down() ~= true do

			turtle.digDown()
			turtle.attackDown()
			sleep(0.2)

			tries = tries+1
			if tries > MAXTRIES then
				printError("Can't move down")
				return false
			end
		end
	end

	return true
end

function back(l)
	l=l or 1

	for i=1, l do

		if turtle.back() ~= true then
			turnAround()
			fw()
			turnAround()
		end
	end
end')
t.close()
print("done!")

print("")
print("Download successful! run with 'quarry'")