;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}
; |         HARD DRIVE INSTALL SCRIPT         |
;{*}                   BY                    {*}
; |           CYANIDE / LSD^Hellfire          |
;{*}                CREATED                  {*}
; |            29 - DECEMBER - 1996           |
;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}
; |   - GOBLINS 2 - HARD DRIVE INSTALLER -    |
;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}

(message "\n\n\nGOBLINS 2\n"
         "HD Installer\n"
         "by\n"
         "Cyanide of LSD^Hellfire\n")

(onerror
   (makeassign "Goblins2" (safe)))

(complete 0)

(makeassign "Goblins2" (safe))

(set is_update 0)

(set Goblins2_Dest (getassign "Goblins2" "a"))

(if Goblins2_Dest
   (message "You have already installed GOBLINS 2 on this\n"
             "system. The current copy is located in the drawer\n"
             "named \"" Goblins2_Dest"\".")
    (set Goblins2_Dest
        (tackon
            (askdir
(prompt "Where do you want GOBLINS 2 installed?\n"
        "A directory will automatically be created for you?\n")
    (help @askdir-help)
        (default @default-dest))
"Goblins2"))
    (set Goblins2_Dest
        (tackon
            (askdir
(prompt "Where do you want GOBLINS 2 installed?")
    (help @askdir-help)
        (default @default-dest))
"Goblins2")))

(if     (not is_update)
   (makedir Goblins2_Dest (infos)))

(set @default-dest Goblins2_Dest)

(working "\n\n\nReading the Install disk for\n"
         "GOBLINS 2 files.")

(copyfiles
    (source "Gob2-1:")
        (dest Goblins2_Dest)
 (infos) (all))

(copyfiles
    (source "Gob2-2:")
        (dest Goblins2_Dest)
 (infos) (all))

(copyfiles
    (source "Gob2-3:")
        (dest Goblins2_Dest)
 (infos) (all))

(copyfiles
    (source ":Cyanide-Install/Goblins2/Goblins2.txt")
        (dest Goblins2_Dest)
 (infos) (all))

(copyfiles
    (source ":Cyanide-Install/Goblins2/Goblins2.exe")
        (dest Goblins2_Dest)
 (infos) (all))

(run "delete" (tackon Goblins2_Dest "c/stack"))
(run "delete" (tackon Goblins2_Dest "c/add21k"))
(run "delete" (tackon Goblins2_Dest "c/fastmemfirst"))
(run "delete" (tackon Goblins2_Dest "c"))
(run "delete" (tackon Goblins2_Dest "devs/system-configuration"))
(run "delete" (tackon Goblins2_Dest "devs"))
(run "delete" (tackon Goblins2_Dest "l/disk-validator"))
(run "delete" (tackon Goblins2_Dest "l"))
(run "delete" (tackon Goblins2_Dest "s/startup-sequence"))
(run "delete" (tackon Goblins2_Dest "s"))
(run "delete" (tackon Goblins2_Dest "drizzt"))

(complete 100)

(makeassign "Goblins2" (safe))

(exit text)