738 {

   739                 gear^.Pos:= 0;               // 0: in air, 1-4: on water, 5-8: underwater

   740                                              // 1: bottom, 2: bottom (mirrored),

   741                                              // 3: left Sea edge, 4: right Sea edge

   742                                              // 6: bottom, 7: bottom (mirrored)

   743                                              // 7: left Sea edge, 8: right Sea edge

   744                 gear^.Tag:= 1;               // 1: facing right, -1: facing left

   745                 if gear^.Timer = 0 then      

   746                     gear^.Timer:= 15000;     // Explosion timer to avoid duck existing forever

   747                 gear^.Radius:= 9;            // Collision radius (with landscape)

   748                 gear^.Karma:= 24;            // Distance from water when swimming

   749                 gear^.Damage:= 500;          // Speed factor when swimming on water (multiplied with wind speed)

   750                 gear^.State:= gear^.State or gstSubmersible;

   751                 gear^.Elasticity:= _0_6;

   752                 gear^.Friction:= _0_8;

   753                 gear^.Density:= _0_5;

   754                 gear^.AdvBounce:= 1;

   755 }

   756 

   757