hedgewars/uAmmos.pas
changeset 4808 7c3e5b52344a
parent 4807 180dbfb13903
child 4976 088d40d8aba2
equal deleted inserted replaced
4807:180dbfb13903 4808:7c3e5b52344a
    92     if a <> amNothing then
    92     if a <> amNothing then
    93         begin
    93         begin
    94         Ammoz[a].Probability:= probability[byte(ammoProbability[ord(a)]) - byte('0')];
    94         Ammoz[a].Probability:= probability[byte(ammoProbability[ord(a)]) - byte('0')];
    95         Ammoz[a].SkipTurns:= (byte(ammoDelay[ord(a)]) - byte('0'));
    95         Ammoz[a].SkipTurns:= (byte(ammoDelay[ord(a)]) - byte('0'));
    96         Ammoz[a].NumberInCase:= (byte(ammoReinforcement[ord(a)]) - byte('0'));
    96         Ammoz[a].NumberInCase:= (byte(ammoReinforcement[ord(a)]) - byte('0'));
    97         if (TrainingFlags and tfIgnoreDelays) <> 0 then Ammoz[a].SkipTurns:= 0;
       
    98         cnt:= byte(ammoLoadout[ord(a)]) - byte('0');
    97         cnt:= byte(ammoLoadout[ord(a)]) - byte('0');
    99         // avoid things we already have infinite number
    98         // avoid things we already have infinite number
   100         if cnt = 9 then
    99         if cnt = 9 then
   101             begin
   100             begin
   102             cnt:= AMMO_INFINITE;
   101             cnt:= AMMO_INFINITE;