--- a/hedgewars/HHHandlers.inc	Mon Mar 29 23:47:38 2010 +0000
+++ b/hedgewars/HHHandlers.inc	Tue Mar 30 00:02:40 2010 +0000
@@ -310,7 +310,7 @@
 procedure PickUp(HH, Gear: PGear);
 var s: shortstring;
     a: TAmmoType;
-    i: Integer;
+    i: LongInt;
     vga: PVisualGear;
 begin
 Gear^.Message:= gm_Destroy;