hedgewars/uWorld.pas
changeset 7392 bc3306c59a08
parent 7386 e82a076df09b
child 7442 9bb6abdb5675
equal deleted inserted replaced
7390:27bfd8bbde7e 7392:bc3306c59a08
  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 and (GameType <> gmtRecord) then
  1395 if isInLag 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;