hedgewars/uWorld.pas
changeset 3445 1ce844170014
parent 3444 9d501dc22f71
child 3463 23c50be687a9
equal deleted inserted replaced
3444:9d501dc22f71 3445:1ce844170014
   756    with TeamsArray[t]^ do
   756    with TeamsArray[t]^ do
   757       begin
   757       begin
   758       highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
   758       highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
   759       
   759       
   760       if highlight then
   760       if highlight then
   761          Tint(((Clan^.Color shr 16) and $FF), ((Clan^.Color shr 8) and $FF), (Clan^.Color and $FF), $FF);
   761          Tint(Clan^.Color);
   762 
   762 
   763       // draw name
   763       // draw name
   764       DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex);
   764       DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex);
   765       
   765       
   766       // draw flag
   766       // draw flag