# HG changeset patch
# User nemo
# Date 1289490698 18000
# Node ID 4e81670e52aaf3eb2c04e5086f7532528cd0ef64
# Parent  eda0a8e2325f6233d251fb29fccb7f6246b6fde5
er. and cast to TAmmoType, which burp's routine still requires :)

diff -r eda0a8e2325f -r 4e81670e52aa hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Thu Nov 11 09:59:45 2010 -0500
+++ b/hedgewars/uGears.pas	Thu Nov 11 10:51:38 2010 -0500
@@ -1675,12 +1675,12 @@
             end;
         AmmoCrate: begin
             FollowGear^.Pos := posCaseAmmo;
-            FollowGear^.AmmoType := content;
+            FollowGear^.AmmoType := TAmmoType(content);
             AddCaption(GetEventString(eidNewAmmoPack), cWhiteColor, capgrpAmmoInfo);
             end;
         UtilityCrate: begin
             FollowGear^.Pos := posCaseUtility;
-            FollowGear^.AmmoType := content;
+            FollowGear^.AmmoType := TAmmoType(content);
             AddCaption(GetEventString(eidNewUtilityPack), cWhiteColor, capgrpAmmoInfo);
             end;
     end;