hut1

-- hut1
-- Places stairs in the form of a pitched roof
-- Turtle returns to its starting point when mission is completed or fuel runs low
-- Written by HarvDad, March 2014

args = {...}
nArgs = #args

version = "walls: Rev 0.3"
mission = "Put walls to the length, width, height specified"
instructions = "Place stack(s) of material starting in first slot."

usage = "hut1 <length> <width> <height>"

x = 0
y = 0
z = 0
face = 0
north = 0
west = 1
south = 2
east = 3

above = 1
below = 0
placement = above
destructive = false
hasFace = false

minimumFuel = 100
missionMessage = "Mission complete."
abort = false
startLevel = 0
local currentFuelLevel = turtle.getFuelLevel()
areaCovered = 0

if nArgs == 0 or (nArgs == 1 and args[1]== "help") then
	print(version)
	print(mission)
	print(instructions)
	print(usage)
	return
end

if nArgs ~= 3 then
  print(usage)
  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

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

height = tonumber(args[3])
if startLevel == nil then
  print("\"", args[3], "\" is not a valid height")
return
end

currentSlot = 2
materialSlot = 1
maxSlot = 16

nextTurn = "left"

local clock = os.clock
function sleep(n)  -- seconds
  local t0 = clock()
    while clock() - t0 <= n do end
end

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()
  turtle.up()
  y = y+1
end

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

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

function turn()
  if nextTurn == "left" then
    left()
  else
    right()
  end
  chomp()
  forward()
  if nextTurn == "left" then
	left()
  	nextTurn = "right"
  else
	right()
    nextTurn = "left"
  end
  areaCovered = areaCovered + 1
end

function forward()
	while turtle.detect() do	-- This loop added in case of falling sand or whatever
--	  turtle.dig()
		return
	end
	for i=1,10 do				-- This loop trys to handle pests (mob) that might be in the way
		if turtle.forward() then
			break
		end
		turtle.attack()
		sleep(2)
	end
	areaCovered = areaCovered + 1

  	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 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 home(targetY)
--  print("home:face ", face, ", x = ", x, ", z = ", z)

  if y > 0 then
  	while y > targetY do
		down()
	end
  end

  if x < 0 then
	setFace(east)
	while x < 0 do
	  forward()
	end
  else
    if x > 0 then
  	  setFace(west)
	  while x > 0 do
	    forward()
	  end
    end
  end

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

  setFace(north)
end

function ensureMaterial()
	if turtle.getItemCount(materialSlot) < 3 then
		organizeMaterial()
	end
	if turtle.getItemCount(materialSlot) < 3 then
		print("No more material")
		return false
	end
	return true
end

function organizeMaterial()
	local i
	materialCount = turtle.getItemCount(materialSlot)

	if materialCount < 3 then
--		print("Attempting to refill slot ", materialSlot)
		for i=2,16 do
			turtle.select(i)
			if turtle.compareTo(materialSlot) then
				turtle.transferTo(materialSlot)
			end
		end
	end
	turtle.select(materialSlot)
end

function layBlock()
	turtle.select(materialSlot)

	if ensureMaterial() then
		if placement == above then
			if destructive then
				turtle.digUp()
			end
			if not turtle.detectUp() then
				turtle.placeUp()
			end
		else
			if destructive then
				turtle.digDown()
			end
			if not turtle.detectDown() then
				turtle.placeDown()
			end
		end
	end
end

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

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

currentSlot = 1

function layRow(nBlocks)
	turtle.select(materialSlot)
	for i=1,nBlocks do
		if hasFace then
			left()
		end
		layBlock()
		if hasFace then
			right()
		end
		turtle.forward()
	end
end

function stack3()
	if ensureMaterial() then turtle.placeUp() end
	if ensureMaterial() then turtle.placeDown() end
	turtle.back()
	if ensureMaterial() then turtle.place() end
end

function tripleWall(nBlocks)
	turtle.select(materialSlot)
	for i=1,nBlocks do
		stack3()
	end
end

function nextLayer(vertical)
	setFace(north)
	forward()
	left()
	forward()
	for i=1,vertical do
		up()
	end
	setFace(north)

	length = length - 2
	width = width - 2

	currentLevel = currentLevel + vertical
end

-- MAIN PROGRAM

turtle.select(1)

print("fuelLevel = ", currentFuelLevel)
print("length = ", length)
print("width = ", width)
print("face = ", face)

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

notFinished = true
hasFace = true
materialSlot = 1
currentLevel = 0
originalLength = length
originalWidth = width

--[[
-- Floor

hasFace = false
placement = below
destructive = true

while length > 0 or width > 0 do
	setFace(north)
	layRow(length - 1)

	setFace(west)
	layRow(width - 1)

	setFace(south)
	layRow(length - 1)

	setFace(east)
	layRow(width - 1)

	nextLayer(0)
end
--]]

rise(3)

-- Roof Slope

materialSlot = 1
hasFace = true
length = originalLength
width = originalWidth

while currentLevel < height do
	setFace(north)
	layRow(length - 1)

	setFace(west)
	layRow(width - 1)

	setFace(south)
	layRow(length - 1)

	setFace(east)
	layRow(width - 1)

	nextLayer(1)
end

-- Roof Top

materialSlot = 5
hasFace = false
--length = originalLength
--width = originalWidth

while length > 0 or width > 0 do
	setFace(north)
	layRow(length - 1)

	setFace(west)
	layRow(width - 1)

	setFace(south)
	layRow(length - 1)

	setFace(east)
	layRow(width - 1)

	nextLayer(0)
	if turtle.detectUp() then
		break
	end
end

home(2)
length = originalLength
width = originalWidth

-- Window Panes

materialSlot = 9
hasFace = false

setFace(north)
layRow(length - 1)

setFace(west)
layRow(width - 1)

setFace(south)
layRow(length - 1)

setFace(east)
layRow(width - 1)

home(1)

length = originalLength
width = originalWidth

-- 3-high wall

materialSlot = 13
hasFace = false

setFace(south)
tripleWall(length - 1)

setFace(east)
tripleWall(width - 1)

setFace(north)
tripleWall(length - 1)

setFace(west)
tripleWall(width - 1)
print(missionMessage)
print(" Current fuel level is ", turtle.getFuelLevel())