hedgewars/uAmmos.pas
changeset 2073 a735c41d97dc
parent 2061 0f99aa28b9f4
child 2128 903fdb9f44b0
equal deleted inserted replaced
2072:6e0fcbcc3f60 2073:a735c41d97dc
    92         begin
    92         begin
    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 not cnt = AMMO_INFINITE then
    97         if cnt <> AMMO_INFINITE then
    98             begin
       
    99             if a = amGirder then
    98             if a = amGirder then
   100                 Ammoz[a].Probability:= 0
    99                 Ammoz[a].Probability:= 0
   101             else
   100             else
   102                 Ammoz[a].Probability:= 100
   101                 Ammoz[a].Probability:= 100;
   103             end;
       
   104     ammos[a]:= cnt
   102     ammos[a]:= cnt
   105     end;
   103     end;
   106 
   104 
   107 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   105 FillAmmoStore(StoresList[Pred(StoreCnt)], ammos)
   108 end;
   106 end;