hedgewars/GSHandlers.inc
changeset 6803 0e70f3ea3bf8
parent 6792 f72c8b5d421c
child 6833 a4f75b36d70d
--- a/hedgewars/GSHandlers.inc	Sun Mar 18 18:19:20 2012 +0100
+++ b/hedgewars/GSHandlers.inc	Tue Mar 20 01:30:54 2012 -0400
@@ -4511,9 +4511,9 @@
         begin
         Gear^.dY := Gear^.dY + cGravity * 2;
         Gear^.Y := Gear^.Y + Gear^.dY;
-        CheckGearDrowning(Gear);
-        if (Gear^.State and gstDrowning) <> 0 then
+        if CheckGearDrowning(Gear) then
             begin
+            Gear^.Y:= Gear^.Y + _50;
             OnUsedAmmo(CurrentHedgehog^);
             if CurrentHedgehog^.Gear <> nil then
                 begin
@@ -4536,6 +4536,7 @@
 
     if (Gear^.State and gstDrowning) <> 0 then
         begin
+        Gear^.Y:= Gear^.Y + _50;
         OnUsedAmmo(CurrentHedgehog^);
         if CurrentHedgehog^.Gear <> nil then
             begin