hedgewars/uGearsHedgehog.pas
changeset 11847 38e7206a5df4
parent 11822 4600dcb9db4f
child 11848 6a0d6b00dac8
equal deleted inserted replaced
11846:6bf91006d630 11847:38e7206a5df4
   658     vga: PVisualGear;
   658     vga: PVisualGear;
   659 begin
   659 begin
   660     if cnt <> 0 then AddAmmo(HH, ammo, cnt)
   660     if cnt <> 0 then AddAmmo(HH, ammo, cnt)
   661     else AddAmmo(HH, ammo);
   661     else AddAmmo(HH, ammo);
   662 
   662 
   663     if (not (HH.Team^.ExtDriven
   663     if IsHogLocal(@HH) or (GameType = gmtDemo)  then
   664     or (HH.BotLevel > 0)))
       
   665     or (HH.Team^.Clan^.ClanIndex = LocalClan)
       
   666     or (GameType = gmtDemo)  then
       
   667         begin
   664         begin
   668         if cnt <> 0 then
   665         if cnt <> 0 then
   669             s:= trammo[Ammoz[ammo].NameId] + ansistring(' (+' + IntToStr(cnt) + ')')
   666             s:= trammo[Ammoz[ammo].NameId] + ansistring(' (+' + IntToStr(cnt) + ')')
   670         else
   667         else
   671             s:= trammo[Ammoz[ammo].NameId] + ansistring(' (+' + IntToStr(Ammoz[ammo].NumberInCase) + ')');
   668             s:= trammo[Ammoz[ammo].NameId] + ansistring(' (+' + IntToStr(Ammoz[ammo].NumberInCase) + ')');