hedgewars/HHHandlers.inc
changeset 3169 c8c6ac44f51b
parent 3161 cb5f04cc9d76
child 3174 17e2602dfdc5
--- 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;