hedgewars/uGearsHedgehog.pas
branch0.9.25
changeset 14367 40dd8eb60d54
parent 14366 2ab312c47dc3
child 14399 352ea82355ae
equal deleted inserted replaced
14366:2ab312c47dc3 14367:40dd8eb60d54
   773             cnt:= Ammoz[ammo].NumberInCase;
   773             cnt:= Ammoz[ammo].NumberInCase;
   774 
   774 
   775         if (ammo = amNothing) or (cnt = 0) then
   775         if (ammo = amNothing) or (cnt = 0) then
   776             s:= trmsg[sidEmptyCrate]
   776             s:= trmsg[sidEmptyCrate]
   777         else if cnt >= AMMO_INFINITE then
   777         else if cnt >= AMMO_INFINITE then
       
   778             // infinity symbol
   778             s:= name + ansistring(' (+' + char($E2) + char($88) + char($9E) +')')
   779             s:= name + ansistring(' (+' + char($E2) + char($88) + char($9E) +')')
   779         else
   780         else
   780             s:= name + ansistring(' (+' + IntToStr(cnt) + ')');
   781             s:= name + ansistring(' (+' + IntToStr(cnt) + ')');
   781 
   782 
   782         AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);
   783         AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);