Starfield The Perfect Recipe install code for InnoSetup

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "The Perfect Recipe"
#define MyVersionInfo="0.1.0.4"
#define MyAppVersion "v21 11/8/2024"
#define MyAppPublisher "BethesdaGameStudios"
#define MyAppURL "https://creations.bethesda.net/en/starfield/details/daa65855-1e97-495d-aa7d-fd675e40024c/The_Perfect_Recipe"
#define MyAppExeName "PerfectRecipe.exe"

[Setup]
AppId={{B642ECAD-1F90-4E03-BABB-F7FAD0AE4322}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
ArchitecturesAllowed=x64compatible
ArchitecturesInstallIn64BitMode=x64compatible
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
PrivilegesRequiredOverridesAllowed=dialog
OutputBaseFilename=PerfectRecipe
Compression=lzma2
SolidCompression=yes
WizardStyle=modern
LanguageDetectionMethod=UILanguage
DefaultDirName=C:\Games\Starfield.Digital.Premium.Edition-InsaneRamZes\
OutputDir=D:\media\!Downloads\Starfield_mods\PerfectRecipe\
SetupIconFile=D:\media\!Downloads\Starfield_mods\favicon.ico
InfoBeforeFile=D:\media\!Downloads\Starfield_mods\PerfectRecipe\Description_eng.txt
LicenseFile=D:\media\!Downloads\Starfield_mods\!License\mit_eng.txt
VersionInfoVersion={#MyVersionInfo}
AppendDefaultDirName=No

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
Name: "english"; MessagesFile: "compiler:Default.isl"

[Files]
Source: "D:\media\!Downloads\Starfield_mods\PerfectRecipe\The Perfect Recipe v21\sfbgs00c.esm"; DestDir: "{app}\data"; Flags: ignoreversion
Source: "D:\media\!Downloads\Starfield_mods\PerfectRecipe\The Perfect Recipe v21\sfbgs00c - main.ba2"; DestDir: "{app}\data"; Flags: ignoreversion
Source: "D:\media\!Downloads\Starfield_mods\PerfectRecipe\The Perfect Recipe v21\sfbgs00c - textures.ba2"; DestDir: "{app}\data"; Flags: ignoreversion
Source: "D:\media\!Downloads\Starfield_mods\PerfectRecipe\The Perfect Recipe v21\sfbgs00c - voices_de.ba2"; DestDir: "{app}\data"; Flags: ignoreversion
Source: "D:\media\!Downloads\Starfield_mods\PerfectRecipe\The Perfect Recipe v21\sfbgs00c - voices_en.ba2"; DestDir: "{app}\data"; Flags: ignoreversion
Source: "D:\media\!Downloads\Starfield_mods\PerfectRecipe\The Perfect Recipe v21\sfbgs00c - voices_es.ba2"; DestDir: "{app}\data"; Flags: ignoreversion
Source: "D:\media\!Downloads\Starfield_mods\PerfectRecipe\The Perfect Recipe v21\sfbgs00c - voices_fr.ba2"; DestDir: "{app}\data"; Flags: ignoreversion
Source: "D:\media\!Downloads\Starfield_mods\PerfectRecipe\The Perfect Recipe v21\sfbgs00c - voices_ja.ba2"; DestDir: "{app}\data"; Flags: ignoreversion

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

[CustomMessages]
russian.DescriptionFile=Описание на русском.
russian.LicenseFile=Лицензия на русском.
russian.StarfieldIniMissing=Файл "Starfield.ini" не найден в выбранном каталоге. Пожалуйста, выберите корректный каталог.
russian.CreateFolderError=Ошибка. Не удалось создать каталог:
english.DescriptionFile=Description in English.
english.LicenseFile=License in English.
english.StarfieldIniMissing=The file "Starfield.ini" was not found in the selected folder. Please choose the correct folder.
english.CreateFolderError=Error. Failed to create the directory:

[Code]
var
  TargetFolder, TargetFile, PluginEntry: string;
  //DescriptionPath, LicensePath: string;

//Пропишем основные пути и файлы
procedure InitializeGlobals;
begin
  TargetFolder := ExpandConstant('{localappdata}\starfield\');
  TargetFile := TargetFolder + 'plugins.txt';
  PluginEntry := '*sfbgs00c.esm';
  //DescriptionPath := 'D:\media\!Downloads\Starfield_mods\PerfectRecipe\';
 // LicensePath := 'D:\media\!Downloads\Starfield_mods\!License\';
end;

//Проверяем наличие Starfield.ini, чтобы убедиться, что пользователь выбрал корректный каталог с игрой
function CheckStarfieldIni(): Boolean;
var
  IniPath: string;
begin
  IniPath := AddBackslash(WizardForm.DirEdit.Text) + 'Starfield.ini';
  Result := FileExists(IniPath);
  if not Result then
    MsgBox(ExpandConstant('{cm:StarfieldIniMissing}'), mbError, MB_OK);
end;

//Если каталог выбран невереный, то не пускаем дальше
function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  if CurPageID = wpSelectDir then
  begin
    if not CheckStarfieldIni() then
      Result := False;
  end;
end;

//Проверяем наличие каталога и создаём если его нет
procedure EnsureDirectoryExists(Dir: string);
begin
  if not DirExists(Dir) then
  begin
    if not CreateDir(Dir) then
        MsgBox(ExpandConstant('{cm:CreateFolderError}' + Dir), mbError, MB_OK);
  end;
end;

//Создаём пустой файл, если он отсутствует
procedure EnsureFileExists(FileName: string);
begin
  if not FileExists(FileName) then
    TStringList.Create.SaveToFile(FileName);
end;

//Запускаем проверку и создание каталогов/файлов, добавляем строку в файл.
procedure AddPluginEntry;
var
  FileList: TStringList;
begin
  EnsureDirectoryExists(TargetFolder);
  EnsureFileExists(TargetFile);
  FileList := TStringList.Create;
  try
    FileList.LoadFromFile(TargetFile);
    FileList.Duplicates := dupIgnore;
    if FileList.IndexOf(PluginEntry) = -1 then
      FileList.Add(PluginEntry);
    FileList.SaveToFile(TargetFile);
  finally
    FileList.Free;
  end;
end;

//При удалении мода удаляем добавленную строку из файла
procedure RemovePluginEntry;
var
  FileList: TStringList;
  i: Integer;
begin
  if not FileExists(TargetFile) then
    Exit;

  FileList := TStringList.Create;
  try
    FileList.LoadFromFile(TargetFile);
    for i := FileList.Count - 1 downto 0 do
    begin
      if CompareText(FileList[i], PluginEntry) = 0 then
        FileList.Delete(i);
    end;
    FileList.SaveToFile(TargetFile);
  finally
    FileList.Free;
  end;
end;

//При удалении запускаем удаление строки из файла
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then
  begin
    InitializeGlobals;
    RemovePluginEntry;
  end;
end;

//Встроим описание и лицензию
procedure InitializeWizard;
begin
  if ActiveLanguage = 'russian' then
  begin
    WizardForm.LicenseMemo.Lines.Text := 'Copyright (c) 2024 3-50' + #13#10 +
'Данная лицензия разрешает лицам, получившим копию данного программного обеспечения и сопутствующей документации (далее — Программное обеспечение), безвозмездно использовать Программное обеспечение без ограничений, включая неограниченное право на использование, копирование, изменение, слияние, публикацию, распространение, сублицензирование и/или продажу копий Программного обеспечения, а также лицам, которым предоставляется данное Программное обеспечение, при соблюдении следующих условий:' + #13#10 +
'Указанное выше уведомление об авторском праве и данные условия должны быть включены во все копии или значимые части данного Программного обеспечения.' + #13#10 +
'ДАННОЕ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ПРЕДОСТАВЛЯЕТСЯ «КАК ЕСТЬ», БЕЗ КАКИХ-ЛИБО ГАРАНТИЙ, ЯВНО ВЫРАЖЕННЫХ ИЛИ ПОДРАЗУМЕВАЕМЫХ, ВКЛЮЧАЯ ГАРАНТИИ ТОВАРНОЙ ПРИГОДНОСТИ, СООТВЕТСТВИЯ ПО ЕГО КОНКРЕТНОМУ НАЗНАЧЕНИЮ И ОТСУТСТВИЯ НАРУШЕНИЙ, НО НЕ ОГРАНИЧИВАЯСЬ ИМИ. НИ В КАКОМ СЛУЧАЕ АВТОРЫ ИЛИ ПРАВООБЛАДАТЕЛИ НЕ НЕСУТ ОТВЕТСТВЕННОСТИ ПО КАКИМ-ЛИБО ИСКАМ, ЗА УЩЕРБ ИЛИ ПО ИНЫМ ТРЕБОВАНИЯМ, В ТОМ ЧИСЛЕ, ПРИ ДЕЙСТВИИ КОНТРАКТА, ДЕЛИКТЕ ИЛИ ИНОЙ СИТУАЦИИ, ВОЗНИКШИМ ИЗ-ЗА ИСПОЛЬЗОВАНИЯ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ ИЛИ ИНЫХ ДЕЙСТВИЙ С ПРОГРАММНЫМ ОБЕСПЕЧЕНИЕМ.';
    WizardForm.InfoBeforeMemo.Lines.Text := 'Идеальный рецепт v21' + #13#10 +
'https://creations.bethesda.net/en/starfield/details/daa65855-1e97-495d-aa7d-fd675e40024c/The_Perfect_Recipe' + #13#10 +
'В книжном магазине Sinclair`s Books в городе Акила можно найти множество историй. Одна из них рассказывает о многообещающем шеф-поваре, чью жизнь разрушила Колониальная война.' + #13#10 +
'Теперь, спустя десятилетия, он размышляет о пути, которым не пошёл.' + #13#10 +
 + #13#10 +
'Cпасибо Wolverines за предоставленные файлы.' + #13#10 +
 + #13#10 +
'Инсталлятор v1.04 делает следующее:' + #13#10 +
'1. В каталог DATA игры копируются файлы: ' + #13#10 +
'sfbgs00c.esm, sfbgs00c - main.ba2, sfbgs00c - textures.ba2, fbgs00c - voices_de.ba2, sfbgs00c - voices_en.ba2, sfbgs00c - voices_es.ba2, sfbgs00c - voices_fr.ba2, sfbgs00c - voices_ja.ba2;' + #13#10 +
'2. По умолчанию используется путь: C:\Games\Starfield.Digital.Premium.Edition-InsaneRamZes' + #13#10 +
'ВАЖНО: Если у вас в другом, то укажите (указывать надо каталог с игрой);' + #13#10 +
'3. Для активации мода в файл plugins.txt, который находится здесь %localappdata%\starfield, добавляется строка "*sfbgs00c.esm". Если файл или каталог отсутствуют, то они создаются;' + #13#10 +
'4. Запускать от администратора требуется, если игра находится в каталогах типа program files;' + #13#10 +
'5. При удалении мода внесённые изменения откатываются;' + #13#10 +
'6. ВАЖНО: при игре с модами достижения отключаются, для их включения нужно установить Baka Achievement Enabler (SFSE) (https://www.nexusmods.com/starfield/mods/658).' + #13#10 +
 + #13#10 +
'Исходный код для InnoSetup 6.*' + #13#10 +
'https://pastebin.com/PcCXBLX6'

  end
  else
  begin
    WizardForm.LicenseMemo.Lines.Text := 'Copyright (c) 2024 3-50' + #13#10 +
    'Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:' + #13#10 +
    'The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.' + #13#10 +
    'THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.';
    WizardForm.InfoBeforeMemo.Lines.Text := 'The Perfect Recipe v21' + #13#10 +
'https://creations.bethesda.net/en/starfield/details/daa65855-1e97-495d-aa7d-fd675e40024c/The_Perfect_Recipe' + #13#10 +
'You can find many a story at Sinclair`s Books in Akila City. One tells of a promising chef who had his life derailed by the Colony War.' + #13#10 +
'Now, decades later, he ponders the road not taken.' + #13#10 +
 + #13#10 +
'Thanks to Wolverines for the provided files.' + #13#10 +
 + #13#10 +
'The installer v1.04 performs the following actions:' + #13#10 +
'1. Copies the files to the game`s DATA directory:' + #13#10 +
'sfbgs00c.esm, sfbgs00c - main.ba2, sfbgs00c - textures.ba2, sfbgs00c - voices_de.ba2, sfbgs00c - voices_en.ba2,sfbgs00c - voices_es.ba2, sfbgs00c - voices_fr.ba2,sfbgs00c - voices_ja.ba2;' + #13#10 +
'2. By default, the path is set to C:\Games\Starfield.Digital.Premium.Edition-InsaneRamZes.' + #13#10 +
'IMPORTANT: If your game is located elsewhere, you must specify the correct directory (the exact folder containing the game).' + #13#10 +
'3. To activate a mod, a line "*sfbgs00c.esm" enabling the mod is added to the plugins.txt file located here: %localappdata%\starfield. If the file or directory is missing, they will be created.' + #13#10 +
'4. Administrator rights are required if the game is installed in system directories like Program Files.' + #13#10 +
'5. When uninstalling the mod, all changes made by the installer are reverted.' + #13#10 +
'6. IMPORTANT: Playing with mods disables achievements. To re-enable them, you must install Baka Achievement Enabler (SFSE) (https://www.nexusmods.com/starfield/mods/658).' + #13#10 +
 + #13#10 +
'Source Code for InnoSetup 6.*' + #13#10 +
'https://pastebin.com/PcCXBLX6'

  end;
end;

function InitializeSetup: Boolean;
begin
  InitializeGlobals;
  AddPluginEntry;
  Result := True;
end;