hedgewars/uGears.pas
changeset 4239 eda0a8e2325f
parent 4238 6f1631765ebd
child 4240 4e81670e52aa
--- a/hedgewars/uGears.pas	Thu Nov 11 09:58:10 2010 -0500
+++ b/hedgewars/uGears.pas	Thu Nov 11 09:59:45 2010 -0500
@@ -1675,12 +1675,12 @@
             end;
         AmmoCrate: begin
             FollowGear^.Pos := posCaseAmmo;
-            FollowGear^.State := content;
+            FollowGear^.AmmoType := content;
             AddCaption(GetEventString(eidNewAmmoPack), cWhiteColor, capgrpAmmoInfo);
             end;
         UtilityCrate: begin
             FollowGear^.Pos := posCaseUtility;
-            FollowGear^.State := content;
+            FollowGear^.AmmoType := content;
             AddCaption(GetEventString(eidNewUtilityPack), cWhiteColor, capgrpAmmoInfo);
             end;
     end;