anchor.diff:      procedure ProcessFSConfig(AConfig: TFilesystemConfig; ARootPath: TStrings);
   
       procedure LoadFSConfig;
  +    procedure GenerateGamepath;
       procedure ScanFilesystem;
   
       procedure AddModPathsTo(sl:TStrings);
  
positive.code: var
    s: String;
    i: Integer;
  
  begin
    s := GetPrivateConfigPath+GAME_PATH_CONFIG;
    if FileExistsUTF8(s) then
    begin
      FGamePath.LoadFromFile(s);
    end
    else begin
      FGamePath.Append(ExtractFilePath(ParamStr(0)));
    end;
  
    for i := 0 to FGamePath.Count - 1 do
  
negative.code:   finally
      config_res.Free;
    end;
  end;
  
  procedure TFSManager.GenerateGamepath;
  {$IFDEF WIN32}
  var
    s: String;
  {$ENDIF}
  begin
    FGamePath.Append(ExtractFilePath(ParamStr(0)));
    {$IFDEF WIN32}
  
      s:= GetEnvironmentVariable('HOMEDRIVE') + GetEnvironmentVariable('HOMEPATH');
  
      s := IncludeTrailingPathDelimiter(s);
  
      FGamePath.Append(s + 'Documents\My Games\vcmi');
  
    {$ENDIF}
  
  end;
  
  procedure TFSManager.LoadGameConfig;
  