145             (Ammoz[a].SkipTurns < 10000) then inc(Ammoz[a].SkipTurns,10000)

   145             (Ammoz[a].SkipTurns < 10000) then inc(Ammoz[a].SkipTurns,10000)

   146         end 

   146         end 

   147     else ammos[a]:= AMMO_INFINITE;

   147     else ammos[a]:= AMMO_INFINITE;

   148     InitialCounts[Pred(StoreCnt)][a]:= ammos[a];

   148     InitialCounts[Pred(StoreCnt)][a]:= ammos[a];

   149     end;

   149     end;

   153 end;

   151 end;

   154 

   152 

   155 function GetAmmoByNum(num: Longword): PHHAmmo;

   153 function GetAmmoByNum(num: Longword): PHHAmmo;

   156 begin

   154 begin

   157 TryDo(num < StoreCnt, 'Invalid store number', true);

   155 TryDo(num < StoreCnt, 'Invalid store number', true);