SuperTurtle

local sArgs = ...
local start = sArgs or "right"
if start == "right" then
  start2 = "left"
else
  start2 = "right"
end
faces = {}
faces[0] = "north"
faces[1] = "east"
faces[2] = "south"
faces[3] = "west"



function init()
  if fs.exists("coords") then
    os.loadAPI("coords")
    x = coords.cX
    y = coords.cY
    z = coords.cZ
    face = coords.cFace
    distance = coords.cDistance
    print(x,y,z,face,distance)
  else
    x = 309
    y = 2
    z = 152
    distance = 0
    face = "north"
    face = tostring(face):lower()
    rewriteCoords()
  end

  shell.run("clear")
  print("requires 2 chunkLoaders in slot 14")
  print("requires 1 enderChest in slot 15")
  print("requires 1 bucket in slot 16")
  print("requires minimum 100 fuel")
  print(nil)
  print(x..", "..y..", "..z)
  print(face)
  while turtle.getFuelLevel() < 100 do
    local times = 0
    turtle.refuel(64)
    sleep(.5)
    if times >= 25 then
      panic("Reinit: no fuel")
    end
    times = times + 1
  end
  while true do
    local times = 0
    for i=1,16 do
    turtle.select(i)
    local sel = turtle.getItemDetail()
    if sel and sel.name == "minecraft:bucket" then
        turtle.transferTo(16)
    elseif sel and sel.name == "EnderStorage:enderChest" then
        turtle.transferTo(15)
    elseif sel and sel.name == "ChickenChunks:chickenChunkLoader" then
        turtle.transferTo(14)
    end
    end
    local chunk = turtle.getItemDetail(14)
    local chest = turtle.getItemDetail(15)
    local bucket = turtle.getItemDetail(16)
    if chunk and chest and bucket then
      if chunk.name == "ChickenChunks:chickenChunkLoader" and chest.name == "EnderStorage:enderChest" and bucket.name == "minecraft:bucket" then
    break
      end
    end
    if times >= 25 then
    panic("Scattered Inventory")
        print("no stuff")
    end
    sleep(1)
  end
end

function upload(path)
    local file = fs.open( path, "r" )
    local text = file.readAll()
    file.close()
    local response = http.post(
        "http://pastebin.com/api/api_post.php",
        "api_option=paste&"..
        "api_dev_key=ddfc115bf6e1cd0262ed53ee041c124b&"..
    "api_user_key=14fbf14a69d7c0652d52ce3dea8f7727&"..
        "api_paste_format=lua&"..
        "api_paste_name="..textutils.urlEncode(os.getComputerLabel()).."&"..
        "api_paste_code="..textutils.urlEncode(text)
    )
    if response then
    print(response.readAll())
    end
end

function panic(s)
  local h = fs.open("log","a")
  h.writeLine("SuperMiningTurtle(TM)")
  h.writeLine("ERROR!")
  h.writeLine("Coordinates: ("..x..", "..y..", "..z..")")
  h.writeLine("Distance: "..distance)
  h.writeLine("Direction: "..face)
  h.writeLine("Fuel: "..turtle.getFuelLevel())
  h.writeLine("InvCount: "..checkIfFull())
  h.writeLine("BucketSlot(16): "..turtle.getItemDetail(16).name)
  h.writeLine("ChestSlot(15): "..turtle.getItemDetail(15).name)
  h.writeLine("ChunkloaderSlot(14): "..turtle.getItemDetail(14).name)
  if s then
    h.writeLine([[Error Description: "]]..s..[["]])
  end
  h.close()
  upload("log")
  textutils.slowPrint("ERROR")
  error()
end


function update()
  if face == "north" then
    z = z - 1
  elseif face == "south" then
    z = z + 1
  elseif face == "west" then
    x = x - 1
  elseif face == "east" then
    x = x + 1
  end
  rewriteCoords()
end

function updateFace(dir)
  if dir == "right" then
    if face == "north" then
        face = "east"
    elseif face == "east" then
        face = "south"
    elseif face == "south" then
        face = "west"
    elseif face == "west" then
        face = "north"
    end
  elseif dir == "left" then
    if face == "north" then
        face = "west"
    elseif face == "west" then
        face = "south"
    elseif face == "south" then
        face = "east"
    elseif face == "east" then
        face = "north"
    end
  end

  --for i = 0,3 do
    --if face == faces[i] then
      --if dir == "right" then
    --face = faces[(i + 1)%4]
      --elseif dir == "left" then
        --face = faces[(i + 3)%4]
      --end
    --end
  --end
  rewriteCoords()
end

function rewriteCoords()
  local h = fs.open("coords","w")
  h.writeLine("cX = "..x)
  h.writeLine("cY = "..y)
  h.writeLine("cZ = "..z)
  h.writeLine("cFace = \""..face.."\"")
  h.writeLine("cDistance = "..distance)
  h.close()
  os.loadAPI("coords")
end

function mine(dir)
  if dir == "left" or "right" then
    shell.run("go "..dir)
    updateFace(dir)
    cycle()
    shell.run("go "..dir)
    updateFace(dir)
    for i=1,4 do
      cycle()
    end
  else
    return
  end
  distance = distance + 1
end

function cycle()
  local count = 0
  turtle.dig()
  if not turtle.forward() then
      sleep(1)
      if not turtle.dig() then
        panic("stuck")
        print("stuck")
      else
    while not turtle.forward() do turtle.dig() end
    update()
      end
  else
    update()
  end
  turtle.digUp()
  turtle.digDown()
  if not turtle.detectDown() then
    turtle.select(16)
    if turtle.placeDown() then
      if not turtle.refuel(64) then
        turtle.placeDown()
      end
    end
  end
end

function checkInv()
  if turtle.getFuelLevel() < 1000 then
    shell.run("refuel")
  end
  if checkIfFull() == 16 then
    emptyInv()
  end
  if distance%16 == 0 or distance == 0 then
    loadChunks()
  end
end

function checkIfFull()
  local inv = 0
  for i=1,16 do
    turtle.select(i)
    if turtle.getItemCount() > 0 then
      inv = inv + 1
    end
  end
  return inv
end

function emptyInv()
  turtle.select(15)
  turtle.placeDown()
  for i = 1,13 do
    turtle.select(i)
    turtle.dropDown(64)
  end
  turtle.select(15)
  turtle.digDown()
end

function loadChunks()
  turtle.select(14)
  turtle.placeDown()
  if distance ~= 0 then
    local left, right = travelBack()
    turtle.select(14)
    turtle.digDown()
    shell.run("go right right")
    updateFace("right")
    updateFace("right")
    for i=1,16 do
      turtle.forward()
      update()
    end
    if not left then
      turtle.turnLeft()
      updateFace("left")
    else
      turtle.turnRight()
      updateFace("right")
    end
  end
end

function travelBack()
  turtle.turnRight()
  updateFace("right")
  local right = turtle.detect()
  turtle.turnLeft()
  updateFace("left")
  turtle.turnLeft()
  updateFace("left")
  local left = turtle.detect()
  turtle.turnRight()
  updateFace("right")
  if not left then
    turtle.turnLeft()
    updateFace("left")
  else
    turtle.turnRight()
    updateFace("right")
  end
  for i=1,16 do
    turtle.forward()
    update()
  end
  return left, right
end

init()
checkInv()
while true do
    mine(start)
    mine(start2)
    checkInv()
end