;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}
; |         HARD DRIVE INSTALL SCRIPT         |
;{*}                   BY                    {*}
; |              CYANIDE / LSD                |
;{*}                CREATED                  {*}
; |            04 - NOVEMBER - 1995           |
;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}
; |  ALIEN FISHFINGER HD VERS - LSD RELEASE   |
;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}

(onerror
   (makeassign "ALIENFF" (safe)))

(complete 0)

(makeassign "ALIENFF" (safe))

(set is_update 0)

(message "\n\nALIEN FISH FINGER HD INSTALLER\n"
         "BY\n"
         "CYANIDE / LSD")

(set ALIENFF_Dest (getassign "ALIENFF" "a"))

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

(if     (not is_update)
   (makedir ALIENFF_Dest (infos)))

(set @default-dest ALIENFF_Dest)

(run "CND-LSD:np -p2 CND-LSD:Module")

(complete 20)

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

(copyfiles
    (source "CND-LSD:")
        (dest ALIENFF_Dest)
 (infos) (all))

(complete 80)

(run "delete" (tackon ALIENFF_Dest "np"))
(run "delete" (tackon ALIENFF_Dest "ppmore"))
(run "delete" (tackon ALIENFF_Dest "module"))
(run "delete" (tackon ALIENFF_Dest "installer"))
(run "delete" (tackon ALIENFF_Dest "disk.info"))
(run "delete" (tackon ALIENFF_Dest "alien-ff.text"))
(run "delete" (tackon ALIENFF_Dest "alien-ff.install"))
(run "delete" (tackon ALIENFF_Dest "alien-ff.text.info"))
(run "delete" (tackon ALIENFF_Dest "alien-ff.install.info"))

(complete 90)

(message "\n\nThe module you have been listening to\n"
         "is\n"
         "CRAZY MONKEY by AQUAFRESH\n"
         "\nRMB To Stop Music")

(complete 100)

(makeassign "ALIENFF" (safe))

(eXIT text)