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

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

   725                 if gear^.Timer = 0 then      

   725                 if gear^.Timer = 0 then      

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

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

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

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

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

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

   729                 gear^.Elasticity:= _0_6;

   730                 gear^.Elasticity:= _0_6;

   730                 gear^.Friction:= _0_8;

   731                 gear^.Friction:= _0_8;

   731                 gear^.Density:= _0_5;

   732                 gear^.Density:= _0_5;

   732                 gear^.AdvBounce:= 1;

   733                 gear^.AdvBounce:= 1;

   733                 end;

   734                 end;