hedgewars/GSHandlers.inc
changeset 2558 b1cb0f71b704
parent 2538 661079b00177
child 2602 3deb9ff104da
--- a/hedgewars/GSHandlers.inc	Sun Oct 18 15:04:33 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Oct 19 12:44:47 2009 +0000
@@ -2091,7 +2091,11 @@
 	Gear^.X:= Gear^.X + Gear^.dX;
 	Gear^.Y:= Gear^.Y + Gear^.dY;
 	DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 2, 6);
-	CheckGearDrowning(Gear);
+    if(CheckGearDrowning(Gear)) then
+        begin
+        StopSound(sndPickhammer);
+	    exit
+        end
 	end;
 
 t:= CheckGearsCollision(Gear); //fixes drill not exploding when touching HH bug