hedgewars/uScript.pas
changeset 4890 e8f2935f2c84
parent 4889 f71e30eb1d37
child 4891 43706c0392e7
equal deleted inserted replaced
4889:f71e30eb1d37 4890:e8f2935f2c84
   569             begin
   569             begin
   570             team:= clan^.Teams[i];
   570             team:= clan^.Teams[i];
   571             for j:= 0 to 7 do
   571             for j:= 0 to 7 do
   572                 begin
   572                 begin
   573                 hh:= team^.Hedgehogs[i];
   573                 hh:= team^.Hedgehogs[i];
   574                 if (hh.Gear <> nil) and (hh.GearHidden <> nil) then 
   574                 if (hh.Gear <> nil) or (hh.GearHidden <> nil) then 
   575                     begin
   575                     begin
   576                     FreeTexture(hh.NameTagTex);
   576                     FreeTexture(hh.NameTagTex);
   577                     hh.NameTagTex:= RenderStringTex(hh.Name, clan^.Color, fnt16);
   577                     hh.NameTagTex:= RenderStringTex(hh.Name, clan^.Color, fnt16);
   578                     RenderHealth(hh);
   578                     RenderHealth(hh);
   579                     end;
   579                     end;