Tweet
; Universal Client V1
[Setup]
AppName=Universal Client V1
AppVerName=Universal Client V1
AppendDefaultDirName=No
DefaultDirName={sd}\quake
DefaultGroupName=Quake
UninstallDisplayIcon={app}\MyProg.exe
; This next line
AppID = QuakeOne
UsePreviousAppDir = Yes
WizardImageFile=universal.bmp
WizardImageStretch = 0
WizardImageBackColor=clBlack
DirExistsWarning = No
BackColor=clBlue
BackColor2=clBlack
Compression = lzma/max
SolidCompression = Yes
[Types]
Name: "full"; Description: "Full installation"
[Files]
Source: "quake\*"; DestDir: "{app}\"; Flags: ignoreversion recursesubdirs createallsubdirs
[Code ]
function NextButtonClick(CurPageID: Integer): Boolean;
var
VarX: Integer;
IsQuakeDir: Boolean;
begin
case CurPageID of
wpSelectDir:
begin
{ Is pak0.pak in the ID1 folder for selected folder? }
IsQuakeDir:=(FileExists(ExpandConstant('{app}')+'\id1\pak0.pak')=true);
If IsQuakeDir = False then begin
{ No Quake Found in installation folder selected, ask if want to proceed anyway }
VarX := MsgBox('Error: Quake not detected in selected folder. Would you like to select a different folder?' #13#13 'The folder you selected does not appear to contain Quake. This installation should be installed to your existing Quake folder.' #13#13 'Do you want to select a different folder?' #13#13 'Pressing No will proceed with folder as entered.', mbCriticalError, MB_YESNOCANCEL);
If VarX=idno then begin
{ User selected No, Proceed despite not being Quake folder }
Result:= true;
end else begin
{ User selected Yes, wants to select another folder }
Result:=false;
end;
end else begin
{ Quake was in the folder, so no prompt and proceed like normal }
Result:=True;
end;
end else begin
{ On a screen that doesn't have anything to check with a function }
Result := True;
end;
end;
end;
alias sv_progs progs
Yeah, with sv_progs support there isn't hardly anything about this that isn't Quakeworld compatible too. Except it doesn't send the vote-aliases on every map change. Eventually it will or I'll make it a QuakeC compile option.
Comment