PasteShr

New Paste Browse

arcanum 2560x1440
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
 
#define MyAppName "Arcanum HD Cinematics PL"
#define MyAppVersion "2.0"
 
#define MyAppPublisher "Eselter"

#define BeveledLabel "by Eselter"

#define SourceDir "SourceDir\Spolszczenie filmów"
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
#define MyAppExeName "Arcanum.exe"

#define FileName800x600 "Arcanum_HD_Cinematics_800x600.7z"
#define FileNamePrev800x600 "Arcanum_HD_Cinematics_800x600.1.7z"
#define FileUrl800x600 "https://www.moddb.com/downloads/start/281270"
#define FileHash800x600 "eb32385df88f52012f640a3733fd4b41316f23cf00b24f6c0ce80a3d933eef3a"

#define FileName1280x720 "Arcanum_HD_Cinematics_1280x720.7z"
#define FileUrl1280x720 "https://www.moddb.com/downloads/start/281316"
#define FileHash1280x720 "d62aba92467876f57ac81dd70d8cd99df2ec2ee3e9ebe51409ef36ffb6423387"
arcanum 2560x1440 PasteShr arcanum 2560x1440

#define FileName1920x1080 "Arcanum_HD_Cinematics_1920x1080.7z"
#define FileUrl1920x1080 "https://www.moddb.com/downloads/start/281317"
#define FileHash1920x1080 "b5a79f9cc817ce08f76858a7ef9f87c8f90712f5cf605567d9668ce85b663b5b"

#define FileName2560x1440 "Arcanum_HD_Cinematics_2560x1440.7z"
#define FileUrl2560x1440 "https://www.moddb.com/downloads/start/281334"
#define FileHash2560x1440 "149f3302ef77c46a7a5e5237b3c4c31b907c58b486a175d4af8859108e561c0e"

#define FileName3840x2160 "Arcanum_HD_Cinematics_3840x2160.7z"
arcanum 2560x1440 How to use it? arcanum 2560x1440
#define FileUrl3840x2160 "https://www.moddb.com/downloads/start/281335"
#define FileHash3840x2160 "e4f7d76ad0fe0e8514f3aa83bce945a97830a059ff6f35df6a8d2f372e5b093d"
 
[Setup]
AppId=ArcanumHDCinematicsPL
AppName={#MyAppName}
VersionInfoDescription={#MyAppName}
VersionInfoOriginalFileName=Arcanum_HD_Cinematics_PL.exe
VersionInfoCopyright={#MyAppPublisher}
VersionInfoVersion=2.0.0.0
arcanum 2560x1440 How to get it? arcanum 2560x1440
AppVersion={#MyAppVersion}
AppVerName={#MyAppName}
AppPublisher={#MyAppPublisher}
DefaultDirName={code:GetInstallationPath}
AppendDefaultDirName=no
AllowNoIcons=yes
DisableProgramGroupPage=yes
OutputBaseFilename=Arcanum_HD_Cinematics_PL
SetupIconFile=icon.ico
Compression=lzma2/ultra64
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
InternalCompressLevel=ultra64
LZMANumFastBytes=273
LZMADictionarySize=90112
LZMAUseSeparateProcess=yes
SolidCompression=yes
DiskSpanning=no
UsePreviousLanguage=yes
UsePreviousAppDir=yes
Uninstallable=yes
UninstallDisplayIcon={app}\{#MyAppExeName}
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
DisableDirPage=no
DirExistsWarning=no
WizardStyle=classic
WizardResizable=no
WizardSmallImageFile=55x55.bmp
WizardImageFile=164x314.bmp
InfoBeforeFile=InfoBeforeFile.rtf
ShowComponentSizes=no

[Languages]
arcanum 2560x1440 How to get it for free? arcanum 2560x1440
Name: "polish"; MessagesFile: "compiler:Languages\Polish.isl"
;Name: "english"; MessagesFile: "compiler:Default.isl"
 
[Messages]
BeveledLabel={#BeveledLabel}
 
[CustomMessages]
polish.GameFolderName=Gry
polish.LaunchProgram=Uruchom %1
polish.Open=Otwórz %1
arcanum 2560x1440 How to get it? arcanum 2560x1440

polish.MainDesc=Polskie napisy dla HD Cinematics
polish.ToDownload=do pobrania
polish.DeleteIntroDesc=Usuń zremasterowane intro (w przypadu gdy HighRes patch Logos = 1)

polish.ExtractingArchive=Dekompresja archiwum
polish.DownloadErrorMsg=Nie udało się pobrać pliku:%n%1%nNależy go pobrać ręcznie ze strony moddb.com i umieścić w tym samym folderze co instalator.%n%n
polish.DownloadingTmpFileMsg=wydobywanie linku do pliku
polish.Downloaded=Pobrano
polish.of=z
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
polish.HashCalc=Pobieranie ukończone. Trwa sprawdzanie sumy kontrolnej.

[Types]
Name: "custom"; Description: Standardowa; Flags: iscustom

[Components]
Name: "main"; Description: {cm:MainDesc}; Flags: fixed; Types: custom

Name: "movies"; Description: HD Cinematics:

arcanum 2560x1440 How to get it? arcanum 2560x1440
Name: "movies\800x600"; Description: "    800x600"; Check: FileExists(ExpandConstant('{src}\{#FileName800x600}')) or FileExists(ExpandConstant('{src}\{#FileNamePrev800x600}')); Types: custom; ExtraDiskSpaceRequired: 339881984; Flags: exclusive disablenouninstallwarning
Name: "movies\no800x600"; Description: "    800x600 - {cm:ToDownload} 319 MB  ({#FileName800x600})"; Check: not FileExists(ExpandConstant('{src}\{#FileName800x600}')) and not FileExists(ExpandConstant('{src}\{#FileNamePrev800x600}')); ExtraDiskSpaceRequired: 674304000; Flags: exclusive disablenouninstallwarning

Name: "movies\1280x720"; Description: "  1280x720"; Check: FileExists(ExpandConstant('{src}\{#FileName1280x720}')); Types: custom; ExtraDiskSpaceRequired: 795213824; Flags: exclusive disablenouninstallwarning
Name: "movies\no1280x720"; Description: "  1280x720 - {cm:ToDownload} 744 MB  ({#FileName1280x720})"; Check: not FileExists(ExpandConstant('{src}\{#FileName1280x720}')); ExtraDiskSpaceRequired: 1574879232; Flags: exclusive disablenouninstallwarning

Name: "movies\1920x1080"; Description: "1920x1080"; Check: FileExists(ExpandConstant('{src}\{#FileName1920x1080}')); Types: custom; ExtraDiskSpaceRequired: 1334407168; Flags: exclusive disablenouninstallwarning
Name: "movies\no1920x1080"; Description: "1920x1080 - {cm:ToDownload} 1,21 GB ({#FileName1920x1080})"; Check: not FileExists(ExpandConstant('{src}\{#FileName1920x1080}')); ExtraDiskSpaceRequired: 2633424896; Flags: exclusive disablenouninstallwarning

Name: "movies\2560x1440"; Description: "2560x1440"; Check: FileExists(ExpandConstant('{src}\{#FileName2560x1440}')); Types: custom; ExtraDiskSpaceRequired: 2366590976; Flags: exclusive disablenouninstallwarning
arcanum 2560x1440 PasteShr arcanum 2560x1440
Name: "movies\no2560x1440"; Description: "2560x1440 - {cm:ToDownload} 2,14 GB ({#FileName2560x1440})"; Check: not FileExists(ExpandConstant('{src}\{#FileName2560x1440}')); ExtraDiskSpaceRequired: 4664193024; Flags: exclusive disablenouninstallwarning

Name: "movies\3840x2160"; Description: "3840x2160"; Check: FileExists(ExpandConstant('{src}\{#FileName3840x2160}')); Types: custom; ExtraDiskSpaceRequired: 5280428032; Flags: exclusive disablenouninstallwarning
Name: "movies\no3840x2160"; Description: "3840x2160 - {cm:ToDownload} 4,69 GB ({#FileName3840x2160})"; Check: not FileExists(ExpandConstant('{src}\{#FileName3840x2160}')); ExtraDiskSpaceRequired: 10318835712; Flags: exclusive disablenouninstallwarning

Name: "movies\deleteintro"; Description: "{cm:DeleteIntroDesc}"; Flags: disablenouninstallwarning

[Files]
Source: "{#SourceDir}\regular\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs overwritereadonly sortfilesbyextension sortfilesbyname; Components: "main"
Source: "{#SourceDir}\binkw32.dll"; DestDir: "{app}\BikMod\original_bink_library\"; Flags: uninsneveruninstall overwritereadonly sortfilesbyextension sortfilesbyname; Components: "main"
arcanum 2560x1440 PasteShr arcanum 2560x1440

Source: "{app}\modules\Arcanum\movies\00069.bik"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external onlyifdoesntexist skipifsourcedoesntexist; Components: "movies"
Source: "{app}\modules\Arcanum\movies\01138.bik"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external onlyifdoesntexist skipifsourcedoesntexist; Components: "movies"
Source: "{app}\modules\Arcanum\movies\02112.bik"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external onlyifdoesntexist skipifsourcedoesntexist; Components: "movies"
Source: "{app}\modules\Arcanum\movies\50000.bik"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external onlyifdoesntexist skipifsourcedoesntexist; Components: "movies"
Source: "{app}\modules\Arcanum\movies\51169.bik"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external onlyifdoesntexist skipifsourcedoesntexist; Components: "movies"
Source: "{app}\modules\Arcanum\movies\91568.bik"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external onlyifdoesntexist skipifsourcedoesntexist; Components: "movies"
Source: "{app}\modules\Arcanum\movies\A0021.bik"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external onlyifdoesntexist skipifsourcedoesntexist; Components: "movies"
Source: "{app}\modules\Arcanum\movies\G0021.bik"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external onlyifdoesntexist skipifsourcedoesntexist; Components: "movies"

arcanum 2560x1440 How to get it? arcanum 2560x1440
Source: "{app}\data\scr\01093KanHuamovie.scr"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external skipifsourcedoesntexist onlyifdoesntexist; Components: "movies"; AfterInstall: DeleteAfterInstall('{app}\data\scr\01093KanHuamovie.scr')

Source: "{app}\modules\Arcanum\movies\movies.mes"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external onlyifdoesntexist; Components: "movies"; Check: FileExists(ExpandConstant('{app}\modules\Arcanum\movies\02112b.bik'))
Source: "{#SourceDir}\movies.mes"; DestDir: "{app}\modules\Arcanum\movies\"; Flags: overwritereadonly sortfilesbyextension sortfilesbyname; Components: "movies"; Check: FileExists(ExpandConstant('{app}\modules\Arcanum\movies\02112b.bik'))
Source: "{app}\modules\Arcanum\movies\02112b.bik"; DestDir: "{app}\BikMod\backup\"; Flags: uninsneveruninstall overwritereadonly external skipifsourcedoesntexist onlyifdoesntexist; Components: "movies"; AfterInstall: DeleteAfterInstall('{app}\modules\Arcanum\movies\02112b.bik')

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,Arcanum}"; Flags: nowait postinstall unchecked skipifsilent

[UninstallDelete]
arcanum 2560x1440 How to get it? arcanum 2560x1440
Type: files; Name: "{app}\BikMod\binkw32.log"

Type: files; Name: "{app}\Data\movies\SierraLogo.bik"; Components: "movies"
Type: files; Name: "{app}\Data\movies\TroikaLogo.bik"; Components: "movies"
Type: files; Name: "{app}\Modules\Arcanum\Movies\00069.bik"; Components: "movies"
Type: files; Name: "{app}\Modules\Arcanum\Movies\01138.bik"; Components: "movies"
Type: files; Name: "{app}\Modules\Arcanum\Movies\02112.bik"; Components: "movies"
Type: files; Name: "{app}\Modules\Arcanum\Movies\50000.bik"; Components: "movies"
Type: files; Name: "{app}\Modules\Arcanum\Movies\51169.bik"; Components: "movies"
Type: files; Name: "{app}\Modules\Arcanum\Movies\91568.bik"; Components: "movies"
arcanum 2560x1440 How to use it? arcanum 2560x1440
Type: files; Name: "{app}\Modules\Arcanum\Movies\A0021.bik"; Components: "movies"
Type: files; Name: "{app}\Modules\Arcanum\Movies\G0021.bik"; Components: "movies"

[Code]
procedure CurPageChanged(CurPageID: Integer);
var
  HighResConfig: TArrayOfString;
  I, II, HighResHeightInt: Integer;
  HighResHeight: String;
begin
arcanum 2560x1440 How to get it? arcanum 2560x1440
  if CurPageID = wpSelectComponents then begin
    WizardForm.ComponentsList.ItemIndex := -1;
    
    if LoadStringsFromLockedFile(ExpandConstant('{app}\HighRes\config.ini'), HighResConfig) then begin
      for I := 0 to GetArrayLength(HighResConfig)-1 do begin
        if Pos('Height', HighResConfig[I]) > 0 and Pos('=', HighResConfig[I]) then begin
          Delete(HighResConfig[I], 1, Pos('=', HighResConfig[I]));
          HighResConfig[I] := Trim(HighResConfig[I]);
          II := 1;
          HighResHeight := '';
arcanum 2560x1440 How to use it? arcanum 2560x1440
          for II := 1 to Length(HighResConfig[I]) do begin
            if HighResConfig[I][II] in ['0','1','2','3','4','5','6','7','8','9'] then
              HighResHeight := HighResHeight + HighResConfig[I][II]
            else
              Break;
          end;
          Log(HighResHeight);
          Break;
        end;
      end;
arcanum 2560x1440 How to get it? arcanum 2560x1440
    end;
    
    if HighResHeight <> '' then
      HighResHeightInt := StrToIntDef(HighResHeight, -1)
    else
      HighResHeightInt := -1;
    
    if HighResHeightInt < 0 then
    else if HighResHeightInt < 720 then begin
      WizardSelectComponents('movies\800x600');
arcanum 2560x1440 How to get it for free? arcanum 2560x1440
      WizardSelectComponents('movies\no800x600');
    end else if HighResHeightInt < 1080 then begin
      WizardSelectComponents('movies\1280x720');
      WizardSelectComponents('movies\no1280x720');
    end else if HighResHeightInt < 1440 then begin
      WizardSelectComponents('movies\1920x1080');
      WizardSelectComponents('movies\no1920x1080');
    end else if HighResHeightInt < 2160 then begin
      WizardSelectComponents('movies\2560x1440');
      WizardSelectComponents('movies\no2560x1440');
arcanum 2560x1440 How to get it? arcanum 2560x1440
    end else begin
      WizardSelectComponents('movies\3840x2160');
      WizardSelectComponents('movies\no3840x2160');
    end;
    
    if FileExists(ExpandConstant('{app}\ArcanumXNoMovies.dat')) then
      WizardSelectComponents('!movies\deleteintro')
    else
      WizardSelectComponents('movies\deleteintro');
    
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
    if FileExists(ExpandConstant('{src}\{#FileNamePrev800x600}')) and not FileExists(ExpandConstant('{src}\{#FileName800x600}')) then
      RenameFile(ExpandConstant('{src}\{#FileNamePrev800x600}'), ExpandConstant('{src}\{#FileName800x600}'));
  end;
end;

var
  ExtractionPage: TExtractionWizardPage;
  DownloadPage: TDownloadWizardPage;

function OnExtractionProgress(const ArchiveName, FileName: String; const Progress, ProgressMax: Int64): Boolean;
arcanum 2560x1440 How to get it for free? arcanum 2560x1440
begin
  if Progress = ProgressMax then
    Log(Format('Successfully extracted file to {app}: %s', [FileName]));
  Result := True;
end;

function ReturnProgressAndProgressMax(ProgressInt, ProgressMaxInt: Int64): String;
var
  SizeUnit: TArrayOfString;
  I: Integer;
arcanum 2560x1440 How to use it? arcanum 2560x1440
  Progress, ProgressMax, ProgressPercentage: Single;
begin
  SizeUnit := ['B', 'KB', 'MB', 'GB'];
  Progress := ProgressInt;
  ProgressMax := ProgressMaxInt;
  
  ProgressPercentage := Progress*100/ProgressMax;
  
  I := 0;
  while ProgressMax >= 1024 do begin
arcanum 2560x1440 How to get it? arcanum 2560x1440
    ProgressMax := ProgressMax / 1024;
    Progress := Progress / 1024;
    Inc(I);
    if I >= Length(SizeUnit)-1 then
      Break;
  end;
  Result := ExpandConstant(Format('{cm:Downloaded} %f {cm:of} %1f %2s (%3f%%)', [Progress, ProgressMax, SizeUnit[I], ProgressPercentage]));
end;

// Extracting archive
arcanum 2560x1440 How to get it? arcanum 2560x1440
procedure CurStepChanged(CurStep: TSetupStep);
  var
    ArchiveName: String;
begin
  if CurStep = ssPostInstall then begin
    if WizardIsComponentSelected('movies\800x600') or WizardIsComponentSelected('movies\no800x600') then
      ArchiveName := '{#FileName800x600}'
    else if WizardIsComponentSelected('movies\1280x720') or WizardIsComponentSelected('movies\no1280x720') then
      ArchiveName := '{#FileName1280x720}'
    else if WizardIsComponentSelected('movies\1920x1080') or WizardIsComponentSelected('movies\no1920x1080') then
arcanum 2560x1440 How to get it? arcanum 2560x1440
      ArchiveName := '{#FileName1920x1080}'
    else if WizardIsComponentSelected('movies\2560x1440') or WizardIsComponentSelected('movies\no2560x1440') then
      ArchiveName := '{#FileName2560x1440}'
    else if WizardIsComponentSelected('movies\3840x2160') or WizardIsComponentSelected('movies\no3840x2160') then
      ArchiveName := '{#FileName3840x2160}';
    
    if ArchiveName <> '' then begin
      ExtractionPage.Clear;
      ExtractionPage.Add(ExpandConstant('{src}\' + ArchiveName), ExpandConstant('{app}'), True);
      ExtractionPage.Description := ArchiveName;
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
      ExtractionPage.Show;
      try
        try
          ExtractionPage.Extract; // This extracts the files to {app}
          
          if WizardIsComponentSelected('movies\deleteintro') then begin
            if FileExists(ExpandConstant('{app}\Data\movies\SierraLogo.bik')) then
              DeleteFile(ExpandConstant('{app}\Data\movies\SierraLogo.bik'));
            
            if FileExists(ExpandConstant('{app}\Data\movies\TroikaLogo.bik')) then
arcanum 2560x1440 PasteShr arcanum 2560x1440
              DeleteFile(ExpandConstant('{app}\Data\movies\TroikaLogo.bik'));
          end;
        except
          if ExtractionPage.AbortedByUser then
            Log('Aborted by user.')
          else
            SuppressibleMsgBox(AddPeriod(GetExceptionMessage), mbCriticalError, MB_OK, IDOK);
        end;
      finally
        ExtractionPage.Hide;
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
      end;
    end;
  end;
end;

// Downloading files
function NextButtonClick(CurPageID: Integer): Boolean;
var
  ExtractedFileUrl, DownloadedFileName, FileHashToCompare, FileUrl: String;
  DownloadedTmpFileString: AnsiString;
arcanum 2560x1440 How to get it? arcanum 2560x1440
begin
  if CurPageID = wpReady then begin
    if WizardIsComponentSelected('movies\no800x600') then begin
      DownloadedFileName := '{#FileName800x600}';
      FileHashToCompare := '{#FileHash800x600}';
      FileUrl := '{#FileUrl800x600}';
    end else if WizardIsComponentSelected('movies\no1280x720') then begin
      DownloadedFileName := '{#FileName1280x720}';
      FileHashToCompare := '{#FileHash1280x720}';
      FileUrl := '{#FileUrl1280x720}';
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
    end else if WizardIsComponentSelected('movies\no1920x1080') then begin
      DownloadedFileName := '{#FileName1920x1080}';
      FileHashToCompare := '{#FileHash1920x1080}';
      FileUrl := '{#FileUrl1920x1080}';
    end else if WizardIsComponentSelected('movies\no2560x1440') then begin
      DownloadedFileName := '{#FileName2560x1440}';
      FileHashToCompare := '{#FileHash2560x1440}';
      FileUrl := '{#FileUrl2560x1440}';
    end else if WizardIsComponentSelected('movies\no3840x2160') then begin
      DownloadedFileName := '{#FileName3840x2160}';
arcanum 2560x1440 How to use it? arcanum 2560x1440
      FileHashToCompare := '{#FileHash3840x2160}';
      FileUrl := '{#FileUrl3840x2160}';
    end else
      FileUrl := '';
    
    if FileUrl <> '' then begin
      DownloadPage.Clear;
      DownloadPage.Add(FileUrl, ExpandConstant('{cm:DownloadingTmpFileMsg}'), '');
      DownloadPage.Show;
      try
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
        try
          DownloadPage.Download; // This downloads the files to {tmp}
          LoadStringFromLockedFile(ExpandConstant('{tmp}\{cm:DownloadingTmpFileMsg}'), DownloadedTmpFileString);
          DeleteFile(ExpandConstant('{tmp}\{cm:DownloadingTmpFileMsg}'));
          
          Log(DownloadedTmpFileString);
          if Pos('window.location.href="', DownloadedTmpFileString) > 0 then begin
            Delete(DownloadedTmpFileString, 1, Pos('window.location.href="', DownloadedTmpFileString) + 21);
            Log(DownloadedTmpFileString);
            if Pos('"', DownloadedTmpFileString) > 0 then begin
arcanum 2560x1440 PasteShr arcanum 2560x1440
              ExtractedFileUrl := Copy(DownloadedTmpFileString, 1, Pos('"', DownloadedTmpFileString) - 1);
              Log(ExtractedFileUrl);
              if Length(ExtractedFileUrl) > 0 then begin
                DownloadPage.Clear;
                DownloadPage.Add(ExtractedFileUrl, DownloadedFileName, FileHashToCompare);
                DownloadPage.Download;
                RenameFile(ExpandConstant('{tmp}\' + DownloadedFileName), ExpandConstant('{src}\' + DownloadedFileName));
              end else
                Result := False;
            end else
arcanum 2560x1440 How to get it for free? arcanum 2560x1440
              Result := False;
          end else 
            Result := False;
          Result := True;
        except
          if DownloadPage.AbortedByUser then
            Log('Aborted by user.')
          else
            SuppressibleMsgBox(ExpandConstant('{cm:DownloadErrorMsg,' + DownloadedFileName + '}') + AddPeriod(GetExceptionMessage), mbCriticalError, MB_OK, IDOK);
          Result := False;
arcanum 2560x1440 PasteShr arcanum 2560x1440
        end;
      finally
        DownloadPage.Hide;
      end;
    end else
      Result := True;
  end else
    Result := True;
end;

arcanum 2560x1440 How to use it? arcanum 2560x1440
// Deleting files after install
procedure DeleteAfterInstall(FileName: String);
begin
  DeleteFile(ExpandConstant(FileName));
end;

// Credits for function GetInstallationPath goes to Martin Prikryl
var InstallationPath: string;
function GetInstallationPath(Param: string): string;
begin
arcanum 2560x1440 PasteShr arcanum 2560x1440
  if InstallationPath = '' then
  begin
    if RegQueryStringValue(
         HKLM32, 'SOFTWARE\GOG.com\Games\1207658829',
         'path', InstallationPath) then
    begin
      Log('Detected GOG installation: ' + InstallationPath);
    end
    else if IsWin64 and RegQueryStringValue(
         HKLM64, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Steam App 500810',
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
         'InstallLocation', InstallationPath) then
    begin
      InstallationPath := InstallationPath + '\Arcanum';
      Log('Detected Steam (x64) installation: ' + InstallationPath);
    end
    else if RegQueryStringValue(
         HKLM32, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Steam App 500810',
         'InstallLocation', InstallationPath) then
    begin
      InstallationPath := InstallationPath + '\Arcanum';
arcanum 2560x1440 How to use it? arcanum 2560x1440
      Log('Detected Steam (x86) installation: ' + InstallationPath);
    end
    else if RegQueryStringValue(
         HKLM32, 'SOFTWARE\Troika\Arcanum',
         'installed_to', InstallationPath) then
    begin
      Log('Detected Troika installation: ' + InstallationPath);
    end
    else if RegQueryStringValue(
         HKLM32, 'SOFTWARE\Sierra OnLine\Setup\AR_USENG',
arcanum 2560x1440 PasteShr arcanum 2560x1440
         'Directory', InstallationPath) then
    begin
      Log('Detected Sierra OnLine installation: ' + InstallationPath);
    end
    else if RegQueryStringValue(
         HKLM32, 'SOFTWARE\Sierra OnLine\Setup\AR_PL',
         'Directory', InstallationPath) then
    begin
      Log('Detected Sierra OnLine PL installation: ' + InstallationPath);
    end
arcanum 2560x1440 How to get it? arcanum 2560x1440
      else
    begin
      InstallationPath := ExpandConstant('{sd}\{cm:GameFolderName}\Arcanum');
      Log('No installation detected, using the default path: ' + InstallationPath);
    end;
  end;
  Result := InstallationPath;
end;

// Moving backup files and cleanup
arcanum 2560x1440 How to dowload it? arcanum 2560x1440
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    if CurUninstallStep = usPostUninstall then
    begin
        RenameFile(ExpandConstant('{app}\BikMod\backup\00069.bik'), ExpandConstant('{app}\modules\Arcanum\movies\00069.bik'));
        RenameFile(ExpandConstant('{app}\BikMod\backup\01138.bik'), ExpandConstant('{app}\modules\Arcanum\movies\01138.bik'));
        RenameFile(ExpandConstant('{app}\BikMod\backup\02112.bik'), ExpandConstant('{app}\modules\Arcanum\movies\02112.bik'));
        RenameFile(ExpandConstant('{app}\BikMod\backup\02112b.bik'), ExpandConstant('{app}\modules\Arcanum\movies\02112b.bik'));
        RenameFile(ExpandConstant('{app}\BikMod\backup\50000.bik'), ExpandConstant('{app}\modules\Arcanum\movies\50000.bik'));
        RenameFile(ExpandConstant('{app}\BikMod\backup\51169.bik'), ExpandConstant('{app}\modules\Arcanum\movies\51169.bik'));
arcanum 2560x1440 How to get it? arcanum 2560x1440
        RenameFile(ExpandConstant('{app}\BikMod\backup\91568.bik'), ExpandConstant('{app}\modules\Arcanum\movies\91568.bik'));
        RenameFile(ExpandConstant('{app}\BikMod\backup\A0021.bik'), ExpandConstant('{app}\modules\Arcanum\movies\A0021.bik'));
        RenameFile(ExpandConstant('{app}\BikMod\backup\G0021.bik'), ExpandConstant('{app}\modules\Arcanum\movies\G0021.bik'));
        RenameFile(ExpandConstant('{app}\BikMod\backup\movies.mes'), ExpandConstant('{app}\modules\Arcanum\movies\movies.mes'));
        RenameFile(ExpandConstant('{app}\BikMod\backup\01093KanHuamovie.scr'), ExpandConstant('{app}\data\scr\01093KanHuamovie.scr'));
        RenameFile(ExpandConstant('{app}\BikMod\original_bink_library\binkw32.dll'), ExpandConstant('{app}\binkw32.dll'));
        DelTree(ExpandConstant('{app}\BikMod\backup'), True, False, False);
        DelTree(ExpandConstant('{app}\BikMod\original_bink_library'), True, False, False);
        DelTree(ExpandConstant('{app}\BikMod'), True, False, False);
    end;
arcanum 2560x1440 PasteShr arcanum 2560x1440
end;
 
arcanum 2560x1440

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

ultimate driving westover islands script
Plaintext | 1 | 44 seconds ago
star platinum script roblox
Plaintext | 0 | 45 seconds ago
aidez script
Plaintext | 1 | 45 seconds ago
crab rave virtual piano
Plaintext | 1 | 46 seconds ago
harkinian & moon
Plaintext | 1 | 46 seconds ago
island royale aimbot script
Plaintext | 4 | 5 minutes ago
booga booga auto farm
Plaintext | 2 | 5 minutes ago

Paste Settings

Site Languages