anchor.diff:            if (Y < gTerrain.MapY - 1) AND (tpWalk in gTerrain.Land[Y+1,X].Passability) then
               fStoneMiningTiles.Add(KMPoint(X,Y));
           end;
  -        //else if (gTerrain.ObjectIsChopableTree(X, Y)) then
  -        //  VisitArr[Y,X] := TREE_NUM;
         end;
     finally
       SearchResource.Free();
     end;
  -
  -  GetForests(fInitForests, True);
   end;
   
   
  
positive.code:     procedure Load(LoadStream: TKMemoryStream);
  
      property HousesMapping: THouseMappingArray read fHousesMapping write fHousesMapping;
      property InitForests: TKMPointTagList read fInitForests write fInitForests;
      property ArmyEvaluation: TKMArmyEvaluation read fArmyEvaluation;
      property PolygonRoutes: TKMByteArray read fPolygonRoutes;
  
  
negative.code:   fGoldMines.LoadFromStream(LoadStream);
    fIronMines.LoadFromStream(LoadStream);
    fStoneMiningTiles.LoadFromStream(LoadStream);
  
    LoadByteArr(fPolygonRoutes);
    LoadByteArr(fCoalPolygons);
  