diff -r ed78465973f6 -r beb4de0af990 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sun Nov 21 12:11:50 2010 -0500
+++ b/hedgewars/uGears.pas	Sun Nov 21 13:13:42 2010 -0500
@@ -273,7 +273,7 @@
                 end;
         gtRope: begin
                 gear^.Radius:= 3;
-                gear^.Friction:= _450;
+                gear^.Friction:= _450 * _0_01 * cRopePercent;
                 RopePoints.Count:= 0;
                 end;
         gtMine: begin