# HG changeset patch
# User nemo
# Date 1255634062 0
# Node ID fa3ddd1ff2a19822077ac3fbaa488046f144c122
# Parent  5e58b1e3210b1981e8ef14a9281cb1d095c2b14b
Suggestion by Smaxx - use pickhammer sound while drill is in operation

diff -r 5e58b1e3210b -r fa3ddd1ff2a1 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Thu Oct 15 19:13:08 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Oct 15 19:14:22 2009 +0000
@@ -2075,6 +2075,7 @@
 and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX)))
 or (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] = COLOR_INDESTRUCTIBLE) then
 	begin //out of time or exited ground
+    StopSound(sndPickhammer);
 	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
 	DeleteGear(Gear);
 	exit
@@ -2114,6 +2115,7 @@
 		exit;
 		end;
 
+    PlaySound(sndPickhammer, true, nil);
 	Gear^.doStep:= @doStepDrillDrilling;
 	dec(Gear^.Timer)
 	end