hedgewars/uGearsUtils.pas
changeset 12177 bfeeb1c35e77
parent 12176 29f1ea94488b
child 12208 9a4831b23cd1
equal deleted inserted replaced
12176:29f1ea94488b 12177:bfeeb1c35e77
   655             isSkip:= false;
   655             isSkip:= false;
   656             if not isSubmersible then
   656             if not isSubmersible then
   657                 begin
   657                 begin
   658                 CheckGearDrowning := true;
   658                 CheckGearDrowning := true;
   659                 Gear^.State := gstDrowning;
   659                 Gear^.State := gstDrowning;
       
   660                 if Gear = CurrentHedgehog^.Gear then
       
   661                     TurnTimeLeft := 0;
   660                 Gear^.RenderTimer := false;
   662                 Gear^.RenderTimer := false;
   661                 if (Gear^.Kind <> gtSniperRifleShot) and (Gear^.Kind <> gtShotgunShot)
   663                 if (Gear^.Kind <> gtSniperRifleShot) and (Gear^.Kind <> gtShotgunShot)
   662                 and (Gear^.Kind <> gtDEagleShot) and (Gear^.Kind <> gtSineGunShot) then
   664                 and (Gear^.Kind <> gtDEagleShot) and (Gear^.Kind <> gtSineGunShot) then
   663                     if Gear^.Kind = gtHedgehog then
   665                     if Gear^.Kind = gtHedgehog then
   664                         begin
   666                         begin