bwb

-- bwb (branch with bark)
-- Creates a 1x1x3 tunnel with branches at intervals
-- Each branch is the of the length specified by the user
-- Seals all sides of tunnel against monsters
-- Torches, if supplied, will be placed on the wall at 8 block interval
-- Chests, if supplied, are placed at the end of each branch
-- Written by HarvDad, March 2014

args = {...}
nArgs = #args
usage = "Usage: bwb <length>"

print("bwb: Rev 1.2")

loop = 0;
x = 0
y = 0
z = 0
face = 0
patchSlot = 1
minimumFuel = 100
missionMessage = "Mission complete."
abort = false
local currentFuelLevel = turtle.getFuelLevel()

if nArgs == 0 or (nArgs == 1 and args[1]== "help") then
	print("Creates a 1x3 tunnel with sealed sides.")
	print("Place patch material, like cobblestone, in slot", patchSlot)
	print("If torches are desired, place torches in slot 16.")
	printf("Chests, if supplied, are placed at the end of each branch")
	print("Usage: branch <length>")
	return
end

if nArgs ~= 1 then
  print("Usage: branch <length>")
  return
end

length = tonumber(args[1])
if length == nil then
  print("\"", args[1], "\" is not a valid length")
  return
end
if length < 1 then
  print("length must be a positive number greater than zero")
end

targetArea = length
areaCovered = 1;


function left()
 if face == 0 then face = 1 turtle.turnLeft() return end
 if face == 1 then face = 2 turtle.turnLeft() return end
 if face == 2 then face = 3 turtle.turnLeft() return end
 if face == 3 then face = 0 turtle.turnLeft() return end
 print("function left\(\): Bad face value: ", face)
end

function right()
 if face == 0 then face = 3 turtle.turnRight() return end
 if face == 1 then face = 0 turtle.turnRight() return end
 if face == 2 then face = 1 turtle.turnRight() return end
 if face == 3 then face = 2 turtle.turnRight() return end
 print("function right\(\): Bad face value: ", face)
end

function up()
	success = false

	repeat
		while turtle.detectUp() do	-- This loop added in case of falling sand or whatever
		  turtle.digUp()
		end
	  success = turtle.up()
	until success
  y = y+1
end

function rise(nBlocks)
  local i
  for i=1,nBlocks do
    up()
  end
end

function descend(nBlocks)
  local i
  for i=1,nBlocks do
    down()
  end
end

function down()
  if turtle.detectDown() then
    turtle.digDown()
  end
  turtle.down()
  y = y-1
end


function forward()
	while turtle.detect() do	-- This loop added in case of falling sand or whatever
	  turtle.dig()
	end
	for i=1,10 do
		if turtle.forward() then
			break
		end
		turtle.attack()
		sleep(2)
	end
  	if face == 0 then z = z+1 return end
  	if face == 1 then x = x-1 return end
  	if face == 2 then z = z-1 return end
  	if face == 3 then x = x+1 return end
end

function patch()
	turtle.select(2)
	turtle.place()
	gatherPatchMaterial(false);
end

function patchUp()
	turtle.select(2)
	turtle.placeUp()
	gatherPatchMaterial(false);
end

function patchDown()
	turtle.select(2)
	turtle.placeDown()
	gatherPatchMaterial(false);
end

function slurp()
	local i
	print("slurp...")

	for i=2,13 do
		turtle.select(i)
		if turtle.suck() then
			print("Sucky success for slot ", i)
			break
		else
		end
	end
	print("Total sucky failure")
end

function slurpUp()
	local i

	for i=2,13 do
		turtle.select(i)
		if turtle.suckUp() then
			break
		end
	end
end

function slurpDown()
	local i

	for i=2,13 do
		turtle.select(i)
		if turtle.suckDown() then
			break
		end
	end
end

function gatherPatchMaterial(force)
	local i
	patchCount = turtle.getItemCount(patchSlot)

	if (patchCount < 30) or force then
		print("Attempting to refill slot ", patchSlot)
		for i=1,14 do
			turtle.select(i)
			if turtle.compareTo(patchSlot) then
				turtle.transferTo(patchSlot, 64-patchCount)
				print("Transferred ", 64 - patchCount, " cobble to slot ", patchSlot)
			end
		end
	end
	turtle.select(patchSlot)
end

addTorch = true
torchSpacing = 8
torchSpot = 6

function _mineForward()
	forward()

	while turtle.detectUp() do	-- This loop added in case of falling sand or whatever
	  turtle.digUp()
--	  slurpUp()
	end

	if turtle.detectDown() then
		turtle.digDown()
--		slurpDown()
	end

	if addTorch then
		if (torchSpot % torchSpacing) == 0 then
			left()
			left()
			turtle.select(16)
			turtle.place()
			right()
			right()
		end
	end
	torchSpot = torchSpot + 1
end

function mineForwardUp()
	forward()
--	slurp()
	if not turtle.detectDown() then
		patchDown()
	end
	patchSides()

	up()
	while turtle.detectUp() do	-- This loop added in case of falling sand or whatever
	  turtle.digUp()
--	  slurpUp()
	end
	patchSides()

	torchCheck()

	up()
	if not turtle.detectUp() then
		patchUp()
	end
	patchSides()

	torchSpot = torchSpot + 1
end

function mineForwardDown()
	forward()
--	slurp()
	if not turtle.detectUp() then
		patchUp()
	end
	patchSides()

	down()
	patchSides()

	torchCheck()

	down()
	if not turtle.detectDown() then
		patchDown()
	end
	patchSides()

	torchSpot = torchSpot + 1
end

function patchCeiling()
end

function patchFloor()
end

function patchSides()
	if x == 0 then
		return
	end

	local currentFace = face
	left()

	if not turtle.detect() then
		patch()
	end

	right()
	right()

	if not turtle.detect() then
		patch()
	end

	setFace(currentFace)
end

function _patchSides()
	local currentFace = face
	left()
	if not turtle.detect() then
		if face == 0 and x ~= -1 then
			patch()
		end
	end
	right()
	right()
	if not turtle.detect() then
		if face == 0 and x ~= -1 then
			patch()
		else
			print("patchSides: opted to NOT patch, face = ", face, ", x = ", x)
		end
	end
	setFace(currentFace)
--	left()
end

function torchCheck()
	if addTorch then
		if (torchSpot % torchSpacing) == 0 then
			right()
			right()
			turtle.select(16)
			turtle.place()
			left()
			left()
		end
	end
end

function setFace(f)
	if f == 0 then
	  if face == 0 then return end
	  if face == 1 then right() return end
	  if face == 2 then right() right() return end
	  if face == 3 then left() return end
	end

	if f == 1 then
	  if face == 0 then left() return end
	  if face == 1 then return end
	  if face == 2 then right() return end
	  if face == 3 then right() right() return end
	end

	if f == 2 then
	  if face == 0 then left() left() return end
	  if face == 1 then left() return end
	  if face == 2 then return end
	  if face == 3 then right() return end
	end

	if f == 3 then
	  if face == 0 then right() return end
	  if face == 1 then left() left() return end
	  if face == 2 then left() return end
	  if face == 3 then return end
	end
end

function checkFuel()
	if currentFuelLevel == "unlimited" then
		return true
	end

	if currentFuelLevel < minimumFuel then
	  if not turtle.refuel(200) then
		  areaCovered = targetArea
		  missionMessage = "Mission aborted due to low fuel."
		  abort = true
	    return false
	  end
	end
  return true
end

function home(targetY)
--  print("home:face ", face, ", x = ", x, ", z = ", z)
  if x < 0 then
	setFace(3)
	while x < 0 do
	  forward()
	end
  else
    if x > 0 then
  	  setFace(1)
	  while x > 0 do
	    forward()
	  end
    end
  end

  if z < 0 then
	setFace(0)
	while z < 0 do
	  forward()
	end
  else
    if z > 0 then
  	  setFace(2)
	  while z > 0 do
	    forward()
	  end
    end
  end
end

function dump()
	gatherPatchMaterial(true)
	for i=2,14 do
		turtle.select(i)
		turtle.dropDown()
	end
end

function mineAhead()
	if y == 0 then
		mineForwardUp()
	else
		mineForwardDown()
	end
end

function branchLoop()
	torchSpot = 6
	local i

	for i=1,length do
		mineAhead()
	end

	right()

	for i=1,3 do
		mineAhead()
	end

	right()

	for i=1,length do
		mineAhead()
	end

	setFace(0)
	while y > 0 do
		down()
	end

	if turtle.detectDown() then
		turtle.select(15)
		if not turtle.compareDown() then
			turtle.digDown()
--			slurpDown()
			turtle.placeDown()
		end
	end
	if turtle.compareDown() then
		dump()
		turtle.select(2)
	end
end

-- MAIN PROGRAM

turtle.select(1)

print("Current Fuel Level: ", currentFuelLevel)

if currentFuelLevel ~= "unlimited" then
	if currentFuelLevel < minimumFuel then
		if not turtle.refuel() then
		  print("No fuel")
		  return
		end
	end
end

for loop=1,5 do
	addTorch = false

--	rise(1)
	for i=1,5 do
	  mineAhead()
	end
	turtle.back()
	turtle.back()
	left()
	addTorch = true
	branchLoop()
end


print(missionMessage, " Current fuel level is ", turtle.getFuelLevel())