equal
deleted
inserted
replaced
20 |
20 |
21 unit uAmmos; |
21 unit uAmmos; |
22 interface |
22 interface |
23 uses uConsts, uTeams, uStats; |
23 uses uConsts, uTeams, uStats; |
24 |
24 |
25 procedure init_uAmmos; |
25 procedure initModule; |
26 procedure free_uAmmos; |
26 procedure freeModule; |
27 |
27 |
28 procedure AddAmmoStore(s: shortstring); |
28 procedure AddAmmoStore(s: shortstring); |
29 procedure AssignStores; |
29 procedure AssignStores; |
30 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
30 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
31 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
31 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
366 end; |
366 end; |
367 for t:= Low(TAmmoType) to High(TAmmoType) do |
367 for t:= Low(TAmmoType) to High(TAmmoType) do |
368 if Ammoz[t].SkipTurns >= 10000 then dec(Ammoz[t].SkipTurns,10000); |
368 if Ammoz[t].SkipTurns >= 10000 then dec(Ammoz[t].SkipTurns,10000); |
369 end; |
369 end; |
370 |
370 |
371 procedure init_uAmmos; |
371 procedure initModule; |
372 begin |
372 begin |
373 shoppa:= false; |
373 shoppa:= false; |
374 StoreCnt:= 0 |
374 StoreCnt:= 0 |
375 end; |
375 end; |
376 |
376 |
377 procedure free_uAmmos; |
377 procedure freeModule; |
378 var i: LongWord; |
378 var i: LongWord; |
379 begin |
379 begin |
380 if StoreCnt > 0 then |
380 if StoreCnt > 0 then |
381 for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]); |
381 for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]); |
382 StoreCnt:= 0 |
382 StoreCnt:= 0 |