909 lines
51 KiB
Plaintext
909 lines
51 KiB
Plaintext
#define source_path ReadIni(SourcePath + "\setup.ini", "Data", "source_path")
|
|
#define min_windows ReadIni(SourcePath + "\setup.ini", "Data", "min_windows")
|
|
|
|
#define MyAppName "Archipelago"
|
|
#define MyAppExeName "ArchipelagoLauncher.exe"
|
|
#define MyAppIcon "data/icon.ico"
|
|
#dim VersionTuple[4]
|
|
#define MyAppVersion GetVersionComponents(source_path + '\ArchipelagoLauncher.exe', VersionTuple[0], VersionTuple[1], VersionTuple[2], VersionTuple[3])
|
|
#define MyAppVersionText Str(VersionTuple[0])+"."+Str(VersionTuple[1])+"."+Str(VersionTuple[2])
|
|
|
|
|
|
[Setup]
|
|
; NOTE: The value of AppId uniquely identifies this application.
|
|
; Do not use the same AppId value in installers for other applications.
|
|
AppId={{918BA46A-FAB8-460C-9DFF-AE691E1C865B}}
|
|
AppName={#MyAppName}
|
|
AppCopyright=Distributed under MIT License
|
|
AppVerName={#MyAppName} {#MyAppVersionText}
|
|
VersionInfoVersion={#MyAppVersion}
|
|
DefaultDirName={commonappdata}\{#MyAppName}
|
|
DisableProgramGroupPage=yes
|
|
DefaultGroupName=Archipelago
|
|
OutputDir=setups
|
|
OutputBaseFilename=Setup {#MyAppName} {#MyAppVersionText}
|
|
Compression=lzma2
|
|
SolidCompression=yes
|
|
LZMANumBlockThreads=8
|
|
ArchitecturesInstallIn64BitMode=x64 arm64
|
|
ChangesAssociations=yes
|
|
ArchitecturesAllowed=x64 arm64
|
|
AllowNoIcons=yes
|
|
SetupIconFile={#MyAppIcon}
|
|
UninstallDisplayIcon={app}\{#MyAppExeName}
|
|
; you will likely have to remove the following signtool line when testing/debugging locally. Don't include that change in PRs.
|
|
SignTool= signtool
|
|
LicenseFile= LICENSE
|
|
WizardStyle= modern
|
|
SetupLogging=yes
|
|
MinVersion={#min_windows}
|
|
|
|
[Languages]
|
|
Name: "english"; MessagesFile: "compiler:Default.isl"
|
|
|
|
[Tasks]
|
|
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}";
|
|
|
|
[Types]
|
|
Name: "full"; Description: "Full installation"
|
|
Name: "hosting"; Description: "Installation for hosting purposes"
|
|
Name: "playing"; Description: "Installation for playing purposes"
|
|
Name: "custom"; Description: "Custom installation"; Flags: iscustom
|
|
|
|
[Components]
|
|
Name: "core"; Description: "Core Files"; Types: full hosting playing custom; Flags: fixed
|
|
Name: "generator"; Description: "Generator"; Types: full hosting
|
|
Name: "generator/sm"; Description: "Super Metroid ROM Setup"; Types: full hosting; ExtraDiskSpaceRequired: 3145728; Flags: disablenouninstallwarning
|
|
Name: "generator/dkc3"; Description: "Donkey Kong Country 3 ROM Setup"; Types: full hosting; ExtraDiskSpaceRequired: 3145728; Flags: disablenouninstallwarning
|
|
Name: "generator/smw"; Description: "Super Mario World ROM Setup"; Types: full hosting; ExtraDiskSpaceRequired: 3145728; Flags: disablenouninstallwarning
|
|
Name: "generator/soe"; Description: "Secret of Evermore ROM Setup"; Types: full hosting; ExtraDiskSpaceRequired: 3145728; Flags: disablenouninstallwarning
|
|
Name: "generator/l2ac"; Description: "Lufia II Ancient Cave ROM Setup"; Types: full hosting; ExtraDiskSpaceRequired: 2621440; Flags: disablenouninstallwarning
|
|
Name: "generator/lttp"; Description: "A Link to the Past ROM Setup and Enemizer"; Types: full hosting; ExtraDiskSpaceRequired: 5191680
|
|
Name: "generator/oot"; Description: "Ocarina of Time ROM Setup"; Types: full hosting; ExtraDiskSpaceRequired: 100663296; Flags: disablenouninstallwarning
|
|
Name: "generator/zl"; Description: "Zillion ROM Setup"; Types: full hosting; ExtraDiskSpaceRequired: 150000; Flags: disablenouninstallwarning
|
|
Name: "generator/pkmn_r"; Description: "Pokemon Red ROM Setup"; Types: full hosting
|
|
Name: "generator/pkmn_b"; Description: "Pokemon Blue ROM Setup"; Types: full hosting
|
|
Name: "generator/mmbn3"; Description: "MegaMan Battle Network 3"; Types: full hosting; ExtraDiskSpaceRequired: 8388608; Flags: disablenouninstallwarning
|
|
Name: "generator/ladx"; Description: "Link's Awakening DX ROM Setup"; Types: full hosting
|
|
Name: "generator/tloz"; Description: "The Legend of Zelda ROM Setup"; Types: full hosting; ExtraDiskSpaceRequired: 135168; Flags: disablenouninstallwarning
|
|
Name: "server"; Description: "Server"; Types: full hosting
|
|
Name: "client"; Description: "Clients"; Types: full playing
|
|
Name: "client/sni"; Description: "SNI Client"; Types: full playing
|
|
Name: "client/sni/lttp"; Description: "SNI Client - A Link to the Past Patch Setup"; Types: full playing; Flags: disablenouninstallwarning
|
|
Name: "client/sni/sm"; Description: "SNI Client - Super Metroid Patch Setup"; Types: full playing; Flags: disablenouninstallwarning
|
|
Name: "client/sni/dkc3"; Description: "SNI Client - Donkey Kong Country 3 Patch Setup"; Types: full playing; Flags: disablenouninstallwarning
|
|
Name: "client/sni/smw"; Description: "SNI Client - Super Mario World Patch Setup"; Types: full playing; Flags: disablenouninstallwarning
|
|
Name: "client/sni/l2ac"; Description: "SNI Client - Lufia II Ancient Cave Patch Setup"; Types: full playing; Flags: disablenouninstallwarning
|
|
Name: "client/factorio"; Description: "Factorio"; Types: full playing
|
|
Name: "client/kh2"; Description: "Kingdom Hearts 2"; Types: full playing
|
|
Name: "client/minecraft"; Description: "Minecraft"; Types: full playing; ExtraDiskSpaceRequired: 226894278
|
|
Name: "client/oot"; Description: "Ocarina of Time"; Types: full playing
|
|
Name: "client/ff1"; Description: "Final Fantasy 1"; Types: full playing
|
|
Name: "client/pkmn"; Description: "Pokemon Client"
|
|
Name: "client/pkmn/red"; Description: "Pokemon Client - Pokemon Red Setup"; Types: full playing; ExtraDiskSpaceRequired: 1048576
|
|
Name: "client/pkmn/blue"; Description: "Pokemon Client - Pokemon Blue Setup"; Types: full playing; ExtraDiskSpaceRequired: 1048576
|
|
Name: "client/mmbn3"; Description: "MegaMan Battle Network 3 Client"; Types: full playing;
|
|
Name: "client/ladx"; Description: "Link's Awakening Client"; Types: full playing; ExtraDiskSpaceRequired: 1048576
|
|
Name: "client/cf"; Description: "ChecksFinder"; Types: full playing
|
|
Name: "client/sc2"; Description: "Starcraft 2"; Types: full playing
|
|
Name: "client/wargroove"; Description: "Wargroove"; Types: full playing
|
|
Name: "client/zl"; Description: "Zillion"; Types: full playing
|
|
Name: "client/tloz"; Description: "The Legend of Zelda"; Types: full playing
|
|
Name: "client/advn"; Description: "Adventure"; Types: full playing
|
|
Name: "client/ut"; Description: "Undertale"; Types: full playing
|
|
Name: "client/text"; Description: "Text, to !command and chat"; Types: full playing
|
|
|
|
[Dirs]
|
|
NAME: "{app}"; Flags: setntfscompression; Permissions: everyone-modify users-modify authusers-modify;
|
|
|
|
[Files]
|
|
Source: "{code:GetROMPath}"; DestDir: "{app}"; DestName: "Zelda no Densetsu - Kamigami no Triforce (Japan).sfc"; Flags: external; Components: client/sni/lttp or generator/lttp
|
|
Source: "{code:GetSMROMPath}"; DestDir: "{app}"; DestName: "Super Metroid (JU).sfc"; Flags: external; Components: client/sni/sm or generator/sm
|
|
Source: "{code:GetDKC3ROMPath}"; DestDir: "{app}"; DestName: "Donkey Kong Country 3 - Dixie Kong's Double Trouble! (USA) (En,Fr).sfc"; Flags: external; Components: client/sni/dkc3 or generator/dkc3
|
|
Source: "{code:GetSMWROMPath}"; DestDir: "{app}"; DestName: "Super Mario World (USA).sfc"; Flags: external; Components: client/sni/smw or generator/smw
|
|
Source: "{code:GetSoEROMPath}"; DestDir: "{app}"; DestName: "Secret of Evermore (USA).sfc"; Flags: external; Components: generator/soe
|
|
Source: "{code:GetL2ACROMPath}"; DestDir: "{app}"; DestName: "Lufia II - Rise of the Sinistrals (USA).sfc"; Flags: external; Components: generator/l2ac
|
|
Source: "{code:GetOoTROMPath}"; DestDir: "{app}"; DestName: "The Legend of Zelda - Ocarina of Time.z64"; Flags: external; Components: client/oot or generator/oot
|
|
Source: "{code:GetZlROMPath}"; DestDir: "{app}"; DestName: "Zillion (UE) [!].sms"; Flags: external; Components: client/zl or generator/zl
|
|
Source: "{code:GetRedROMPath}"; DestDir: "{app}"; DestName: "Pokemon Red (UE) [S][!].gb"; Flags: external; Components: client/pkmn/red or generator/pkmn_r
|
|
Source: "{code:GetBlueROMPath}"; DestDir: "{app}"; DestName: "Pokemon Blue (UE) [S][!].gb"; Flags: external; Components: client/pkmn/blue or generator/pkmn_b
|
|
Source: "{code:GetBN3ROMPath}"; DestDir: "{app}"; DestName: "Mega Man Battle Network 3 - Blue Version (USA).gba"; Flags: external; Components: client/mmbn3
|
|
Source: "{code:GetLADXROMPath}"; DestDir: "{app}"; DestName: "Legend of Zelda, The - Link's Awakening DX (USA, Europe) (SGB Enhanced).gbc"; Flags: external; Components: client/ladx or generator/ladx
|
|
Source: "{code:GetTLoZROMPath}"; DestDir: "{app}"; DestName: "Legend of Zelda, The (U) (PRG0) [!].nes"; Flags: external; Components: client/tloz or generator/tloz
|
|
Source: "{code:GetAdvnROMPath}"; DestDir: "{app}"; DestName: "ADVNTURE.BIN"; Flags: external; Components: client/advn
|
|
Source: "{#source_path}\*"; Excludes: "*.sfc, *.log, data\sprites\alttpr, SNI, EnemizerCLI, Archipelago*.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
Source: "{#source_path}\SNI\*"; Excludes: "*.sfc, *.log"; DestDir: "{app}\SNI"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: client/sni
|
|
Source: "{#source_path}\EnemizerCLI\*"; Excludes: "*.sfc, *.log"; DestDir: "{app}\EnemizerCLI"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: generator/lttp
|
|
|
|
Source: "{#source_path}\ArchipelagoLauncher.exe"; DestDir: "{app}"; Flags: ignoreversion;
|
|
Source: "{#source_path}\ArchipelagoGenerate.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: generator
|
|
Source: "{#source_path}\ArchipelagoServer.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: server
|
|
Source: "{#source_path}\ArchipelagoFactorioClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/factorio
|
|
Source: "{#source_path}\ArchipelagoTextClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/text
|
|
Source: "{#source_path}\ArchipelagoSNIClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/sni
|
|
Source: "{#source_path}\ArchipelagoLinksAwakeningClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/ladx
|
|
Source: "{#source_path}\ArchipelagoLttPAdjuster.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/sni/lttp or generator/lttp
|
|
Source: "{#source_path}\ArchipelagoMinecraftClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/minecraft
|
|
Source: "{#source_path}\ArchipelagoOoTClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/oot
|
|
Source: "{#source_path}\ArchipelagoOoTAdjuster.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/oot
|
|
Source: "{#source_path}\ArchipelagoZillionClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/zl
|
|
Source: "{#source_path}\ArchipelagoFF1Client.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/ff1
|
|
Source: "{#source_path}\ArchipelagoPokemonClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/pkmn
|
|
Source: "{#source_path}\ArchipelagoChecksFinderClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/cf
|
|
Source: "{#source_path}\ArchipelagoStarcraft2Client.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/sc2
|
|
Source: "{#source_path}\ArchipelagoMMBN3Client.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/mmbn3
|
|
Source: "{#source_path}\ArchipelagoZelda1Client.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/tloz
|
|
Source: "{#source_path}\ArchipelagoWargrooveClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/wargroove
|
|
Source: "{#source_path}\ArchipelagoKH2Client.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/kh2
|
|
Source: "{#source_path}\ArchipelagoAdventureClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/advn
|
|
Source: "{#source_path}\ArchipelagoUndertaleClient.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: client/ut
|
|
Source: "vc_redist.x64.exe"; DestDir: {tmp}; Flags: deleteafterinstall
|
|
|
|
[Icons]
|
|
Name: "{group}\{#MyAppName} Folder"; Filename: "{app}";
|
|
Name: "{group}\{#MyAppName} Launcher"; Filename: "{app}\ArchipelagoLauncher.exe"
|
|
Name: "{group}\{#MyAppName} Server"; Filename: "{app}\{#MyAppExeName}"; Components: server
|
|
Name: "{group}\{#MyAppName} Text Client"; Filename: "{app}\ArchipelagoTextClient.exe"; Components: client/text
|
|
Name: "{group}\{#MyAppName} SNI Client"; Filename: "{app}\ArchipelagoSNIClient.exe"; Components: client/sni
|
|
Name: "{group}\{#MyAppName} Factorio Client"; Filename: "{app}\ArchipelagoFactorioClient.exe"; Components: client/factorio
|
|
Name: "{group}\{#MyAppName} Minecraft Client"; Filename: "{app}\ArchipelagoMinecraftClient.exe"; Components: client/minecraft
|
|
Name: "{group}\{#MyAppName} Ocarina of Time Client"; Filename: "{app}\ArchipelagoOoTClient.exe"; Components: client/oot
|
|
Name: "{group}\{#MyAppName} Zillion Client"; Filename: "{app}\ArchipelagoZillionClient.exe"; Components: client/zl
|
|
Name: "{group}\{#MyAppName} Final Fantasy 1 Client"; Filename: "{app}\ArchipelagoFF1Client.exe"; Components: client/ff1
|
|
Name: "{group}\{#MyAppName} Pokemon Client"; Filename: "{app}\ArchipelagoPokemonClient.exe"; Components: client/pkmn
|
|
Name: "{group}\{#MyAppName} ChecksFinder Client"; Filename: "{app}\ArchipelagoChecksFinderClient.exe"; Components: client/cf
|
|
Name: "{group}\{#MyAppName} Starcraft 2 Client"; Filename: "{app}\ArchipelagoStarcraft2Client.exe"; Components: client/sc2
|
|
Name: "{group}\{#MyAppName} MegaMan Battle Network 3 Client"; Filename: "{app}\ArchipelagoMMBN3Client.exe"; Components: client/mmbn3
|
|
Name: "{group}\{#MyAppName} The Legend of Zelda Client"; Filename: "{app}\ArchipelagoZelda1Client.exe"; Components: client/tloz
|
|
Name: "{group}\{#MyAppName} Kingdom Hearts 2 Client"; Filename: "{app}\ArchipelagoKH2Client.exe"; Components: client/kh2
|
|
Name: "{group}\{#MyAppName} Link's Awakening Client"; Filename: "{app}\ArchipelagoLinksAwakeningClient.exe"; Components: client/ladx
|
|
Name: "{group}\{#MyAppName} Adventure Client"; Filename: "{app}\ArchipelagoAdventureClient.exe"; Components: client/advn
|
|
Name: "{group}\{#MyAppName} Wargroove Client"; Filename: "{app}\ArchipelagoWargrooveClient.exe"; Components: client/wargroove
|
|
Name: "{group}\{#MyAppName} Undertale Client"; Filename: "{app}\ArchipelagoUndertaleClient.exe"; Components: client/ut
|
|
|
|
Name: "{commondesktop}\{#MyAppName} Folder"; Filename: "{app}"; Tasks: desktopicon
|
|
Name: "{commondesktop}\{#MyAppName} Launcher"; Filename: "{app}\ArchipelagoLauncher.exe"; Tasks: desktopicon
|
|
Name: "{commondesktop}\{#MyAppName} Server"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon; Components: server
|
|
Name: "{commondesktop}\{#MyAppName} SNI Client"; Filename: "{app}\ArchipelagoSNIClient.exe"; Tasks: desktopicon; Components: client/sni
|
|
Name: "{commondesktop}\{#MyAppName} Factorio Client"; Filename: "{app}\ArchipelagoFactorioClient.exe"; Tasks: desktopicon; Components: client/factorio
|
|
Name: "{commondesktop}\{#MyAppName} Minecraft Client"; Filename: "{app}\ArchipelagoMinecraftClient.exe"; Tasks: desktopicon; Components: client/minecraft
|
|
Name: "{commondesktop}\{#MyAppName} Ocarina of Time Client"; Filename: "{app}\ArchipelagoOoTClient.exe"; Tasks: desktopicon; Components: client/oot
|
|
Name: "{commondesktop}\{#MyAppName} Zillion Client"; Filename: "{app}\ArchipelagoZillionClient.exe"; Tasks: desktopicon; Components: client/zl
|
|
Name: "{commondesktop}\{#MyAppName} Final Fantasy 1 Client"; Filename: "{app}\ArchipelagoFF1Client.exe"; Tasks: desktopicon; Components: client/ff1
|
|
Name: "{commondesktop}\{#MyAppName} Pokemon Client"; Filename: "{app}\ArchipelagoPokemonClient.exe"; Tasks: desktopicon; Components: client/pkmn
|
|
Name: "{commondesktop}\{#MyAppName} ChecksFinder Client"; Filename: "{app}\ArchipelagoChecksFinderClient.exe"; Tasks: desktopicon; Components: client/cf
|
|
Name: "{commondesktop}\{#MyAppName} Starcraft 2 Client"; Filename: "{app}\ArchipelagoStarcraft2Client.exe"; Tasks: desktopicon; Components: client/sc2
|
|
Name: "{commondesktop}\{#MyAppName} MegaMan Battle Network 3 Client"; Filename: "{app}\ArchipelagoMMBN3Client.exe"; Tasks: desktopicon; Components: client/mmbn3
|
|
Name: "{commondesktop}\{#MyAppName} The Legend of Zelda Client"; Filename: "{app}\ArchipelagoZelda1Client.exe"; Tasks: desktopicon; Components: client/tloz
|
|
Name: "{commondesktop}\{#MyAppName} Wargroove Client"; Filename: "{app}\ArchipelagoWargrooveClient.exe"; Tasks: desktopicon; Components: client/wargroove
|
|
Name: "{commondesktop}\{#MyAppName} Kingdom Hearts 2 Client"; Filename: "{app}\ArchipelagoKH2Client.exe"; Tasks: desktopicon; Components: client/kh2
|
|
Name: "{commondesktop}\{#MyAppName} Link's Awakening Client"; Filename: "{app}\ArchipelagoLinksAwakeningClient.exe"; Tasks: desktopicon; Components: client/ladx
|
|
Name: "{commondesktop}\{#MyAppName} Adventure Client"; Filename: "{app}\ArchipelagoAdventureClient.exe"; Tasks: desktopicon; Components: client/advn
|
|
Name: "{commondesktop}\{#MyAppName} Undertale Client"; Filename: "{app}\ArchipelagoUndertaleClient.exe"; Tasks: desktopicon; Components: client/ut
|
|
|
|
[Run]
|
|
|
|
Filename: "{tmp}\vc_redist.x64.exe"; Parameters: "/passive /norestart"; Check: IsVCRedist64BitNeeded; StatusMsg: "Installing VC++ redistributable..."
|
|
Filename: "{app}\ArchipelagoLttPAdjuster"; Parameters: "--update_sprites"; StatusMsg: "Updating Sprite Library..."; Components: client/sni/lttp or generator/lttp
|
|
Filename: "{app}\ArchipelagoMinecraftClient.exe"; Parameters: "--install"; StatusMsg: "Installing Forge Server..."; Components: client/minecraft
|
|
Filename: "{app}\ArchipelagoLauncher"; Parameters: "--update_settings"; StatusMsg: "Updating host.yaml..."; Flags: runasoriginaluser runhidden
|
|
Filename: "{app}\ArchipelagoLauncher"; Description: "{cm:LaunchProgram,{#StringChange('Launcher', '&', '&&')}}"; Flags: nowait postinstall skipifsilent
|
|
|
|
[UninstallDelete]
|
|
Type: dirifempty; Name: "{app}"
|
|
|
|
[InstallDelete]
|
|
Type: files; Name: "{app}\ArchipelagoLttPClient.exe"
|
|
Type: filesandordirs; Name: "{app}\lib\worlds\rogue-legacy*"
|
|
Type: filesandordirs; Name: "{app}\SNI\lua*"
|
|
Type: filesandordirs; Name: "{app}\EnemizerCLI*"
|
|
#include "installdelete.iss"
|
|
|
|
[Registry]
|
|
|
|
Root: HKCR; Subkey: ".aplttp"; ValueData: "{#MyAppName}patch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}patch"; ValueData: "Archipelago Binary Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}patch\DefaultIcon"; ValueData: "{app}\ArchipelagoSNIClient.exe,0"; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}patch\shell\open\command"; ValueData: """{app}\ArchipelagoSNIClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/sni
|
|
|
|
Root: HKCR; Subkey: ".apsm"; ValueData: "{#MyAppName}smpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}smpatch"; ValueData: "Archipelago Super Metroid Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}smpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoSNIClient.exe,0"; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}smpatch\shell\open\command"; ValueData: """{app}\ArchipelagoSNIClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/sni
|
|
|
|
Root: HKCR; Subkey: ".apdkc3"; ValueData: "{#MyAppName}dkc3patch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}dkc3patch"; ValueData: "Archipelago Donkey Kong Country 3 Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}dkc3patch\DefaultIcon"; ValueData: "{app}\ArchipelagoSNIClient.exe,0"; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}dkc3patch\shell\open\command"; ValueData: """{app}\ArchipelagoSNIClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/sni
|
|
|
|
Root: HKCR; Subkey: ".apsmw"; ValueData: "{#MyAppName}smwpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}smwpatch"; ValueData: "Archipelago Super Mario World Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}smwpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoSNIClient.exe,0"; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}smwpatch\shell\open\command"; ValueData: """{app}\ArchipelagoSNIClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/sni
|
|
|
|
Root: HKCR; Subkey: ".apzl"; ValueData: "{#MyAppName}zlpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/zl
|
|
Root: HKCR; Subkey: "{#MyAppName}zlpatch"; ValueData: "Archipelago Zillion Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/zl
|
|
Root: HKCR; Subkey: "{#MyAppName}zlpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoZillionClient.exe,0"; ValueType: string; ValueName: ""; Components: client/zl
|
|
Root: HKCR; Subkey: "{#MyAppName}zlpatch\shell\open\command"; ValueData: """{app}\ArchipelagoZillionClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/zl
|
|
|
|
Root: HKCR; Subkey: ".apsmz3"; ValueData: "{#MyAppName}smz3patch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}smz3patch"; ValueData: "Archipelago SMZ3 Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}smz3patch\DefaultIcon"; ValueData: "{app}\ArchipelagoSNIClient.exe,0"; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}smz3patch\shell\open\command"; ValueData: """{app}\ArchipelagoSNIClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/sni
|
|
|
|
Root: HKCR; Subkey: ".apsoe"; ValueData: "{#MyAppName}soepatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}soepatch"; ValueData: "Archipelago Secret of Evermore Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}soepatch\DefaultIcon"; ValueData: "{app}\ArchipelagoSNIClient.exe,0"; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}soepatch\shell\open\command"; ValueData: """{app}\ArchipelagoSNIClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/sni
|
|
|
|
Root: HKCR; Subkey: ".apl2ac"; ValueData: "{#MyAppName}l2acpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}l2acpatch"; ValueData: "Archipelago Lufia II Ancient Cave Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}l2acpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoSNIClient.exe,0"; ValueType: string; ValueName: ""; Components: client/sni
|
|
Root: HKCR; Subkey: "{#MyAppName}l2acpatch\shell\open\command"; ValueData: """{app}\ArchipelagoSNIClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/sni
|
|
|
|
Root: HKCR; Subkey: ".apmc"; ValueData: "{#MyAppName}mcdata"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/minecraft
|
|
Root: HKCR; Subkey: "{#MyAppName}mcdata"; ValueData: "Archipelago Minecraft Data"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/minecraft
|
|
Root: HKCR; Subkey: "{#MyAppName}mcdata\DefaultIcon"; ValueData: "{app}\ArchipelagoMinecraftClient.exe,0"; ValueType: string; ValueName: ""; Components: client/minecraft
|
|
Root: HKCR; Subkey: "{#MyAppName}mcdata\shell\open\command"; ValueData: """{app}\ArchipelagoMinecraftClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/minecraft
|
|
|
|
Root: HKCR; Subkey: ".apz5"; ValueData: "{#MyAppName}n64zpf"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/oot
|
|
Root: HKCR; Subkey: "{#MyAppName}n64zpf"; ValueData: "Archipelago Ocarina of Time Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/oot
|
|
Root: HKCR; Subkey: "{#MyAppName}n64zpf\DefaultIcon"; ValueData: "{app}\ArchipelagoOoTClient.exe,0"; ValueType: string; ValueName: ""; Components: client/oot
|
|
Root: HKCR; Subkey: "{#MyAppName}n64zpf\shell\open\command"; ValueData: """{app}\ArchipelagoOoTClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/oot
|
|
|
|
Root: HKCR; Subkey: ".apred"; ValueData: "{#MyAppName}pkmnrpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/pkmn
|
|
Root: HKCR; Subkey: "{#MyAppName}pkmnrpatch"; ValueData: "Archipelago Pokemon Red Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/pkmn
|
|
Root: HKCR; Subkey: "{#MyAppName}pkmnrpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoPokemonClient.exe,0"; ValueType: string; ValueName: ""; Components: client/pkmn
|
|
Root: HKCR; Subkey: "{#MyAppName}pkmnrpatch\shell\open\command"; ValueData: """{app}\ArchipelagoPokemonClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/pkmn
|
|
|
|
Root: HKCR; Subkey: ".apblue"; ValueData: "{#MyAppName}pkmnbpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/pkmn
|
|
Root: HKCR; Subkey: "{#MyAppName}pkmnbpatch"; ValueData: "Archipelago Pokemon Blue Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/pkmn
|
|
Root: HKCR; Subkey: "{#MyAppName}pkmnbpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoPokemonClient.exe,0"; ValueType: string; ValueName: ""; Components: client/pkmn
|
|
Root: HKCR; Subkey: "{#MyAppName}pkmnbpatch\shell\open\command"; ValueData: """{app}\ArchipelagoPokemonClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/pkmn
|
|
|
|
Root: HKCR; Subkey: ".apbn3"; ValueData: "{#MyAppName}bn3bpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/mmbn3
|
|
Root: HKCR; Subkey: "{#MyAppName}bn3bpatch"; ValueData: "Archipelago MegaMan Battle Network 3 Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/mmbn3
|
|
Root: HKCR; Subkey: "{#MyAppName}bn3bpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoMMBN3Client.exe,0"; ValueType: string; ValueName: ""; Components: client/mmbn3
|
|
Root: HKCR; Subkey: "{#MyAppName}bn3bpatch\shell\open\command"; ValueData: """{app}\ArchipelagoMMBN3Client.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/mmbn3
|
|
|
|
Root: HKCR; Subkey: ".apladx"; ValueData: "{#MyAppName}ladxpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/ladx
|
|
Root: HKCR; Subkey: "{#MyAppName}ladxpatch"; ValueData: "Archipelago Links Awakening DX Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/ladx
|
|
Root: HKCR; Subkey: "{#MyAppName}ladxpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoLinksAwakeningClient.exe,0"; ValueType: string; ValueName: ""; Components: client/ladx
|
|
Root: HKCR; Subkey: "{#MyAppName}ladxpatch\shell\open\command"; ValueData: """{app}\ArchipelagoLinksAwakeningClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/ladx
|
|
|
|
Root: HKCR; Subkey: ".aptloz"; ValueData: "{#MyAppName}tlozpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/tloz
|
|
Root: HKCR; Subkey: "{#MyAppName}tlozpatch"; ValueData: "Archipelago The Legend of Zelda Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/tloz
|
|
Root: HKCR; Subkey: "{#MyAppName}tlozpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoZelda1Client.exe,0"; ValueType: string; ValueName: ""; Components: client/tloz
|
|
Root: HKCR; Subkey: "{#MyAppName}tlozpatch\shell\open\command"; ValueData: """{app}\ArchipelagoZelda1Client.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/tloz
|
|
|
|
Root: HKCR; Subkey: ".apadvn"; ValueData: "{#MyAppName}advnpatch"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: client/advn
|
|
Root: HKCR; Subkey: "{#MyAppName}advnpatch"; ValueData: "Archipelago Adventure Patch"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: client/advn
|
|
Root: HKCR; Subkey: "{#MyAppName}advnpatch\DefaultIcon"; ValueData: "{app}\ArchipelagoAdventureClient.exe,0"; ValueType: string; ValueName: ""; Components: client/advn
|
|
Root: HKCR; Subkey: "{#MyAppName}advnpatch\shell\open\command"; ValueData: """{app}\ArchipelagoAdventureClient.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: client/advn
|
|
|
|
Root: HKCR; Subkey: ".archipelago"; ValueData: "{#MyAppName}multidata"; Flags: uninsdeletevalue; ValueType: string; ValueName: ""; Components: server
|
|
Root: HKCR; Subkey: "{#MyAppName}multidata"; ValueData: "Archipelago Server Data"; Flags: uninsdeletekey; ValueType: string; ValueName: ""; Components: server
|
|
Root: HKCR; Subkey: "{#MyAppName}multidata\DefaultIcon"; ValueData: "{app}\ArchipelagoServer.exe,0"; ValueType: string; ValueName: ""; Components: server
|
|
Root: HKCR; Subkey: "{#MyAppName}multidata\shell\open\command"; ValueData: """{app}\ArchipelagoServer.exe"" ""%1"""; ValueType: string; ValueName: ""; Components: server
|
|
|
|
Root: HKCR; Subkey: "archipelago"; ValueType: "string"; ValueData: "Archipegalo Protocol"; Flags: uninsdeletekey; Components: client/text
|
|
Root: HKCR; Subkey: "archipelago"; ValueType: "string"; ValueName: "URL Protocol"; ValueData: ""; Components: client/text
|
|
Root: HKCR; Subkey: "archipelago\DefaultIcon"; ValueType: "string"; ValueData: "{app}\ArchipelagoTextClient.exe,0"; Components: client/text
|
|
Root: HKCR; Subkey: "archipelago\shell\open\command"; ValueType: "string"; ValueData: """{app}\ArchipelagoTextClient.exe"" ""%1"""; Components: client/text
|
|
|
|
[Code]
|
|
const
|
|
SHCONTCH_NOPROGRESSBOX = 4;
|
|
SHCONTCH_RESPONDYESTOALL = 16;
|
|
|
|
// See: https://stackoverflow.com/a/51614652/2287576
|
|
function IsVCRedist64BitNeeded(): boolean;
|
|
var
|
|
strVersion: string;
|
|
begin
|
|
if (RegQueryStringValue(HKEY_LOCAL_MACHINE,
|
|
'SOFTWARE\Microsoft\VisualStudio\14.0\VC\Runtimes\x64', 'Version', strVersion)) then
|
|
begin
|
|
// Is the installed version at least the packaged one ?
|
|
Log('VC Redist x64 Version : found ' + strVersion);
|
|
Result := (CompareStr(strVersion, 'v14.32.31332') < 0);
|
|
end
|
|
else
|
|
begin
|
|
// Not even an old version installed
|
|
Log('VC Redist x64 is not already installed');
|
|
Result := True;
|
|
end;
|
|
end;
|
|
|
|
var R : longint;
|
|
|
|
var lttprom: string;
|
|
var LttPROMFilePage: TInputFileWizardPage;
|
|
|
|
var smrom: string;
|
|
var SMRomFilePage: TInputFileWizardPage;
|
|
|
|
var dkc3rom: string;
|
|
var DKC3RomFilePage: TInputFileWizardPage;
|
|
|
|
var smwrom: string;
|
|
var SMWRomFilePage: TInputFileWizardPage;
|
|
|
|
var soerom: string;
|
|
var SoERomFilePage: TInputFileWizardPage;
|
|
|
|
var l2acrom: string;
|
|
var L2ACROMFilePage: TInputFileWizardPage;
|
|
|
|
var ootrom: string;
|
|
var OoTROMFilePage: TInputFileWizardPage;
|
|
|
|
var zlrom: string;
|
|
var ZlROMFilePage: TInputFileWizardPage;
|
|
|
|
var redrom: string;
|
|
var RedROMFilePage: TInputFileWizardPage;
|
|
|
|
var bluerom: string;
|
|
var BlueROMFilePage: TInputFileWizardPage;
|
|
|
|
var bn3rom: string;
|
|
var BN3ROMFilePage: TInputFileWizardPage;
|
|
|
|
var ladxrom: string;
|
|
var LADXROMFilePage: TInputFileWizardPage;
|
|
|
|
var tlozrom: string;
|
|
var TLoZROMFilePage: TInputFileWizardPage;
|
|
|
|
var advnrom: string;
|
|
var AdvnROMFilePage: TInputFileWizardPage;
|
|
|
|
function GetSNESMD5OfFile(const rom: string): string;
|
|
var data: AnsiString;
|
|
begin
|
|
if LoadStringFromFile(rom, data) then
|
|
begin
|
|
if Length(data) mod 1024 = 512 then
|
|
begin
|
|
data := copy(data, 513, Length(data)-512);
|
|
end;
|
|
Result := GetMD5OfString(data);
|
|
end;
|
|
end;
|
|
|
|
function GetSMSMD5OfFile(const rom: string): string;
|
|
var data: AnsiString;
|
|
begin
|
|
if LoadStringFromFile(rom, data) then
|
|
begin
|
|
Result := GetMD5OfString(data);
|
|
end;
|
|
end;
|
|
|
|
function CheckRom(name: string; hash: string): string;
|
|
var rom: string;
|
|
begin
|
|
log('Handling ' + name)
|
|
rom := FileSearch(name, WizardDirValue());
|
|
if Length(rom) > 0 then
|
|
begin
|
|
log('existing ROM found');
|
|
log(IntToStr(CompareStr(GetSNESMD5OfFile(rom), hash)));
|
|
if CompareStr(GetSNESMD5OfFile(rom), hash) = 0 then
|
|
begin
|
|
log('existing ROM verified');
|
|
Result := rom;
|
|
exit;
|
|
end;
|
|
log('existing ROM failed verification');
|
|
end;
|
|
end;
|
|
|
|
function CheckSMSRom(name: string; hash: string): string;
|
|
var rom: string;
|
|
begin
|
|
log('Handling ' + name)
|
|
rom := FileSearch(name, WizardDirValue());
|
|
if Length(rom) > 0 then
|
|
begin
|
|
log('existing ROM found');
|
|
log(IntToStr(CompareStr(GetSMSMD5OfFile(rom), hash)));
|
|
if CompareStr(GetSMSMD5OfFile(rom), hash) = 0 then
|
|
begin
|
|
log('existing ROM verified');
|
|
Result := rom;
|
|
exit;
|
|
end;
|
|
log('existing ROM failed verification');
|
|
end;
|
|
end;
|
|
|
|
function CheckNESRom(name: string; hash: string): string;
|
|
var rom: string;
|
|
begin
|
|
log('Handling ' + name)
|
|
rom := FileSearch(name, WizardDirValue());
|
|
if Length(rom) > 0 then
|
|
begin
|
|
log('existing ROM found');
|
|
log(IntToStr(CompareStr(GetSMSMD5OfFile(rom), hash)));
|
|
if CompareStr(GetSMSMD5OfFile(rom), hash) = 0 then
|
|
begin
|
|
log('existing ROM verified');
|
|
Result := rom;
|
|
exit;
|
|
end;
|
|
log('existing ROM failed verification');
|
|
end;
|
|
end;
|
|
|
|
function AddRomPage(name: string): TInputFileWizardPage;
|
|
begin
|
|
Result :=
|
|
CreateInputFilePage(
|
|
wpSelectComponents,
|
|
'Select ROM File',
|
|
'Where is your ' + name + ' located?',
|
|
'Select the file, then click Next.');
|
|
|
|
Result.Add(
|
|
'Location of ROM file:',
|
|
'SNES ROM files|*.sfc;*.smc|All files|*.*',
|
|
'.sfc');
|
|
end;
|
|
|
|
|
|
function AddGBRomPage(name: string): TInputFileWizardPage;
|
|
begin
|
|
Result :=
|
|
CreateInputFilePage(
|
|
wpSelectComponents,
|
|
'Select ROM File',
|
|
'Where is your ' + name + ' located?',
|
|
'Select the file, then click Next.');
|
|
|
|
Result.Add(
|
|
'Location of ROM file:',
|
|
'GB ROM files|*.gb;*.gbc|All files|*.*',
|
|
'.gb');
|
|
end;
|
|
|
|
function AddGBARomPage(name: string): TInputFileWizardPage;
|
|
begin
|
|
Result :=
|
|
CreateInputFilePage(
|
|
wpSelectComponents,
|
|
'Select ROM File',
|
|
'Where is your ' + name + ' located?',
|
|
'Select the file, then click Next.');
|
|
Result.Add(
|
|
'Location of ROM file:',
|
|
'GBA ROM files|*.gba|All files|*.*',
|
|
'.gba');
|
|
end;
|
|
|
|
function AddSMSRomPage(name: string): TInputFileWizardPage;
|
|
begin
|
|
Result :=
|
|
CreateInputFilePage(
|
|
wpSelectComponents,
|
|
'Select ROM File',
|
|
'Where is your ' + name + ' located?',
|
|
'Select the file, then click Next.');
|
|
Result.Add(
|
|
'Location of ROM file:',
|
|
'SMS ROM files|*.sms|All files|*.*',
|
|
'.sms');
|
|
end;
|
|
|
|
function AddNESRomPage(name: string): TInputFileWizardPage;
|
|
begin
|
|
Result :=
|
|
CreateInputFilePage(
|
|
wpSelectComponents,
|
|
'Select ROM File',
|
|
'Where is your ' + name + ' located?',
|
|
'Select the file, then click Next.');
|
|
|
|
Result.Add(
|
|
'Location of ROM file:',
|
|
'NES ROM files|*.nes|All files|*.*',
|
|
'.nes');
|
|
end;
|
|
|
|
procedure AddOoTRomPage();
|
|
begin
|
|
ootrom := FileSearch('The Legend of Zelda - Ocarina of Time.z64', WizardDirValue());
|
|
if Length(ootrom) > 0 then
|
|
begin
|
|
log('existing ROM found');
|
|
log(IntToStr(CompareStr(GetMD5OfFile(ootrom), '5bd1fe107bf8106b2ab6650abecd54d6'))); // normal
|
|
log(IntToStr(CompareStr(GetMD5OfFile(ootrom), '6697768a7a7df2dd27a692a2638ea90b'))); // byteswapped
|
|
log(IntToStr(CompareStr(GetMD5OfFile(ootrom), '05f0f3ebacbc8df9243b6148ffe4792f'))); // decompressed
|
|
if (CompareStr(GetMD5OfFile(ootrom), '5bd1fe107bf8106b2ab6650abecd54d6') = 0) or (CompareStr(GetMD5OfFile(ootrom), '6697768a7a7df2dd27a692a2638ea90b') = 0) or (CompareStr(GetMD5OfFile(ootrom), '05f0f3ebacbc8df9243b6148ffe4792f') = 0) then
|
|
begin
|
|
log('existing ROM verified');
|
|
exit;
|
|
end;
|
|
log('existing ROM failed verification');
|
|
end;
|
|
ootrom := ''
|
|
OoTROMFilePage :=
|
|
CreateInputFilePage(
|
|
wpSelectComponents,
|
|
'Select ROM File',
|
|
'Where is your OoT 1.0 ROM located?',
|
|
'Select the file, then click Next.');
|
|
|
|
OoTROMFilePage.Add(
|
|
'Location of ROM file:',
|
|
'N64 ROM files (*.z64, *.n64)|*.z64;*.n64|All files|*.*',
|
|
'.z64');
|
|
end;
|
|
|
|
function AddA26Page(name: string): TInputFileWizardPage;
|
|
begin
|
|
Result :=
|
|
CreateInputFilePage(
|
|
wpSelectComponents,
|
|
'Select ROM File',
|
|
'Where is your ' + name + ' located?',
|
|
'Select the file, then click Next.');
|
|
|
|
Result.Add(
|
|
'Location of ROM file:',
|
|
'A2600 ROM files|*.BIN;*.a26|All files|*.*',
|
|
'.BIN');
|
|
end;
|
|
|
|
function NextButtonClick(CurPageID: Integer): Boolean;
|
|
begin
|
|
if (assigned(LttPROMFilePage)) and (CurPageID = LttPROMFilePage.ID) then
|
|
Result := not (LttPROMFilePage.Values[0] = '')
|
|
else if (assigned(SMROMFilePage)) and (CurPageID = SMROMFilePage.ID) then
|
|
Result := not (SMROMFilePage.Values[0] = '')
|
|
else if (assigned(DKC3ROMFilePage)) and (CurPageID = DKC3ROMFilePage.ID) then
|
|
Result := not (DKC3ROMFilePage.Values[0] = '')
|
|
else if (assigned(SMWROMFilePage)) and (CurPageID = SMWROMFilePage.ID) then
|
|
Result := not (SMWROMFilePage.Values[0] = '')
|
|
else if (assigned(SoEROMFilePage)) and (CurPageID = SoEROMFilePage.ID) then
|
|
Result := not (SoEROMFilePage.Values[0] = '')
|
|
else if (assigned(L2ACROMFilePage)) and (CurPageID = L2ACROMFilePage.ID) then
|
|
Result := not (L2ACROMFilePage.Values[0] = '')
|
|
else if (assigned(OoTROMFilePage)) and (CurPageID = OoTROMFilePage.ID) then
|
|
Result := not (OoTROMFilePage.Values[0] = '')
|
|
else if (assigned(BN3ROMFilePage)) and (CurPageID = BN3ROMFilePage.ID) then
|
|
Result := not (BN3ROMFilePage.Values[0] = '')
|
|
else if (assigned(ZlROMFilePage)) and (CurPageID = ZlROMFilePage.ID) then
|
|
Result := not (ZlROMFilePage.Values[0] = '')
|
|
else if (assigned(RedROMFilePage)) and (CurPageID = RedROMFilePage.ID) then
|
|
Result := not (RedROMFilePage.Values[0] = '')
|
|
else if (assigned(BlueROMFilePage)) and (CurPageID = BlueROMFilePage.ID) then
|
|
Result := not (BlueROMFilePage.Values[0] = '')
|
|
else if (assigned(LADXROMFilePage)) and (CurPageID = LADXROMFilePage.ID) then
|
|
Result := not (LADXROMFilePage.Values[0] = '')
|
|
else if (assigned(TLoZROMFilePage)) and (CurPageID = TLoZROMFilePage.ID) then
|
|
Result := not (TLoZROMFilePage.Values[0] = '')
|
|
else if (assigned(AdvnROMFilePage)) and (CurPageID = AdvnROMFilePage.ID) then
|
|
Result := not (AdvnROMFilePage.Values[0] = '')
|
|
else
|
|
Result := True;
|
|
end;
|
|
|
|
function GetROMPath(Param: string): string;
|
|
begin
|
|
if Length(lttprom) > 0 then
|
|
Result := lttprom
|
|
else if Assigned(LttPRomFilePage) then
|
|
begin
|
|
R := CompareStr(GetSNESMD5OfFile(LttPROMFilePage.Values[0]), '03a63945398191337e896e5771f77173')
|
|
if R <> 0 then
|
|
MsgBox('ALttP ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := LttPROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetSMROMPath(Param: string): string;
|
|
begin
|
|
if Length(smrom) > 0 then
|
|
Result := smrom
|
|
else if Assigned(SMRomFilePage) then
|
|
begin
|
|
R := CompareStr(GetSNESMD5OfFile(SMROMFilePage.Values[0]), '21f3e98df4780ee1c667b84e57d88675')
|
|
if R <> 0 then
|
|
MsgBox('Super Metroid ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := SMROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetDKC3ROMPath(Param: string): string;
|
|
begin
|
|
if Length(dkc3rom) > 0 then
|
|
Result := dkc3rom
|
|
else if Assigned(DKC3RomFilePage) then
|
|
begin
|
|
R := CompareStr(GetSNESMD5OfFile(DKC3ROMFilePage.Values[0]), '120abf304f0c40fe059f6a192ed4f947')
|
|
if R <> 0 then
|
|
MsgBox('Donkey Kong Country 3 ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := DKC3ROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetSMWROMPath(Param: string): string;
|
|
begin
|
|
if Length(smwrom) > 0 then
|
|
Result := smwrom
|
|
else if Assigned(SMWRomFilePage) then
|
|
begin
|
|
R := CompareStr(GetSNESMD5OfFile(SMWROMFilePage.Values[0]), 'cdd3c8c37322978ca8669b34bc89c804')
|
|
if R <> 0 then
|
|
MsgBox('Super Mario World ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := SMWROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetSoEROMPath(Param: string): string;
|
|
begin
|
|
if Length(soerom) > 0 then
|
|
Result := soerom
|
|
else if Assigned(SoERomFilePage) then
|
|
begin
|
|
R := CompareStr(GetSNESMD5OfFile(SoEROMFilePage.Values[0]), '6e9c94511d04fac6e0a1e582c170be3a')
|
|
if R <> 0 then
|
|
MsgBox('Secret of Evermore ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := SoEROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetOoTROMPath(Param: string): string;
|
|
begin
|
|
if Length(ootrom) > 0 then
|
|
Result := ootrom
|
|
else if Assigned(OoTROMFilePage) then
|
|
begin
|
|
R := CompareStr(GetMD5OfFile(OoTROMFilePage.Values[0]), '5bd1fe107bf8106b2ab6650abecd54d6') * CompareStr(GetMD5OfFile(OoTROMFilePage.Values[0]), '6697768a7a7df2dd27a692a2638ea90b') * CompareStr(GetMD5OfFile(OoTROMFilePage.Values[0]), '05f0f3ebacbc8df9243b6148ffe4792f');
|
|
if R <> 0 then
|
|
MsgBox('OoT ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := OoTROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetL2ACROMPath(Param: string): string;
|
|
begin
|
|
if Length(l2acrom) > 0 then
|
|
Result := l2acrom
|
|
else if Assigned(L2ACROMFilePage) then
|
|
begin
|
|
R := CompareStr(GetSNESMD5OfFile(L2ACROMFilePage.Values[0]), '6efc477d6203ed2b3b9133c1cd9e9c5d')
|
|
if R <> 0 then
|
|
MsgBox('Lufia II ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := L2ACROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetZlROMPath(Param: string): string;
|
|
begin
|
|
if Length(zlrom) > 0 then
|
|
Result := zlrom
|
|
else if Assigned(ZlROMFilePage) then
|
|
begin
|
|
R := CompareStr(GetMD5OfFile(ZlROMFilePage.Values[0]), 'd4bf9e7bcf9a48da53785d2ae7bc4270');
|
|
if R <> 0 then
|
|
MsgBox('Zillion ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := ZlROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetRedROMPath(Param: string): string;
|
|
begin
|
|
if Length(redrom) > 0 then
|
|
Result := redrom
|
|
else if Assigned(RedROMFilePage) then
|
|
begin
|
|
R := CompareStr(GetMD5OfFile(RedROMFilePage.Values[0]), '3d45c1ee9abd5738df46d2bdda8b57dc')
|
|
if R <> 0 then
|
|
MsgBox('Pokemon Red ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := RedROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetBlueROMPath(Param: string): string;
|
|
begin
|
|
if Length(bluerom) > 0 then
|
|
Result := bluerom
|
|
else if Assigned(BlueROMFilePage) then
|
|
begin
|
|
R := CompareStr(GetMD5OfFile(BlueROMFilePage.Values[0]), '50927e843568814f7ed45ec4f944bd8b')
|
|
if R <> 0 then
|
|
MsgBox('Pokemon Blue ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := BlueROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetTLoZROMPath(Param: string): string;
|
|
begin
|
|
if Length(tlozrom) > 0 then
|
|
Result := tlozrom
|
|
else if Assigned(TLoZROMFilePage) then
|
|
begin
|
|
R := CompareStr(GetMD5OfFile(TLoZROMFilePage.Values[0]), '337bd6f1a1163df31bf2633665589ab0');
|
|
if R <> 0 then
|
|
MsgBox('The Legend of Zelda ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := TLoZROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetLADXROMPath(Param: string): string;
|
|
begin
|
|
if Length(ladxrom) > 0 then
|
|
Result := ladxrom
|
|
else if Assigned(LADXROMFilePage) then
|
|
begin
|
|
R := CompareStr(GetMD5OfFile(LADXROMFilePage.Values[0]), '07c211479386825042efb4ad31bb525f')
|
|
if R <> 0 then
|
|
MsgBox('Link''s Awakening DX ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := LADXROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetAdvnROMPath(Param: string): string;
|
|
begin
|
|
if Length(advnrom) > 0 then
|
|
Result := advnrom
|
|
else if Assigned(AdvnROMFilePage) then
|
|
begin
|
|
R := CompareStr(GetMD5OfFile(AdvnROMFilePage.Values[0]), '157bddb7192754a45372be196797f284');
|
|
if R <> 0 then
|
|
MsgBox('Adventure ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := AdvnROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
function GetBN3ROMPath(Param: string): string;
|
|
begin
|
|
if Length(bn3rom) > 0 then
|
|
Result := bn3rom
|
|
else if Assigned(BN3ROMFilePage) then
|
|
begin
|
|
R := CompareStr(GetMD5OfFile(BN3ROMFilePage.Values[0]), '6fe31df0144759b34ad666badaacc442')
|
|
if R <> 0 then
|
|
MsgBox('MegaMan Battle Network 3 Blue ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
|
|
|
|
Result := BN3ROMFilePage.Values[0]
|
|
end
|
|
else
|
|
Result := '';
|
|
end;
|
|
|
|
procedure InitializeWizard();
|
|
begin
|
|
AddOoTRomPage();
|
|
|
|
lttprom := CheckRom('Zelda no Densetsu - Kamigami no Triforce (Japan).sfc', '03a63945398191337e896e5771f77173');
|
|
if Length(lttprom) = 0 then
|
|
LttPROMFilePage:= AddRomPage('Zelda no Densetsu - Kamigami no Triforce (Japan).sfc');
|
|
|
|
smrom := CheckRom('Super Metroid (JU).sfc', '21f3e98df4780ee1c667b84e57d88675');
|
|
if Length(smrom) = 0 then
|
|
SMRomFilePage:= AddRomPage('Super Metroid (JU).sfc');
|
|
|
|
dkc3rom := CheckRom('Donkey Kong Country 3 - Dixie Kong''s Double Trouble! (USA) (En,Fr).sfc', '120abf304f0c40fe059f6a192ed4f947');
|
|
if Length(dkc3rom) = 0 then
|
|
DKC3RomFilePage:= AddRomPage('Donkey Kong Country 3 - Dixie Kong''s Double Trouble! (USA) (En,Fr).sfc');
|
|
|
|
smwrom := CheckRom('Super Mario World (USA).sfc', 'cdd3c8c37322978ca8669b34bc89c804');
|
|
if Length(smwrom) = 0 then
|
|
SMWRomFilePage:= AddRomPage('Super Mario World (USA).sfc');
|
|
|
|
soerom := CheckRom('Secret of Evermore (USA).sfc', '6e9c94511d04fac6e0a1e582c170be3a');
|
|
if Length(soerom) = 0 then
|
|
SoEROMFilePage:= AddRomPage('Secret of Evermore (USA).sfc');
|
|
|
|
zlrom := CheckSMSRom('Zillion (UE) [!].sms', 'd4bf9e7bcf9a48da53785d2ae7bc4270');
|
|
if Length(zlrom) = 0 then
|
|
ZlROMFilePage:= AddSMSRomPage('Zillion (UE) [!].sms');
|
|
|
|
redrom := CheckRom('Pokemon Red (UE) [S][!].gb','3d45c1ee9abd5738df46d2bdda8b57dc');
|
|
if Length(redrom) = 0 then
|
|
RedROMFilePage:= AddGBRomPage('Pokemon Red (UE) [S][!].gb');
|
|
|
|
bluerom := CheckRom('Pokemon Blue (UE) [S][!].gb','50927e843568814f7ed45ec4f944bd8b');
|
|
if Length(bluerom) = 0 then
|
|
BlueROMFilePage:= AddGBRomPage('Pokemon Blue (UE) [S][!].gb');
|
|
|
|
bn3rom := CheckRom('Mega Man Battle Network 3 - Blue Version (USA).gba','6fe31df0144759b34ad666badaacc442');
|
|
if Length(bn3rom) = 0 then
|
|
BN3ROMFilePage:= AddGBARomPage('Mega Man Battle Network 3 - Blue Version (USA).gba');
|
|
|
|
ladxrom := CheckRom('Legend of Zelda, The - Link''s Awakening DX (USA, Europe) (SGB Enhanced).gbc','07c211479386825042efb4ad31bb525f');
|
|
if Length(ladxrom) = 0 then
|
|
LADXROMFilePage:= AddGBRomPage('Legend of Zelda, The - Link''s Awakening DX (USA, Europe) (SGB Enhanced).gbc');
|
|
|
|
l2acrom := CheckRom('Lufia II - Rise of the Sinistrals (USA).sfc', '6efc477d6203ed2b3b9133c1cd9e9c5d');
|
|
if Length(l2acrom) = 0 then
|
|
L2ACROMFilePage:= AddRomPage('Lufia II - Rise of the Sinistrals (USA).sfc');
|
|
|
|
tlozrom := CheckNESROM('Legend of Zelda, The (U) (PRG0) [!].nes', '337bd6f1a1163df31bf2633665589ab0');
|
|
if Length(tlozrom) = 0 then
|
|
TLoZROMFilePage:= AddNESRomPage('Legend of Zelda, The (U) (PRG0) [!].nes');
|
|
|
|
advnrom := CheckSMSRom('ADVNTURE.BIN', '157bddb7192754a45372be196797f284');
|
|
if Length(advnrom) = 0 then
|
|
AdvnROMFilePage:= AddA26Page('ADVNTURE.BIN');
|
|
end;
|
|
|
|
|
|
function ShouldSkipPage(PageID: Integer): Boolean;
|
|
begin
|
|
Result := False;
|
|
if (assigned(LttPROMFilePage)) and (PageID = LttPROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('client/sni/lttp') or WizardIsComponentSelected('generator/lttp'));
|
|
if (assigned(SMROMFilePage)) and (PageID = SMROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('client/sni/sm') or WizardIsComponentSelected('generator/sm'));
|
|
if (assigned(DKC3ROMFilePage)) and (PageID = DKC3ROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('client/sni/dkc3') or WizardIsComponentSelected('generator/dkc3'));
|
|
if (assigned(SMWROMFilePage)) and (PageID = SMWROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('client/sni/smw') or WizardIsComponentSelected('generator/smw'));
|
|
if (assigned(L2ACROMFilePage)) and (PageID = L2ACROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('client/sni/l2ac') or WizardIsComponentSelected('generator/l2ac'));
|
|
if (assigned(SoEROMFilePage)) and (PageID = SoEROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('generator/soe'));
|
|
if (assigned(OoTROMFilePage)) and (PageID = OoTROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('generator/oot') or WizardIsComponentSelected('client/oot'));
|
|
if (assigned(ZlROMFilePage)) and (PageID = ZlROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('generator/zl') or WizardIsComponentSelected('client/zl'));
|
|
if (assigned(RedROMFilePage)) and (PageID = RedROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('generator/pkmn_r') or WizardIsComponentSelected('client/pkmn/red'));
|
|
if (assigned(BlueROMFilePage)) and (PageID = BlueROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('generator/pkmn_b') or WizardIsComponentSelected('client/pkmn/blue'));
|
|
if (assigned(BN3ROMFilePage)) and (PageID = BN3ROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('generator/mmbn3') or WizardIsComponentSelected('client/mmbn3'));
|
|
if (assigned(LADXROMFilePage)) and (PageID = LADXROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('generator/ladx') or WizardIsComponentSelected('client/ladx'));
|
|
if (assigned(TLoZROMFilePage)) and (PageID = TLoZROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('generator/tloz') or WizardIsComponentSelected('client/tloz'));
|
|
if (assigned(AdvnROMFilePage)) and (PageID = AdvnROMFilePage.ID) then
|
|
Result := not (WizardIsComponentSelected('client/advn'));
|
|
end;
|