Simple Turtle Builder

-- drone program used in building. written by jonathan ortiz
slot=1
choice=3
isFull=false
builder=true
gatherer=false
patternString="Line"
pattern=1
sideLength=0
sideHeight=0
sideWidth=0
builderString="Building"
drawinglength=false
drawingheight=false
drawingwidth=false
running=false
--checks if the turtle has material in any of the first 14 slots (last two slots are for fuel) will place a block below the turtle.--
--It is possible to script a pattern of 14 different stages by placing specific quantities into the turtle in from top left across then down.--
drawWorking=function()
term.setCursorPos(2,3)
term.write(" Currently:")term.write(builderString)term.write(" a ")term.write(patternString)
end
boarder=function()
term.clear()
term.setCursorPos(1,1)
print("===========Turtle Builder==============")
print("|									 |")
print("|									 |")
print("|									 |")
print("|									 |")
print("|									 |")
print("|									 |")
print("|									 |")
print("|									 |")
print("|									 |")
print("|									 |")
print("===========Turtle Builder==============")
end
mainhud=function()
term.setCursorPos(2,3)
term.write(" 1  Build/Break:")
term.setCursorPos(2,4)
term.write(" 2  Gather:")
term.setCursorPos(2,5)
term.write(" 3  Pattern:")
term.setCursorPos(2,6)
term.write(" 4  Run!")
term.setCursorPos(2,7)
term.write(" 5  Exit!")
if pattern>1 then
term.setCursorPos(1,8)
term.write("< 7  > Side Length: ")term.write(tostring(sideLength))
drawinglength=true
else
drawinglength=false
end
if pattern==4 or pattern==2 or pattern==3 then
term.setCursorPos(1,9)
term.write("< 8  > Side Height: ")term.write(tostring(sideHeight))
drawingheight=true
else
drawingheight=false
end
if pattern==1 and not builder then
term.setCursorPos(1,8)
term.write("< 7  > Side Length: ")term.write(tostring(sideLength))
end
if pattern==3 then
term.setCursorPos(1,10)
term.write("< 9  > Side Width: ")term.write(tostring(sideWidth))
drawingwidth=true
else
drawingwidth=false
end
end
drawStatus=function(builder,gatherer,patternString)
term.setCursorPos(18,3)
if builder then
builderString="Building"
else
builderString="Breaking"
end
term.write(builderString)
term.setCursorPos(13,4)
term.write(gatherer)
term.setCursorPos(14,5)
if pattern==1 then patternString="Line"
elseif pattern==2 then patternString="Square"
elseif pattern==3 then patternString="Floor"
elseif pattern==4 then patternString="Wall"
end
term.write(patternString)
end
drawChoice=function(choiceNum)
term.setCursorPos(2,choiceNum)
term.write("[")
term.setCursorPos(4,choiceNum)
term.write("]")
end
place=function()
counted=turtle.getItemCount(slot)
turtle.select(slot)
if counted<1 then
  empty=true
end

while empty do
  slot=slot+1
  if slot>14 then
   error("out of blocks")
  end

turtle.select(slot)
counted=turtle.getItemCount(slot)

  if counted>0 then
   empty=false
  end

  term.write("still empty")

end

turtle.placeDown()
end
--IMPORTANT! when a turtle is being used to collect blocks with this program the first slot must remain open as a buffer for new items coming in--
sort=function()
for i=2,14,1 do
  turtle.select(1)
  sames=turtle.compareTo(i)
  if sames then
   turtle.select(1)
   turtle.transferTo(i)
  end
end
  if turtle.getItemCount(1)>0 then
   for j=2,14,1 do
	empty=turtle.getItemCount(j)
	if empty==0 and turtle.getItemCount(1)>0 then
	 turtle.select(1)
	 turtle.transferTo(j)
	end
   end
   if turtle.getItemCount(1)>0 then
	isFull=true
	return
   end
  end
end
--takes up blocks around the turtle making use of the sort function to store them--
gather=function()
turtle.drop()
end
--Breaks the block below the turtle and gathers it optionaly. depends on boolean 'shouldGather'--
dig=function()
turtle.digDown()
if not gatherer==true then
gather()
end
end
digFront=function()
turtle.dig()
if gatherer==true then
--gather()
end
end
--breaks the block in front of the turtle and gathers it optionally. depends on the boolean 'shouldGather'--
--will check for fuel and the need for it then take the appropriate action.--
fuel=function()
fuelSlot=15
hasFuel=turtle.getFuelLevel()
if hasFuel<2 then
  turtle.select(fuelSlot)
  counted=turtle.getItemCount(fuelSlot)
  if counted>0 then
   turtle.refuel(1)
  else
   fuelSlot=fuelSlot+1
   turtle.select(fuelSlot)
   counted=turtle.getItemCount(fuelSlot)
   if counted>0 then
	turtle.refuel(1)
   end
  end
  hasFuel=turtle.getFuelLevel()
  if hasFuel<2 then
   error("Out of Fuel")
  end
  term.write("fuel complete")
end
end
-- will place blocks in a line untill the turtle discovers an obstruction.--
-- It is possible to controll the length of the line without an obstruction by limiting the building materials located in the first 14 slots of the turtle.--
bLine=function()
runsline=true
term.clear()
boarder()
term.setCursorPos(2,3)
term.write("Starting")

while runsline do
  if turtle.getFuelLevel()<2 then
   fuel()
   end

  isBlocked=turtle.detect()
  hasPlaced=turtle.detectDown()

   if hasPlaced and isBlocked then
	term.write("Operation Stopped due to obstruction")
	runsline=false
   elseif isBlocked and not hasPlaced then
	place()
	runsline=false
   elseif not isBlocked and not hasPlaced then
	place()
   end
   turtle.forward()
end
term.write("Finshed")
end
brLine=function(sideLength)
term.clear()
boarder()
term.setCursorPos(2,3)
term.write("Starting")
   for i=0,sideLength,1 do
   if turtle.getFuelLevel()<2 then
   fuel()
   end
   turtle.dig()
   if gatherer==true then
   term.write("stupid gatherer")
   --gather()
   end
   turtle.forward()
   end
end
bSquare=function(sideLength,sideHeight)
term.clear()
boarder()
term.setCursorPos(2,3)
term.write("Starting")
building=true
while building do
  place()
  for i=1,sideHeight do
   for j=2,sideLength do
	if turtle.getFuelLevel()<2 then
	fuel()
	end
	place()
	isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
   end
   turtle.turnRight()
   for j=2,sideLength do
	if turtle.getFuelLevel()<2 then
	fuel()
	end
	place()
	isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
   end
   turtle.turnRight()
   for j=2,sideLength do
	if turtle.getFuelLevel()<2 then
	fuel()
	end
	place()
	isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
   end
   turtle.turnRight()
   for j=3,sideLength do
	if turtle.getFuelLevel()<2 then
	fuel()
	end
	place()
	isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
   end
   place()
   turtle.up()
   isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
	place()
	turtle.turnRight()
   end
end
running=false
end
brSquare=function(sideLength,sideHeight)
term.clear()
boarder()
term.setCursorPos(2,3)
term.write("Starting")
building=true
while building do
  dig()
  for i=1,sideHeight do
   for j=2,sideLength do
	if turtle.getFuelLevel()<2 then
	fuel()
	end
	dig()
	isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
   end
   turtle.turnRight()
   for j=2,sideLength do
	if turtle.getFuelLevel()<2 then
	fuel()
	end
	dig()
	isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
   end
   turtle.turnRight()
   for j=2,sideLength do
	if turtle.getFuelLevel()<2 then
	fuel()
	end
	dig()
	isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
   end
   turtle.turnRight()
   for j=3,sideLength do
	if turtle.getFuelLevel()<2 then
	fuel()
	end
	dig()
	isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
   end
   dig()
   turtle.down()
   isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
	dig()
	turtle.turnRight()
   end
   building=false
end
running=false
end
bFloor=function(sideLength,sideWidth,sideHeight)
term.clear()
boarder()
term.setCursorPos(2,3)
term.write("Starting")
building=true
turnRight=true
while building do
for i=1,sideHeight,1 do
  for i=1,sideWidth,1 do
   for i=2,sideLength,1 do
   --walking forward placing blocks
   if turtle.getFuelLevel()<2 then
   fuel()
   end
   place()
   isBlocked=turtle.detect()
	if isBlocked then
	 error("path blocked")
	else
	 turtle.forward()
	end
			place()  
   end
   --decides to zig or zag then does it placing it facing back the opposite way over an empty space
   if turnRight then
   turtle.turnRight()
   isBlocked=turtle.detect()
	 if isBlocked then
	  error("path blocked")
	 else
	  turtle.forward()
	  end
   turtle.turnRight()
   end
   if not turnRight then
	turtle.turnLeft()
	isBlocked=turtle.detect()
	 if isBlocked then
	  error("path blocked")
	 else
	  turtle.forward()
	 end
	  turtle.turnLeft()
	 end
	turnRight= not turnRight
   end
   --moves turtle up then checks to see if it just went left or right
   turtle.up()
   if not turnRight then
   --if the turtle just went right then it should
	turtle.turnRight()
	isBlocked=turtle.detect()
	 if isBlocked then
	  error("path blocked")
	 else
	  turtle.forward()
	  end
	  turtle.turnLeft()
	  end
   if turnRight then
	 turtle.turnLeft()
	 isBlocked=turtle.detect()
	 if isBlocked then
	  error("path blocked")
	 else
	  turtle.forward()
	  end
	  turtle.turnRight()
	  end
	  turnRight=not turnRight
  end
  building=false
end
end
brFloor=function()
term.clear()
boarder()
term.setCursorPos(2,3)
term.write("Starting")
building=true
turnRight=true
while building do
for i=1,sideHeight,1 do
  for j=1,sideWidth,1 do
   for i=2,sideLength,1 do
   --walking forward placing blocks
   if turtle.getFuelLevel()<2 then
   fuel()
   end
   dig()
   isBlocked=turtle.detect()
	if isBlocked and i<sideLength then
	 digFront()
	  turtle.forward()
	else
	 turtle.forward()
	end
			dig()
   end
   --decides to zig or zag then does it placing it facing back the opposite way over an empty space
   if turnRight and j<sideWidth then
   turtle.turnRight()
   isBlocked=turtle.detect()
	 if isBlocked then
	  dig()
	  turtle.forward()
	 else
	  turtle.forward()
	  end
   turtle.turnRight()
   end
   if not turnRight and j<sideWidth then
	turtle.turnLeft()
	isBlocked=turtle.detect()
	 if isBlocked then
	  dig()
	  turtle.forward()
	 else
	  turtle.forward()
	 end
	  turtle.turnLeft()
	 end
	turnRight= not turnRight
   end
  --after completing a whole floor turtle turns about and descends and contunues on.
  turtle.turnRight()
  turtle.turnRight()
  turtle.down()
  turnRight=not turnRight
   end
  building=false
end
end
bWall=function(sideLength,sideHeight)
term.clear()
boarder()
term.setCursorPos(2,3)
term.write("Starting")
for i=1,sideHeight,1 do
  for j=2,sideLength,1 do
  if turtle.getFuelLevel()<2 then
   fuel()
   end
   place()
   isBlocked=turtle.detect()
	if isBlocked and i<sideLength then
	 digFront()
	  turtle.forward()
	else
	 turtle.forward()
	end
			place()
  end
  turtle.turnRight()
  turtle.turnRight()
  turtle.up()
end
end
brWall=function()
term.clear()
boarder()
term.setCursorPos(2,3)
term.write("Starting")
for i=1,sideHeight,1 do
  for j=2,sideLength,1 do
  if turtle.getFuelLevel()<2 then
   fuel()
   end
   dig()
   isBlocked=turtle.detect()
	if isBlocked and i<sideLength then
	 digFront()
	  turtle.forward()
	else
	 turtle.forward()
	end
			dig()
  end
  turtle.turnRight()
  turtle.turnRight()
  turtle.down()
end
end
while true do
boarder()
mainhud()
drawStatus(builder,gatherer,patternString)
drawChoice(choice)
event,param1=os.pullEvent("key")
if event== "key" and param1==200 then
choice = choice-1
  if choice<3 and drawingwidth then
   choice=10
  end
  if choice<3 and drawingheight and not drawingwidth then
  choice=9
  end
  if choice<3 and drawinglength and not drawingheight then
  choice=8
  end
  if choice<3 and not drawinglength then
  choice=7
  end
	end
if event== "key" and param1==208 then
choice=choice+1
  if choice>10 then
   choice=3
   end
   if choice>7 and not drawinglength and not drawingwidth then
   choice=3
   end
   if choice>8 and not drawingheight then
   choice=3
   end
   if choice>9 and not drawingwidth then
   choice=3
   end
   end
if event== "key" and param1==28 then
  if choice==3 then
   builder=not builder
   end
  if choice==4 then
  gatherer= not gatherer
  end
  if choice==5 then
  pattern=pattern+1
   if pattern>4 then
   pattern=1
   end
  end
  if choice==6 and param1==28 then
  running=true
  --primary loop when all choices have been made--
   while running do
   --line order--
	if pattern==1 then
	 if builder and running then
	 bLine()
	 elseif not builder then
	 brLine(sideLength)
	 end
   --square order--
	elseif pattern==2 then
	if builder then
	bSquare(sideLength,sideHeight)
	end
	if not builder then
	brSquare(sideLength,sideHeight)
	end
   --floor order--
	elseif pattern==3 then
	if builder then
	bFloor(sideLength,sideWidth,sideHeight)
	end
	if not builder then
	brFloor(sideLength,sideWidth,sideHeight)
	end
   --wall order--
	elseif pattern==4 then
	if builder then
	bWall(sideLength,sideHeight)
	end
	if not builder then
	brWall(sideLength,sideHeight)
	end
	end
	term.setCursorPos(2,6)
	term.write("Operation Finished")
	os.sleep(1)
	running=false  
   end
  --end of the main loop area--
  end
  if choice==7 then
  term.clear()
   error("thank you for using Turtle Builder!")
  end

  end
if event== "key" and param1==205 and choice==8 then
  sideLength=sideLength+1
  end
if event== "key" and param1==203 and choice==8 then
  sideLength=sideLength-1
  if sideLength<=0 then
  sideLength=0
  end
end
if event== "key" and param1==205 and choice==9 then
  sideHeight=sideHeight+1
  end
if event== "key" and param1==203 and choice==9 then
  sideHeight=sideHeight-1
  if sideHeight<=0 then
  sideHeight=0
  end
  end
if event== "key" and param1==205 and choice==10 then
  sideWidth=sideWidth+1
  end
if event== "key" and param1==203 and choice==10 then
  sideWidth=sideWidth-1
  if sideWidth<=0 then
  sideWidth=0
  end
end
end