hedgewars/uGearsList.pas
changeset 10848 231d3e3d3267
parent 10829 158b5dd6b3c9
child 10874 059a6492176e
equal deleted inserted replaced
10847:b68e35d6e376 10848:231d3e3d3267
   340                 end;
   340                 end;
   341         gtRope: begin
   341         gtRope: begin
   342                 gear^.Radius:= 3;
   342                 gear^.Radius:= 3;
   343                 gear^.Friction:= _450 * _0_01 * cRopePercent;
   343                 gear^.Friction:= _450 * _0_01 * cRopePercent;
   344                 RopePoints.Count:= 0;
   344                 RopePoints.Count:= 0;
       
   345                 gear^.Tint:= $D8D8D8FF;
       
   346                 gear^.Tag:= 0; // normal rope render
   345                 end;
   347                 end;
   346         gtMine: begin
   348         gtMine: begin
   347                 gear^.ImpactSound:= sndMineImpact;
   349                 gear^.ImpactSound:= sndMineImpact;
   348                 gear^.nImpactSounds:= 1;
   350                 gear^.nImpactSounds:= 1;
   349                 gear^.Health:= 10;
   351                 gear^.Health:= 10;