fix report bug - unrecorded metacontingencies

Carlos Picanco
1 parent d7d6b5c9
Showing 1 changed file with 2 additions and 2 deletions Show diff stats
units/game_control.pas
@@ -941,6 +941,8 @@ procedure TGameControl.ReceiveRequest(var ARequest: TStringList);
  
     // update turn
     LEndCycle := ShouldEndCycle;
+    if LEndCycle then
+      LConsequences := FExperiment.ConsequenceStringFromChoices;// AsString generates the pts result; must be called before next cycle
     P.Turn := FExperiment.NextTurn;
     FExperiment.Player[FExperiment.PlayerIndexFromID[P.ID]] := P;
  
@@ -949,8 +951,6 @@ procedure TGameControl.ReceiveRequest(var ARequest: TStringList);
     ARequest.Append(S);                //6
     if LEndCycle then // >7 = EndCycle
       begin
-
-        LConsequences := FExperiment.ConsequenceStringFromChoices;// AsString generates the pts result
         ARequest.Append(LConsequences); //7
  
         if ShouldAskQuestion then  // DONE: prompt only when an odd row was selected
...	...	@@ -941,6 +941,8 @@ procedure TGameControl.ReceiveRequest(var ARequest: TStringList);
941	941
942	942	// update turn
943	943	LEndCycle := ShouldEndCycle;
	944	+ if LEndCycle then
	945	+ LConsequences := FExperiment.ConsequenceStringFromChoices;// AsString generates the pts result; must be called before next cycle
944	946	P.Turn := FExperiment.NextTurn;
945	947	FExperiment.Player[FExperiment.PlayerIndexFromID[P.ID]] := P;
946	948
...	...	@@ -949,8 +951,6 @@ procedure TGameControl.ReceiveRequest(var ARequest: TStringList);
949	951	ARequest.Append(S); //6
950	952	if LEndCycle then // >7 = EndCycle
951	953	begin
952		-
953		- LConsequences := FExperiment.ConsequenceStringFromChoices;// AsString generates the pts result
954	954	ARequest.Append(LConsequences); //7
955	955
956	956	if ShouldAskQuestion then // DONE: prompt only when an odd row was selected
...	...