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

(onerror
   (makeassign "MOVEM" (safe)))

(complete 0)

(makeassign "MOVEM" (safe))

(set is_update 0)

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

(set MOVEM_Dest (getassign "MOVEM" "a"))

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

(if     (not is_update)
   (makedir MOVEM_Dest (infos)))

(set @default-dest MOVEM_Dest)

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

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

(complete 20)

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

(copyfiles
    (source "CND-LSD:MOVEM")
        (dest MOVEM_Dest))
        
(copyfiles
    (source "CND-LSD:MOVEM.EXE")
        (dest MOVEM_Dest))

(copyfiles
    (source "CND-LSD:MOVEM.EXE.INFO")
        (dest MOVEM_Dest))

(copyfiles
    (source "CND-LSD:MOVEM.HIGHSCORES")
        (dest MOVEM_Dest))

(copyfiles
    (source "CND-LSD:MOVEM.LEVELS")
        (dest MOVEM_Dest))

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

(complete 100)

(makeassign "MOVEM" (safe))

(eXIT text)