hedgewars/uAmmos.pas
changeset 2246 4f138785a3ff
parent 2221 ef52dae4130b
child 2357 babe1a55e284
equal deleted inserted replaced
2245:c011aecc95e5 2246:4f138785a3ff
    97         if cnt <> AMMO_INFINITE then
    97         if cnt <> AMMO_INFINITE then
    98             begin
    98             begin
    99             if a = amGirder then
    99             if a = amGirder then
   100                 Ammoz[a].Probability:= 0
   100                 Ammoz[a].Probability:= 0
   101             else
   101             else
       
   102                 begin
   102                 Ammoz[a].Probability:= 100;
   103                 Ammoz[a].Probability:= 100;
       
   104                 Ammoz[a].NumberInCase:= 1;
       
   105                 end
   103             end;
   106             end;
   104     ammos[a]:= cnt
   107     ammos[a]:= cnt
   105     end;
   108     end;
   106 
   109 
   107 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   110 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)