anchor.diff:      function GetMap: TVCMIMap;
       function GetTile(X, Y: Integer): PMapTile; inline;
       procedure SetHeight(AValue: Integer);
  -    procedure SetObjects(AValue: TFilename);
       procedure SetTerrain(AValue: TFilename);
   
       procedure SetWidth(AValue: Integer);
  
positive.code:     i18n: TLocaleManager;
    end;
  
    ///WIP, MULTILEVEL MAP
  
    { TMapLevel }
  
    TMapLevel = class(TNamedCollectionItem)
    strict private
      FHeight: Integer;
      FObjects: TFilename;
      FTerrain: TFilename;
  
      FTiles: array of array of TMapTile; //X, Y
  
negative.code:   if FHeight = AValue then Exit;
    FHeight := AValue;
    Resize();
  end;
  
  procedure TMapLevel.SetTerrain(AValue: TFilename);
  