--- a/hedgewars/uGears.pas	Sun Nov 21 19:14:45 2010 +0300
+++ b/hedgewars/uGears.pas	Sun Nov 21 19:41:19 2010 +0300
@@ -46,7 +46,7 @@
 implementation
 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,
      uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables,
-     uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions;
+     uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug;
 
 
 procedure DeleteGear(Gear: PGear); forward;
@@ -273,7 +273,7 @@
                 end;
         gtRope: begin
                 gear^.Radius:= 3;
-                gear^.Friction:= _450 * _0_01 * cRopePercent;
+                gear^.Friction:= _450;
                 RopePoints.Count:= 0;
                 end;
         gtMine: begin