hedgewars/uGearsHandlersMess.pas
changeset 10512 25021aac078e
parent 10510 9329dab04490
child 10544 37b0e1f92e3c
--- a/hedgewars/uGearsHandlersMess.pas	Tue Nov 18 00:32:39 2014 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Mon Nov 17 23:23:10 2014 +0100
@@ -2428,6 +2428,8 @@
             //                 Gear^.Tag, _0, 5000);
             end;
         Gear^.dX := Gear^.dX + int2hwFloat(30 * Gear^.Tag);
+        if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) then
+            FollowGear^.State:= FollowGear^.State or gstSubmersible;
         StopSoundChan(Gear^.SoundChannel, 4000);
         end;