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

(onerror
   (makeassign "MAGIC" (safe)))

(complete 0)

(makeassign "MAGIC" (safe))

(set is_update 0)

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

(set MAGIC_Dest (getassign "MAGIC" "a"))

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

(if     (not is_update)
   (makedir MAGIC_Dest (infos)))

(set @default-dest MAGIC_Dest)

(run "CND-LSD:Cracktro.Exe") 

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

(complete 10)

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

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

(complete 30)

(message "\n\nPlease Insert Magicznaksiega Disk 2 In Any Drive")

(copyfiles
    (source "MAGICZNAKSIEGA:")
        (dest MAGIC_Dest)
 (infos) (all))

(complete 60)

(message "\n\nPlease Insert Magicznaksiega Disk 3 In Any Drive")

(copyfiles
    (source "MAGICZNAKSIEGA:")
        (dest MAGIC_Dest)
 (infos) (all))

(complete 90)

(run "delete" (tackon MAGIC_Dest "np"))
(run "delete" (tackon MAGIC_Dest "ppmore"))
(run "delete" (tackon MAGIC_Dest "module"))
(run "delete" (tackon MAGIC_Dest "installer"))
(run "delete" (tackon MAGIC_Dest "disk.info"))
(run "delete" (tackon MAGIC_Dest "Cracktro.exe"))
(run "delete" (tackon MAGIC_Dest "magicznaksiega.text"))
(run "delete" (tackon MAGIC_Dest "magicznaksiega.install"))
(run "delete" (tackon MAGIC_Dest "magicznaksiega.text.info"))
(run "delete" (tackon MAGIC_Dest "magicznaksiega.install.info"))

(complete 90)

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

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

(complete 100)

(makeassign "MAGIC" (safe))

(eXIT text)