# HG changeset patch
# User unc0rr
# Date 1252568910 0
# Node ID 86c9aadea8174bf35e0f7b9eb7e13284cfcdf727
# Parent  b38efe4896153876a349f35d31794f7a14abc998
Remove gstHHDriven flag when hedgehog get into the water. Fixes some odd cases.

diff -r b38efe489615 -r 86c9aadea817 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Thu Sep 10 04:36:58 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Sep 10 07:48:30 2009 +0000
@@ -41,7 +41,11 @@
         CheckGearDrowning:= true;
         Gear^.State:= gstDrowning;
         Gear^.doStep:= @doStepDrowningGear;
-		if Gear^.Kind = gtHedgehog then AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpMessage);
+		if Gear^.Kind = gtHedgehog then
+			begin
+			Gear^.State:= Gear^.State and (not gstHHDriven);
+			AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpMessage);
+			end
         end;
     PlaySound(sndSplash, false, nil)
     end