hedgewars/uWorld.pas
changeset 11913 232b57a70aca
parent 11912 d3a852554aa7
child 11916 38fa4583e7f3
equal deleted inserted replaced
11912:d3a852554aa7 11913: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;