From 282baa7ee4c2bfbd0461d6413b651416281279e1 Mon Sep 17 00:00:00 2001
From: cpicanco <cpicanco42@gmail.com>
Date: Sat, 31 Dec 2016 17:32:39 -0300
Subject: [PATCH] runner: fix empty login bug

---
 experiment_runner/units/game_control.pas    | 6 +++++-
 experiment_runner/units/game_experiment.pas | 1 +
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/experiment_runner/units/game_control.pas b/experiment_runner/units/game_control.pas
index f99152f..cd580ca 100644
--- a/experiment_runner/units/game_control.pas
+++ b/experiment_runner/units/game_control.pas
@@ -1269,9 +1269,13 @@ procedure TGameControl.ReceiveRequest(var ARequest: TStringList);
   end;
 
 begin
-  if FExperiment.State = xsRunning then
+  if FExperiment.State = xsWaiting then
     begin
       if MHas(K_LOGIN) then ReplyLoginRequest;
+    end;
+
+  if FExperiment.State = xsRunning then
+    begin
       if MHas(K_RESUME) then ReplyResume;
       if MHas(K_CHOICE) then ValidateChoice;
       if MHas(K_QUESTION) then ValidateQuestionResponse;
diff --git a/experiment_runner/units/game_experiment.pas b/experiment_runner/units/game_experiment.pas
index 52eb6f5..fa971a3 100644
--- a/experiment_runner/units/game_experiment.pas
+++ b/experiment_runner/units/game_experiment.pas
@@ -817,6 +817,7 @@ begin
   FRegData := TRegData.Create(Self, LDataPath+'000.data');
   FRegChat := TRegData.Create(Self, LDataPath+'000.chat');
   WriteReportHeader;
+  State := xsWaiting;
 end;
 
 function TExperiment.LoadFromGenerator: Boolean;
--
libgit2 0.21.2