hedgewars/uGearsHedgehog.pas
changeset 12600 ef780eda6e48
parent 12492 47be9f3e61e9
child 12649 2837dee472cc
equal deleted inserted replaced
12599:95f0e475ca8e 12600:ef780eda6e48
   691 
   691 
   692         if cnt = 0 then
   692         if cnt = 0 then
   693             cnt:= Ammoz[ammo].NumberInCase;
   693             cnt:= Ammoz[ammo].NumberInCase;
   694 
   694 
   695         if (ammo = amNothing) or (cnt = 0) then
   695         if (ammo = amNothing) or (cnt = 0) then
   696             s:= ansistring(trmsg[sidEmptyCrate])
   696             s:= trmsg[sidEmptyCrate]
   697         else if cnt >= AMMO_INFINITE then
   697         else if cnt >= AMMO_INFINITE then
   698             s:= name + ansistring(' (+∞)')
   698             s:= name + ansistring(' (+∞)')
   699         else
   699         else
   700             s:= name + ansistring(' (+' + IntToStr(cnt) + ')');
   700             s:= name + ansistring(' (+' + IntToStr(cnt) + ')');
   701 
   701