hedgewars/uGearsHedgehog.pas
changeset 12463 3223ae85fba3
parent 12431 031af5544333
child 12464 39d780f9bf35
equal deleted inserted replaced
12462:4cc83b26b35c 12463:3223ae85fba3
   686         begin
   686         begin
   687         if length(trluaammo[Ammoz[ammo].NameId]) > 0 then
   687         if length(trluaammo[Ammoz[ammo].NameId]) > 0 then
   688             name:= trluaammo[Ammoz[ammo].NameId]
   688             name:= trluaammo[Ammoz[ammo].NameId]
   689         else
   689         else
   690             name:= trammo[Ammoz[ammo].NameId];
   690             name:= trammo[Ammoz[ammo].NameId];
   691         if cnt <> 0 then
   691         if cnt >= AMMO_INFINITE then
       
   692             s:= name + ansistring(' (+∞)')
       
   693         else if cnt <> 0 then
   692             s:= name + ansistring(' (+' + IntToStr(cnt) + ')')
   694             s:= name + ansistring(' (+' + IntToStr(cnt) + ')')
   693         else
   695         else
   694             s:= name + ansistring(' (+' + IntToStr(Ammoz[ammo].NumberInCase) + ')');
   696             s:= name + ansistring(' (+' + IntToStr(Ammoz[ammo].NumberInCase) + ')');
   695         AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);
   697         AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);
   696 
   698