anchor.diff:  begin
     P1 := 0;
     P2 := 0;
  -  for K := 1 to 30 do
  +  for K := 1 to 50 do
     begin
       fGame.StartSingleMap(ExtractFilePath(ParamStr(0)) + 'FightTest95.dat', 'Fight Test');
   
       SetKaMSeed(K);
   
  -    TKMUnitWarrior(fPlayers[1].Units[0]).OrderAttackUnit(fPlayers[0].Units[0]);
  +    TKMUnitWarrior(fPlayers[0].Units[0]).OrderAttackUnit(fPlayers[1].Units[0]);
   
       for I := 1 to 1000 do
       begin
  
positive.code:   published
      procedure TestStone;
      procedure TestFight95;
      procedure TestExportCampTextEvents;
    end;
  
  implementation
  
negative.code:       Inc(P2);
      fGame.Stop(gr_Silent);
    end;
    Check(False, IntToStr(P1)+':'+IntToStr(P2)+'Game is unfair?');
  end;
  
  
  