anchor.diff:  
   initialization
     RegisterRunner(TKMRunnerDesyncTest);
  +  RegisterRunner(TKMRunnerAAIPerformanceTest);
     RegisterRunner(TKMRunnerPushModes);
     RegisterRunner(TKMRunnerGA_TestParRun);
     RegisterRunner(TKMRunnerGA_HandLogistics);
  
positive.code: end;
  
  
  
  
  { TKMRunnerStone }
  
negative.code:     procedure Tick_GIPRandom;
      procedure Reset;
      function GetSaveDir(aSaveName: string): string;
      procedure Log(const aString: string);
    protected
      procedure SetUp(); override;
      procedure TearDown(); override;
      procedure Execute(aRun: Integer); override;
    end;
  
  
    TKMRunnerAAIPerformanceTest = class(TKMRunnerCommon)
    private
      fBestScore, fWorstScore, fAverageScore: Double;
      fMap: string;
      fRun: Integer;
      fStartTime: Cardinal;
      procedure Reset;
      procedure Log(const aString: string);
    protected
      procedure SetUp(); override;
  