;
;     USE EXPERT USER ONLY!
;

(set @default-dest
   (askdir
      (prompt "Please specify the drawer (or partition) where you wish to install \"Empire Soccer\" to.")
      (help @askdir-help)
      (default @default-dest)
      (disk)
   )
)
; Is there enough disk space to complete the installation?
;
(set diskspace
   (getdiskspace @default-dest)
)
(if (< diskspace 700000)
   (abort "Empire Soccer needs approximately 0.7 MegaBytes of disk space to install and you only have " diskspace " bytes free.")
)
(set user-dir
   (askstring
      (prompt "Enter the name you wish to call the drawer where \"Empire Soccer\" will be installed.")
      (help @askstring-help)
      (default "EmpireSoccer")
   )
)
(set default-dir
   (cat @default-dest "/" user-dir)
)
(makedir default-dir
   (prompt "A drawer called \"" user-dir "\" will now be created in your \"" @default-dest "\" drawer (or partition).")
   (help @makedir-help)
   (infos)
)
(copyfiles
   (prompt "Copying icons from current dir...")
   (help @copyfiles-help)
   (source "EmpireSoccer_hd"
   (dest default-dir)
   (files)
)
)

(complete 10)

(copyfiles
   (prompt "Copying icons from current dir...")
   (help @copyfiles-help)
   (source "EmpireSoccer_hd.info"
   (dest default-dir)
   (files)
)
)
(complete 20)
(copyfiles
   (prompt "Copying icons from current dir...")
   (help @copyfiles-help)
   (source "EmpireSoccer_install.doc"
   (dest default-dir)
   (files)
)
)
(complete 25)
(copyfiles
   (prompt "Copying icons from current dir...")
   (help @copyfiles-help)
   (source "SSF.EXE"
   (dest default-dir)
   (files)
)
)
(complete 30)
(copyfiles
   (prompt "Copying files from \"Empire Soccer\"...")
   (help @copyfiles-help)
   (source "Empire Soccer:")
   (dest default-dir)
   (files)
   (pattern "#?")
)


(complete 100)

; Installation Complete
;

(exit "Now put your \"Empire Soccer\" Disk\nin a safe place!")
;