hedgewars/uGearsUtils.pas
changeset 6498 5678806aafca
parent 6490 531bf083e8db
child 6531 c938a35588af
--- a/hedgewars/uGearsUtils.pas	Sun Dec 04 15:21:50 2011 -0500
+++ b/hedgewars/uGearsUtils.pas	Fri Dec 02 15:03:27 2011 +0400
@@ -321,11 +321,11 @@
     particle: PVisualGear;
     isSubmersible: boolean;
 begin
-    isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack);
     // probably needs tweaking. might need to be in a case statement based upon gear type
     Y:= hwRound(Gear^.Y);
     if cWaterLine < Y + Gear^.Radius then
         begin
+        isSubmersible:= (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack);
         skipSpeed := _0_25;
         skipAngle := _1_9;
         skipDecay := _0_87;