hedgewars/HHHandlers.inc
changeset 2854 7aac108149d9
parent 2853 953a6d71396f
child 2856 cc70797a0b75
equal deleted inserted replaced
2853:953a6d71396f 2854:7aac108149d9
   312        posCaseAmmo: begin
   312        posCaseAmmo: begin
   313                     a:= TAmmoType(Gear^.State);
   313                     a:= TAmmoType(Gear^.State);
   314                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);
   314                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);
   315 // Possibly needs to check shared clan ammo game flag once added.
   315 // Possibly needs to check shared clan ammo game flag once added.
   316 // On the other hand, no obvious reason that clan members shouldn't know what ammo another clan member picked up
   316 // On the other hand, no obvious reason that clan members shouldn't know what ammo another clan member picked up
       
   317 AddFileLog(inttostr(PHedgehog(HH^.Hedgehog)^.Team^.Clan^.ClanIndex) + ' --------- ' + inttostr(LocalClan));
   317                     if (not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven 
   318                     if (not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven 
   318                       or (PHedgehog(HH^.Hedgehog)^.Team^.Clan^.ClanIndex = LocalClan-1)
       
   319                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)))
   319                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)))
       
   320                     or (PHedgehog(HH^.Hedgehog)^.Team^.Clan^.ClanIndex = LocalClan)
   320                     or (GameType = gmtDemo)  then
   321                     or (GameType = gmtDemo)  then
   321                        begin
   322                        begin
   322                        s:= trammo[Ammoz[a].NameId] + '(+' + IntToStr(Ammoz[a].NumberInCase) + ')';
   323                        s:= trammo[Ammoz[a].NameId] + '(+' + IntToStr(Ammoz[a].NumberInCase) + ')';
   323                        AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Clan^.Color, capgrpAmmoinfo);
   324                        AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Clan^.Color, capgrpAmmoinfo);
   324                        end
   325                        end