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

Reply
 
Thread Tools Display Modes
  #541  
Old 31-10-2018, 07:13
Cesar82 Cesar82 is offline
Registered User
 
Join Date: May 2011
Location: cesar.zanetti.82********com
Posts: 162
Thanks: 132
Thanked 239 Times in 59 Posts
Cesar82 is on a distinguished road
SUGESTION: Template to news conversions

Hello guys.
I do not know if the forum does, but there is no way I could create a Template for new conversion posts.
In this template add standard information as credits to the programs used, with fonts formatting, etc.

Random example in image:

It would only be necessary to change versions of the programs used, conversion creator and little else.
It could be created 2 templates being one of them for UltraArc and another for DiskSpan conversions
Reply With Quote
The Following User Says Thank You to Cesar82 For This Useful Post:
mausschieber (31-10-2018)
Sponsored Links
  #542  
Old 31-10-2018, 07:25
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 2,155
Thanks: 549
Thanked 3,118 Times in 1,106 Posts
KaktoR is on a distinguished road
I don't know if vBulletin has such a feature. Better ask EMPiRE (he's the admin here).
__________________
Haters gonna hate
RIP Voksi
Reply With Quote
  #543  
Old 31-10-2018, 07:29
pakrat2k2's Avatar
pakrat2k2 pakrat2k2 is offline
Moderator
 
Join Date: Apr 2005
Location: Canada
Posts: 6,932
Thanks: 2,705
Thanked 7,950 Times in 2,823 Posts
pakrat2k2 is on a distinguished road
not really, all i usually do is make a simple text file, & change the basic information in it for each game, ( text & images )
Reply With Quote
  #544  
Old 31-10-2018, 07:41
Grumpy's Avatar
Grumpy Grumpy is offline
Moderator
 
Join Date: Jun 2004
Location: Australia
Posts: 5,293
Thanks: 668
Thanked 1,146 Times in 490 Posts
Grumpy is on a distinguished road
Yeh just a simple Word Document is all I use as a Template for everything
__________________
Can't find a Game Conversion? Check the 'Conversion INDEX'
Reply With Quote
  #545  
Old 01-11-2018, 09:04
zirkhaki's Avatar
zirkhaki zirkhaki is offline
Registered User
 
Join Date: Jul 2009
Location: Iran
Posts: 247
Thanks: 1,196
Thanked 126 Times in 81 Posts
zirkhaki is on a distinguished road
how can I change the welcome screen and license agreement color?
I can not see the check box with this setting
Attached Images
File Type: jpg welcom screen.jpg (75.8 KB, 88 views)
Reply With Quote
  #546  
Old 02-11-2018, 04:00
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 2,155
Thanks: 549
Thanked 3,118 Times in 1,106 Posts
KaktoR is on a distinguished road
It is dependend of the style you use. Try to use another cjstyle / vcl style.

Unfortunately there is no way to change the color inside CIU. You have to edit the style itself i think.
__________________
Haters gonna hate
RIP Voksi
Reply With Quote
The Following User Says Thank You to KaktoR For This Useful Post:
zirkhaki (02-11-2018)
  #547  
Old 02-11-2018, 09:18
zirkhaki's Avatar
zirkhaki zirkhaki is offline
Registered User
 
Join Date: Jul 2009
Location: Iran
Posts: 247
Thanks: 1,196
Thanked 126 Times in 81 Posts
zirkhaki is on a distinguished road
I've deleted the "TextBG.png" from setup folder and the problem solved
Reply With Quote
  #548  
Old 02-11-2018, 10:57
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 2,155
Thanks: 549
Thanked 3,118 Times in 1,106 Posts
KaktoR is on a distinguished road
Oh ok, you meant the red color I thought you meant something else

Good to know you've sort it out!
__________________
Haters gonna hate
RIP Voksi
Reply With Quote
  #549  
Old 02-11-2018, 11:29
K4miKaZe's Avatar
K4miKaZe K4miKaZe is offline
Registered User
 
Join Date: Sep 2018
Location: Spain
Posts: 116
Thanks: 107
Thanked 191 Times in 71 Posts
K4miKaZe is on a distinguished road
Talking about the styles, is there any good freeware tool for editing/creating vcl styles?

Thanks !!!
Reply With Quote
  #550  
Old 02-11-2018, 12:18
Cesar82 Cesar82 is offline
Registered User
 
Join Date: May 2011
Location: cesar.zanetti.82********com
Posts: 162
Thanks: 132
Thanked 239 Times in 59 Posts
Cesar82 is on a distinguished road
Quote:
Originally Posted by K4miKaZe View Post
Talking about the styles, is there any good freeware tool for editing/creating vcl styles?

Thanks !!!
VCLStyleViewer and BitmapStyleDesigner
Reply With Quote
The Following 5 Users Say Thank You to Cesar82 For This Useful Post:
K4miKaZe (02-11-2018), sajmon83 (02-11-2018), Simorq (03-11-2018), Stor31 (03-11-2018), zirkhaki (03-11-2018)
  #551  
Old 02-11-2018, 12:36
K4miKaZe's Avatar
K4miKaZe K4miKaZe is offline
Registered User
 
Join Date: Sep 2018
Location: Spain
Posts: 116
Thanks: 107
Thanked 191 Times in 71 Posts
K4miKaZe is on a distinguished road
Quote:
Originally Posted by Cesar82 View Post
Thank you very much Cesar82
Reply With Quote
  #552  
Old 05-11-2018, 14:16
KaktoR KaktoR is offline
Lame User
 
Join Date: Jan 2012
Location: From outer space
Posts: 2,155
Thanks: 549
Thanked 3,118 Times in 1,106 Posts
KaktoR is on a distinguished road
Next update for the _Tools will be rolling out if CIUv3 is ready (yes, v3! I will say some words in the next days/weeks to it)

Code:
-Updated UltraArc to 2900 R6 (thanks to Simorq)
-Updated Too_lazy_to_copy_myself
  > It is now compatible with CIUv3
  > Older versions before u15.1 are not compatible
-Updated UltraArc _DiskSpan.bat file
  > DiskSpan will now create records.ini automaticaly
  > With new UltraArc version there were a few outdated methods in _DiskSpan.bat
-Fixed Input/Output size for all DiskSpan versions
  > The Output size was created after ISO creation, therefore Output size was wrong
    because the batch was calculating both Folders and ISO files
__________________
Haters gonna hate
RIP Voksi
Reply With Quote
The Following 8 Users Say Thank You to KaktoR For This Useful Post:
Cesar82 (05-11-2018), houcine80 (05-11-2018), kassane (06-11-2018), mausschieber (05-11-2018), omdj (10-11-2018), pakrat2k2 (05-11-2018), Simorq (06-11-2018), zirkhaki (09-11-2018)
  #553  
Old 06-11-2018, 14:15
Simorq's Avatar
Simorq Simorq is offline
Registered User
 
Join Date: Mar 2014
Location: Iran
Posts: 489
Thanks: 3,037
Thanked 795 Times in 300 Posts
Simorq is on a distinguished road
Internal Extract

Extract Settings mode is better for using DISKSPAN.
Code:
Setup.ini
[ExtractSettings]
FreeArcFile1=RG-1.Bin.001;DestDir:{app};Disk:1;
FreeArcFile2=RG-2.Bin.001;DestDir:{app};Disk:2;Comp:1;

Code:
#Define Mode "ExtractSettings"

.....
[Files]
.....
#ifdef Mode
#if Mode == "UltraARC"
Source: Include\OtherTools\Split.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\DiskSpan\R2\CLS-DISKSPAN.dll; DestDir: {tmp}; Flags: dontcopy
#else
#if Mode == "ExtractSettings"
Source: Include\DiskSpan\R2\CLS-DISKSPAN.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#endif
#endif
.....

Code
....
  #ifdef Mode
  #if Mode == "UltraARC"
  TData = record Arc: Array of String; end;
  #endif
  #endif
....


#ifdef Mode
#if Mode == "UltraARC"
procedure UltraARC_Process;
....
#endif
#endif

#ifdef Mode
#if Mode == "ExtractSettings"
procedure ExtractTemporaryFileIfNoExist(Filename: String);
begin
  if not FileExists(ExpandConstant('{tmp}\' + Filename)) then
    ExtractTemporaryFile(Filename);
end;

procedure ISDone_Resources;
var
  CurrFile: String;
begin
  CurrFile := '';
  #sub ExtractFile
    #if (TmpInt == 1)
      #define public StrFile LowerCase(ExtractFileName(ExtractFilePath(PathList[i])))
      #if ((Pos('win64', StrFile) > 0) || (Pos('x64', StrFile) > 0))
      if IsWin64 then begin
        ExtractTemporaryFile('{#FindGetFileName(FindHandle)}.Win64');
        CurrFile := ExpandConstant('{tmp}\{#FindGetFileName(FindHandle)}.Win64');
        FileCopy(CurrFile, ChangeFileExt(CurrFile, ''), False);
        DeleteFile(CurrFile);
      end;
      #else
      if not IsWin64 then begin
        ExtractTemporaryFile('{#FindGetFileName(FindHandle)}.Win32');
        CurrFile := ExpandConstant('{tmp}\{#FindGetFileName(FindHandle)}.Win32');
        FileCopy(CurrFile, ChangeFileExt(CurrFile, ''), False);
        DeleteFile(CurrFile);
      end;
      #endif
    #else
      ExtractTemporaryFile('{#FindGetFileName(FindHandle)}');
    #endif
  #endsub
  #sub ExtractPathOrFile
    #define public TmpInt DualList[i]
    #for {FindHandle = FindResult = FindFirst(PathList[i], 0); FindResult; FindResult = FindNext(FindHandle)} ExtractFile
    #if FindHandle
      #expr FileClose(FindHandle)
    #endif
    #if FindResult
      #expr FileClose(FindResult)
    #endif
  #endsub
  #for {i = 0; i < DimOf(PathList); i++} ExtractPathOrFile
    ExtractTemporaryFileIfNoExist('CLS-DISKSPAN.dll');
end;
#endif
#endif  

...........................................
procedure CurStepChanged(CurStep: TSetupStep);
............
 #ifdef Mode
    #if Mode == "ExtractSettings"
      Wizardform.ProgressGauge.Max:=0
      i := 1;
      if GetValStrES('FreeArcFile' + IntToStr(i)) <> '' then begin
         repeat
            Arcs:=ArcDecode(GetValStrES('FreeArcFile' + IntToStr(i)))
            if ((LanguageTranslator(Arcs[4]) = ActiveLanguage) or  (Arcs[4] = '')) and (ComponentsCheckFA(Arcs[5])) then begin
               if Arcs[3] = '1' then
                 Wizardform.ProgressGauge.Max:=Wizardform.ProgressGauge.Max + 4000
               else
                 Wizardform.ProgressGauge.Max:=Wizardform.ProgressGauge.Max + 1000;
            end;
          i:= i + 1
         until GetValStrES('FreeArcFile' + IntToStr(i)) = ''
         end;
         i := 1;
         if GetValStrES('7zFile' + IntToStr(i)) <> '' then begin
         repeat
          Arcs:=ArcDecode(GetValStrES('7zFile' + IntToStr(i)))
          if ((LanguageTranslator(Arcs[4]) = ActiveLanguage) or  (Arcs[4] = '')) and (ComponentsCheckFA(Arcs[5])) then
           Wizardform.ProgressGauge.Max:=Wizardform.ProgressGauge.Max + 1000;
          i:= i + 1
          until GetValStrES('7zFile' + IntToStr(i)) = ''
         end;
         i := 1;
         if GetValStrES('RarFile' + IntToStr(i)) <> '' then begin
         repeat
         Arcs:=ArcDecode(GetValStrES('RarFile' + IntToStr(i)))
         if ((LanguageTranslator(Arcs[4]) = ActiveLanguage) or  (Arcs[4] = '')) and (ComponentsCheckFA(Arcs[5])) then
          Wizardform.ProgressGauge.Max:=Wizardform.ProgressGauge.Max + 1000;
         i:= i + 1
         until GetValStrES('RarFile' + IntToStr(i)) = ''
       end;
     ISDone_Resources;
     ExtractTemporaryFile('English.ini');
     MyError:=false;
     i := 1;
     if ISDoneInit(ExpandConstant('{tmp}\records.inf'), $F777, 0,0,0, MainForm.Handle, 0, @ProgressCallback) then begin
      repeat
        ChangeLanguage('English');
        #ifdef SrepInside
          #if SrepInside == "O"
        if not SrepInit(ExpandConstant('{app}'),1024,0) then break;
        #endif
          #endif
        if not PrecompInit(ExpandConstant('{app}'),128,0) then break;
        if not FileSearchInit(true) then MyError := True;
        ClsInit(ExpandConstant('{src}'),WizardForm.Handle);
        if (GetValStrES('FreeArcFile' + IntToStr(i)) <> '') and (MyError = False) then begin
         repeat
         Arcs:=ArcDecode(GetValStrES('FreeArcFile' + IntToStr(i)))
         if ((Arcs[4] = '') or (LanguageTranslator(Arcs[4]) = ActiveLanguage)) and (ComponentsCheckFA(Arcs[5])) then begin
         if not FileExists(PathEdit.Text + '\' + Arcs[0]) then
         ShowRDForm;
         if MyError = False then begin
         if Arcs[3] = '0' then begin
         if not ISArcExtract ( 0, 0, PathEdit.Text + '\' + Arcs[0], Arcs[1], '', false, '', ExpandConstant('{tmp}\arc.ini'), Arcs[1], false) then MyError := True;
         end else begin
         if not ISArcExtract ( 0, 0, PathEdit.Text + '\' + Arcs[0], Arcs[1], '', false, '', '', Arcs[1], false) then MyError := True;
         if MyError = True then break;
         if not ISSRepExtract   ( 0, 0, Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'srep',Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'pcf', true) then  MyError := True ;
         if MyError = True then break;
         if not ISPrecompExtract( 0, 0, Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'pcf',Arcs[1] + '\' + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'arc', true) then MyError := True ;
         if MyError = True then break;
         if not ISArcExtract ( 0, 0,  Arcs[1] + '\'  + Copy (ExtractFileName(PathEdit.Text + '\' + Arcs[0]), 0, Pos('.', ExtractFileName(PathEdit.Text + '\' + Arcs[0]))) + 'arc', Arcs[1], '', true, '', '', Arcs[1], false) then MyError := True;
         end;
      end;
  end;
  if MyError = True then break ;
  i:= i + 1
  until GetValStrES('FreeArcFile' + IntToStr(i)) = ''
  end;
         i := 1;
         if (GetValStrES('7zFile' + IntToStr(i)) <> '') and (MyError = False) then begin
         repeat
         Arcs:=ArcDecode(GetValStrES('7zFile' + IntToStr(i)))
         if ((Arcs[4] = '') or (LanguageTranslator(Arcs[4]) = ActiveLanguage)) and (ComponentsCheckFA(Arcs[5])) then begin
         if not FileExists(PathEdit.Text + '\' + Arcs[0]) then
         ShowRDForm;
         if MyError = False then begin
         if not IS7ZipExtract   ( 0, 0, PathEdit.Text + '\' + Arcs[0],  Arcs[1], false, '') then MyError := True;
         end;
         end;
         if MyError = True then break;
         i:= i + 1
  until GetValStrES('7zFile' + IntToStr(i)) = ''
  end;
         i := 1;
         if (GetValStrES('RarFile' + IntToStr(i)) <> '') and (MyError = False) then begin
         repeat
         Arcs:=ArcDecode(GetValStrES('RarFile' + IntToStr(i)))
         if ((Arcs[4] = '') or (LanguageTranslator(Arcs[4]) = ActiveLanguage)) and (ComponentsCheckFA(Arcs[5])) then begin
         if not FileExists(PathEdit.Text + '\' + Arcs[0]) then
         ShowRDForm;
         if MyError = False then begin
         if not ISRarExtract    ( 0, 0, PathEdit.Text + '\' + Arcs[0], Arcs[1], false, '') then MyError := True;
         end;
         end;
         if MyError = True then break;
         i:= i + 1
         until GetValStrES('RarFile' + IntToStr(i)) = ''
      end;
      until true;
      ISDoneStop;
  end;
   #endif
   #endif

   #ifdef Mode
   #if Mode == "UltraARC"
    if FileExists(ExpandConstant('{tmp}\Records.ini')) then
      UltraARC_Process;
   #endif
   #endif

Last edited by Simorq; 06-11-2018 at 14:23.
Reply With Quote
The Following 6 Users Say Thank You to Simorq For This Useful Post:
Cesar82 (06-11-2018), houcine80 (06-11-2018), kassane (07-11-2018), omdj (10-11-2018), pakrat2k2 (06-11-2018), Stor31 (07-11-2018)
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
INNO TROUBLESHOOT - Questions Here REV0 Conversion Tutorials 1348 27-10-2018 22:34
Conversion Designer/Installer Creator Razor12911 Conversion Tutorials 1584 30-06-2018 11:45
Game Installer Designer by altef_4 altef_4 Conversion Tutorials 234 10-05-2018 18:16
yener90's Inno Project Source Codes yener90 Conversion Tutorials 1475 21-10-2014 10:50
yener90's older Inno Project Source Codes THADEADMAN2011 PC Games - CD/DVD Conversions 0 16-06-2012 04:40



All times are GMT -7. The time now is 12:09.


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