hedgewars/uGearsUtils.pas
changeset 8003 7d8bce524daf
parent 7825 1b96361a7ef4
child 8007 b07ce9dfc6bb
--- 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