hedgewars/uAmmos.pas
changeset 394 4c017ae1226a
parent 393 db01cc79f278
child 534 92fb2b0d5117
--- a/hedgewars/uAmmos.pas	Mon Feb 05 19:33:24 2007 +0000
+++ b/hedgewars/uAmmos.pas	Mon Feb 05 20:26:13 2007 +0000
@@ -107,7 +107,7 @@
         if hhammo^[slot, ami].Count > 0 then
            ammos[hhammo^[slot, ami].AmmoType]:= hhammo^[slot, ami].Count;
 
-if ammos[ammo] <> AMMO_INFINITE then inc(ammos[ammo]);
+if ammos[ammo] <> AMMO_INFINITE then inc(ammos[ammo], Ammoz[ammo].NumberInCase);
 FillAmmoStore(hhammo, ammos)
 end;