wormminer_proto

local ARMSG__WORM_TEST      = 5
local ARMSG__PLACED_FORWARD = 5
local ARMSG__PLACED_BACK    = 6
local ARMSG__PLACED_UP      = 7
local ARMSG__PLACED_DOWN    = 8
local ARMSG__PLACED_LEFT    = 9
local ARMSG__PLACED_RIGHT   = 10

local BOX_DEPTH = 5

local function IamPlacedTurtle()
  local arInput = rs.getAnalogInput("back")
  if arInput == ARMSG__PLACED_FORWARD or
     arInput == ARMSG__PLACED_BACK or
     arInput == ARMSG__PLACED_LEFT or
     arInput == ARMSG__PLACED_RIGHT then
    return true
  end
  arInput = rs.getAnalogInput("up")
  if arInput == ARMSG__PLACED_DOWN then
    return true
  end
  arInput = rs.getAnalogInput("down")
  if arInput == ARMSG__PLACED_UP then
    return true
  end
  return false
end

if ARMSG__WORM_TEST == rs.getAnalogInput("back") then
  turtle.dig()
  turtle.turnLeft()
  turtle.turnLeft()
  for i = 1, 16 do
    turtle.suck()
  end
  local notFound = true
  for i = 1, 16 do
    if 0 == turtle.getItemCount(i) then
      notFound = false
      turtle.select(1)
      turtle.transferTo(i)
      break
    end
  end
  if notFound then
    turtle.select(1)
    turtle.drop()
  end
  turtle.select(1)
  turtle.dig()
  turtle.turnRight()
  turtle.turnRight()
  rs.setAnalogOutput("front", ARMSG__WORM_TEST)
  turtle.place()
  peripheral.call("front", "turnOn")
else
  turtle.select(1)
  rs.setAnalogOutput("front", ARMSG__WORM_TEST)
  turtle.place()
  peripheral.call("front", "turnOn")
end