fixes to laser and mining drill

Maciej Kasatkin

2012-10-15 77e83840f56e364ef94a072fb161bb67c9ac5323

 mining_drill.lua

@@ -9,12 +9,11 @@
      item=itemstack:to_table()
      local charge=tonumber((item["wear"])) 
      if charge ==0 then charge =65535 end
      if charge ==65535 then charge =1 end
      charge=get_RE_item_load(charge,laser_mk1_max_charge)
      if charge-400>0 then
      charge=get_RE_item_load(charge,mining_drill_max_charge)
      if charge-200>0 then
       drill_dig_it(minetest.get_pointed_thing_position(pointed_thing, above),user)
       charge =charge-400;	
      charge=set_RE_item_load(charge,laser_mk1_max_charge)
       charge =charge-200;	
      charge=set_RE_item_load(charge,mining_drill_max_charge)
      item["wear"]=tostring(charge)
      itemstack:replace(item)
      end
@@ -39,22 +38,13 @@

function drill_dig_it (pos, player)      
   local node=minetest.env:get_node(pos)
   if node.name == "air" then return end
   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 == "ignore" then minetest.env:remove_node(pos) return end

   if player then 
   local drops = minetest.get_node_drops(node.name, "default:pick_mese")
   if player:get_inventory() then
      local _, dropped_item
      for _, dropped_item in ipairs(drops) do
         player:get_inventory():add_item("main", dropped_item)
      end
   end
   minetest.env:remove_node(pos)
   end
   minetest.sound_play("mining_drill", {pos = pos, gain = 1.0, max_hear_distance = 10,})
   minetest.node_dig(pos,node,player)

end