Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials
Register FAQ Community Calendar Today's Posts Search

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #11  
Old 07-04-2020, 07:04
pincoball pincoball is offline
Registered User
 
Join Date: Mar 2020
Location: Italy
Posts: 29
Thanks: 20
Thanked 10 Times in 8 Posts
pincoball is on a distinguished road
I think I've found the solution for DiskSpan based on the example script posted from Razor12911 at

https://www.fileforums.com/showthread.php?t=99627

What was missing is simply the initialization of DiskSpan inside the script (i.e. ClsInit), then in order to solve the problem of request of the next disk do as follow:

Look for this snippet of code inside the IS script:

Code:
if Data[i - 1].Arc[0] = 'Freearc_Original' then
[... other code ...]
if ISDoneError = False and not IniKeyExists('Records2', 'Type', ExpandConstant('{{#InternalRecords == "1" ? "tmp" : "src"}}\records.ini')) and ({#UseComponents} = 0) then
            begin
              if not ISArcExtract(0, 100, UpdateSource(Data[i - 1].Arc[1],SourceDir), Data[i - 1].Arc[2], '', false, '', ExpandConstant('{tmp}\arc.ini'), Data[i - 1].Arc[2], false) then
                ISDoneError := True;
            end else begin
              if not ISArcExtract(0, 0, UpdateSource(Data[i - 1].Arc[1],SourceDir), Data[i - 1].Arc[2], '', false, '', ExpandConstant('{tmp}\arc.ini'), Data[i - 1].Arc[2], false) then
                ISDoneError := True;
            end;
            end;
then substitute with:

Code:
if Data[i - 1].Arc[0] = 'Freearc_Original' then
[... other code ...]
if ISDoneError = False and not IniKeyExists('Records2', 'Type', ExpandConstant('{{#InternalRecords == "1" ? "tmp" : "src"}}\records.ini')) and ({#UseComponents} = 0) then
            begin
              ClsInit(ExpandConstant('{src}'),WizardForm.Handle);
              if not ISArcExtract(0, 100, UpdateSource(Data[i - 1].Arc[1],SourceDir), Data[i - 1].Arc[2], '', false, '', ExpandConstant('{tmp}\arc.ini'), Data[i - 1].Arc[2], false) then
                ISDoneError := True;
            end else begin
              if not ISArcExtract(0, 0, UpdateSource(Data[i - 1].Arc[1],SourceDir), Data[i - 1].Arc[2], '', false, '', ExpandConstant('{tmp}\arc.ini'), Data[i - 1].Arc[2], false) then
                ISDoneError := True;
            end;
            end;
The only difference is the line with ClsInit(...) function
Reply With Quote
The Following User Says Thank You to pincoball For This Useful Post:
KaktoR (08-04-2020)
 


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
[Help] need Advanced Installer script with Razor1911's UltraArc module rez3vil Conversion Tutorials 3 15-04-2024 02:24
Portable Installer Inno Setup Script y_thelastknight Conversion Tutorials 59 23-10-2020 00:02
INDEX - Conversion Tutorial Index Razor12911 Conversion Tutorials 5 11-06-2020 02:05
Simple Arc Installer 78372 Conversion Tutorials 1 15-06-2017 15:37
MSC+Srep+lzma Simple Script Example gozarck Conversion Tutorials 10 07-09-2015 16:31



All times are GMT -7. The time now is 06:14.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com