starfort

--Setup

turtle.select(2)

--Vars

x = 0 --Position in the x cord, read north south
y = 0 --Position in the y cord, read up down
z = 0 --Position in the z cord, read east west
faceing = "east" --starting faceing
reload = "up" -- use for refuel call in as invPos var
cB = "cobble" -- starting block type, updated in the restock function

--used Vars

--slot - used to donate the active
--       placement slot in refule()
--dist - used to donate how far the
--       the turtle moves in movment
--       functions.
--block- type of block you want to use
--len  - length of a line used in line
--       function
--hight- used in walls and towers
--       functions to get the hight of
--       the structure
--Width- used in the floor function

--Functions

function refuel()
--refules the turtle.

  if turtle.getFuelLevel() == 0 then
    slot = turtle.getSelectedSlot()
    turtle.select(1)
    turtle.refuel()
    turtle.select(slot)
    restock("fuel","reload",1)
  end
end

function forward(dist)
--Moves the turtle forward by b while
--keeping track of position relative
--to start
  if dist == nill then
    dist = 1
  end
  if turtle.detect() == false then
    if faceing == "north" then
      for i=1,dist do
        refuel()
        x = x+1
        turtle.forward()
      end
    elseif faceing == "south" then
      for i=1,dist do
        refuel()
        x = x-1
        turtle.forward()
      end
    elseif faceing == "east" then
      for i=1,dist do
        refuel()
        z = z+1
        turtle.forward()
      end
    elseif faceing == "west" then
      for i=1,dist do
        refuel()
        z = z-1
        turtle.forward()
      end
    end
  else
  print("Obsturcted")
  end
end

function back(dist)
--Moves the turtle back by b, keeping
--track of its position relative to
--start
  if dist == nill then
    dist = 1
  end

  if faceing == "north" then
    for i=1,dist do
      refuel()
      x = x-1
      turtle.back()
    end
  elseif faceing == "south" then
    for i=1,dist do
      refuel()
      x = x+1
      turtle.back()
    end
  elseif faceing == "east" then
    for i=1,dist do
      refuel()
      z = z-1
      turtle.back()
    end
  elseif faceing == "south" then
    for i=1,dist do
      refuel()
      z = z+1
      turtle.back()
    end
  end
end


function up(dist)
--moves the turtle up while keeping
--track of y value
  if dist == nill then
    dist = 1
  end
  for i=1,dist do
    refuel()
    y = y+1
    turtle.up()
  end
end

function down(dist)
--moves turtle down while keeping track
--of y vaule
  if dist == nill then
    dist = 1
  end
  for i=1,dist do
    refuel()
    y = y-1
    turtle.down()
  end
end


function left(dist)
--turns turtle left keeping track of
--faceing turning dist times
  if dist == nill then
    dist = 1
  end
  for i=1,dist do
    if faceing == "north" then
      turtle.turnLeft()
      faceing = "west"
    elseif faceing == "west" then
      turtle.turnLeft()
      faceing = "south"
    elseif faceing == "south" then
      turtle.turnLeft()
      faceing = "east"
    elseif faceing == "east" then
      turtle.turnLeft()
      faceing = "north"
    end
  end
end

function right(dist)
-- Turns the turtle right while keeping
-- track of the faceing, turns dist
-- times
  if dist == nill then
    dist = 1
  end
  for i=1,dist do
    if faceing == "north" then
      turtle.turnRight()
      faceing = "east"
    elseif faceing == "east" then
      turtle.turnRight()
      faceing = "south"
    elseif faceing == "south" then
      turtle.turnRight()
      faceing = "west"
    elseif faceing == "west" then
      turtle.turnRight()
      faceing = "north"
    end
  end
end

function north()
-- rotates turtle left till faceing is
-- north
  while faceing ~= "north" do
    left()
  end
end

function east()
--rotates turtle left untill faceing is
-- east
  while faceing ~= "east" do
    left()
  end
end

function south()
-- rotates turtle left untill faceing
-- is south
  while faceing ~= "south" do
    left()
  end
end

function west()
-- rotates turtle left untill faceing
-- is west
  while faceing ~= "west" do
    left()
  end
end

function suckUp(noStack)
--fills turtle inventory with item from
--inventry above
  turtle.select(2)
  for i=1,noStack do
    turtle.suckUp()
  end
end

function suck(noStack)
--fills turtle inventory with item from
--inventory forward
  turtle.select(2)
  for i=1,noStack do
    turtle.suck()
  end
end

function suckDown(noStack)
--fills turtle inventory with item from
--inventory below
  turtle.select(2)
  for i=1,noStack do
    turtle.suckDown()
  end
end


function restock(block,invPos,stackNo)
-- Move the turtle back to the starting
-- position, then empties the turtles
-- currant inventory and restocks on
-- block. invPos indicates the direction
-- of target inventory.stackNo is the
-- number of stacks to restock.
  if block == nill then
    block = "cobble"
  end
  if invPos == nill then
    invPos = "forward"
  end
  if stackNo == nill then
    stackNo = 1
  end

-- Vars of currant position
  x1 = x
  y1 = y
  z1 = z
  faceing1 = faceing

  print(x.." - "..x1)
  print(y.." - "..y1)
  print(z.." - "..z1)


-- Moveing to starting position
  while x~=0 or y~=0 or z~=0 do
--  print("Moveing to Start")
    if y > 0 then
--      print("Moveing down")
      for i=1,math.abs(y) do
        down(1)
      end
    elseif y < 0 then
--      print("Moveing up")
      for i=1,math.abs(y) do
        up(1)
      end
    end
    if z > 0 then
--      print("Moveing West")
      west()
      for i=1,math.abs(z) do
        forward(1)
      end
    elseif z < 0 then
--      print("Moveing East")
      east()
      for i=1,math.abs(z) do
        forward(1)
      end
    end
    if x > 0 then
--      print("Moveing South")
      south()
      for i=1,math.abs(x) do
        forward(1)
      end
    elseif x < 0 then
--      print("Moveing North")
      north()
      for i=1,math.abs(x) do
        print(x)
        forward(1)
      end
    end
  end

-- emptying inventory if needed block
-- is not fuel
  if block ~= "fuel" then
    turtle.select(2)
    slot = turtle.getSelectedSlot()
    if invPos == "up" then
      for i=1,15 do
        turtle.dropUp()
        if slot < 16 then
          turtle.select(slot+1)
          slot = turtle.getSelectedSlot()
        else
          turtle.select(2)
        end
      end
    elseif invPos == "down" then
      for i=1,15 do
        turtle.dropDown()
        if slot < 16 then
          turtle.select(slot+1)
          slot = turtle.getSelectedSlot()
        else
          turtle.select(2)
        end
      end
    elseif invPos == "forward" then
      for i=1,15 do
        turtle.drop()
        if slot < 16 then
          turtle.select(slot+1)
          slot = turtle.getSelectedSlot()
        else
          turtle.select(2)
        end
      end
    end
  end

-- restocking requited item
  if block == "fuel" then
    if invPos == "up" then
      turtle.suckUp()
    elseif invPos == "down" then
      turtle.suckDown()
    elseif invPos == "forward" then
      turtle.suck()
    end
  elseif block == "quartz" then
    north()
    forward(1)
    if invPos == "up" then
      suckUp(stackNo)
    elseif invPos == "down" then
      suckDown(stackNo)
    elseif invPos == "forward" then
      suck(stackNo)
    end
    cB = "quartz"
    back(1)
  elseif block == "cobble" then
    north()
    forward(2)
    if invPos == "up" then
      suckUp(stackNo)
    elseif invPos == "forward" then
      suck(stackNo)
    elseif invPos == "down" then
      suckDown(stackNo)
    end
    cB = "cobble"
    back(2)
  elseif block == "fQuartz" then
    north()
    forward(3)
    if invPos == "up" then
      suckUp(stackNo)
    elseif invPos == "down" then
      suckDown(stackNo)
    elseif invPos == "forward" then
      suck(stackNo)
    end
    cB = "fQuartz"
    back (3)
  elseif block == "cQuartz" then
    north()
    forward(4)
    if invPos == "up" then
      suckUp(stackNo)
    elseif invPos == "down" then
      suckDown(StackNo)
    elseif invPos == "forward" then
      suck(StackNo)
    end
    cB = "cQuartz"
    back(4)
  end
-- Move the turtle back to its working
-- position.

  while x~=x1 or y~=y1 or z~=z1 do
    if x1 < 0 then
      south()
      for i=1,math.abs(x1) do
        forward(1)
      end
    elseif x1>0 then
      north()
      for i=1,math.abs(x1) do
        forward(1)
      end
    end
    if z1 > 0 then
      east()
      for i=1,math.abs(z1) do
        forward(1)
      end
    elseif z1 < 0 then
      west()
      for i=1,math.abs(z1) do
        forward(1)
      end
    end
    if y1 < 0 then
      for i=1,math.abs(y1) do
        down(1)
      end
    elseif y1 > 0 then
      for i=1,math.abs(y1) do
        up(1)
      end
    end
    while faceing ~= faceing1 do
        left()
    end
  end
end

function goHome()
-- Moveing to starting position
  while x~=0 or y~=0 or z~=0 do
--  print("Moveing to Start")
    if y > 0 then
--      print("Moveing down")
      for i=1,math.abs(y) do
        down(1)
      end
    elseif y < 0 then
--      print("Moveing up")
      for i=1,math.abs(y) do
        up(1)
      end
    end
    if z > 0 then
--      print("Moveing West")
      west()
      for i=1,math.abs(z) do
        forward(1)
      end
    elseif z < 0 then
--      print("Moveing East")
      east()
      for i=1,math.abs(z) do
        forward(1)
      end
    end
    if x > 0 then
--      print("Moveing South")
      south()
      for i=1,math.abs(x) do
        forward(1)
      end
    elseif x < 0 then
--      print("Moveing North")
      north()
      for i=1,math.abs(x) do
        print(x)
        forward(1)
      end
    end
  end
  north()
end

function placeDown(block)
--places spcifyed block below turtle.
  if block == cB then
    while turtle.getItemCount() == 0 do
      slot = turtle.getSelectedSlot()
      if slot ~= 16 then
        turtle.select(slot+1)
      else
        turtle.select(2)
        restock(block,reload,15)
      end
    end
    turtle.placeDown()
    else
    restock(block,reload,15)
    turtle.placeDown()
  end
end

function placeUp(block)
--places block above turtle.
  if block == cB then
    slot = turtle.getSelectedSlot()
    while turtle.getItemCount() == 0 do
      if slot == 16 then
        turtle.select(2)
        restock(block,reload,15)
      else
        turtle.select(slot+1)
      end
    end
    turtle.placeUp()
  else
    restock(block,reload,15)
    turtle.placeUp()
  end
end

function place(block)
-- places block infrount of turtle.
  print(block)
  if block == cB then
    slot = turtle.getSelectedSlot()
    while turtle.getItemCount() == 0 do
      if slot == 16 then
        turtle.select(2)
        restock(block,reload,15)
      else
        turtle.select(slot+1)
      end
    end
    turtle.place()
  else
    restock(block,reload,15)
  end
end

function lineUp(block,len)
--places a line of blocks with a length
--of len above the turtle.
  for i=1,len do
    forward()
    placeUp(block)
  end
end

function lineDown(block,len)
--places a line of blocks with a length
--of len below the turtle.
  for i=1,len do
    forward()
    placeDown(block)
  end
end

function line(block,len,direction)
--places a line of blocks with a length
--of len infront of the turtle,
--In direction of direction.
  if direction == "north" then
    for i=1,len do
      west()
      place(block)
      north()
      forward()
    end
  elseif direction == "west" then
    for i=1,len do
      south()
      place(block)
      west()
      forward()
    end
  elseif direction == "south" then
    for i=1,len do
      east()
      place(block)
      south()
      forward()
    end
  elseif direction == "east" then
    for i=1,len do
      north()
      place(block)
      east()
      forward()
    end
  end
end

function wallDown(block,len,hight)
-- Builds a wall with blocks placed
-- below the turtle.
  for i=1,hight do
    up()
    placeDown(block)
    lineDown(block,len)
  end
end

function wallUp(block,len,hight)
-- Builds a wall with blocks placed
-- above the turtle.
  for i=1,hight do
    down()
    placeUp(block)
    lineUp(block,len)
  end
end

function wall(block,len,direction,hight)
-- Builds a wall in stated direction
-- in frount of the turtle.
  for i=1,hight do
    up()
    place(block)
    line(block,len,direction)
  end
end

function diagDLL(block,len)
-- Places a diaginal line of blocks
-- going to the left form the point
-- of view of the turtle.
-- Blocks go below the turtle.
  for i=1,len do
    placeDown(block)
    forward()
    left()
    forward()
    right()
  end
end

function diagDLR(block,len)
-- Places a diaginal line of blocks
-- going right form the point of view
-- of the turtle.
-- Blocks placed below the turtle.
  for i=1,len do
    placeDown(block)
    forward()
    right()
    forward()
    left()
  end
end

function diagULL(block,len)
-- Places a diaginal line of blocks
-- left from the point of view of the
-- turtle. Blocks go above the turtle.
  for i=1,len do
    placeUp(block)
    forward()
    left()
    forward()
    right()
  end
end

function diagULR(block,len)
-- Places a diaginal line of blocks
-- right from the point of view of the
-- turtle. Blocks go above the turtle.
  for i=1,len do
    placeUp(block)
    forward()
    right()
    forward()
    left()
  end
end

function diagWallUpLeft(block,len,hight)
--builds a diaginal wall going left
--from the point of view of the turtle,
--blocks go above the turtle.
  for i =1,hight do
    diagULL(block,len)
    down()
  end
end

function diagWallUpRight(block,len,hight)
-- builds a diaginal wall going right
--from the point of view of the turtle,
--blocks go above the turtle.
  for i =1,hight do
    diagULR(block,len)
    down()
  end
end

function diagWallDownLeft(block,len,hight)
-- builds a diaginal wall going left
-- from the point of view of the turtle,
-- blocks go below the turtle.
  for i=1,hight do
    diagDLL(block,len)
    up()
  end
end

function diagWallDownRight(block,len,hight)
-- builds a diaginal wall going right
-- from the poitn of view of the turtle
-- blocks go below the turtle.
  for i=1, hight do
    diagDLR(block,len)
    up()
  end
end

function diagFLL(block,len)
-- places a diagingal line infront of
-- the turtle going left.
  for i = 1, len do
    place(block)
    left()
    forward()
    right()
    forward()
  end
end

function diagFLR(block,len)
-- see above but going right.
  for i=1,len do
    place(block)
    right()
    forward()
    left()
    forward()
  end
end

function diagWallLeft(block,len,hight)
--builds a diagnial wall left infront
--of the turtle
  for i=1,hight do
    diagFLL(block,len)
    up()
  end
end

function diagWallRight(block,len,hight)
--builds a diagnial wall right infront
--of the turtle.
  for i=1,hight do
    diagFLR(block,len)
    up()
  end
end

function towerUp(block,len,hight)
-- Builds a tower, with sides equal
-- to len and hight tall.
-- Blocks placed above the turtle.
  for i=1, hight do
    for i =1,4 do
      lineUp(block,len-1)
      left()
    end
    down()
  end
end

function towerDown(block,len,hight)
-- Builds a tower with sides len and
-- hight hight, blocks go below the
-- turtle
  for i = 1, hight do
    for i=1,4 do
      lineDown(block,len-1)
      left()
    end
    up()
  end
end

function floorD(block,len,width)
-- makes a floor with length of len
-- and a width of width in a west
-- drirection. Blocks go below the
--turtle
  up()
  i=0
  for i=0,width-1 do
    placeDown(block)
    lineDown(block,len-1)
    if faceing == "north" then
      west()
      forward()
      south()
    elseif faceing == "south" then
      west()
      forward()
      north()
    end
  end
end

function sideTurnL()
    left()
    forward()
    left()
end

function sideTurnR()
    right()
    forward()
    right()
end

function quartzTower()
    placeDown("quartz")
    forward(2)
    placeDown("quartz")
    forward(8)
    placeDown("quartz")
    forward(2)
    placeDown("quartz")
end

-- Main Program

--loads quartz

--restock("quartz","up",15)


--first level
--builds bace of north towers

--forward(152)
--down(116)
--left()
--forward(19)
--left()
--forward(7)
--north()
--down(1)
--floorD("quartz",13,13)
--forward(12)
--left()
--forward(63)
--north()
--down(1)
--floorD("quartz",13,13)

--builds bace of west towers

--forward(157)
--right()
--forward(170)
--left()
--forward(19)
--left()
--forward(7)
--south()
--down(1)
--floorD("quartz",13,13)
--forward(62)
--right()
--forward(13)
--south()
--down()
--floorD("quartz",13,13)

--builds bace of south towers

--east()
--forward(158)
--south()
--forward(171)
--left()
--forward(19)
--left()
--forward(7)
--right()
--forward(12)
--south()
--down()
--floorD("quartz",13,13)
--forward(12)
--left()
--forward(37)
--south()
--down()
--floorD("quartz",13,13)

--Builds the east tower bace

--forward(157)
--right()
--forward(196)
--left()
--forward(19)
--left()
--forward(7)
--right()
--forward(12)
--south()
--down()
--floorD("quartz",13,13)
--south()
--forward(38)
--east()
--forward(13)
--south()
--down()
--floorD("quartz",13,13)

--second level

--right()
--forward()
--up()

--for i=1,4 do
--    towerDown("quartz",13,1)
--    down()
--    left()
--    forward(50)
--    right()
--    towerDown("quartz",13,1)
--    down()
--    left(2)
--    forward(114)
--    right()
--    forward(126)
--end

--forward()
--left()
--forward()
--right()
--down()
--floorD("cobble",11,11)
--forward(10)
--right()
--forward(39)
--right()
--down()
--floorD("cobble",11,11)
--forward(126)
--right()
--forward(115)
--down()
--floorD("cobble",11,11)
--forward(10)
--right()
--forward(39)
--right()
--down()
--floorD("cobble",11,11)
--forward(136)
--right()
--forward(115)
--right()
--down()
--floorD("cobble",11,11)
--forward(60)
--left()
--forward(11)
--left()
--down()
--floorD("cobble",11,11)
--left()
--forward(137)
--right()
--forward(126)
--down()
--floorD("cobble",11,11)
--forward(10)
--right()
--forward(61)
--right()
--down()
--floorD("cobble",11,11)

--layer 3

--forward(11)
--left()
--forward(50)
--left()
--up()

--for i=1,4 do
--    towerDown("quartz",13,1)
--    down()
--    left()
--    forward(50)
--    right()
--    towerDown("quartz",13,1)
--    down()
--    left(2)
--    forward(114)
--    right()
--    forward(126)
--end

--forward()
--left()
--forward()
--right()
--for i=1,4 do
--    towerDown("cobble",11,1)
--    down()
--    left()
--    forward(50)
--    right()
--    towerDown("cobble",11,1)
--    down()
--    left(2)
--    forward(116)
--    right()
--    forward(126)
--end
--forward()
--left()
--forward()
--right()

--for i=1,4 do
--    towerDown("cobble",9,1)
--    down()
--    left()
--    forward(50)
--    right()
--    towerDown("cobble",9,1)
--    down()
--    left(2)
--    forward(118)
--    right()
--    forward(126)
--end
--left()
--forward(7)
--south()
--forward()
--down()
--floorD("cQuartz",7,7)
--forward(6)
--right()
--forward(57)
--south()
--down()
--floorD("cQuartz",7,7)
--forward(126)
--right()
--forward(133)
--left()
--down()
--floorD("cQuartz",7,7)
--left()
--forward(7)
--left()
--forward(44)
--down()
--floorD("cQuartz",7,7)
--right()
--forward(119)
--right()
--forward(120)
--down()
--floorD("cQuartz",7,7)
--forward(6)
--right()
--forward(43)
--right()
--down()
--floorD("cQuartz",7,7)
--forward(126)
--right()
--forward(119)
--south()
--down()
--floorD("cQuartz",7,7)
--right()
--forward(7)
--right()
--forward(44)
--down()
--floorD("cQuartz",7,7)
--goHome()

--layer 4 and 5

--restock("quartz","up",15)
--forward(145)
--right()
--forward(31)
--down(113)
--north()

--for j=1,2 do
--    for i=1,4 do
--        towerDown("quartz",13,1)
--        down()
--        left()
--        forward(50)
--        right()
--        towerDown("quartz",13,1)
--        down()
--        left(2)
--        forward(114)
--        right()
--        forward(126)
--    end
--    forward(2)
--    left()
--    forward(2)
--    right()
--    for i=1,4 do
--        towerDown("quartz",9,1)
--        down()
--        left()
--        forward(50)
--        right()
--        towerDown("quartz",9,1)
--        down()
--        left(2)
--        forward(118)
--        right()
--        forward(126)
--    end
--    right()
--    forward()
--    right()
--    forward()
--    north()
--    for i=1,4 do
--        towerDown("cobble",11,1)
--        down()
--        left()
--        forward(50)
--        right()
--        towerDown("cobble",11,1)
--        down()
--        left(2)
--        forward(116)
--        right()
--        forward(126)
--    end
--    back()
--    right()
--    forward()
--    left()
--    up()
--end

--goHome()

--layer 6

--restock("quartz","up",15)
--forward(157)
--right()
--forward(31)
--down(111)
--east()
--forward()
--west()
--lineDown("quartz",13)
--forward(37)
--lineDown("quartz",13)
--left()
--lineDown("quartz",2)
--left()
--forward()
--lineDown("quartz",9)
--forward(2)
--right()
--forward()
--left(2)
--lineDown("quartz",2)
--right()
--forward(38)
--left()
--forward()
--left(2)
--lineDown("quartz",2)
--left()
--forward()
--lineDown("quartz",9)
--forward(2)
--right()
--forward()
--left(2)
--lineDown("quartz",2)
--left(2)
--forward(2)
--right()
--for i =1, 3 do
--    placeDown("quartz")
--    forward(2)
--    placeDown("quartz")
--    forward(8)
--    placeDown("quartz")
--    forward(2)
--    placeDown("quartz")
--    forward(38)
--    placeDown("quartz")
--    forward(2)
--    placeDown("quartz")
--    forward(8)
--    placeDown("quartz")
--    forward(2)
--    placeDown("quartz")
--    if faceing == "west" then
--        south()
--        forward()
--        east()
--    elseif faceing == "east" then
--        south()
--        forward()
--        west()
--    end
--end
--for i=1,4 do
--    placeDown("quartz")
--    forward(2)
--    placeDown("quartz")
--    forward(8)
--    placeDown("quartz")
--    forward()
--    lineDown("quartz",39)
--    forward(2)
--    placeDown("quartz")
--    forward(8)
--    placeDown("quartz")
--    forward(2)
--    placeDown("quartz")
--    if faceing == "west" then
--        south()
--        forward()
--        east()
--    elseif faceing == "east" then
--        south()
--        forward()
--        west()
--    end
--end
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward()
--lineDown("quartz",39)
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--sideTurnR()
--placeDown("quartz")
--forward(11)
--lineDown("quartz",39)
--forward(12)
--placeDown("quartz")
--forward()
--sideTurnL()
--lineDown("quartz",63)
--sideTurnR()
--forward(10)
--for i=1,109 do
--    lineDown("quartz",41)
--    forward()
--    if faceing == "east" then
--        south()
--        forward()
--        west()
--    elseif faceing == "west" then
--        south()
--        forward()
--        east()
--    end
--end
--placeDown("quartz")
--lineDown("quartz",42)
--forward(2)
--sideTurnR()
--lineDown("quartz",45)
--forward(2)
--sideTurnL()
--lineDown("quartz",47)
--forward(2)
--sideTurnR()
--lineDown("quartz",49)
--forward(134)
--sideTurnL()
--lineDown("quartz",13)
--forward(119)
--lineDown("quartz",51)
--forward(119)
--lineDown("quartz",13)
--sideTurnR()
--placeDown("quartz")
--forward(12)
--placeDown("quartz")
--forward(117)
--lineDown("quartz",55)
--forward(118)
--placeDown("quartz")
--forward(12)
--placeDown("quartz")
--sideTurnL()
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--forward(116)
--lineDown("quartz",57)
--forward(117)
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--sideTurnR()
--quartzTower()
--forward(115)
--lineDown("quartz",59)
--forward(116)
--quartzTower()
--sideTurnL()
--for i=1,2 do
--    quartzTower()
--    forward(114)
--    lineDown("quartz",61)
--    forward(115)
--    quartzTower()
--    if faceing == "east" then
--        sideTurnR()
--    elseif faceing == "west" then
--        sideTurnL()
--    end
--end
--for i=1,4 do
--    quartzTower()
--    forward(114-i)
--    lineDown("quartz",(((2*i)+61)))
--    forward(115-i)
--    quartzTower()
--    if faceing == "east" then
--        sideTurnR()
--    elseif faceing == "west" then
--        sideTurnL()
--    end
--end
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--forward(109)
--lineDown("quartz",71)
--forward(110)
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--sideTurnR()
--placeDown("quartz")
--forward(11)
--lineDown("quartz",291)
--forward(12)
--placeDown("quartz")
--forward()
--sideTurnL()
--lineDown("quartz",315)
--sideTurnR()
--forward(5)
--for i=1,37 do
--    lineDown("quartz",303)
--    forward()
--    if faceing == "east" then
--        sideTurnR()
--    elseif faceing == "west" then
--        sideTurnL()
--    end
--end
--left(2)
--forward(6)
--left(2)
--lineDown("quartz",315)
--sideTurnR()
--placeDown("quartz")
--forward(11)
--lineDown("quartz",291)
--forward(12)
--placeDown("quartz")
--sideTurnL()
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--forward(109)
--lineDown("quartz",71)
--forward(110)
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--sideTurnR()
--for i=1,4 do
--    quartzTower()
--    forward(109+i)
--    lineDown("quartz",(71-(i*2)))
--    forward(110+i)
--    quartzTower()
--    if faceing == "east" then
--        sideTurnR()
--    elseif faceing == "west" then
--        sideTurnL()
--    end
--end

--for i=1,2 do
--    quartzTower()
--    forward(114)
--    lineDown("quartz",61)
--    forward(115)
--    quartzTower()
--    if faceing == "east" then
--        sideTurnR()
--    elseif faceing == "west" then
--        sideTurnL()
--    end
--end
--quartzTower()
--forward(115)
--lineDown("quartz",59)
--forward(116)
--quartzTower()
--sideTurnL()
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--forward(116)
--lineDown("quartz",57)
--forward(117)
--quartzTower()
--sideTurnR()

--placeDown("quartz")
--forward(12)
--placeDown("quartz")
--forward(117)
--lineDown("quartz",55)
--forward(118)
--placeDown("quartz")
--forward(12)
--placeDown("quartz")
--forward()
--sideTurnL()
--lineDown("quartz",13)
--forward(119)
--lineDown("quartz",51)
--forward(119)
--lineDown("quartz",13)
--sideTurnR()
--forward(132)
--for i=1,4 do
--    lineDown("quartz",(51-(i*2)))
--    if faceing == "east" then
--        sideTurnR()
--    elseif faceing == "west" then
--        sideTurnL()
--    end
--end
--for i=1,109 do
--    lineDown("quartz",41)
--    forward()
--    if faceing == "east" then
--        sideTurnR()
--    elseif faceing == "west" then
--        sideTurnL()
--    end
--end
--left(2)
--forward(11)
--left(2)
--lineDown("quartz",63)
--sideTurnR()
--placeDown("quartz")
--forward(11)
--lineDown("quartz",39)
--forward(12)
--placeDown("quartz")
--sideTurnL()
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward()
--lineDown("quartz",39)
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--sideTurnR()
--for i=1, 4 do
--    placeDown("quartz")
--    forward(2)
--    placeDown("quartz")
--    forward(8)
--    placeDown("quartz")
--    forward()
--    lineDown("quartz",39)
--    forward(2)
--    placeDown("quartz")
--    forward(8)
--    placeDown("quartz")
--    forward(2)
--    placeDown("quartz")
--    if faceing == "east" then
--        sideTurnR()
--    elseif faceing == "west" then
--        sideTurnL()
--    end
--end
--for i=1,3 do
--    quartzTower()
--    forward(38)
--    quartzTower()
--    if faceing == "east" then
--        sideTurnR()
--    elseif faceing == "west" then
--        sideTurnL()
--    end
--end
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--forward(38)
--placeDown("quartz")
--forward()
--lineDown("quartz",9)
--forward(2)
--placeDown("quartz")
--sideTurnR()
--placeDown("quartz")
--forward(12)
--placeDown("quartz")
--forward(38)
--placeDown("quartz")
--forward(12)
--placeDown("quartz")
--forward()
--sideTurnL()
--lineDown("quartz",13)
--forward(37)
--lineDown("quartz",13)
--left(2)
--forward(61)
--right()
--forward(11)
--left(2)
--for i=1,4 do
--    towerDown("cobble",11,1)
--    down()
--    left()
--    forward(50)
--    right()
--    towerDown("cobble",11,1)
--    down()
--    left(2)
--    forward(116)
--    right()
--    forward(126)
--end

--layer 7
--up()
--right()
--forward()
--right()
--forward()
--left(2)
--for i=1,4 do
--    towerDown("quartz",13,1)
--    down()
--    left()
--    forward(50)
--    right()
--    towerDown("quartz",13,1)
--    down()
--    left(2)
--    forward(114)
--    right()
--    forward(126)
--end
--forward(2)
--left()
--forward(2)
--right()
--for i=1,4 do
--    towerDown("quartz",9,1)
--    down()
--    left()
--    forward(50)
--    right()
--    towerDown("quartz",9,1)
--    down()
--    left(2)
--    forward(118)
--    right()
--    forward(126)
--end
--forward(4)
--left()
--forward(10)
--for i=1,4 do
--    lineDown("quartz",37)
--    forward(3)
--    left()
--    forward(6)
--    lineDown("quartz",109)
--    for i=1,5 do
--        right()
--        forward()
--        left()
--        forward()
--        placeDown("quartz")
--    end
--    right()
--    forward()
--    placeDown("quartz")
--    forward()
--    left()
--    forward()
--    placeDown("quartz")
--    for i=1,3 do
--        right()
--        forward()
--        left()
--        forward()
--        placeDown("quartz")
--    end
--    forward()
--    placeDown("quartz")
--    for i=1,5 do
--        right()
--        forward()
--        left()
--        forward()
--        placeDown("quartz")
--    end
--    right()
--    lineDown("quartz",108)
--    forward(7)
--    left()
--    forward(2)
--end
--left(2)
--forward(11)
--right()
--forward(5)
--left(2)
--for i=1,4 do
--    towerDown("cobble",11,1)
--    down()
--    left()
--    forward(50)
--    right()
--    towerDown("cobble",11,1)
--    down()
--    left(2)
--    forward(116)
--    right()
--    forward(126)
--end
--forward(4)
--left()
--forward(11)
--for i=1,6 do
--    lineDown("cobble",37)
--    forward()
--    if faceing == "east" then
--        sideTurnL()
--    elseif faceing == "west" then
--        sideTurnR()
--    end
--end
--left(2)
--forward(2)
--left(2)
--for i=1,109 do
--    lineDown("cobble",41)
--    forward()
--    if faceing == "east" then
--        sideTurnL()
--    elseif faceing == "west" then
--        sideTurnR()
--    end
--end
--left(2)
--forward()
--left()
--for i=1,5 do
--    lineDown("cobble",(41+(2*i)))
--    forward(2)
--    if faceing == "east" then
--        sideTurnL()
--    elseif faceing == "west" then
--        sideTurnR()
--    end
--end
--left(2)
--forward()
--left(2)
--for i=1,4 do
--    lineDown("cobble",(53+(2*i)))
--    forward(2)
--    if faceing == "east" then
--        sideTurnL()
--    elseif faceing == "west" then
--        sideTurnR()
--    end
--end
--for i=1,6 do
--    lineDown("cobble",(59+(i*2)))
--    forward(2)
--    if faceing == "east" then
--        sideTurnL()
--    elseif faceing == "west" then
--        sideTurnR()
--    end
--end
forward(182)




--goHome()

--end
--goHome()