diff -r 54dedd218dde -r 3cfd2e15464a hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Nov 21 16:55:19 2010 +0300
+++ b/hedgewars/GSHandlers.inc	Sun Nov 21 09:12:44 2010 -0500
@@ -1132,7 +1132,7 @@
 
         Gear^.dX := SignAs(AngleSin(HHGear^.Angle), HHGear^.dX);
         Gear^.dY := -AngleCos(HHGear^.Angle);
-        Gear^.Friction := _450;
+        Gear^.Friction := _450 * _0_01 * cRopePercent;
         Gear^.Elasticity := _0;
         Gear^.State := Gear^.State and not gsttmpflag;
         Gear^.doStep := @doStepRope;