Make mk3 drill in 3x3 mode drill nodes from top to bottom

ThatGraemeGuy

2017-01-30 5dd61911759bd452009e27c4f2d5b337f49f55c7

 technic/tools/mining_drill.lua

@@ -6,9 +6,9 @@
minetest.register_craft({
   output = 'technic:mining_drill',
   recipe = {
      {'technic:stainless_steel_ingot', 'technic:diamond_drill_head', 'technic:stainless_steel_ingot'},
      {'moreores:tin_ingot',            'technic:diamond_drill_head', 'moreores:tin_ingot'},
      {'technic:stainless_steel_ingot', 'technic:motor',              'technic:stainless_steel_ingot'},
      {'',                              'technic:red_energy_crystal', 'moreores:copper_ingot'},
      {'',                              'technic:red_energy_crystal', 'default:copper_ingot'},
   }
})
minetest.register_craft({
@@ -51,12 +51,12 @@
      minetest.record_protection_violation(pos, player:get_player_name())
      return
   end
   local node=minetest.env:get_node(pos)
   local node=minetest.get_node(pos)
   if node.name == "air" or node.name == "ignore" then return end
   if node.name == "default:lava_source" then return end
   if node.name == "default:lava_flowing" then return end
   if node.name == "default:water_source" then minetest.env:remove_node(pos) return end
   if node.name == "default:water_flowing" then minetest.env:remove_node(pos) return end
   if node.name == "default:water_source" then minetest.remove_node(pos) return end
   if node.name == "default:water_flowing" then minetest.remove_node(pos) return end
   minetest.node_dig(pos,node,player)
end

@@ -71,12 +71,6 @@
end

local function drill_dig_it2 (pos,player)
   drill_dig_it0 (pos,player)
   pos.z=pos.z+1
   drill_dig_it0 (pos,player)
   pos.z=pos.z-2
   drill_dig_it0 (pos,player)
   pos.z=pos.z+1
   pos.y=pos.y+1
   drill_dig_it0 (pos,player)
   pos.z=pos.z+1
@@ -84,7 +78,14 @@
   pos.z=pos.z-2
   drill_dig_it0 (pos,player)
   pos.z=pos.z+1
   pos.y=pos.y-2
   pos.y=pos.y-1
   drill_dig_it0 (pos,player)
   pos.z=pos.z+1
   drill_dig_it0 (pos,player)
   pos.z=pos.z-2
   drill_dig_it0 (pos,player)
   pos.z=pos.z+1
   pos.y=pos.y-1
   drill_dig_it0 (pos,player)
   pos.z=pos.z+1
   drill_dig_it0 (pos,player)
@@ -93,12 +94,6 @@
end

local function drill_dig_it3 (pos,player)
   drill_dig_it0 (pos,player)
   pos.x=pos.x+1
   drill_dig_it0 (pos,player)
   pos.x=pos.x-2
   drill_dig_it0 (pos,player)
   pos.x=pos.x+1
   pos.y=pos.y+1
   drill_dig_it0 (pos,player)
   pos.x=pos.x+1
@@ -106,7 +101,14 @@
   pos.x=pos.x-2
   drill_dig_it0 (pos,player)
   pos.x=pos.x+1
   pos.y=pos.y-2
   pos.y=pos.y-1
   drill_dig_it0 (pos,player)
   pos.x=pos.x+1
   drill_dig_it0 (pos,player)
   pos.x=pos.x-2
   drill_dig_it0 (pos,player)
   pos.x=pos.x+1
   pos.y=pos.y-1
   drill_dig_it0 (pos,player)
   pos.x=pos.x+1
   drill_dig_it0 (pos,player)
@@ -229,6 +231,12 @@
   minetest.sound_play("mining_drill", {pos = pos, gain = 1.0, max_hear_distance = 10,})
end

local function pos_is_pointable(pos)
   local node = minetest.get_node(pos)
   local nodedef = minetest.registered_nodes[node.name]
   return nodedef and nodedef.pointable
end

local function mining_drill_mk2_setmode(user,itemstack)
   local player_name=user:get_player_name()
   local item=itemstack:to_table()
@@ -285,16 +293,18 @@
   if not meta or not meta.mode or keys.sneak then
      return mining_drill_mk2_setmode(user, itemstack)
   end
   if pointed_thing.type ~= "node" or not meta.charge then
   if pointed_thing.type ~= "node" or not pos_is_pointable(pointed_thing.under) or not meta.charge then
      return
   end
   local charge_to_take = cost_to_use(2, meta.mode)
   if meta.charge >= charge_to_take then
      local pos = minetest.get_pointed_thing_position(pointed_thing, above)
      drill_dig_it(pos, user, meta.mode)
      meta.charge = meta.charge - charge_to_take
      itemstack:set_metadata(minetest.serialize(meta))
      technic.set_RE_wear(itemstack, meta.charge, max_charge[2])
      if not technic.creative_mode then
         meta.charge = meta.charge - charge_to_take
         itemstack:set_metadata(minetest.serialize(meta))
         technic.set_RE_wear(itemstack, meta.charge, max_charge[2])
      end
   end
   return itemstack
end
@@ -306,16 +316,18 @@
   if not meta or not meta.mode or keys.sneak then
      return mining_drill_mk3_setmode(user, itemstack)
   end
   if pointed_thing.type ~= "node" or not meta.charge then
   if pointed_thing.type ~= "node" or not pos_is_pointable(pointed_thing.under) or not meta.charge then
      return
   end
   local charge_to_take = cost_to_use(3, meta.mode)
   if meta.charge >= charge_to_take then
      local pos = minetest.get_pointed_thing_position(pointed_thing, above)
      drill_dig_it(pos, user, meta.mode)
      meta.charge = meta.charge - charge_to_take
      itemstack:set_metadata(minetest.serialize(meta))
      technic.set_RE_wear(itemstack, meta.charge, max_charge[3])
      if not technic.creative_mode then
         meta.charge = meta.charge - charge_to_take
         itemstack:set_metadata(minetest.serialize(meta))
         technic.set_RE_wear(itemstack, meta.charge, max_charge[3])
      end
   end
   return itemstack
end
@@ -329,7 +341,7 @@
   wear_represents = "technic_RE_charge",
   on_refill = technic.refill_RE_charge,
   on_use = function(itemstack, user, pointed_thing)
      if pointed_thing.type ~= "node" then
      if pointed_thing.type ~= "node" or not pos_is_pointable(pointed_thing.under) then
         return itemstack
      end
      local meta = minetest.deserialize(itemstack:get_metadata())
@@ -340,9 +352,11 @@
      if meta.charge >= charge_to_take then
         local pos = minetest.get_pointed_thing_position(pointed_thing, above)
         drill_dig_it(pos, user, 1)
         meta.charge = meta.charge - charge_to_take
         itemstack:set_metadata(minetest.serialize(meta))
         technic.set_RE_wear(itemstack, meta.charge, max_charge[1])
         if not technic.creative_mode then
            meta.charge = meta.charge - charge_to_take
            itemstack:set_metadata(minetest.serialize(meta))
            technic.set_RE_wear(itemstack, meta.charge, max_charge[1])
         end
      end
      return itemstack
   end,