1745 t:= aTot;

  1745 t:= aTot;

  1746 i:= Low(TAmmoType);

  1746 i:= Low(TAmmoType);

  1747 if (t > 0) then

  1747 if (t > 0) then

  1748     begin

  1748     begin

  1749     t:= GetRandom(t);

  1749     t:= GetRandom(t);

  1751     while t >= 0 do

  1750     while t >= 0 do

  1752       begin

  1751       begin

  1753       inc(i);

  1752       inc(i);

  1754       if (Ammoz[i].Ammo.Propz and ammoprop_Utility) = 0 then

  1753       if (Ammoz[i].Ammo.Propz and ammoprop_Utility) = 0 then

  1755           dec(t, Ammoz[i].Probability)

  1754           dec(t, Ammoz[i].Probability)