anchor.diff:  end;
   
   procedure TestTKMGame.TestStone;
  -var I, K: Integer;
  +var I: Integer;
   begin
     fGame.StartSingleMap(ExtractFilePath(ParamStr(0)) + 'StoneTest.dat', 'Stone Test');
     Check(fPlayers[0].Stats.GetGoodsProduced = 0);
   
  -  for I := 1 to 10000 do
  +  for I := 1 to 100000 do
     begin
       fGame.UpdateState;
       if fGame.GameState = gsOnHold then
         fGame.GameHold(False, gr_Win);
     end;
   
  -  Check(fPlayers[0].Stats.GetGoodsProduced > 0, 'StoneMining got broken');
  +  fGame.Save('StoneTest');
  +  Check(fPlayers[0].Stats.GetGoodsProduced >= 3810, 'StoneMining got broken');
   end;
   
   
  
positive.code:   published
      procedure TestStone;
      procedure TestFight95;
      procedure TestExportCampTextEvents;
    end;
  
  implementation
  
negative.code: begin
    P1 := 0;
    P2 := 0;
    for K := 1 to 50 do
    begin
      fGame.StartSingleMap(ExtractFilePath(ParamStr(0)) + 'FightTest95.dat', 'Fight Test');
  
      SetKaMSeed(K);
  
      TKMUnitWarrior(fPlayers[0].Units[0]).OrderAttackUnit(fPlayers[1].Units[0]);
  
      for I := 1 to 1000 do
      begin
  