hedgewars/uWorld.pas
changeset 7386 e82a076df09b
parent 7373 d5ec4e4eb2d5
child 7392 bc3306c59a08
equal deleted inserted replaced
7383:8f675ab05802 7386:e82a076df09b
  1390     if TeamsCount * 20 > Longword(cScreenHeight) div 5 then
  1390     if TeamsCount * 20 > Longword(cScreenHeight) div 5 then
  1391         Tint($FF,$FF,$FF,$FF);
  1391         Tint($FF,$FF,$FF,$FF);
  1392     end;
  1392     end;
  1393 
  1393 
  1394 // Lag alert
  1394 // Lag alert
  1395 if isInLag then
  1395 if isInLag and (GameType <> gmtRecord) then
  1396     DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12);
  1396     DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12);
  1397 
  1397 
  1398 // Wind bar
  1398 // Wind bar
  1399 {$IFDEF USE_TOUCH_INTERFACE}
  1399 {$IFDEF USE_TOUCH_INTERFACE}
  1400     offsetX:= cScreenHeight - 13;
  1400     offsetX:= cScreenHeight - 13;