hedgewars/uWorld.pas
changeset 7644 ed7fecd0f5fd
parent 7503 deaeac102355
child 7645 0e3c2dd9fee6
equal deleted inserted replaced
7643:97b98bcfd056 7644:ed7fecd0f5fd
  1305         Tint($FF,$FF,$FF,$80);
  1305         Tint($FF,$FF,$FF,$80);
  1306     end
  1306     end
  1307 else smallScreenOffset:= 0;
  1307 else smallScreenOffset:= 0;
  1308 for t:= 0 to Pred(TeamsCount) do
  1308 for t:= 0 to Pred(TeamsCount) do
  1309     with TeamsArray[t]^ do
  1309     with TeamsArray[t]^ do
       
  1310       if TeamHealth > 0 then
  1310         begin
  1311         begin
  1311         h:= 0;
  1312         h:= 0;
  1312         highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
  1313         highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500);
  1313 
  1314 
  1314         if highlight then
  1315         if highlight then