hedgewars/uAmmos.pas
changeset 2457 ecf0c7e7995b
parent 2453 fdb76012b688
child 2461 5e58b1e3210b
equal deleted inserted replaced
2456:7067544bb15d 2457:ecf0c7e7995b
    97            ((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) then
    97            ((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) then
    98             begin
    98             begin
    99             cnt:= 0;
    99             cnt:= 0;
   100             Ammoz[a].Probability:= 0
   100             Ammoz[a].Probability:= 0
   101             end;
   101             end;
   102         ammos[a]:= cnt
   102         ammos[a]:= cnt;
       
   103         if shoppa then Ammoz[a].NumberInCase:= 1;  // FIXME - TEMPORARY remove when crate number in case editor is added
   103         end else
   104         end else
   104         ammos[a]:= AMMO_INFINITE
   105         ammos[a]:= AMMO_INFINITE
   105     end;
   106     end;
   106 
   107 
   107 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   108 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)