hedgewars/hwengine.pas
changeset 6734 9709d15dabfa
parent 6700 e04da46ee43c
child 6863 4d1ce4b4f7c6
--- a/hedgewars/hwengine.pas	Thu Feb 23 18:41:52 2012 +0400
+++ b/hedgewars/hwengine.pas	Thu Feb 23 12:58:17 2012 -0500
@@ -51,8 +51,7 @@
 procedure DoTimer(Lag: LongInt);
 var s: shortstring;
 begin
-    if isPaused = false then
-        inc(RealTicks, Lag);
+    inc(RealTicks, Lag);
 
     case GameState of
         gsLandGen:
@@ -88,20 +87,14 @@
             begin
             DrawWorld(Lag); // never place between ProcessKbd and DoGameTick - bugs due to /put cmd and isCursorVisible
             ProcessKbd;
-            if not isPaused then
-                begin
-                DoGameTick(Lag);
-                ProcessVisualGears(Lag);
-                end;
+            DoGameTick(Lag);
+            ProcessVisualGears(Lag);
             end;
         gsChat:
             begin
             DrawWorld(Lag);
-            if not isPaused then
-                begin
-                DoGameTick(Lag);
-                ProcessVisualGears(Lag);
-                end;
+            DoGameTick(Lag);
+            ProcessVisualGears(Lag);
             end;
         gsExit:
             begin