hedgewars/uGears.pas
changeset 4396 3cfd2e15464a
parent 4393 883b979697e4
child 4398 36d7e4b6ca81
--- a/hedgewars/uGears.pas	Sun Nov 21 16:55:19 2010 +0300
+++ b/hedgewars/uGears.pas	Sun Nov 21 09:12:44 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