;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}
; |         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")

(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)

(run "Odyssey:Cracktro.Exe") 

(run "Odyssey:np -p2 Odyssey:Module")

(complete 20)

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

(copyfiles
    (source "ODYSSEY:odyssey.exe")
        (dest ODYSSEY_Dest)
 (infos) (all))

(copyfiles
    (source "ODYSSEY:odyssey.exe.info")
        (dest ODYSSEY_Dest)
 (infos) (all))

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

(complete 55)

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

(run "delete" (tackon ODYSSEY_Dest "Cracktro.exe"))

(complete 90)

(startup "ODYSSEY"
   (prompt
      "The following instructions will be added to your "
      "\"S:User-Startup\" so that your system will be properly "
      "configured to play ODYSSEY.\n\n"
   "ASSIGN ODYSSEY: \"" ODYSSEY_Dest "\"\n")
(help
      "This will add commands to your S:user-startup file to "
      "allow ODYSSEY to find all the files.")
      (command "ASSIGN ODYSSEY1: \"" ODYSSEY_Dest "\"\n")
      (command "ASSIGN ODYSSEY2: \"" ODYSSEY_Dest "\"\n"))
   (makeassign "ODYSSEY1" ODYSSEY_Dest)
   (makeassign "ODYSSEY2" (tackon ODYSSEY_Dest""))

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

(complete 100)

(makeassign "ODYSSEY" (safe))

(eXIT text)