Commit 14577beec527fa7372dce5d36a6f32b987e49285
1 parent
05800e43
Exists in
master
fix typos, preparing for tests
Showing
1 changed file
with
3 additions
and
3 deletions
Show diff stats
units/game_experiment.pas
| @@ -64,7 +64,7 @@ type | @@ -64,7 +64,7 @@ type | ||
| 64 | function GetPlayerIndexFromID(AID : UTF8string): integer; | 64 | function GetPlayerIndexFromID(AID : UTF8string): integer; |
| 65 | function GetPlayerIsPlaying(AID : UTF8string): Boolean; | 65 | function GetPlayerIsPlaying(AID : UTF8string): Boolean; |
| 66 | function GetPlayersCount: integer; | 66 | function GetPlayersCount: integer; |
| 67 | - function GetInterlockingPorcentageInLastCycles:integer; | 67 | + function GetInterlockingPorcentageInLastCycles:real; |
| 68 | function GetConsequenceStringFromChoice(P:TPlayer): Utf8string; | 68 | function GetConsequenceStringFromChoice(P:TPlayer): Utf8string; |
| 69 | function GetConsequenceStringFromChoices:UTF8String; | 69 | function GetConsequenceStringFromChoices:UTF8String; |
| 70 | procedure CheckNeedForRandomTurns; | 70 | procedure CheckNeedForRandomTurns; |
| @@ -237,7 +237,7 @@ end; | @@ -237,7 +237,7 @@ end; | ||
| 237 | 237 | ||
| 238 | function TExperiment.GetNextCondition: integer; | 238 | function TExperiment.GetNextCondition: integer; |
| 239 | var | 239 | var |
| 240 | - LInterlocks : integer; | 240 | + LInterlocks : real; |
| 241 | 241 | ||
| 242 | procedure EndCondition; | 242 | procedure EndCondition; |
| 243 | begin | 243 | begin |
| @@ -356,7 +356,7 @@ begin | @@ -356,7 +356,7 @@ begin | ||
| 356 | for i :=0 to ContingenciesCount[c] -1 do | 356 | for i :=0 to ContingenciesCount[c] -1 do |
| 357 | if Contingency[c,i].Meta then | 357 | if Contingency[c,i].Meta then |
| 358 | begin | 358 | begin |
| 359 | - LTarget := Contingency[c,i].ContingencyName; | 359 | + LContingencyName := Contingency[c,i].ContingencyName; |
| 360 | Break; | 360 | Break; |
| 361 | end; | 361 | end; |
| 362 | 362 |