hedgewars/GSHandlers.inc
changeset 6754 744b9430557a
parent 6700 e04da46ee43c
child 6761 e95f7509a5c5
--- a/hedgewars/GSHandlers.inc	Wed Feb 29 23:44:49 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Wed Feb 29 18:24:56 2012 -0500
@@ -1807,9 +1807,10 @@
                 State := State and (not gstAttacking);
                 Message := Message and (not gmAttack)
                 end;
-        DeleteGear(Gear)
+        DeleteGear(Gear);
+	exit;
         end;
-    CheckGearDrowning(HHGear)
+    if CheckGearDrowning(HHGear) then DeleteGear(Gear)
 end;
 
 procedure doStepRope(Gear: PGear);