anchor.diff:      ID,k,ci:integer; t:byte;
       sy,sx,y,x:integer;
   begin
  -  CreateDir(ExeDir+'Export\');
  -  CreateDir(ExeDir+'Export\TreeAnim\');
  +  CreateDir(ExeDir+'Export'+ DirectorySeparator);
  +  CreateDir(ExeDir+'Export'+ DirectorySeparator + 'TreeAnim'+ DirectorySeparator);
     MyBitMap:=TBitMap.Create;
     MyBitMap.PixelFormat:=pf24bit;
   
  -  fResource.LoadMapElemDAT(ExeDir+'data\defines\mapelem.dat');
  -  fResource.LoadRX(ExeDir+'data\gfx\res\'+RXData[1].Title+'.rx',1);
  +  fResource.LoadMapElemDAT(ExeDir+'data'+ DirectorySeparator + 'defines'+ DirectorySeparator + 'mapelem.dat');
  +  fResource.LoadRX(ExeDir+'data'+ DirectorySeparator + 'gfx'+ DirectorySeparator + 'res'+ DirectorySeparator +RXData[1].Title+'.rx',1);
   
     ci:=0;
     for ID:=1 to MapElemQty do begin
  
positive.code:     sy,sx,y,x:integer;
      s:string;
  begin
    CreateDir(ExeDir+'Export\');
    CreateDir(ExeDir+'Export\HouseAnim\');
    MyBitMap:=TBitMap.Create;
    MyBitMap.PixelFormat:=pf24bit;
  
  
negative.code: 
    for i:=low(TKMPal) to high(TKMPal) do begin
  
      FileName := ExeDir+'data'+ DirectorySeparator + 'gfx'+ DirectorySeparator + ''+PalFiles[i];
      if FileExists(FileName) then begin
        AssignFile(f,FileName);
        FileMode := 0;
  