hedgewars/uWorld.pas
changeset 3380 a46a311097af
parent 3376 faee68a28b82
child 3381 f8800c44b3de
equal deleted inserted replaced
3379:f73e0e8e55c2 3380:a46a311097af
   650    with TeamsArray[t]^ do
   650    with TeamsArray[t]^ do
   651       begin
   651       begin
   652       highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
   652       highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
   653       
   653       
   654       if highlight then
   654       if highlight then
   655          Tint(Clan^.Color);
   655          Tint(Clan^.RColor);
   656 
   656 
   657       // draw name
   657       // draw name
   658       DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex);
   658       DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex);
   659       
   659       
   660       // draw flag
   660       // draw flag