# HG changeset patch
# User nemo
# Date 1255956287 0
# Node ID b1cb0f71b7043569a6cc799057639b944d3fe590
# Parent  a0b542a4c515a86c91ec0273e9b9fd873fcd7f11
doStepDrowningGear - I always forget it.  Kill the sound and exit.

diff -r a0b542a4c515 -r b1cb0f71b704 hedgewars/GSHandlers.inc
--- 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