FailAt 21
Assign XTR1: AMINET18:XTreme
Assign XTR2: AMINET18:XTreme
Assign XTR3: AMINET18:XTreme

Echo "cInstalling XTremeRacing"
RequestChoice >NIL: "XTremeRacing Installer" "Please select the destination path/drive*nto install XTremeRacing to*nThe subdirectory 'XTR' will be created for you*nThis installation requires 2.5M of free space" "Proceed"
RequestFile DRAWER "SYS:" TITLE "Select path/drive to install to..." DRAWERSONLY >ENV:XTRPath

IF WARN
    Echo "XTremeRacing Installation Aborted."
    Quit 5
EndIF

Cd $XTRPath
MakeDir XTR

Copy XTR3:XTR.Info ""

; Install Disk XTR1
Cd XTR1:
IF WARN
    Echo "XTremeRacing Installation Failed."
    Quit 5
EndIF
Echo "Please wait installing disk 1..."
Cd $XTRPath
Cd XTR
Copy XTR1: "" ALL QUIET

; Install Disk XTR2
Cd XTR2:
IF WARN
    Echo "XTremeRacing Installation Failed."
    Quit 5
EndIF
Echo "Please wait installing disk 2..."
Cd $XTRPath
Cd XTR
Copy XTR2: "" ALL QUIET

; Install Disk XTR3
Cd XTR3:
IF WARN
    Echo "XTremeRacing Installation Failed."
    Quit 5
EndIF
Echo "Please wait installing disk 3..."
Cd $XTRPath
Cd XTR
Copy XTR3: "" ALL QUIET

Delete Install QUIET
Delete Install.info QUIET
Delete XTR.info QUIET
Delete Disk.info QUIET

Echo "Installation Complete.*nYou can find XTremeRacing in"$XTRPath NOLINE
Echo "XTR"
UnSetEnv XTRPath
Wait 5