hedgewars/uGearsList.pas
changeset 12201 d7ccd18ae7bf
parent 12198 71c47122fbc0
child 12204 f7c295971143
equal deleted inserted replaced
12200:98b31009fc37 12201:d7ccd18ae7bf
   721                 end;
   721                 end;
   722         gtDuck: begin
   722         gtDuck: begin
   723                 gear^.Pos:= 0;               // 0: falling/in air, 1-4: on water
   723                 gear^.Pos:= 0;               // 0: falling/in air, 1-4: on water
   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:= 9000;      // Explosion timer to avoid duck existing forever
   726                     gear^.Timer:= 15000;      // Explosion timer to avoid duck existing forever
   727                 gear^.WDTimer:= gear^.Timer; // For restoring the timer, timer is reset when hitting water
       
   728                 gear^.Radius:= 9;            // Collision radius (with landscape)
   727                 gear^.Radius:= 9;            // Collision radius (with landscape)
   729                 gear^.Karma:= 24;            // Distance from water when swimming
   728                 gear^.Karma:= 24;            // Distance from water when swimming
   730                 gear^.Elasticity:= _0_6;
   729                 gear^.Elasticity:= _0_6;
   731                 gear^.Friction:= _0_03;
   730                 gear^.Friction:= _0_03;
   732                 gear^.Density:= _0_5;
   731                 gear^.Density:= _0_5;