hedgewars/uAmmos.pas
changeset 5688 fba59d6b5b6c
parent 5680 c0107c991dda
child 5777 600b64455337
--- a/hedgewars/uAmmos.pas	Fri Aug 26 20:59:55 2011 -0400
+++ b/hedgewars/uAmmos.pas	Fri Aug 26 21:38:11 2011 -0400
@@ -184,8 +184,9 @@
     a: PAmmo;
 begin
 a:= GetAmmoEntry(Hedgehog, ammo);
-cnt:= a^.Count;
-if (a^.AmmoType = amNothing) or (cnt <> AMMO_INFINITE) then
+if (a^.AmmoType <> amNothing) then cnt:= a^.Count
+else cnt:= 0;
+if (cnt <> AMMO_INFINITE) then
     begin
     inc(cnt, Ammoz[ammo].NumberInCase);
     AddAmmo(Hedgehog, ammo, cnt)