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