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

(onerror
   (makeassign "ODYSSEY" (safe)))

(complete 0)

(makeassign "ODYSSEY" (safe))

(set is_update 0)

(message "\n\nODYSSEY HD INSTALLER\n"
         "BY\n"
         "CYANIDE / LSD\n"
         "             \n"
	 "EditEd bY He-Man/OTL")

(set ODYSSEY_Dest (getassign "ODYSSEY" "a"))

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

(if     (not is_update)
   (makedir ODYSSEY_Dest (infos)))

(set @default-dest ODYSSEY_Dest)

(complete 20)

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

(copyfiles
    (source "ODYSSEY1:")
        (dest ODYSSEY_Dest)
 (infos) (all))

(complete 55)

(copyfiles
    (source "ODYSSEY2:")
        (dest ODYSSEY_Dest)
 (infos) (all))

(complete 90)

(message "\n\nWhEn Loading FroM Hard DiSk\n"
         "PreSS ReTurn When YoU enCounTer\n"
         "a Black ScReen\n"

(complete 100)

(makeassign "ODYSSEY" (safe))

(eXIT text)