Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials

Reply
 
Thread Tools Display Modes
  #1  
Old 02-09-2016, 14:38
ATL4NTYS ATL4NTYS is offline
Registered User
 
Join Date: Oct 2013
Location: Czech Republic
Posts: 22
Thanks: 4
Thanked 2 Times in 2 Posts
ATL4NTYS is on a distinguished road
Add Compression method HELP...

Hello i'm litlle lama and i want add compression like in script WPI to this... please help.. this knows just few and they are unworking... (and sorry for my bad english) please help.. please... can anyone help me and add the compression methods into this script...?




Last edited by ATL4NTYS; 05-09-2016 at 07:46.
Reply With Quote
Sponsored Links
  #2  
Old 03-09-2016, 08:55
felice2011's Avatar
felice2011 felice2011 is offline
Registered User
 
Join Date: Feb 2011
Location: italy
Posts: 834
Thanks: 348
Thanked 1,146 Times in 386 Posts
felice2011 is on a distinguished road
@ATL4NTYS does not write to me in private, I have the overflowing mailbox.
I tested the script that you posted, and I changed to test with this method (precomp+srep+delta+dispack070+4x4:lzma:max) is working perfectly.
explained better and let me know what you need, or what precise method you want to configure the installation of this script.
__________________
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈
I Mediocri Imitano, I Geni Copiano, Dio Crea & Distrugge (Io Ridefinisco & Perfeziono le Loro Opere Rendendole Uniche)
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈
Mediocrities Imitate, Genius Copy, God Creates & Destroys (I Reconsider & Improve Their Works, Rending Them One And Only)

Last edited by felice2011; 03-09-2016 at 08:57.
Reply With Quote
  #3  
Old 04-09-2016, 05:07
ATL4NTYS ATL4NTYS is offline
Registered User
 
Join Date: Oct 2013
Location: Czech Republic
Posts: 22
Thanks: 4
Thanked 2 Times in 2 Posts
ATL4NTYS is on a distinguished road
@felice2011 Ouch sorry my mistake.. compression method works but with any compression i get an error with ISDone.dll



Can you solve it?
Thx for reply..
Reply With Quote
  #4  
Old 04-09-2016, 05:46
felice2011's Avatar
felice2011 felice2011 is offline
Registered User
 
Join Date: Feb 2011
Location: italy
Posts: 834
Thanks: 348
Thanked 1,146 Times in 386 Posts
felice2011 is on a distinguished road
Read so the error is a somewhat difficult to decipher, I read only IsArcExtract.

I recommend the use of MSKompressor instead of Split Kompress, it has a range of more compressors.

Edit this point as below :
Code:
if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
        repeat
          if not SrepInit(ExpandConstant('{app}'),512,0) then break;
          if not PrecompInit(ExpandConstant('{app}'),128,PCFVer) then break;
          if not FileSearchInit(true) then break;
          if not ISArcExtract    (0, 100, ExpandConstant('{src}\data.arc'), ExpandConstant('{app}'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
          if not ShowChangeDiskWindow ('bla bla bla.', ExpandConstant('{src}'),'data.arc') then break;
          FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
          ExecError:=false;
          while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
            InFilePath:=ISGetName(0);
            OutFilePath:=ISGetName(1);
            OutFileName:=ISGetName(2);
            ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
          end;
          ISFindFree(FindHandle1);
          if ExecError then break;
          ISDoneError:=false;
        until true;
        ISDoneStop;
      end;
Logically the name 'data.arc' is the archive name we're going to insert.

Here add the names of compressors we're going to compile in the installation :
Code:
[Files]
Source: "Files\unarc.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\ISDone.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
#ifdef records
Source: "records.ini"; DestDir: "{tmp}"; Flags: "dontcopy";
#endif
#ifdef PrecompInside
Source: "Files\packjpg_dll.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\packjpg_dll1.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\precomp.exe"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\zlib1.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
#endif
#ifdef SrepInside
Source: "Files\CLS-srep.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\CLS-MSC.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\srep.exe"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\srep64.exe"; DestDir: "{tmp}"; Flags: "dontcopy";
#endif
#ifdef facompress
Source: "Files\facompress.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\facompress_mt.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
#endif
#ifdef unrar
Source: "Files\Unrar.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\arc.ini"; DestDir: "{tmp}"; Flags: "dontcopy";
#endif
#ifdef XDelta
Source: "Files\XDelta3.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
#endif
#ifdef PackZIP
Source: "Files\7z.dll"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\dec.exe"; DestDir: "{tmp}"; Flags: "dontcopy";
Source: "Files\packZIP.exe"; DestDir: "{tmp}"; Flags: "dontcopy";
#endif
Here we add the names of compressors that will be extracted to a temporary path during installation:
Code:
case CurStep of
    ssInstall: begin
      WizardForm.CancelButton.OnClick := @CancelButtonOnClick;
      ISDoneCancel:=0;
      ExtractTemporaryFile('unarc.dll');
      ExtractTemporaryFile('arc.ini');
#ifdef PrecompInside
      ExtractTemporaryFile('packjpg_dll.dll');
      ExtractTemporaryFile('packjpg_dll1.dll');
      ExtractTemporaryFile('precomp.exe');
      ExtractTemporaryFile('zlib1.dll');
#endif
#ifdef SrepInside
      ExtractTemporaryFile('CLS-MSC.dll');
      ExtractTemporaryFile('CLS-srep.dll');
      ExtractTemporaryFile('srep.exe');
      ExtractTemporaryFile('srep64.exe');
#endif
#ifdef facompress
      ExtractTemporaryFile('facompress.dll');
      ExtractTemporaryFile('facompress_mt.dll');
#endif
#ifdef records
      ExtractTemporaryFile('records.inf');
#endif
#ifdef unrar
      ExtractTemporaryFile('Unrar.dll');
#endif
#ifdef XDelta
      ExtractTemporaryFile('XDelta3.dll');
#endif
#ifdef PackZIP
      ExtractTemporaryFile('7z.dll');
      ExtractTemporaryFile('dec.exe');
      ExtractTemporaryFile('PackZIP.exe');
#endif
      Comps1:=0;
      Comps2:=0;
      Comps3:=0;
#ifdef precomp
      PCFVer:={#precomp};
    #else
      PCFVer:=0;
#endif
Logically and it is understood that the name of the compressors you added in the script, must be entered before in the "Files" folder.
Last thing, if you use different versions of precomp, just copy and replace the existing precomp always in the "Files" folder.
The script that you posted is tested and working with your modifications, enjoy..
__________________
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈
I Mediocri Imitano, I Geni Copiano, Dio Crea & Distrugge (Io Ridefinisco & Perfeziono le Loro Opere Rendendole Uniche)
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈
Mediocrities Imitate, Genius Copy, God Creates & Destroys (I Reconsider & Improve Their Works, Rending Them One And Only)

Last edited by felice2011; 04-09-2016 at 05:54.
Reply With Quote
The Following 2 Users Say Thank You to felice2011 For This Useful Post:
ATL4NTYS (04-09-2016), knife16 (04-09-2016)
  #5  
Old 04-09-2016, 06:48
ATL4NTYS ATL4NTYS is offline
Registered User
 
Join Date: Oct 2013
Location: Czech Republic
Posts: 22
Thanks: 4
Thanked 2 Times in 2 Posts
ATL4NTYS is on a distinguished road
@felice2011 Okey thanks a lot..

Last edited by ATL4NTYS; 04-09-2016 at 07:26.
Reply With Quote
  #6  
Old 04-09-2016, 09:52
ATL4NTYS ATL4NTYS is offline
Registered User
 
Join Date: Oct 2013
Location: Czech Republic
Posts: 22
Thanks: 4
Thanked 2 Times in 2 Posts
ATL4NTYS is on a distinguished road
Exclamation

@felice2011 Can you help me with last problem what i have... I dont know where the f*** are they words... the russian texts.. i dont want it! can you help me with remove it or trasnalte i dont know where..?


this is when installing (progress bar)


and this is when finalizing (finished)


please help mr. magic..
Reply With Quote
  #7  
Old 04-09-2016, 11:29
felice2011's Avatar
felice2011 felice2011 is offline
Registered User
 
Join Date: Feb 2011
Location: italy
Posts: 834
Thanks: 348
Thanked 1,146 Times in 386 Posts
felice2011 is on a distinguished road
This is what I found to be translated from Czech to English ...
Code:
[Languages]
Name: "ENG"; MessagesFile: "compiler:Languages\english.isl";
[Messages]
ButtonNext=Install
ButtonCancel=Cancel
ButtonWizardBrowse=Browse
Code:
StatusLabel := TLabel.Create(WizardForm);
  with StatusLabel do begin
    Parent:=WizardForm;
    AutoSize:=True;
    Transparent:=True;
    SetBounds(ScaleX(9), ScaleY(180), ScaleX(0), ScaleY(0));
    Caption:='Completion Of...';
  end;
Code:
if CurPageID = wpWelcome then begin
    GetSpaceOnDisk(ExtractFileDrive(WizardForm.DirEdit.Text), True, FreeMB, TotalMB);
    if FreeMB<{#NeedInstallSize} then begin
      MsgBox('         Insufficient Disk Space!'#13'Required Space For Installation: '+MbOrTb({#NeedInstallSize})+#13'    Free Space: '+MbOrTb(FreeMB)+' z '+MbOrTb(TotalMB), mbError, mb_Ok);
      Result := False ;
    end;
Code:
      if ISDoneError then begin
        StatusLabel.Caption:='Uninstalling...';
        ISDoneProgressBar.Hide;
        Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
      end;
__________________
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈
I Mediocri Imitano, I Geni Copiano, Dio Crea & Distrugge (Io Ridefinisco & Perfeziono le Loro Opere Rendendole Uniche)
≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈ ≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈
Mediocrities Imitate, Genius Copy, God Creates & Destroys (I Reconsider & Improve Their Works, Rending Them One And Only)
Reply With Quote
  #8  
Old 04-09-2016, 13:10
ATL4NTYS ATL4NTYS is offline
Registered User
 
Join Date: Oct 2013
Location: Czech Republic
Posts: 22
Thanks: 4
Thanked 2 Times in 2 Posts
ATL4NTYS is on a distinguished road
@felice2011 no no.. you dont understand me... my language is Czech I'm from czech republic.. Czech.isl is fine and the translations so... but my problem is the russian words in the taskbar (via screens) ... i dont know where in the script is the russian words... i want to translate it to czech but i dont know where is the sources of them..
Reply With Quote
  #9  
Old 04-09-2016, 14:27
felice2011's Avatar
felice2011 felice2011 is offline
Registered User
 
Join Date: Feb 2011
Location: italy
Posts: 834
Thanks: 348
Thanked 1,146 Times in 386 Posts
felice2011 is on a distinguished road
You check ...
Code:
[Languages]
Name: eng; MessagesFile: compiler:Languages\English.isl
You insert "english.ini" inside the "Files" folder ...english.rar ..

Insert the same name to be compiled ...
Code:
Source: "Files\english.ini"; DestDir: "{tmp}"; Flags: "dontcopy";
Same thing for the temporary extraction ...
Code:
ExtractTemporaryFile('english.ini');
Add this switch here written in red:
Code:
if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
        repeat
        case ActiveLanguage of
        'eng': ChangeLanguage('English');
        end;
          if not SrepInit(ExpandConstant('{app}'),512,0) then break;
          if not PrecompInit(ExpandConstant('{app}'),128,PCFVer) then break;
          if not FileSearchInit(true) then break;
          if not ISArcExtract    (0, 100, ExpandConstant('{src}\data.arc'), ExpandConstant('{app}'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
          if not ShowChangeDiskWindow ('bla bla bla.', ExpandConstant('{src}'),'data.arc') then break;
          FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
          ExecError:=false;
          while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
            InFilePath:=ISGetName(0);
            OutFilePath:=ISGetName(1);
            OutFileName:=ISGetName(2);
            ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
          end;
          ISFindFree(FindHandle1);
          if ExecError then break;
          ISDoneError:=false;
        until true;
        ISDoneStop;
      end;
I simulated the same mistake that initially gave you ...



As you can read the error is written in Italian, because I translated the error line within the "English.ini" files in Italian.
Same thing you can do if you do not have file (*.ini) preconfigured in your language.

EDIT:The only thing that does not come back, that during installation I have not any progressbar in the task bar, as the picture you posted, maybe because I use w7.

Last edited by felice2011; 04-09-2016 at 15:41.
Reply With Quote
The Following 2 Users Say Thank You to felice2011 For This Useful Post:
ATL4NTYS (05-09-2016), knife16 (11-09-2016)
  #10  
Old 05-09-2016, 07:27
ATL4NTYS ATL4NTYS is offline
Registered User
 
Join Date: Oct 2013
Location: Czech Republic
Posts: 22
Thanks: 4
Thanked 2 Times in 2 Posts
ATL4NTYS is on a distinguished road
You are magic! thanx!
Reply With Quote
Reply

Thread Tools
Display Modes

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
Masked Compression (Ultimate compression in one go) panker1992 Conversion Tutorials 658 01-02-2021 15:02
Compression Method AzPo Conversion Tutorials 6 14-07-2016 14:26
Easy Compression Tool (3 Step Method) alley_u2 Conversion Tutorials 36 22-05-2014 05:16
Best compression method? What is it? Dooddy21 PC Games - CD/DVD Conversions 2 06-01-2014 23:23



All times are GMT -7. The time now is 18:40.


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