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

(onerror
   (makeassign "TRAP" (safe)))

(complete 0)

(makeassign "TRAP" (safe))

(set is_update 0)

(message "\n\nTRAP EM HD INSTALLER\n"
         "BY\n"
         "CYANIDE / LSD")

(set TRAP_Dest (getassign "TRAP" "a"))

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

(if     (not is_update)
   (makedir TRAP_Dest (infos)))

(set @default-dest TRAP_Dest)

(run "Cyanide-Lsd:Cracktro.Exe")

(run "Cyanide-Lsd:np -p2 Cyanide-Lsd:Module")

(complete 20)

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

(copyfiles
    (source "TRAP:")
        (dest TRAP_Dest)
 (infos) (all))

(run "delete" (tackon TRAP_Dest "trap.exe"))
(run "delete" (tackon TRAP_Dest "disk.info"))
(run "delete" (tackon TRAP_Dest "fonts.info"))

(complete 90)

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

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

(complete 100)

(makeassign "TRAP" (safe))

(eXIT text)