From 582f94952a706f8d03ecfb7ba79fe84a66c4c871 Mon Sep 17 00:00:00 2001
From: Maciej Kasatkin <mk@realbadangel.pl>
Date: Tue, 11 Sep 2012 18:47:09 +0200
Subject: [PATCH] Added Mining Drill

---
 electric.lua                             |   21 ++++++++++
 items.lua                                |    2 
 textures/technic_diamond_drill_head.png  |    0 
 textures/technic_mining_drill.png        |    0 
 init.lua                                 |    1 
 mining_drill.lua                         |   60 ++++++++++++++++++++++++++++++
 textures/technic_doped_silicon_wafer.png |    0 
 textures/technic_silicon_wafer.png       |    0 
 8 files changed, 83 insertions(+), 1 deletions(-)

diff --git a/electric.lua b/electric.lua
index b4c6cca..deaa596 100644
--- a/electric.lua
+++ b/electric.lua
@@ -338,6 +338,27 @@
 		end
 		end
 		meta:set_float("battery_charge",charge)
+		
+		if inv:is_empty("src")==false  then 
+		srcstack = inv:get_stack("src", 1)
+		src_item=srcstack:to_table()
+		if src_item["name"]== "technic:mining_drill" then
+		local load1=tonumber((src_item["wear"])) 
+		load1=get_RE_item_load(load1,60000)
+		load_step=1000
+		if load1<60000 and charge>0 then 
+		 if charge-load_step<0 then load_step=charge end
+		 if load1+load_step>60000 then load_step=60000-load1 end
+		load1=load1+load_step
+		charge=charge-load_step
+		load1=set_RE_item_load(load1,60000)
+		src_item["wear"]=tostring(load1)
+		inv:set_stack("src", 1, src_item)
+		end		
+		end
+		end
+		meta:set_float("battery_charge",charge)
+
 
 
 		if inv:is_empty("dst") == false then 
diff --git a/init.lua b/init.lua
index a41b11a..fc921d6 100644
--- a/init.lua
+++ b/init.lua
@@ -37,6 +37,7 @@
 dofile(minetest.get_modpath("technic").."/water_mill.lua")
 dofile(minetest.get_modpath("technic").."/alloy_furnace.lua")
 dofile(minetest.get_modpath("technic").."/items.lua")
+dofile(minetest.get_modpath("technic").."/mining_drill.lua")
 
 
 function has_locked_chest_privilege(meta, player)
diff --git a/items.lua b/items.lua
index e026ae9..f61fd6a 100644
--- a/items.lua
+++ b/items.lua
@@ -11,7 +11,7 @@
 })
 
 minetest.register_craft({
-	output = 'pipeworks:tube_000000 8',
+	output = 'pipeworks:tube_000000 9',
 	recipe = {
 		{'technic:stainless_steel_ingot', 'default:glass', 'technic:stainless_steel_ingot'},
 		{'technic:stainless_steel_ingot', 'default:glass', 'technic:stainless_steel_ingot'},
diff --git a/mining_drill.lua b/mining_drill.lua
new file mode 100644
index 0000000..78c11a4
--- /dev/null
+++ b/mining_drill.lua
@@ -0,0 +1,60 @@
+mining_drill_max_charge=60000
+
+minetest.register_tool("technic:mining_drill", {
+	description = "Mining Drill",
+	inventory_image = "technic_mining_drill.png",
+	stack_max = 1,
+	on_use = function(itemstack, user, pointed_thing)
+		if pointed_thing.type=="node" then 
+		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
+		 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)
+		item["wear"]=tostring(charge)
+		itemstack:replace(item)
+		end
+		return itemstack
+		end
+	end,
+})
+
+minetest.register_craft({
+	output = 'technic:mining_drill',
+	recipe = {
+		{'technic:stainless_steel_ingot', 'technic:diamond_drill_head', 'technic:stainless_steel_ingot'},
+		{'technic:stainless_steel_ingot', 'technic:red_energy_crystal', 'technic:stainless_steel_ingot'},
+		{'', 'moreores:copper_ingot', ''},
+	}
+})
+
+
+
+
+
+
+function drill_dig_it (pos, player)		
+	local node=minetest.env:get_node(pos)
+	if node.name == "air" 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
+
+end
\ No newline at end of file
diff --git a/textures/technic_diamond_drill_head.png b/textures/technic_diamond_drill_head.png
new file mode 100644
index 0000000..e3d31e8
--- /dev/null
+++ b/textures/technic_diamond_drill_head.png
Binary files differ
diff --git a/textures/technic_doped_silicon_wafer.png b/textures/technic_doped_silicon_wafer.png
new file mode 100644
index 0000000..6ff06a6
--- /dev/null
+++ b/textures/technic_doped_silicon_wafer.png
Binary files differ
diff --git a/textures/technic_mining_drill.png b/textures/technic_mining_drill.png
new file mode 100644
index 0000000..171888d
--- /dev/null
+++ b/textures/technic_mining_drill.png
Binary files differ
diff --git a/textures/technic_silicon_wafer.png b/textures/technic_silicon_wafer.png
new file mode 100644
index 0000000..78aef20
--- /dev/null
+++ b/textures/technic_silicon_wafer.png
Binary files differ

--
Gitblit v1.8.0