--- a/hedgewars/uGears.pas	Tue Oct 06 16:30:08 2009 +0000
+++ b/hedgewars/uGears.pas	Wed Oct 07 14:37:42 2009 +0000
@@ -1296,7 +1296,7 @@
 
 procedure DrawRope(Gear: PGear);
 var roplen: LongInt;
-	i: LongInt;
+	i: Longword;
 
 	procedure DrawRopeLine(X1, Y1, X2, Y2: LongInt);
 	var  eX, eY, dX, dY: LongInt;