--- a/hedgewars/uGears.pas	Fri Feb 22 16:07:16 2008 +0000
+++ b/hedgewars/uGears.pas	Sun Feb 24 20:00:31 2008 +0000
@@ -71,10 +71,12 @@
 implementation
 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions,
      uLand, uIO, uLandGraphics, uAIMisc, uLocale, uAI, uAmmos, uTriggers, GL;
+
+const MAXROPEPOINTS = 300;
 var RopePoints: record
                 Count: Longword;
                 HookAngle: GLfloat;
-                ar: array[0..300] of record
+                ar: array[0..MAXROPEPOINTS] of record
                                   X, Y: hwFloat;
                                   dLen: hwFloat;
                                   b: boolean;