matrun

local matrows=113
local builders=1

local mainID="ndqJqjTw"
local layers = {
"B1A1TnCF",
"hmazJDeS",
"kjUFdFK7",
"w7u9Mhpq",
"qYmBmfbu",
"kaK2NXEC",
"ZVr8Rbi8",
"6hdMymxS",
"L7mkdeR4",
"Zy11EGps",
"nBHn9D1L",
"GrjEAa72",
"UjgcztQN",
"ETAwVbfa",
"ZANYTrMA",
"YZq82Mak",
"g5m70R2r",
"DJG273DU",
"JU9AUh5r",
"yU06jVnK",
"MusMy4p3",
"L1gbpFfy"
}

function checkFuel()
  -- refuel the turtle and ensure there is at least 1 fuel block in slot 1
   while turtle.getFuelLevel() < 10 do
     print("refueling")
     turtle.select(1)
     turtle.refuel(1)
     while turtle.getItemCount(1) < 1 do
       getFuel()
     end
   end
   while turtle.getItemCount(1) < 1 do
     getFuel()
   end
end

function getFuel()
  -- get some fuel from the nearby chest
  while turtle.getItemCount(1) < 1 do
     print("out of fuel. refueling from chest")
     turtle.forward()
     turtle.turnLeft()
     turtle.select(1)
     while not turtle.suck() do
        print("Fuel chest appears to be empty")
        print("Please add fuel to the chest and press enter")
        io.read()
     end
     turtle.turnRight()
     turtle.back()
  end
end

function checkMarkers()
  -- make sure there is at least 1 marker block in slot 3
  if turtle.getItemCount(3) < 1 then
     print("out of marker blocks. getting some from chest")
     while not turtle.forward() do
     end
     while not turtle.up() do
        print("ERROR: space nexto chest #1 is blocked.  remove block and press enter to continue")
        io.read()
     end
     turtle.turnLeft()
     turtle.select(3)
     while not turtle.suck() do
        print("Chest #1 appears to be empty")
        print("Please fill the chest and press enter")
        io.read()
     end
     turtle.turnRight()
     turtle.down()
     turtle.back()
  end
end

function getSlices(listSize, chunks)
  -- slice the list into "almost" equal chunks
  incr = math.floor(listSize / chunks)
  if incr > 1 then
     incr = incr - 1
  end
  list = {}
  start=1
  for x=1,chunks do
    table.insert(list, {start,start+incr} )
    start = start + incr + 1
  end
  shiftIndex = #list
  while list[#list][2] < listSize do
    for idx = shiftIndex,#list do
      list[idx][1] = list[idx][1] + 1
      list[idx][2] = list[idx][2] + 1
    end
    list[shiftIndex-1][2] = list[shiftIndex-1][2] + 1
    shiftIndex = shiftIndex - 1
  end
  return list
end

function startBuilders(layer)
  builders = turtle.getItemCount(2)
  if builders < 1 then
    print("ERROR: Expect turtles in slot 2")
    return false
  end

  print("building layer " .. layer .." using " .. builders .. " turtles")
  slices = getSlices(matrows, builders)

  for x=builders,1,-1 do
    checkFuel()
    checkMarkers()
    print("start builder " .. x .. " Row " .. slices[x][1] .. " to " .. slices[x][2] )
    while not turtle.forward() do
       print("ERROR: Cannot move to disk drive")
       print("Remove the blockage and press enter")
       io.read()
    end
    if not turtle.detectDown() then
       print("ERROR: must have a block nexto and below the disk")
       turtle.back()
       return false
    end

    -- write startup script
    scr = fs.open("bootstrap","w")
    scr.writeLine("turtle.select(1)")
    scr.writeLine("turtle.refuel()")
    --scr.writeLine("shell.run(\"pastebin\",\"get\",\"" .. mainID .. "\",\"mat\")")
    --scr.writeLine("while not turtle.forward() do")
    --scr.writeLine("end")
    scr.writeLine("shell.run(\"disk/mat\",\"matData\" , \"" .. tostring(slices[x][1]) .. "\",\"" .. tostring(slices[x][2]) .. "\")")
    scr.close()
    sleep(1)
    if not disk.isPresent("right") then
       print("disk not found. waiting")
       sleep(5)
       if not disk.isPresent("right") then
          print("cannot find disk on right side")
          return false
       end
    end

    if fs.exists("/disk/startup") then
       fs.delete("/disk/startup")
       --sleep(3)
    end
    fs.copy("bootstrap", "/disk/startup")

    -- return and place the next builder
    turtle.back()
    turtle.select(2)
    turtle.place()

    -- put fuel in the new turtle
    turtle.select(1)
    turtle.drop(1)
    -- put marker block in the new turtle
    turtle.select(3)
    turtle.drop(1)
    peripheral.call("front", "turnOn")

    -- give new turtle a chance to get moving
    sleep(10)
  end
  print("Done sending builders")
  return true
end

function collectBuilders()
  -- finished turtles will stack up nexto the starting spot
  print("Gathering Builders")
  turtle.turnRight()
  turtle.select(2)

  while turtle.getItemCount(2) < builders do
    if turtle.dig() then
        print("gathered " .. turtle.getItemCount(2) .. " of " .. builders .. " builders")
    end
    sleep(5)

  end
  print("Done gathering builders")
  turtle.turnLeft()
end

-- make sure we have at least "some" fuel
if turtle.getFuelLevel() < 1 then
   turtle.select(1)
   if turtle.getItemCount(1) < 0 then
      print("need at least 1 fuel item in slot 1")
      return
   else
      turtle.refuel(1)
   end
   if turtle.getFuelLevel() < 1 then
      print("no fuel found in slot 1")
      return
   end
end

local args = { ... }
local startLayer=1
if #args > 0 then
   startLayer=tonumber(args[1])
end
checkFuel()
while not turtle.forward() do
   print("ERROR: Cannot move to disk drive")
   print("Remove the blockage and press enter")
   io.read()
end

if fs.exists("disk/mat") then
   fs.delete("disk/mat")
end
shell.run("pastebin","get",mainID,"disk/mat")
while not turtle.back() do
   print("ERROR: Cannot move back from disk drive")
   print("Remove the blockage and press enter")
   io.read()
end
print("press enter")
io.read()

for l=startLayer,#layers do
  while not turtle.forward() do
     print("ERROR: Cannot move to disk drive")
     print("Remove the blockage and press enter")
     io.read()
  end

  if fs.exists("disk/matData") then
     fs.delete("disk/matData")
  end
  shell.run("pastebin","get",layers[l],"disk/matData")
  while not turtle.back() do
     print("ERROR: Cannot move back from disk drive")
     print("Remove the blockage and press enter")
     io.read()
  end

  if not startBuilders(l) then
     return
  end
  collectBuilders()
end