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 | 64 | function GetPlayerIndexFromID(AID : UTF8string): integer; |
| 65 | 65 | function GetPlayerIsPlaying(AID : UTF8string): Boolean; |
| 66 | 66 | function GetPlayersCount: integer; |
| 67 | - function GetInterlockingPorcentageInLastCycles:integer; | |
| 67 | + function GetInterlockingPorcentageInLastCycles:real; | |
| 68 | 68 | function GetConsequenceStringFromChoice(P:TPlayer): Utf8string; |
| 69 | 69 | function GetConsequenceStringFromChoices:UTF8String; |
| 70 | 70 | procedure CheckNeedForRandomTurns; |
| ... | ... | @@ -237,7 +237,7 @@ end; |
| 237 | 237 | |
| 238 | 238 | function TExperiment.GetNextCondition: integer; |
| 239 | 239 | var |
| 240 | - LInterlocks : integer; | |
| 240 | + LInterlocks : real; | |
| 241 | 241 | |
| 242 | 242 | procedure EndCondition; |
| 243 | 243 | begin |
| ... | ... | @@ -356,7 +356,7 @@ begin |
| 356 | 356 | for i :=0 to ContingenciesCount[c] -1 do |
| 357 | 357 | if Contingency[c,i].Meta then |
| 358 | 358 | begin |
| 359 | - LTarget := Contingency[c,i].ContingencyName; | |
| 359 | + LContingencyName := Contingency[c,i].ContingencyName; | |
| 360 | 360 | Break; |
| 361 | 361 | end; |
| 362 | 362 | ... | ... |