--- a/hedgewars/GSHandlers.inc	Wed Aug 13 16:26:44 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Wed Aug 13 16:52:04 2008 +0000
@@ -646,7 +646,7 @@
            Gear^.Friction:= Gear^.Friction - len;
            break
            end;
-         len:= len - _1
+         len:= len - _0_2
          end;
    end else
    if RopePoints.Count > 0 then // check whether the last dividing point could be removed

--- a/hedgewars/uGears.pas	Wed Aug 13 16:26:44 2008 +0000
+++ b/hedgewars/uGears.pas	Wed Aug 13 16:52:04 2008 +0000
@@ -74,7 +74,7 @@
      uLand, uIO, uLandGraphics, uAIMisc, uLocale, uAI, uAmmos, uTriggers, GL,
      uStats, uVisualGears;
 
-const MAXROPEPOINTS = 300;
+const MAXROPEPOINTS = 384;
 var RopePoints: record
                 Count: Longword;
                 HookAngle: GLfloat;