anchor.diff:      procedure SetParameters(aIdv: TGAIndividual; aLogIt: Boolean = False); override;
     end;
   
  +  TKMRunnerGA_Farm = class(TKMRunnerGA_Common)
  +  protected
  +    procedure InitGAParameters(); override;
  +    procedure SetParameters(aIdv: TGAIndividual; aLogIt: Boolean = False); override;
  +  end;
  +
  +  TKMRunnerGA_Quarry = class(TKMRunnerGA_Common)
  +  protected
  +    procedure InitGAParameters(); override;
  +    procedure SetParameters(aIdv: TGAIndividual; aLogIt: Boolean = False); override;
  +  end;
  +
     TKMRunnerGA_CityRoadPlanner = class(TKMRunnerGA_Common)
     protected
       procedure InitGAParameters(); override;
  
positive.code: 
    gGameApp.StopGame(grSilent);
  end;
  
  
  { TKMRunnerAIBuild }
  
negative.code: 
    gGameApp.StopGame(grSilent);
  end;
  
  
  
  
  { TKMStabilityTest }
  