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 1269 end;
1270 1270  
1271 1271 begin
1272   - if FExperiment.State = xsRunning then
  1272 + if FExperiment.State = xsWaiting then
1273 1273 begin
1274 1274 if MHas(K_LOGIN) then ReplyLoginRequest;
  1275 + end;
  1276 +
  1277 + if FExperiment.State = xsRunning then
  1278 + begin
1275 1279 if MHas(K_RESUME) then ReplyResume;
1276 1280 if MHas(K_CHOICE) then ValidateChoice;
1277 1281 if MHas(K_QUESTION) then ValidateQuestionResponse;
... ...
experiment_runner/units/game_experiment.pas
  Diff comments   View file @282baa7
... ... @@ -817,6 +817,7 @@ begin
817 817 FRegData := TRegData.Create(Self, LDataPath+'000.data');
818 818 FRegChat := TRegData.Create(Self, LDataPath+'000.chat');
819 819 WriteReportHeader;
  820 + State := xsWaiting;
820 821 end;
821 822  
822 823 function TExperiment.LoadFromGenerator: Boolean;
... ...