anchor.diff:    Result := FAllowedSpells;
   end;
   
  +function TVCMIMap.GetCurrentLevel: Integer;
  +begin
  +  Result := FCurrentLevel;
  +end;
  +
   function TVCMIMap.GetTile(Level, X, Y: Integer): TMapTile;
   begin
     Result := (FTerrain[Level][X][Y]); //todo: check
  
positive.code:     lm: TListsManager;
    end;
  
    { TVCMIMap }
  
    TVCMIMap = class (TPersistent, IFPObserver)
  
negative.code:     procedure RenderTerrain(Left, Right, Top, Bottom: Integer);
      procedure RenderObjects(Left, Right, Top, Bottom: Integer);
  
      property CurrentLevel: Integer read GetCurrentLevel write SetCurrentLevel;
  
      procedure SaveToStream(ADest: TStream; AWriter: IMapWriter);
  
  