doStepDrowningGear - I always forget it. Kill the sound and exit.
authornemo
Mon, 19 Oct 2009 12:44:47 +0000
changeset 2558 b1cb0f71b704
parent 2556 a0b542a4c515
child 2562 0421e9f59774
doStepDrowningGear - I always forget it. Kill the sound and exit.
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