hedgewars/uGearsHedgehog.pas
changeset 10123 64e72781d344
parent 10116 dd27562b6f21
child 10124 aabd1b75d5a3
equal deleted inserted replaced
10122:cefede760264 10123:64e72781d344
   646     or (HH.BotLevel > 0)))
   646     or (HH.BotLevel > 0)))
   647     or (HH.Team^.Clan^.ClanIndex = LocalClan)
   647     or (HH.Team^.Clan^.ClanIndex = LocalClan)
   648     or (GameType = gmtDemo)  then
   648     or (GameType = gmtDemo)  then
   649         begin
   649         begin
   650         if cnt <> 0 then
   650         if cnt <> 0 then
   651             s:= trammo[Ammoz[ammo].NameId] + ' (+' + IntToStr(cnt) + ')'
   651             s:= trammo[Ammoz[ammo].NameId] + ansistring(' (+' + IntToStr(cnt) + ')')
   652         else
   652         else
   653             s:= trammo[Ammoz[ammo].NameId] + ' (+' + IntToStr(Ammoz[ammo].NumberInCase) + ')';
   653             s:= trammo[Ammoz[ammo].NameId] + ansistring(' (+' + IntToStr(Ammoz[ammo].NumberInCase) + ')');
   654         AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);
   654         AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);
   655 
   655 
   656         // show ammo icon
   656         // show ammo icon
   657         vga:= AddVisualGear(X, Y, vgtAmmo);
   657         vga:= AddVisualGear(X, Y, vgtAmmo);
   658         if vga <> nil then
   658         if vga <> nil then