opus/sys/apps/simpleMiner.lua

require = requireInjector(getfenv(1))
local Point = require('point')
local Logger = require('logger')

if device and device.wireless_modem then
  Logger.setWirelessLogging()
end

local args = { ... }
local options = {
  chunks      = { arg = 'c', type = 'number', value = -1,
                 desc = 'Number of chunks to mine' },
  depth       = { arg = 'd', type = 'number', value = 9000,
                 desc = 'Mining depth' },
--  enderChest = { arg = 'e', type = 'flag',   value = false,
--                 desc = 'Use ender chest' },
  resume      = { arg = 'r', type = 'flag',   value = false,
                 desc = 'Resume mining' },
  fortunePick = { arg = 'p', type = 'string', value = nil,
                 desc = 'Pick to use with CCTweaks toolhost' },
  setTrash    = { arg = 's', type = 'flag',   value = false,
                 desc = 'Set trash items' },
  help        = { arg = 'h', type = 'flag',   value = false,
                 desc = 'Displays the options' },
}

local fortuneBlocks = {
  [ 'minecraft:redstone_ore' ] = true,
  [ 'minecraft:lapis_ore' ] = true,
  [ 'minecraft:coal_ore' ] = true,
  [ 'minecraft:diamond_ore' ] = true,
  [ 'minecraft:emerald_ore' ] = true,
}

local MIN_FUEL = 7500
local LOW_FUEL = 1500
local MAX_FUEL = 100000

if not term.isColor() then
  MAX_FUEL = 20000
end

local mining = {
  diameter = 1,
  chunkIndex = 0,
  chunks = -1,
}

local trash
local boreDirection

function getChunkCoordinates(diameter, index, x, z)
  local dirs = { -- circumference of grid
    { xd =  0, zd =  1, heading = 1 }, -- south
    { xd = -1, zd =  0, heading = 2 },
    { xd =  0, zd = -1, heading = 3 },
    { xd =  1, zd =  0, heading = 0 }  -- east
  }
  -- always move east when entering the next diameter
  if index == 0 then
    dirs[4].x = x + 16
    dirs[4].z = z
    return dirs[4]
  end
  dir = dirs[math.floor(index / (diameter - 1)) + 1]
  dir.x = x + dir.xd * 16
  dir.z = z + dir.zd * 16
  return dir
end

function getBoreLocations(x, z)

  local locations = {}

  while true do
    local a = math.abs(z)
    local b = math.abs(x)

    if x > 0 and z > 0 or
       x < 0 and z < 0 then
       -- rotate coords
       a = math.abs(x)
       b = math.abs(z)
    end
    if (a % 5 == 0 and b % 5 == 0) or
       (a % 5 == 2 and b % 5 == 1) or
       (a % 5 == 4 and b % 5 == 2) or
       (a % 5 == 1 and b % 5 == 3) or
       (a % 5 == 3 and b % 5 == 4) then
       table.insert(locations, { x = x, z = z, y = 0 })
    end
    if z % 2 == 0 then -- forward dir
      if (x + 1) % 16 == 0 then
        z = z + 1
      else
        x = x + 1
      end
    else
      if (x - 1) % 16 == 15 then
        if (z + 1) % 16 == 0 then
          break
        end
        z = z + 1
      else
        x = x - 1
      end
    end
  end
  return locations
end

-- get the bore location closest to the miner
local function getClosestLocation(points, b)
  local key = 1
  local leastMoves = 9000
  for k,pt in pairs(points) do

    local moves = Point.calculateMoves(turtle.point, pt)

    if moves < leastMoves then
      key = k 
      leastMoves = moves
      if leastMoves == 0 then
        break
      end 
    end 
  end 
  return table.remove(points, key)
end 

function getCornerOf(c)
  return math.floor(c.x / 16) * 16, math.floor(c.z / 16) * 16
end

function nextChunk()

  local x, z = getCornerOf({ x = mining.x, z = mining.z })
  local points = math.pow(mining.diameter, 2) - math.pow(mining.diameter-2, 2)
  mining.chunkIndex = mining.chunkIndex + 1

  if mining.chunkIndex >= points then
    mining.diameter = mining.diameter + 2
    mining.chunkIndex = 0
  end

  if mining.chunks ~= -1 then
    local chunks = math.pow(mining.diameter-2, 2) + mining.chunkIndex
    if chunks >= mining.chunks then
      return false
    end
  end

  local nc = getChunkCoordinates(mining.diameter, mining.chunkIndex, x, z)
  mining.locations = getBoreLocations(nc.x, nc.z)

  -- enter next chunk
  mining.x = nc.x
  mining.z = nc.z

  Util.writeTable('mining.progress', mining)

  return true
end

function addTrash()

  if not trash then
    trash = { }
  end

  local slots = turtle.getFilledSlots()
 
  for k,slot in pairs(slots) do
    trash[slot.iddmg] = true
  end

  trash['minecraft:bucket:0'] = nil
  Util.writeTable('mining.trash', trash)
end

function log(text)
  print(text)
  Logger.log('mineWorker', text)
end

function status(status)
  turtle.status = status
  log(status)
end

function refuel()
  if turtle.getFuelLevel() < MIN_FUEL then
    local oldStatus = turtle.status
    status('refueling')

    if turtle.selectSlot('minecraft:coal:0') then
      local qty = turtle.getItemCount()
      print('refueling ' .. qty)
      turtle.refuel(qty)
    end
    if turtle.getFuelLevel() < MIN_FUEL then
      log('desperate fueling')

      turtle.eachFilledSlot(function(slot)
        if turtle.getFuelLevel() < MIN_FUEL then
          turtle.select(slot.index)
          turtle.refuel(64)
        end
      end)
    end
    log('Fuel: ' .. turtle.getFuelLevel())
    status(oldStatus)
  end

  turtle.select(1)
end
 
function enderChestUnload()
  log('unloading')
  turtle.select(1)
  if not Util.tryTimed(5, function()
      turtle.digDown()
      return turtle.placeDown()
    end) then
    log('placedown failed')
  else
    turtle.reconcileInventory(slots, turtle.dropDown)
 
    turtle.select(1)
    turtle.drop(64)
    turtle.digDown()
  end
end

function safeGoto(x, z, y, h)
  local oldStatus = turtle.status
  while not turtle.pathfind({ x = x, z = z, y = y, heading = h }) do
    --status('stuck')
    if turtle.abort then
      return false
    end
    --os.sleep(1)
  end
  turtle.status = oldStatus
  return true
end

function safeGotoY(y)
  local oldStatus = turtle.status
  while not turtle.gotoY(y) do
    status('stuck')
    if turtle.abort then
      return false
    end
    os.sleep(1)
  end
  turtle.status = oldStatus
  return true
end

function makeWalkableTunnel(action, tpt, pt)
  if action ~= 'turn' and not Point.compare(tpt, { x = 0, z = 0 }) then -- not at source
    if not Point.compare(tpt, pt) then                                  -- not at dest
      local r, block = turtle.inspectUp()
      if r and not turtle.isTurtleAtSide('top') then
        if block.name ~= 'minecraft:cobblestone' and
           block.name ~= 'minecraft:chest' then
          turtle.digUp()
        end
      end
    end
  end
end

function normalChestUnload()
  local oldStatus = turtle.status
  status('unloading')
  local pt = Util.shallowCopy(turtle.point)
  safeGotoY(0)

  turtle.setMoveCallback(function(action, tpt)
      makeWalkableTunnel(action, tpt, { x = pt.x, z = pt.z })
    end)

  safeGoto(0, 0)
  if not turtle.detectUp() then
    error('no chest')
  end
  local slots = turtle.getFilledSlots()
  for _,slot in pairs(slots) do
    if not trash[slot.iddmg] and 
      slot.iddmg ~= 'minecraft:bucket:0' and
      slot.id ~= 'minecraft:diamond_pickaxe' and
      slot.id ~= 'cctweaks:toolHost' then
      if slot.id ~= options.fortunePick.value then
        turtle.select(slot.index)
        turtle.dropUp(64)
      end
    end
  end
  turtle.select(1)
  safeGoto(pt.x, pt.z, 0, pt.heading)

  turtle.clearMoveCallback()

  safeGotoY(pt.y)
  status(oldStatus)
end

function ejectTrash()

  local cobbleSlotCount = 0

  turtle.eachFilledSlot(function(slot)
    if slot.iddmg == 'minecraft:cobblestone:0' then
      cobbleSlotCount = cobbleSlotCount + 1
    end

    if trash[slot.iddmg] then
      -- retain 1 slot with cobble in order to indicate active mining
      if slot.iddmg ~= 'minecraft:cobblestone:0' or cobbleSlotCount > 1 then
        turtle.select(slot.index)
        turtle.dropDown(64)
      end
    end
  end)
end

function mineable(action)
  local r, block = action.inspect()
  if not r then
    return false
  end

  if block.name == 'minecraft:chest' then
    collectDrops(action.suck)
  end

  if turtle.getFuelLevel() < (MAX_FUEL - 1000) then
    if block.name == 'minecraft:lava' or block.name == 'minecraft:flowing_lava' then
      if turtle.selectSlot('minecraft:bucket:0') then
        if action.place() then
          log('Lava! ' .. turtle.getFuelLevel())
          turtle.refuel()
          log(turtle.getFuelLevel())
        end
        turtle.select(1)
      end
      return false
    end
  end

  if action.side == 'bottom' then
    return block.name
  end

  if trash[block.name .. ':0'] then
    return false
  end

  return block.name
end

function fortuneDig(action, blockName)
  if options.fortunePick.value and fortuneBlocks[blockName] then
    turtle.selectSlot('cctweaks:toolHost')
    turtle.equipRight()
    turtle.selectSlot(options.fortunePick.value)
    repeat until not turtle.dig()
    turtle.selectSlot('minecraft:diamond_pickaxe')
    turtle.equipRight()
    turtle.select(1)
    return true
  end
end

function mine(action)
  local blockName = mineable(action)
  if blockName then
    checkSpace()
    --collectDrops(action.suck)
    if not fortuneDig(action, blockName) then
      action.dig()
    end
  end
end
 
function bore()

  local loc = turtle.point
  local level = loc.y
 
  turtle.select(1)
  status('boring down')
  boreDirection = 'down'

  while true do
    if turtle.abort then
      status('aborting')
      return false
    end
    if loc.y <= -mining.depth then
      break
    end

    if turtle.point.y < -2 then
--      turtle.setDigPolicy(turtle.digPolicies.turtleSafe)
    end

    mine(turtle.getAction('down'))
    if not Util.tryTimed(3, turtle.down) then
      break
    end
 
    if loc.y < level - 1 then
      mine(turtle.getAction('forward'))
      turtle.turnRight()
      mine(turtle.getAction('forward'))
    end
  end

  boreDirection = 'up'
  status('boring up')

  turtle.turnRight()
  mine(turtle.getAction('forward'))
 
  turtle.turnRight()
  mine(turtle.getAction('forward'))
 
  turtle.turnLeft()
 
  while true do
    if turtle.abort then
      status('aborting')
      return false
    end

    if turtle.point.y > -2 then
--      turtle.setDigPolicy(turtle.digPolicies.turtleSafe)
    end

    while not Util.tryTimed(3, turtle.up) do
      status('stuck')
    end
    if turtle.status == 'stuck' then
      status('boring up')
    end

    if loc.y >= level - 1 then
      break
    end
 
    mine(turtle.getAction('forward'))
    turtle.turnLeft()
    mine(turtle.getAction('forward'))
  end
 
  if turtle.getFuelLevel() < LOW_FUEL then
    refuel()
    local veryMinFuel = Point.turtleDistance(turtle.point, { x = 0, y = 0, z = 0}) + 512
    if turtle.getFuelLevel() < veryMinFuel then
      log('Not enough fuel to continue')
      return false
    end
  end

  return true
end
 
function checkSpace()
  if turtle.getItemCount(16) > 0 then
    refuel()
    local oldStatus = turtle.status
    status('condensing')
    ejectTrash()
    turtle.condense()
    local lastSlot = 16
    if boreDirection == 'down' then
      lastSlot = 15
    end
    if turtle.getItemCount(lastSlot) > 0 then
      unload()
    end
    status(oldStatus)
    turtle.select(1)
  end
end
 
function collectDrops(suckAction)
  for i = 1, 50 do
    if not suckAction() then
      break
    end
    checkSpace()
  end
end

function Point.compare(pta, ptb)
  if pta.x == ptb.x and pta.z == ptb.z then
    if pta.y and ptb.y then
      return pta.y == ptb.y
    end
    return true
  end
  return false
end

function inspect(action, name)
  local r, block = action.inspect()
  if r and block.name == name then
    return true
  end
end
 
function boreCommand()
  local pt = getClosestLocation(mining.locations, turtle.point)

  turtle.setMoveCallback(function(action, tpt)
      makeWalkableTunnel(action, tpt, pt)
    end)

  safeGotoY(0)
  safeGoto(pt.x, pt.z, 0)

  turtle.clearMoveCallback()

  -- location is either mined, currently being mined or is the
  -- dropoff point for a turtle
  if inspect(turtle.getAction('up'),   'minecraft:cobblestone') or
     inspect(turtle.getAction('up'),   'minecraft:chest') or
     inspect(turtle.getAction('down'), 'minecraft:cobblestone') then
     return true
  end

  turtle.digUp()
  turtle.placeUp('minecraft:cobblestone:0')

  local success = bore()

  safeGotoY(0) -- may have aborted
  turtle.digUp()

  if success then
    turtle.placeDown('minecraft:cobblestone:0') -- cap with cobblestone to indicate this spot was mined out
  end

  return success
end

if not Util.getOptions(options, args) then
  return
end

mining.depth = options.depth.value
mining.chunks = options.chunks.value

unload = normalChestUnload
--if options.enderChest.value then
--  unload = enderChestUnload
--end

mining.x = 0
mining.z = 0
mining.locations = getBoreLocations(0, 0)
trash = Util.readTable('mining.trash')

if options.resume.value then
  mining = Util.readTable('mining.progress')
elseif fs.exists('mining.progress') then
  print('use -r to resume')
  read()
end

if not trash or options.setTrash.value then
  print('Add trash blocks, press enter when ready')
  read()
  addTrash()
end

if not turtle.getSlot('minecraft:bucket:0') or
   not turtle.getSlot('minecraft:cobblestone:0') then
  print('Add bucket and cobblestone, press enter when ready')
  read()
end

if options.fortunePick.value then
  local s = turtle.getSlot(options.fortunePick.value)
  if not s then
    error('fortunePick not found: ' .. options.fortunePick.value)
  end
  if not turtle.getSlot('cctweaks:toolHost:0') then
    error('CCTweaks tool host not found')
  end
  trash[s.iddmg] = nil
  trash['minecraft:diamond_pickaxe:0'] = nil
  trash['cctweaks:toolHost:0'] = nil
end

_G._p = trash

local function main()
  repeat
    while #mining.locations > 0 do
      status('searching')
      if not boreCommand() then
        return
      end
      Util.writeTable('mining.progress', mining)
    end
  until not nextChunk()
end

turtle.run(function()
  turtle.reset()
  turtle.setPolicy(turtle.policies.digAttack)
  turtle.setDigPolicy(turtle.digPolicies.turtleSafe)

  unload()
  status('mining')

  local s, m = pcall(function() main() end)
  if not s and m then
    printError(m)
  end

  safeGotoY(0)
  safeGoto(0, 0, 0, 0)
  unload()
  turtle.reset()
end)