;   Install - VALHALLA Installation
;
;   $VER: VALHALLA_Install 1.0 (11.04.94)
;   $Release 1.0 $
;   $Revision: 1.00 $
;   $Date: 1994/07/08 13:32:40 $
;
;**********************************************************************


(set
    Release "1.0"
    Version "1.0"
)
;
;     USE EXPERT USER ONLY!
;

(set @default-dest
   (askdir
      (prompt "Please specify the drawer (or partition) where you wish to install \"VALHALLA\" 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 "VALHALLA needs approximately 3.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 \"VALHALLA\" will be installed.")
      (help @askstring-help)
      (default "VALHALLA")
   )
)
(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 "VALHALLA_hd"
   (dest default-dir)
   (files)
)
)

(complete 1)

(copyfiles
   (prompt "Copying icons from current dir...")
   (help @copyfiles-help)
   (source "VALHALLA_hd.info"
   (dest default-dir)
   (files)
)
)
(complete 2)
(copyfiles
   (prompt "Copying icons from current dir...")
   (help @copyfiles-help)
   (source "SSF.EXE"
   (dest default-dir)
   (files)
)
)
(complete 5)
(copyfiles
   (prompt "Copying files from \"VALHALLA\"...")
   (help @copyfiles-help)
   (source "VALHALLA:")
   (dest default-dir)
   (files)
   (pattern "#?")
)
(complete 18)

(copyfiles
   (prompt "Copying files from \"VALHALLA\"...")
   (help @copyfiles-help)
   (source "VALHALLA:c/")
   (dest default-dir)
   (files)
   (pattern "#?")
)
(complete 19)

(set s1994-dir	(cat default-dir "/1994"))
(set AND-dir	(cat default-dir "/And"))
(set THE-dir	(cat default-dir "/The"))
(set LORD-dir	(cat default-dir "/LORD"))
(set OF-dir	(cat default-dir "/OF"))

(copyfiles
   (prompt "Copying files from \"VALHALLA\"...")
   (help @copyfiles-help)
   (source "VALHALLA:1994/")
   (dest s1994-dir)
   (files)
   (pattern "#?")
)

(copyfiles
   (prompt "Copying files from \"DATADISK\"...")
   (help @copyfiles-help)
   (source "DATADISK:AND/")
   (dest AND-dir)
   (files)
   (pattern "#?")
)

(complete 31)

(copyfiles
   (prompt "Copying files from \"LEVEL1\"...")
   (help @copyfiles-help)
   (source "LEVEL1:THE/")
   (dest THE-dir)
   (files)
   (pattern "#?")
)

(complete 52)

(copyfiles
   (prompt "Copying files from \"LEVEL2\"...")
   (help @copyfiles-help)
   (source "LEVEL2:LORD/")
   (dest LORD-dir)
   (files)
   (pattern "#?")
)


(complete 75)

(copyfiles
   (prompt "Copying files from \"LEVEL3\"...")
   (help @copyfiles-help)
   (source "LEVEL3:OF/")
   (dest OF-dir)
   (files)
   (pattern "#?")
)


(complete 100)

; Installation Complete
;

(exit "Now put your \"VALHALLA\" Disks\nin a safe place!")
;