anchor.diff:  
       //This tile must not contain fields/houseplans of allied players
       for PL := 0 to gHands.Count - 1 do
  -      if (gHands[fOwner].Alliances[PL] = at_Ally) AND (PL <> fOwner) then
  +      if (gHands[fOwner].Alliances[PL] = at_Ally) then// AND (PL <> fOwner) then
           if (gHands[PL].BuildList.FieldworksList.HasField(KMPoint(X,Y)) <> ft_None) then
             Exit;
     end;
  
positive.code:   fGoldMines := TKMPointList.Create();
    fIronMines := TKMPointList.Create();
    fStoneMiningTiles := TKMPointList.Create();
    fCoalClusters := TKMList.Create();
  
    fArmyPresence := TKMArmyPresence.Create();
  
    POM := TKMPointList.Create();
  
    InitHousesMapping();
  end;
  
negative.code:   X,Y: Integer;
    Loc: TKMPoint;
    VisitArr: TKMByte2Array;
    SearchResource: TKMSearchResource;
  begin
    SetLength(VisitArr, gTerrain.MapY, gTerrain.MapX);
    for Y := Low(VisitArr) to High(VisitArr) do
    for X := Low(VisitArr[Y]) to High(VisitArr[Y]) do
  