equal
deleted
inserted
replaced
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) then |
214 begin |
214 begin |
215 inc(cnt, amt); |
215 cnt:= min(AMMO_FINITE_MAX, cnt + amt); |
216 SetAmmo(Hedgehog, ammo, cnt) |
216 SetAmmo(Hedgehog, ammo, cnt) |
217 end |
217 end |
218 end; |
218 end; |
219 |
219 |
220 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
220 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |