hedgewars/uGears.pas
changeset 4238 6f1631765ebd
parent 4225 ce9e2b05e9c1
child 4239 eda0a8e2325f
--- a/hedgewars/uGears.pas	Thu Nov 11 00:38:12 2010 +0100
+++ b/hedgewars/uGears.pas	Thu Nov 11 09:58:10 2010 -0500
@@ -1748,7 +1748,7 @@
               dec(t, Ammoz[i].Probability)
           end;
         FollowGear^.Pos:= posCaseAmmo;
-        FollowGear^.State:= Longword(i);
+        FollowGear^.AmmoType:= i;
         AddCaption(GetEventString(eidNewAmmoPack), cWhiteColor, capgrpAmmoInfo);
         end
     end
@@ -1767,7 +1767,7 @@
               dec(t, Ammoz[i].Probability)
           end;
         FollowGear^.Pos:= posCaseUtility;
-        FollowGear^.State:= Longword(i);
+        FollowGear^.AmmoType:= i;
         AddCaption(GetEventString(eidNewUtilityPack), cWhiteColor, capgrpAmmoInfo);
         end
     end;