hedgewars/uWorld.pas
changeset 5485 e943a005d0e8
parent 5380 6ba1e40a360c
child 5495 272ed78e59a7
child 5521 3be9fda5c3c2
equal deleted inserted replaced
5484:1adde4aaedea 5485:e943a005d0e8
   969          DrawFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex);
   969          DrawFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex);
   970          end;
   970          end;
   971       end;
   971       end;
   972 if smallScreenOffset <> 0 then
   972 if smallScreenOffset <> 0 then
   973     begin
   973     begin
   974     SetScale(zoom);
   974     SetScale(cDefaultZoomLevel);
   975     if TeamsCount * 20 > cScreenHeight div 5 then Tint($FF,$FF,$FF,$FF);
   975     if TeamsCount * 20 > cScreenHeight div 5 then Tint($FF,$FF,$FF,$FF);
   976     end;
   976     end;
   977 
   977 
   978 // Lag alert
   978 // Lag alert
   979 if isInLag then DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12);
   979 if isInLag then DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12);