equal
deleted
inserted
replaced
182 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
182 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
183 var cnt: LongWord; |
183 var cnt: LongWord; |
184 a: PAmmo; |
184 a: PAmmo; |
185 begin |
185 begin |
186 a:= GetAmmoEntry(Hedgehog, ammo); |
186 a:= GetAmmoEntry(Hedgehog, ammo); |
187 cnt:= a^.Count; |
187 if (a^.AmmoType <> amNothing) then cnt:= a^.Count |
188 if (a^.AmmoType = amNothing) or (cnt <> AMMO_INFINITE) then |
188 else cnt:= 0; |
|
189 if (cnt <> AMMO_INFINITE) then |
189 begin |
190 begin |
190 inc(cnt, Ammoz[ammo].NumberInCase); |
191 inc(cnt, Ammoz[ammo].NumberInCase); |
191 AddAmmo(Hedgehog, ammo, cnt) |
192 AddAmmo(Hedgehog, ammo, cnt) |
192 end |
193 end |
193 end; |
194 end; |