recflare-client/RecFlareSetup.iss

; RecFlare installer - GUI equivalent of download.bat.
; Build with Inno Setup 6.1+ (https://jrsoftware.org/isinfo.php):
;   iscc RecFlareSetup.iss
; Output: Output\RecFlareSetup.exe

[Setup]
AppId={{8E1D2A7B-6C43-4F0A-9B7E-3D5F80C21A96}
AppName=RecFlare
AppVersion=20230414
AppPublisher=RecFlare project
AppSupportURL=https://github.com/djdevin/recflare
DefaultDirName={sd}\Games\RecFlare
PrivilegesRequired=lowest
; tar.exe ships with Windows 10 1803+; the downloads and extraction depend on it
MinVersion=10.0.17134
WizardStyle=modern
SetupIconFile=icon.ico
UninstallDisplayIcon={app}\icon.ico
DisableProgramGroupPage=yes
OutputBaseFilename=RecFlareSetup
SolidCompression=yes
UninstallDisplayName=RecFlare

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"

[Files]
Source: "icon.ico"; DestDir: "{app}"; Flags: ignoreversion
Source: "RecRoomScreen.bat"; DestDir: "{app}"; Flags: ignoreversion
Source: "RecRoomVR.bat"; DestDir: "{app}"; Flags: ignoreversion
; Points the client at the RecFlare server. Always overwrite so reinstalls pick
; up server changes; to use your own instance, fork and edit this file, then
; rebuild the installer (see README "Custom server").
Source: "BepInEx\config\net.rec.plugin.cfg"; DestDir: "{app}\BepInEx\config"; Flags: ignoreversion

[Icons]
Name: "{autoprograms}\RecFlare (Desktop mode)"; Filename: "{app}\recroom.exe"; Parameters: "+forcemode:screen"; WorkingDir: "{app}"; IconFilename: "{app}\icon.ico"
Name: "{autoprograms}\RecFlare (VR)"; Filename: "{app}\recroom.exe"; Parameters: "+forcemode:vr"; WorkingDir: "{app}"; IconFilename: "{app}\icon.ico"
Name: "{autodesktop}\RecFlare (Desktop mode)"; Filename: "{app}\recroom.exe"; Parameters: "+forcemode:screen"; WorkingDir: "{app}"; IconFilename: "{app}\icon.ico"; Tasks: desktopicon
Name: "{autodesktop}\RecFlare (VR)"; Filename: "{app}\recroom.exe"; Parameters: "+forcemode:vr"; WorkingDir: "{app}"; IconFilename: "{app}\icon.ico"; Tasks: desktopicon

[UninstallDelete]
; The game files are downloaded, not installed, so Inno does not track them;
; remove the whole folder on uninstall.
Type: filesandordirs; Name: "{app}"

[Code]
const
  ClientMD5 = '4c4a94624eba99028bb36445ccb03253';
  ClientURL = 'https://s3.g.megas4.com/2koayuyiwxv4groxzwdbbxg43cwustavrkvfb/recflare/client.zip';
  DepotDownloaderURL = 'https://github.com/SteamRE/DepotDownloader/releases/download/DepotDownloader_3.4.0/DepotDownloader-windows-x64.zip';
  BepInExURL = 'https://github.com/BepInEx/BepInEx/releases/download/v6.0.0-pre.2/BepInEx-Unity.IL2CPP-win-x64-6.0.0-pre.2.zip';
  PluginURL = 'https://github.com/djdevin/recnet-plugin/releases/download/20230414.2/RecNetPlugin.dll';

var
  SourcePage: TInputOptionWizardPage;
  SteamPage: TInputQueryWizardPage;
  DownloadPage: TDownloadWizardPage;
  ReuseLocalClientZip: Boolean;

function UsingSteam: Boolean;
begin
  Result := SourcePage.Values[0];
end;

function OnDownloadProgress(const Url, FileName: String; const Progress, ProgressMax: Int64): Boolean;
begin
  if Progress = ProgressMax then
    Log(Format('Downloaded %s', [FileName]));
  Result := True;
end;

procedure InitializeWizard;
begin
  SourcePage := CreateInputOptionPage(wpSelectDir,
    'Game client source', 'Where should the game files come from?',
    'Setup needs a copy of the Rec Room game client. Pick the option that applies to you, then click Next.',
    True, False);
  SourcePage.Add('I have Rec Room in my Steam library - download it from Steam');
  SourcePage.Add('I do not have it on Steam - download from the community mirror');
  SourcePage.SelectedValueIndex := 0;

  SteamPage := CreateInputQueryPage(SourcePage.ID,
    'Steam sign-in', 'How should the Steam download sign in?',
    'Enter your Steam username, or leave it blank to sign in by scanning a QR code with the Steam mobile app. ' +
    'A separate Steam window will open during installation to finish signing in; ' +
    'this installer never sees your password.');
  SteamPage.Add('Steam username (optional):', False);

  DownloadPage := CreateDownloadPage(SetupMessage(msgWizardPreparing),
    SetupMessage(msgPreparingDesc), @OnDownloadProgress);
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := (PageID = SteamPage.ID) and not UsingSteam;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  if CurPageID = wpReady then begin
    DownloadPage.Clear;
    ReuseLocalClientZip := False;
    if UsingSteam then
      DownloadPage.Add(DepotDownloaderURL, 'DepotDownloader.zip', '')
    else begin
      { A client.zip left behind by download.bat (or a previous run) is reused
        when it matches the expected hash, like the .bat does. }
      if FileExists(ExpandConstant('{app}\client.zip')) and
         SameText(GetMD5OfFile(ExpandConstant('{app}\client.zip')), ClientMD5) then
        ReuseLocalClientZip := True
      else
        DownloadPage.Add(ClientURL, 'client.zip', '');
    end;
    DownloadPage.Add(BepInExURL, 'BepInEx.zip', '');
    DownloadPage.Add(PluginURL, 'RecNetPlugin.dll', '');
    DownloadPage.Show;
    try
      try
        DownloadPage.Download;
        if not UsingSteam and not ReuseLocalClientZip and
           not SameText(GetMD5OfFile(ExpandConstant('{tmp}\client.zip')), ClientMD5) then begin
          SuppressibleMsgBox('The downloaded game client did not match the expected checksum. ' +
            'Please run Setup again.', mbCriticalError, MB_OK, IDOK);
          Result := False;
        end;
      except
        if DownloadPage.AbortedByUser then
          Log('Download aborted by user.')
        else
          SuppressibleMsgBox(AddPeriod(GetExceptionMessage), mbCriticalError, MB_OK, IDOK);
        Result := False;
      end;
    finally
      DownloadPage.Hide;
    end;
  end;
end;

procedure SetPreparingStatus(const Msg: String);
begin
  WizardForm.PreparingLabel.Visible := True;
  WizardForm.PreparingLabel.Caption := Msg;
  WizardForm.Refresh;
end;

function ExtractZip(const ZipPath, DestDir: String): Boolean;
var
  ResultCode: Integer;
begin
  Result := ForceDirectories(DestDir) and
    Exec(ExpandConstant('{sys}\tar.exe'), Format('-xf "%s" -C "%s"', [ZipPath, DestDir]),
      '', SW_HIDE, ewWaitUntilTerminated, ResultCode) and (ResultCode = 0);
end;

function RunDepotDownloader(var ErrorMsg: String): Boolean;
var
  Args: String;
  ResultCode: Integer;
begin
  Result := False;
  if not ExtractZip(ExpandConstant('{tmp}\DepotDownloader.zip'), ExpandConstant('{tmp}\DepotDownloader')) then begin
    ErrorMsg := 'Could not extract DepotDownloader.';
    Exit;
  end;
  Args := '-app 471710 -depot 471711 -manifest 6426603215211043630 -remember-password' +
    ' -dir "' + ExpandConstant('{app}') + '"';
  if Trim(SteamPage.Values[0]) <> '' then
    Args := Args + ' -username "' + Trim(SteamPage.Values[0]) + '"'
  else
    Args := Args + ' -qr';
  SetPreparingStatus('Downloading the game from Steam - follow the sign-in steps in the window that just opened...');
  if not Exec(ExpandConstant('{tmp}\DepotDownloader\DepotDownloader.exe'), Args,
      ExpandConstant('{tmp}\DepotDownloader'), SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode)
     or (ResultCode <> 0) then begin
    ErrorMsg := 'The Steam download did not complete (exit code ' + IntToStr(ResultCode) + '). ' +
      'Check that your sign-in succeeded and that Rec Room is in your Steam library, then run Setup again.';
    Exit;
  end;
  Result := True;
end;

function PrepareToInstall(var NeedsRestart: Boolean): String;
var
  ClientZip: String;
begin
  Result := '';
  if not ForceDirectories(ExpandConstant('{app}')) then begin
    Result := 'Could not create the installation folder.';
    Exit;
  end;

  if UsingSteam then begin
    if not RunDepotDownloader(Result) then
      Exit;
  end else begin
    if ReuseLocalClientZip then
      ClientZip := ExpandConstant('{app}\client.zip')
    else
      ClientZip := ExpandConstant('{tmp}\client.zip');
    SetPreparingStatus('Extracting the game client (this can take a few minutes)...');
    if not ExtractZip(ClientZip, ExpandConstant('{app}')) then begin
      Result := 'Could not extract the game client archive.';
      Exit;
    end;
  end;

  SetPreparingStatus('Installing BepInEx...');
  if not ExtractZip(ExpandConstant('{tmp}\BepInEx.zip'), ExpandConstant('{app}')) then begin
    Result := 'Could not extract BepInEx.';
    Exit;
  end;

  if not SaveStringToFile(ExpandConstant('{app}\steam_appid.txt'), '480', False) then begin
    Result := 'Could not write steam_appid.txt.';
    Exit;
  end;

  if not ForceDirectories(ExpandConstant('{app}\BepInEx\plugins')) or
     not FileCopy(ExpandConstant('{tmp}\RecNetPlugin.dll'),
       ExpandConstant('{app}\BepInEx\plugins\RecNetPlugin.dll'), False) then begin
    Result := 'Could not install RecNetPlugin.dll.';
    Exit;
  end;
end;