anchor.diff:        Inc(P2);
       fGame.Stop(gr_Silent);
     end;
  -  Check(Abs(P1-P2) < 5, 'Game is unfair?');
  +  Check(False, IntToStr(P1)+':'+IntToStr(P2)+'Game is unfair?');
   end;
   
   
  
positive.code: end;
  
  procedure TestTKMGame.TestStone;
  var I, K: Integer;
  begin
    fGame.StartSingleMap(ExtractFilePath(ParamStr(0)) + 'StoneTest.dat', 'Stone Test');
    Check(fPlayers[0].Stats.GetGoodsProduced = 0);
  
    for I := 1 to 10000 do
    begin
      fGame.UpdateState;
      if fGame.GameState = gsOnHold then
        fGame.GameHold(False, gr_Win);
    end;
  
    Check(fPlayers[0].Stats.GetGoodsProduced > 0, 'StoneMining got broken');
  end;
  
  
  
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
  