From 14577beec527fa7372dce5d36a6f32b987e49285 Mon Sep 17 00:00:00 2001
From: cpicanco <cpicanco42@gmail.com>
Date: Fri, 2 Dec 2016 19:11:54 -0300
Subject: [PATCH] fix typos, preparing for tests

---
 units/game_experiment.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/units/game_experiment.pas b/units/game_experiment.pas
index b865817..abccb0b 100644
--- a/units/game_experiment.pas
+++ b/units/game_experiment.pas
@@ -64,7 +64,7 @@ type
     function GetPlayerIndexFromID(AID : UTF8string): integer;
     function GetPlayerIsPlaying(AID : UTF8string): Boolean;
     function GetPlayersCount: integer;
-    function GetInterlockingPorcentageInLastCycles:integer;
+    function GetInterlockingPorcentageInLastCycles:real;
     function GetConsequenceStringFromChoice(P:TPlayer): Utf8string;
     function GetConsequenceStringFromChoices:UTF8String;
     procedure CheckNeedForRandomTurns;
@@ -237,7 +237,7 @@ end;
 
 function TExperiment.GetNextCondition: integer;
 var
-  LInterlocks : integer;
+  LInterlocks : real;
 
   procedure EndCondition;
   begin
@@ -356,7 +356,7 @@ begin
   for i :=0 to ContingenciesCount[c] -1 do
     if Contingency[c,i].Meta then
       begin
-        LTarget := Contingency[c,i].ContingencyName;
+        LContingencyName := Contingency[c,i].ContingencyName;
         Break;
       end;
 
--
libgit2 0.21.2