hedgewars/uAmmos.pas
changeset 2128 903fdb9f44b0
parent 2073 a735c41d97dc
child 2145 fa43619eb3e7
equal deleted inserted replaced
2127:d63f8d05ed41 2128:903fdb9f44b0
    93         cnt:= 0;
    93         cnt:= 0;
    94         Ammoz[a].Probability:= 0 
    94         Ammoz[a].Probability:= 0 
    95         end
    95         end
    96     else if shoppa then      // TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED
    96     else if shoppa then      // TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED
    97         if cnt <> AMMO_INFINITE then
    97         if cnt <> AMMO_INFINITE then
       
    98             begin
    98             if a = amGirder then
    99             if a = amGirder then
    99                 Ammoz[a].Probability:= 0
   100                 Ammoz[a].Probability:= 0
   100             else
   101             else
   101                 Ammoz[a].Probability:= 100;
   102                 Ammoz[a].Probability:= 100;
       
   103             end;
   102     ammos[a]:= cnt
   104     ammos[a]:= cnt
   103     end;
   105     end;
   104 
   106 
   105 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   107 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   106 end;
   108 end;