hedgewars/uWorld.pas
changeset 7189 c45b0ef1eb4c
parent 7187 aff30d80bd7b
child 7194 d8e68cbca7ee
child 7237 1bbe31e0d707
equal deleted inserted replaced
7187:aff30d80bd7b 7189:c45b0ef1eb4c
  1510             end;
  1510             end;
  1511         if fpsTexture <> nil then
  1511         if fpsTexture <> nil then
  1512             DrawTexture((cScreenWidth shr 1) - 60 - offsetY, offsetX, fpsTexture);
  1512             DrawTexture((cScreenWidth shr 1) - 60 - offsetY, offsetX, fpsTexture);
  1513         end;
  1513         end;
  1514 
  1514 
  1515     if CountTicks >= 1000 then
       
  1516         CountTicks:= 0;
       
  1517 
       
  1518     // lag warning (?)
  1515     // lag warning (?)
  1519     inc(SoundTimerTicks, Lag);
  1516     inc(SoundTimerTicks, Lag);
  1520 end;
  1517 end;
  1521 
  1518 
  1522 if SoundTimerTicks >= 50 then
  1519 if SoundTimerTicks >= 50 then