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 ++++++++
 init.lua                                 |   1 +
 items.lua                                |   2 +-
 mining_drill.lua                         |  60 +++++++++++++++++++++++
 textures/technic_diamond_drill_head.png  | Bin 0 -> 978 bytes
 textures/technic_doped_silicon_wafer.png | Bin 0 -> 867 bytes
 textures/technic_mining_drill.png        | Bin 0 -> 2099 bytes
 textures/technic_silicon_wafer.png       | Bin 0 -> 913 bytes
 8 files changed, 83 insertions(+), 1 deletion(-)
 create mode 100644 mining_drill.lua
 create mode 100644 textures/technic_diamond_drill_head.png
 create mode 100644 textures/technic_doped_silicon_wafer.png
 create mode 100644 textures/technic_mining_drill.png
 create mode 100644 textures/technic_silicon_wafer.png

diff --git a/electric.lua b/electric.lua
index b4c6cca..deaa596 100644
--- a/electric.lua
+++ b/electric.lua
@@ -338,6 +338,27 @@ minetest.register_abm({
 		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").."/geothermal.lua")
 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_craftitem( "technic:doped_silicon_wafer", {
 })
 
 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 0000000000000000000000000000000000000000..e3d31e8e09fcfc0aaf11ad51d9001fadbeeed542
GIT binary patch
literal 978
zcmV;@11<cCP)<h;3K|Lk000e1NJLTq000mG000mO1^@s6AM^iV00006VoOIv0RI60
z0RN!9r;`8x010qNS#tmY3ljhU3ljkVnw%H_000McNliru+zAT~5C}cKB<%nI03B&m
zSad^gZEa<4bN~PV002XBWnpw>WFU8GbZ8()Nlj2>E@cM*00TBjL_t(I%XL$0Xp?6Y
ze$M+PG1sQ1tx0XQ=`5ia?O;fyqKhcvnAjf*Lr_6*O8?Y}igs*Ocb|f{d4r-LDjg{3
z54HZN!m3goDy>e<X4W>EHnv$)6I1gwU-G@jAE`QFJHHNxb9tWgoJ05@YrAyLMI*z@
zj83;+6nq-;Z`*qFzw+pf^TT(|_^Rb+v@|z1IqkOnMpwDv&v=^6Ml+^41g6>qKB%av
zsjHv&_{5o$ShsrZy9V7ocahAbrnMd0d$m7X=<Cc>puW1Co(x1&gUN9VB%|2E7eDr-
z8)g}z(Xgy6Epa5Y9nD|o8U%wO%Z1Z>)Ybs=-zG0BlE`W%jA=TU1t4{NI;)J@A4J%v
zgn6+w{QSuA^CbYF06;R{_x+u?xV&KLYC|AAv`du?Ejs~^2qXx>=*wM1f@8u#q>VXN
z_-l)PzjMD`06;dI-hNxJHXiS|$8j~o#JRmN0RV%U03rzJ<eFp{Rh^XtVGc1fXycZq
zg~5S=Ygd$c5YQnBAZD;2o?<nT&Ol7n7!m{mifyKZsza}hb-EV%^86whi+M+M3(DLU
zNY3(`$u6UjqOF@~r1cBMV>1&700YBgnlqthTrbFq{*g?LC@!*fRh3Pr#g(N57K91-
zibBlHMk12$#0CfiMix>E*ldc^V9xhc#R7i?E=LL=6oSmr#y_cXl&s&Ec7MK)h7u}6
z<S2Lx^H4C^PI-ZcOj)&?0ARzq6?{5X2Q{~K1`&aILI!^C=179Q`6im5xJIYiE<)s@
z{L9=)y{PcyxBH45Lg5TR4Di3?kUZfkWEtvasqm?{ckt`kj++BL9rnC}scUXLOESX%
zKnEBg2mlPf&rQ!`uU2_7!>$iAe~h0!cXjq)B$UI|vU4*&TI6>{x^4~MOHWbG1T?Z+
zEL>Y+7r*tz7ywMV#LDSolnr;u$)%ro3?dXgxaVjN!S&8tXqZ!{&RyPkxKMpM^Rp_4
zufmD2mW&_p8sj_XSVyVe)QcH~=G1{hZA+Fm%zm}|oBi*9BLM99atprwX)hk!z3q;K
zddh}g=+zMH)kX&c>$m=Rg@|7EhaREaTl2Q&HAm!QD}}*X0{{R307*qoM6N<$g8M?e
AZU6uP

literal 0
HcmV?d00001

diff --git a/textures/technic_doped_silicon_wafer.png b/textures/technic_doped_silicon_wafer.png
new file mode 100644
index 0000000000000000000000000000000000000000..6ff06a6f49691c047028699355734df5a2e2ca3e
GIT binary patch
literal 867
zcmV-p1DyPcP)<h;3K|Lk000e1NJLTq000mG000mO1^@s6AM^iV00006VoOIv0RI60
z0RN!9r;`8x010qNS#tmY3ljhU3ljkVnw%H_000McNliru+zAT{Bnuf<L`whw03B&m
zSad^gZEa<4bN~PV002XBWnpw>WFU8GbZ8()Nlj2>E@cM*00PHJL_t(I%Z-vtXkAql
zhQGb{+2=lE2=!h{l8RM?P)$dQ)QUwMND)B?IuKDOP6|?qEv*iUGoMAM(20TKW1u49
z11HWZ)JH&2DpHK479UA%o12(>?m6e4z1MPZ6SUNUKP=W7EdKvz{mbw#?0e%+jz8Ju
z;iF62e)#UI2UqiSBB78@ck3_T9>4Q#{sU%n*zwd^9@<rJzkl+Nk9rq>zeg2JQd1pf
zMq)*yJ;8Wq+uZ5bZ+`9YJC}Iz(QE%9xcl&F8vNB+yi{AxvVlP=qf%j#8i=4OSl@u8
z#Z-6v<Aqmlc;G4r+n@OQx3U;a+O%yzK>`?ysv@Dp`X(-I<Gp9*y7uFrJvaFlfCaei
zz|T)d+nh4i8wn+-f^it*MqL#&0^q$<XXM1Dumu=vriXm3q4*X^K&l)GB^pc6fNDUh
z0TK#QpO`IU-X45&c@DtN9$2c^YHlkSV+^2zYQQEbzHtpcZDNcCji>}-6s$!>-Ms*I
z+^z1MoJdH$1Cu~f2Q0BzL&|lu>Z1}z=Tapv0|sN##OwgD=P%@Ib#F+V#kmAy-AFAC
zi6W#v!8pI+ph84gS`FkwDFJM2%k1Jxzak1?Ea)g0<2-5-a5a*&wGo&StDLngYHuJv
z0oXG~y%a-PNF0hWY?ewyhZ#kY6RQC#6*|mN5qeoPE9>&XW5+IFZa;L6M9ceEa{oz|
z^@(MlSX@S{0#h5q`6kvTgmN9M!=_`J)>@pKpS1w?o0qn8>gAbFLx1^;SY~J#fJ8tc
z24cBR9A=|*LIG9Z+%(;M<cdGo^XwTGPwd`fL+{Ht%#dLpjRhKWG~|TAMPhzgrRZ_}
zba(&f&)@j&6$B?=nBms_-}CEx_w61_vS(5ka~bBKvXMwZJ&_-$C#P;X_3F-J{2$yk
tw=mP$JAX%a@BFSKA8H5S$XUH=?{Co5W7}iK)H(nF002ovPDHLkV1h~_ea`>@

literal 0
HcmV?d00001

diff --git a/textures/technic_mining_drill.png b/textures/technic_mining_drill.png
new file mode 100644
index 0000000000000000000000000000000000000000..171888db61b65e29d58fae2fec87578c664a9060
GIT binary patch
literal 2099
zcmV-32+a41P)<h;3K|Lk000e1NJLTq001BW001Be1^@s6b9#F800006VoOIv0RI60
z0RN!9r;`8x010qNS#tmY3ljhU3ljkVnw%H_000McNliru+zAU0AucE^%#{ED03B&m
zSad^gZEa<4bN~PV002XBWnpw>WFU8GbZ8()Nlj2>E@cM*00);zL_t(o!?l-RY*W`A
z$G_)XJN}nAA^1<QNk|9@4Szy%{U;;~DT4svpUMUUriP+UDjVt^rcLX^9yU$Ys!i*p
zX<N0uZPK1bw{E12G1gEZSqYAPlaiJcLjDjtzK(5T6Fa{4weLN9*fLdHH{z0hp6<gr
zx*z?{?|jcWz$ei3`9lBzcUv0(VE_L8_^jXnprLcG-E3R;r4oaF##-Oho=rWDTQ)W{
zJ<b&pj+)x0=F#g>qjwi(XJ=PkfC7LlWsd2}%75K{;)MZ#U0YjQe^HU;QDd3;LRQ7t
zyG@<Fg98KLdA^b7c{DdSuWkh%iy_h5d;a+IM-MbUOy!xO%)HT9X<^di#4}}9J4+`X
z_0-hXZl!tohlJA6(b3V#RTbFe>G<lx?9}n3$wE_6k+ih!M0I@wDQFF7*|mqHrK~2C
z%QeGj){|7?d56<^RTRb0stHKRSi*h!rBi#{EvDM~O=wtW!<D~Y#mw*^w(jgiYfB4>
zXL4}uJ4|Bt?x2v%o^UuES42^qUzHwcXlyz)-v4LY%zPXbCOzJ~dJRfm#=)<g$2zkS
z?_R%-(8v((jg2A?N(dnpVC-5e&u<0*m&^5Z0_xJ@HEZ3b#MIO@>-UWyop^+UhYrHM
zX#)oRBgiBd;5~X0U7elC>C2!nhP<YvlB#NdEAOfe1Ofm6kH=HIKu1RhbfxCwu?HWm
z(Hr!{v+Wu5^z^`LF2f(*xq-xd7_QFU*xtAiL$_{0Ddb_xsn{KwLq=cfBuu%|!t)yd
zV0d`A_#OxbgJ`VK{VlCC*Udki-cecK1bvAHH+=yl<5BF}cL0qJEBbvSNJQqa6pH{$
z32aF%qBO4}R90ru7UX?ZPUl+@QA`&t(A(RKx33MbGOInlrn>e;7|l>QEmQ_P+ujCC
znGu%;ZXqd#kbF3awb5CemKE5+pk|j)CM!%dnQT;5JE|OxzKAGhiV+~oA6wjQ?_@dM
z-k!7P*qXH#!l?z+*sSOq96~bm5Q+O^utbA6B&%32OPI;$F|Q~v5`r`X{_a=@mE&#_
zLXQane`3WIIDGgpCMG7(V6(g>D}`sL9z3X-3x_c|HN_GtC7>LF@AbpF5W#af1$J3N
z9soxO%#^~a;UE}Gku1?N6||N@ZFM-RekY0%wWtaJfZOG=DT;Ctl<rjXG90Cq$d;BO
zF*k$LxjdY57AgS77(o6xRZ9q_H6^&Z)q)+iIot@?!BO=hN9jqw-!HFd8!qDy1fqn}
zFA&D=6gUlju(1w5UvI~Eb24@?1(g~NtXl2Ae@*}>s){Mffh}cFzh1*sMO6Sq6-Cjm
zI0rtCAP5mc=&=&DF!8PX_rQ$hXghiYC5*v92=t7>N-5S+3Jb^K1A`Ic6%0FfaIlm!
zqJmNYCQ4~`#Zmm9h@zNu)YM+iW|yA36^T{6_~lcu?%xlSB%!jV2KL5A=qoMgi_W9J
z6zJM*0AHQNrC~EmJR%Aq<OZd<5)O;3=n4QpdwV;CVc#Ut84d)O7Lw<F_6EwU?5Om(
zLC>8>;^bL;KPcj|iQ?s6VDEMbmxlEC=nf+k3<Q8it79vPX!4{1E{~^0N-bWmYuH-8
z5S&Kio<j(Zk0Ua98*lt{AJ&&I;guhKh?z-(lC?H)`7AP$1VYG<M@B|oak*Srj_RTW
z>gwt+Jw5%ejQ4&nm(BE3t*PYFpI#-Q`)`AmwxX$;!^_`z6{F*NIBGUP%Tc6KDaf+S
zBuOHKkk<u4_;%4f007Bk5&+QM-HpM)fuOUx`j#xEd*`Ae>AN^Y)a)#N^_v?QyHD`K
zOJ9St%7$1p3Q8$bsT5IF6#)JiiA3IWyWOzc?bP9LKomvn+O><=?RJF2;r}hL%+%D>
za$`<!sH^*MW^(>SO47`{e>bgNNGLJJpwnqMO-Fk>a=9ERrBGFsB@zju)oOn)ilPt>
zhv9HIzNsk6hN`NnZG}Q%TObhlfam!q_rNk9j|aoU!{B-T5T#U5Rkedq`o5|t2XeXG
zFT7qa;_)~kgy6`LBe;G0HX9lmQjA99SyffHFvh;4)9EC}Scxpl3L)f+f*@SxRw@t<
zhnFic5e|pbq9~59si;Vdjg1XgS63@@b8~yr>2zXYVL@*;o6+6fO%@jyNiY~Z&T(9q
zUayD2U?@>ll@tmE4FFvv5_yw*n(I_776Z@o5Cq|-)9FkSLViLiO-)Qpw3|#OX0zEy
zJRWC^F&GR6B1saHB#BT;U)SsP=WI6H%9miJc)ebl&*y(xC=||Z-n^NaOeP|VB9h4@
z%jfe7A>@04AiU=Fdg1f=J~@a!4Ic{~d!bO+rqyb(xVVUHHVa9Tm@LZ$Lde$zL3qvW
zcEjiM{r_!PETSmF<#JW$^Z6S_qjATXGiMk8a`*0CWHOlyrSyy-2)}J^ZpO&S$Y=A;
zV~nAzt7{+-2(SwmF0h`S9=3h^_645j_X2?1?f$Phn$;BWcswpbNR`j$LtkGX3xz^4
zy<UIV@Avz8o`>J>Fa9hjhSt_r4I$(&vMhING@2Po>25&~9zNA!^eH5agpf0o(u;n-
dKk}sU{{YJ+ZAd^pMgjl;002ovPDHLkV1his)8GIA

literal 0
HcmV?d00001

diff --git a/textures/technic_silicon_wafer.png b/textures/technic_silicon_wafer.png
new file mode 100644
index 0000000000000000000000000000000000000000..78aef2002324dbda1d2206a22ea1c65e0abf390d
GIT binary patch
literal 913
zcmV;C18)3@P)<h;3K|Lk000e1NJLTq000mG000mO1^@s6AM^iV00006VoOIv0RI60
z0RN!9r;`8x010qNS#tmY3ljhU3ljkVnw%H_000McNliru+zAT{7c59Oln?*_03B&m
zSad^gZEa<4bN~PV002XBWnpw>WFU8GbZ8()Nlj2>E@cM*00Q+%L_t(I%WacOXk29&
zhM)gG|2cEcT$*Ou+M%%}WRa>AUAPg%3rH$hF)hVnly>1t+C@vca3?MV-KgNc5mZVA
z1D(367Xn437K$5bF_sWXBC*M2GMUS{{r~w~6&>lbdN<$mZr)Gv9~ST4Wb*N6_~q8Z
z!Mi^+PYm43sLsP;|AD8MPrNhxB@aP82-m;*h>7RURBwO($<_9s%P-|Bfe@iDDvWEC
zM#qT8CuUEbKKJSB@)D1ZPy8$RZhnsYO7E+#|F(WVUQ>etl{t%x3Vdq_(>i|8V7Do=
zf9yc>#n<0D{-9U`96k9qtStSy-OiN@t4eAfeq{tdsG>?9Hc(_fw99o?`gVHZr|V~i
z1kL%m3;4UnTG6O-NrWym&J<W9INy+oB2yNpHE~#%T=srGB&by??`E}qqQenVS7nfD
zV(Un(!xkA*B;>ImNgo>-W%umXzc1aJ1<>>JKZZdVHrl4FVo%ZYguL*elo5_7{7R1V
z`=sRb86ZUqF{xNBF9R4)b)Ky6d4zDIgY!IG5Rlmb(`n&=f)vkblnl^P#_PwFB~iZd
zp8(Kn>wk5MQiL%9%9K#rAkI+a0oG*@X<Xn?l8`!KN5v$qRdmu#0nFr~!+&&k5)uUK
zmB_V+QxVEk7%4Q?#Hg}C4=hd!OfQ4&u1L7O2%x84ohphXzSXcwDlVjIOYE{Gq6~E3
zp*s$jbTQe0px;I$M|QSVs~3NB=k^WE)#epeTN@wvS$<6?f_4dc+QVj=!1M4@jg1@x
z4o_vMd?0ImpI4qgHV2@OPrt#;^vt*M=GKjoP74`0Tp^$=l3S!}(Y*|$jhCf_{Y^D~
zaO};Y9b9Y9bNc*+7rN=j&yDsb<!%hIASo1Sf!naS&X(w{9S%(#IX`uD=E{)Zwds>w
zzI=(Z?|t~}-%;tJ!Nt{Hk819yrH<0T2i>?+n|$iXu~X+hd+0a*pD(_?^w{Ffg}PsO
na`F9-?^Q?lZiom<4WIl2<0^DOW%_wt00000NkvXXu0mjfPc5g!

literal 0
HcmV?d00001