equal
deleted
inserted
replaced
105 for slot:= 0 to cMaxSlotIndex do |
105 for slot:= 0 to cMaxSlotIndex do |
106 for ami:= 0 to cMaxSlotAmmoIndex do |
106 for ami:= 0 to cMaxSlotAmmoIndex do |
107 if hhammo^[slot, ami].Count > 0 then |
107 if hhammo^[slot, ami].Count > 0 then |
108 ammos[hhammo^[slot, ami].AmmoType]:= hhammo^[slot, ami].Count; |
108 ammos[hhammo^[slot, ami].AmmoType]:= hhammo^[slot, ami].Count; |
109 |
109 |
110 if ammos[ammo] <> AMMO_INFINITE then inc(ammos[ammo]); |
110 if ammos[ammo] <> AMMO_INFINITE then inc(ammos[ammo], Ammoz[ammo].NumberInCase); |
111 FillAmmoStore(hhammo, ammos) |
111 FillAmmoStore(hhammo, ammos) |
112 end; |
112 end; |
113 |
113 |
114 procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
114 procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
115 var ami: LongInt; |
115 var ami: LongInt; |