hedgewars/uGearsList.pas
changeset 12202 fb2dea5c98f1
parent 12201 2c0811bbc1d9
child 12203 668ee6e388bd
equal deleted inserted replaced
12201:2c0811bbc1d9 12202:fb2dea5c98f1
   718       gtIceGun: begin
   718       gtIceGun: begin
   719                 gear^.Health:= 1000;
   719                 gear^.Health:= 1000;
   720                 gear^.Radius:= 8;
   720                 gear^.Radius:= 8;
   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: in air, 1-4: on water,
       
   724                                              // 1: bottom, 2: bottom (mirrored),
       
   725                                              // 3: left Sea edge, 4: right Sea edge
   724                 gear^.Tag:= 1;               // 1: facing right, -1: facing left
   726                 gear^.Tag:= 1;               // 1: facing right, -1: facing left
   725                 if gear^.Timer = 0 then      
   727                 if gear^.Timer = 0 then      
   726                     gear^.Timer:= 15000;      // Explosion timer to avoid duck existing forever
   728                     gear^.Timer:= 15000;     // Explosion timer to avoid duck existing forever
   727                 gear^.Radius:= 9;            // Collision radius (with landscape)
   729                 gear^.Radius:= 9;            // Collision radius (with landscape)
   728                 gear^.Karma:= 24;            // Distance from water when swimming
   730                 gear^.Karma:= 24;            // Distance from water when swimming
   729                 gear^.Damage:= 500;          // Speed factor when swimming on water (multiplied with wind speed)
   731                 gear^.Damage:= 500;          // Speed factor when swimming on water (multiplied with wind speed)
   730                 gear^.Elasticity:= _0_6;
   732                 gear^.Elasticity:= _0_6;
   731                 gear^.Friction:= _0_8;
   733                 gear^.Friction:= _0_8;