hedgewars/uWorld.pas
changeset 11918 232b57a70aca
parent 11917 d3a852554aa7
child 11921 38fa4583e7f3
equal deleted inserted replaced
11917:d3a852554aa7 11918:232b57a70aca
  1442         while i > 0 do
  1442         while i > 0 do
  1443             begin
  1443             begin
  1444             dec(t, 32);
  1444             dec(t, 32);
  1445             if (ReadyTimeLeft <> 0) then
  1445             if (ReadyTimeLeft <> 0) then
  1446                 spr := sprBigDigitGreen
  1446                 spr := sprBigDigitGreen
       
  1447             else if IsGetAwayTime then
       
  1448                 spr := sprBigDigitRed
  1447             else
  1449             else
  1448                 spr := sprBigDigit;
  1450                 spr := sprBigDigit;
  1449             DrawSprite(spr, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, i mod 10);
  1451             DrawSprite(spr, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, i mod 10);
  1450             i:= i div 10
  1452             i:= i div 10
  1451             end;
  1453             end;