Download as
Browse Code »

Commit 282baa7ee4c2bfbd0461d6413b651416281279e1

Authored by Carlos Picanco
1 parent 89ed8897
Exists in master

runner: fix empty login bug

Showing 2 changed files with 6 additions and 1 deletions   Show diff stats
experiment_runner/units/game_control.pas
  Diff comments   View file @282baa7
@@ -1269,9 +1269,13 @@ procedure TGameControl.ReceiveRequest(var ARequest: TStringList); @@ -1269,9 +1269,13 @@ procedure TGameControl.ReceiveRequest(var ARequest: TStringList);
1269 end; 1269 end;
1270 1270
1271 begin 1271 begin
1272 - if FExperiment.State = xsRunning then 1272 + if FExperiment.State = xsWaiting then
1273 begin 1273 begin
1274 if MHas(K_LOGIN) then ReplyLoginRequest; 1274 if MHas(K_LOGIN) then ReplyLoginRequest;
  1275 + end;
  1276 +
  1277 + if FExperiment.State = xsRunning then
  1278 + begin
1275 if MHas(K_RESUME) then ReplyResume; 1279 if MHas(K_RESUME) then ReplyResume;
1276 if MHas(K_CHOICE) then ValidateChoice; 1280 if MHas(K_CHOICE) then ValidateChoice;
1277 if MHas(K_QUESTION) then ValidateQuestionResponse; 1281 if MHas(K_QUESTION) then ValidateQuestionResponse;
experiment_runner/units/game_experiment.pas
  Diff comments   View file @282baa7
@@ -817,6 +817,7 @@ begin @@ -817,6 +817,7 @@ begin
817 FRegData := TRegData.Create(Self, LDataPath+'000.data'); 817 FRegData := TRegData.Create(Self, LDataPath+'000.data');
818 FRegChat := TRegData.Create(Self, LDataPath+'000.chat'); 818 FRegChat := TRegData.Create(Self, LDataPath+'000.chat');
819 WriteReportHeader; 819 WriteReportHeader;
  820 + State := xsWaiting;
820 end; 821 end;
821 822
822 function TExperiment.LoadFromGenerator: Boolean; 823 function TExperiment.LoadFromGenerator: Boolean;