hedgewars/uWorld.pas
changeset 11917 d819c04d0cbe
parent 11916 38fa4583e7f3
child 11939 c7ec309cd685
equal deleted inserted replaced
11916:38fa4583e7f3 11917:d819c04d0cbe
  1423     offsetX:= cScreenHeight - 13;
  1423     offsetX:= cScreenHeight - 13;
  1424 {$ELSE}
  1424 {$ELSE}
  1425     offsetX:= 48;
  1425     offsetX:= 48;
  1426 {$ENDIF}
  1426 {$ENDIF}
  1427     offsetY:= cOffsetY;
  1427     offsetY:= cOffsetY;
  1428     if ((TurnTimeLeft <> 0) and (TurnTimeLeft < 1000000)) or (ReadyTimeLeft <> 0) then
  1428     if ((TurnTimeLeft <> 0) and (TurnTimeLeft < 999000)) or (ReadyTimeLeft <> 0) then
  1429         begin
  1429         begin
  1430         if ReadyTimeLeft <> 0 then
  1430         if ReadyTimeLeft <> 0 then
  1431             i:= Succ(Pred(ReadyTimeLeft) div 1000)
  1431             i:= Succ(Pred(ReadyTimeLeft) div 1000)
  1432         else
  1432         else
  1433             i:= Succ(Pred(TurnTimeLeft) div 1000);
  1433             i:= Succ(Pred(TurnTimeLeft) div 1000);