hedgewars/uAmmos.pas
changeset 2360 d4d545da9dbe
parent 2357 babe1a55e284
child 2364 272977d2df53
equal deleted inserted replaced
2359:76d853f22afa 2360:d4d545da9dbe
   105                     Ammoz[a].Probability:= 100;
   105                     Ammoz[a].Probability:= 100;
   106                     Ammoz[a].NumberInCase:= 1;
   106                     Ammoz[a].NumberInCase:= 1;
   107                     end
   107                     end
   108                 end;
   108                 end;
   109         ammos[a]:= cnt
   109         ammos[a]:= cnt
   110         end
   110         end else
       
   111             ammos[a]:= AMMO_INFINITE
   111     end;
   112     end;
   112 
   113 
   113 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   114 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   114 end;
   115 end;
   115 
   116