anchor.diff:  { TKMArmyEvaluation assets}
   constructor TKMEvaluation.Create;
   begin
  -  fEmemyIndex := 0;
  +  fEnemyIndex := 0;
     Reset;
   end;
   
  
positive.code:       Eval.fUnitTypesPower[i] := 0.0;
        continue;
      end;
      UnitSum := 0.0;
      for j := ut_Militia to ut_Barbarian do begin
        EnemyQty := Stats.GetUnitQty(j);
        if EnemyQty <> 0 then
          UnitSum := UnitSum + SelfQty * UnitStatEvals[i,j,1] / EnemyQty * (EnemyQty / EnemySize);
      end;
      Eval.fUnitTypesPower[i] := UnitSum;
      Eval.fPower := Eval.fPower + Eval.fUnitTypesPower[i];
    end;
  end;
  
negative.code: procedure TKMArmyEvaluation.EvaluatePower(Stats : TKMPlayerStats; PlayerIndex : TPlayerIndex);
  var
    SelfStats : TKMPlayerStats;
    Eval : TKMEvaluation;
    i, j : TUnitType;
    EnemyQty, SelfQty : Integer;
    PowerSum : Single;
  begin
    SelfStats := (fSelfPlayer as TKMPlayer).Stats;
    Eval := fEvals[PlayerIndex];
    Eval.fPower := 0.0;
    for i := ut_Militia to ut_Barbarian do begin
      SelfQty := SelfStats.GetUnitQty(i);
  