# HG changeset patch
# User unc0rr
# Date 1457982279 -10800
# Node ID dc8de75747f99d378cd66a4322c78cf47914fbbf
# Parent  4df32636a4b2982a4372d4a93081f7c7eb083751
Do not check games lasting for more than 3 hours

diff -r 4df32636a4b2 -r dc8de75747f9 hedgewars/uGame.pas
--- a/hedgewars/uGame.pas	Mon Mar 14 14:38:23 2016 +0100
+++ b/hedgewars/uGame.pas	Mon Mar 14 22:04:39 2016 +0300
@@ -31,6 +31,7 @@
      {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF}, uDebug;
 
 procedure DoGameTick(Lag: LongInt);
+const maxCheckedGameDuration = 3*60*60*1000;
 var i,j : LongInt;
     s: ansistring;
 begin
@@ -63,7 +64,15 @@
             else Lag:= Lag*80;
             end
         else if cOnlyStats then
-            Lag:= High(LongInt)
+            begin
+                if GameTicks >= maxCheckedGameDuration then
+                begin
+                    gameState:= gsExit;
+                    exit;
+                end;
+
+            Lag:= maxCheckedGameDuration + 60000;
+            end;
     end;
 
 if cTestLua then