hedgewars/uGearsHedgehog.pas
branch0.9.25
changeset 14366 2ab312c47dc3
parent 14282 6015b74eea55
child 14367 40dd8eb60d54
equal deleted inserted replaced
14365:a7769dbd7088 14366:2ab312c47dc3
   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             s:= name + ansistring(' (+∞)')
   778             s:= name + ansistring(' (+' + char($E2) + char($88) + char($9E) +')')
   779         else
   779         else
   780             s:= name + ansistring(' (+' + IntToStr(cnt) + ')');
   780             s:= name + ansistring(' (+' + IntToStr(cnt) + ')');
   781 
   781 
   782         AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);
   782         AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);
   783 
   783