--- 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