anchor.diff:    Status('Done in ' + IntToStr(GetTickCount - T) + ' ms');
   
     fGameApp.Game.Save('StoneTest');
  -  Check(fPlayers[0].Stats.GetGoodsProduced >= 3800, 'StoneMining got broken? Mined '+IntToStr(fPlayers[0].Stats.GetGoodsProduced)+'/3800');
  +  Check(fPlayers[0].Stats.GetGoodsProduced >= 4140 * 0.9, 'StoneMining got broken? Mined '+IntToStr(fPlayers[0].Stats.GetGoodsProduced)+'/3800');
   end;
   
   
  
positive.code: 
    T := GetTickCount;
  
    for I := 1 to 60*60*10 do
    begin
      fGameApp.Game.UpdateGame(nil);
      if fGameApp.Game.IsPaused then
  
negative.code: var
    I, K: Integer;
    Victory1, Victory2: Integer;
    Best1, Best2, Worst1, Worst2: Integer;
  begin
    Victory1 := 0;
    Victory2 := 0;
    Best1 := 0;
    Best2 := 0;
    Worst1 := 100;
    Worst2 := 100;
    for K := 1 to 50 do
    begin
      fGameApp.NewEmptyMap(128, 128);
      SetKaMSeed(K);
      //fPlayers[0].AddUnitGroup(ut_Cavalry, KMPoint(63, 64), dir_E, 8, 24);
      //fPlayers[1].AddUnitGroup(ut_Swordsman, KMPoint(65, 64), dir_W, 8, 24);
  
      fPlayers[1].AddUnitGroup(ut_Swordsman, KMPoint(63, 64), dir_E, 8, 24);
      fPlayers[0].AddUnitGroup(ut_Hallebardman, KMPoint(65, 64), dir_W, 8, 24);
  
      //fPlayers[0].AddUnitGroup(ut_Hallebardman, KMPoint(63, 64), dir_E, 8, 24);
      //fPlayers[1].AddUnitGroup(ut_Cavalry, KMPoint(65, 64), dir_W, 8, 24);
  
      TKMUnitWarrior(fPlayers[1].Units[0]).OrderAttackUnit(fPlayers[0].Units[0]);
  
      for I := 1 to 1000 do
      begin
  