hedgewars/uWorld.pas
changeset 4810 76315fdfb7a5
parent 4808 7c3e5b52344a
child 4812 f924be23ffb4
child 4835 a6924450e694
equal deleted inserted replaced
4809:9c7d5f802618 4810:76315fdfb7a5
   731    with TeamsArray[t]^ do
   731    with TeamsArray[t]^ do
   732       begin
   732       begin
   733       highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
   733       highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
   734 
   734 
   735       if highlight then
   735       if highlight then
   736          Tint(Clan^.Color);
   736          Tint(Clan^.Color shl 8 or $FF);
   737 
   737 
   738       // draw name
   738       // draw name
   739       DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex);
   739       DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex);
   740 
   740 
   741       // draw flag
   741       // draw flag