hedgewars/uWorld.pas
changeset 4976 088d40d8aba2
parent 4901 d1e2d82d9ccc
child 5022 d2a2f6c9b236
equal deleted inserted replaced
4974:078cd026a7b1 4976:088d40d8aba2
     1 (*
     1 (*
     2  * Hedgewars, a free turn based strategy game
     2  * Hedgewars, a free turn based strategy game
     3  * Copyright (c) 2004-2010 Andrey Korotaev <unC0Rr@gmail.com>
     3  * Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com>
     4  *
     4  *
     5  * This program is free software; you can redistribute it and/or modify
     5  * This program is free software; you can redistribute it and/or modify
     6  * it under the terms of the GNU General Public License as published by
     6  * it under the terms of the GNU General Public License as published by
     7  * the Free Software Foundation; version 2 of the License
     7  * the Free Software Foundation; version 2 of the License
     8  *
     8  *
  1003    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8);
  1003    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8);
  1004 
  1004 
  1005 // Chat
  1005 // Chat
  1006 DrawChat;
  1006 DrawChat;
  1007 
  1007 
  1008 // confirmation caption
  1008 // various captions
  1009 if fastUntilLag then DrawCentered(0, (cScreenHeight shr 1), SyncTexture);
  1009 if fastUntilLag then DrawCentered(0, (cScreenHeight shr 1), SyncTexture);
  1010 if isPaused then DrawCentered(0, (cScreenHeight shr 1), PauseTexture);
  1010 if isPaused then DrawCentered(0, (cScreenHeight shr 1), PauseTexture);
  1011 if not isFirstFrame and (missionTimer <> 0) or isPaused or fastUntilLag or (GameState = gsConfirm) then
  1011 if not isFirstFrame and (missionTimer <> 0) or isPaused or fastUntilLag or (GameState = gsConfirm) then
  1012     begin
  1012     begin
  1013     if (ReadyTimeLeft = 0) and (missionTimer > 0) then dec(missionTimer, Lag);
  1013     if (ReadyTimeLeft = 0) and (missionTimer > 0) then dec(missionTimer, Lag);