hedgewars/uGearsList.pas
changeset 12203 668ee6e388bd
parent 12202 fb2dea5c98f1
child 12641 f30b70976577
--- a/hedgewars/uGearsList.pas	Thu May 12 19:45:26 2016 +0200
+++ b/hedgewars/uGearsList.pas	Fri May 13 00:08:09 2016 +0200
@@ -720,15 +720,18 @@
                 gear^.Radius:= 8;
                 end;
         gtDuck: begin
-                gear^.Pos:= 0;               // 0: in air, 1-4: on water,
+                gear^.Pos:= 0;               // 0: in air, 1-4: on water, 5-8: underwater
                                              // 1: bottom, 2: bottom (mirrored),
                                              // 3: left Sea edge, 4: right Sea edge
+                                             // 6: bottom, 7: bottom (mirrored)
+                                             // 7: left Sea edge, 8: right Sea edge
                 gear^.Tag:= 1;               // 1: facing right, -1: facing left
                 if gear^.Timer = 0 then      
                     gear^.Timer:= 15000;     // Explosion timer to avoid duck existing forever
                 gear^.Radius:= 9;            // Collision radius (with landscape)
                 gear^.Karma:= 24;            // Distance from water when swimming
                 gear^.Damage:= 500;          // Speed factor when swimming on water (multiplied with wind speed)
+                gear^.State:= gear^.State or gstSubmersible;
                 gear^.Elasticity:= _0_6;
                 gear^.Friction:= _0_8;
                 gear^.Density:= _0_5;