anchor.diff:  unit KM_Terrain;
   {$I KaM_Remake.inc}
   interface
  -uses
  +uses
     Classes, KromUtils, Math, SysUtils, Graphics,
     KM_CommonClasses, KM_Defaults, KM_Points, KM_Utils, KM_ResTileset,
     KM_ResHouses, KM_ResWares, KM_TerrainFinder, KM_ResMapElements;
  
positive.code:   Land[Y, X].Obj := aObject;
    case aObject of
  
      55..58:
        if CanAddField(X, Y, ft_Wine) then
        begin
           SetField(KMPoint(X, Y), -1, ft_Wine);
  
negative.code:   or TileIsWineField(KMPoint(X, Y)) or TileIsCornField(KMPoint(X, Y))
    //Is there a house/site near this object?
    or HousesNearObject
    //Is this object allowed to be placed - like in KaM Editor?
    or not AllowableObject then
    begin
      Result := False;
  