equal
deleted
inserted
replaced
208 a:= GetAmmoEntry(Hedgehog, ammo); |
208 a:= GetAmmoEntry(Hedgehog, ammo); |
209 if (a^.AmmoType <> amNothing) then |
209 if (a^.AmmoType <> amNothing) then |
210 cnt:= a^.Count |
210 cnt:= a^.Count |
211 else |
211 else |
212 cnt:= 0; |
212 cnt:= 0; |
213 if (cnt <> AMMO_INFINITE) then |
213 if (cnt >= AMMO_INFINITE) or (amt >= AMMO_INFINITE) then |
214 begin |
214 cnt:= AMMO_INFINITE |
|
215 else |
215 cnt:= min(AMMO_FINITE_MAX, cnt + amt); |
216 cnt:= min(AMMO_FINITE_MAX, cnt + amt); |
216 SetAmmo(Hedgehog, ammo, cnt) |
217 SetAmmo(Hedgehog, ammo, cnt); |
217 end |
|
218 end; |
218 end; |
219 |
219 |
220 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
220 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
221 begin |
221 begin |
222 AddAmmo(Hedgehog, ammo, Ammoz[ammo].NumberInCase); |
222 AddAmmo(Hedgehog, ammo, Ammoz[ammo].NumberInCase); |