-- Configuration

local xnopick_max_charge      = 30000 -- Maximum charge of the saw
-- Gives 2500 nodes on a single charge
local xnopick_charge_per_node = 12
-- Dig node cost


local S = technic.getter

technic.register_power_tool("technic:xnopick", xnopick_max_charge)

local mesecons_materials = minetest.get_modpath("mesecons_materials")

-- This function checks if the specified node should be dig
local function check_if_node_picked(pos)
  local node = minetest.get_node(pos)
  local node_name = node.name

  if node_name:match("default:.*_with_.*") or
    node_name:match("default:coalblock") or
    node_name:match("default:mese") or
    node_name:match("technic:mineral_.*") or
    node_name:match("xtraores:.*_ore") or
    node_name:match("underch:.*_ore") and not node_name:match("underch:.*_eye_ore") or
    -- underch:black_eye_ore
    node_name:match("underch:coal_dust") or
    node_name:match("underch:coal_diamond") or
    node_name:match("moreores:mineral_.*") or
    node_name:match(".*coal_dense_ore")
  then
    minetest.log("action", "[Xno Pick Magic] "..node_name.." good node to collect.") --print to log
    return true
  end

  return false
end

function handle_node_drops(pos, drops, digger)
  -- Add dropped items to object's inventory
  local inv = digger and digger:get_inventory()
  local give_item
  if inv then
    give_item = function(item)
      return inv:add_item("main", item)
    end
  else
    give_item = function(item)
      -- itemstring to ItemStack for left:is_empty()
      return ItemStack(item)
    end
  end

  for _, dropped_item in pairs(drops) do
    local left = give_item(dropped_item)
    if not left:is_empty() then
      local p = {
        x = pos.x + math.random()/2-0.25,
        y = pos.y + math.random()/2-0.25,
        z = pos.z + math.random()/2-0.25,
      }
      minetest.add_item(p, left)
      minetest.sound_play("item_drop_pickup", {pos = pos, gain = 1.0, max_hear_distance = 10})
    end
  end
end 


local function collect_node(user, pos, current_charge)
  if current_charge < xnopick_charge_per_node then
    minetest.sound_play("technic_prospector_miss", {pos = pos, gain = 1.0, max_hear_distance = 10})
    return current_charge
  end

  local node_name = minetest.get_node(pos).name
  local droped = minetest.get_node_drops(node_name)

  -- add to inventory
--  minetest.handle_node_drops(user:getpos(), droped, user)
  handle_node_drops(user:getpos(), droped, user)

  minetest.remove_node(pos)
  local remain_charge = current_charge - xnopick_charge_per_node

  return remain_charge
end

local function collect_block_node(user, pos, current_charge)
  local radius = 4
  local dropPos = {}
  local remain_charge = current_charge
  for z = -radius, radius do
    dropPos.z = pos.z + z
    for y = -radius, radius do
      dropPos.y = pos.y + y
      for x = -radius, radius do
        dropPos.x = pos.x + x

        if check_if_node_picked(dropPos) then
          remain_charge = collect_node(user, dropPos, remain_charge)
        end
      end
    end
  end

  return remain_charge
end



minetest.register_tool("technic:xnopick", {
  description = S("Xno Pick Magic"),
  inventory_image = "xno_superpick.png",

  stack_max = 1,

  wear_represents = "technic_RE_charge",
  on_refill = technic.refill_RE_charge,

  on_use = function(itemstack, user, pointed_thing)
    local pos = pointed_thing.under

    if pointed_thing.type ~= "node" then
      return itemstack
    end

    --check tool charge
    local meta = technic.get_stack_meta(itemstack)
    local charge = meta:get_int("technic:charge")

    if not meta or not charge or
      charge < xnopick_charge_per_node
    then
      minetest.sound_play("technic_prospector_miss", {pos = pos, gain = 1.0, max_hear_distance = 10})
      return
    end

    --check node protection
    local name = user:get_player_name()
    if minetest.is_protected(pos, name) then
      minetest.record_protection_violation(pos, name)
      return
    end

    --reinizializze visited struct
    nodeVisited = Pointset.create()

    --can collect only digging node
    if not check_if_node_picked(pos) then
      return itemstack
    end


    -- Send current charge to digging function so that the
    -- chainsaw will stop after digging a number of nodes
    charge = collect_block_node(user, pos, charge)
    minetest.sound_play("technic_laser_mk3", {pos = pos, gain = 1.0, max_hear_distance = 10})
    
    if not technic.creative_mode then
      technic.set_RE_wear(itemstack, charge, xnopick_max_charge)
      meta:set_int("technic:charge", charge)
    end
    return itemstack

  end,
})

minetest.register_craft({
  output = "technic:xnopick",
  recipe = {
    {"group:wood",       "group:wood",    "group:wood",},
    {"technic:battery",  "default:stick", "pipeworks:tube_1"},
    {"technic:battery",  "default:stick", "pipeworks:tube_1"},
  },
})