equal
deleted
inserted
replaced
20 |
20 |
21 unit uAmmos; |
21 unit uAmmos; |
22 interface |
22 interface |
23 uses uConsts, uTeams; |
23 uses uConsts, uTeams; |
24 |
24 |
|
25 procedure free_uAmmos; |
25 procedure AddAmmoStore(s: shortstring); |
26 procedure AddAmmoStore(s: shortstring); |
26 procedure AssignStores; |
27 procedure AssignStores; |
27 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
28 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
28 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
29 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
29 procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
30 procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
314 |
315 |
315 for t:= Low(TAmmoType) to High(TAmmoType) do |
316 for t:= Low(TAmmoType) to High(TAmmoType) do |
316 if (Ammoz[t].Ammo.Propz and ammoprop_NotBorder) <> 0 then Ammoz[t].Probability:= 0 |
317 if (Ammoz[t].Ammo.Propz and ammoprop_NotBorder) <> 0 then Ammoz[t].Probability:= 0 |
317 end; |
318 end; |
318 |
319 |
|
320 procedure free_uAmmos; |
|
321 var i: LongWord; |
|
322 begin |
|
323 for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]); |
|
324 StoreCnt:= 0 |
|
325 end; |
|
326 |
319 end. |
327 end. |