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                 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;