diff -r cd007c1780e7 -r 7d8bce524daf hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Wed Nov 07 13:24:01 2012 -0500
+++ b/hedgewars/uGearsUtils.pas	Wed Nov 07 14:02:10 2012 -0500
@@ -286,7 +286,7 @@
 procedure CheckHHDamage(Gear: PGear);
 var 
     dmg: Longword;
-    i: LongInt;
+    i: LongWord;
     particle: PVisualGear;
 begin
     if _0_4 < Gear^.dY then