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

(onerror
   (makeassign "POPEYE" (safe)))

(complete 0)

(makeassign "POPEYE" (safe))

(set is_update 0)

(message "\n\nPOPEYE'S WRESTLE CRAZY HD INSTALLER\n"
         "BY\n"
         "CYANIDE / LSD")

(set POPEYE_Dest (getassign "POPEYE" "a"))

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

(if     (not is_update)
   (makedir POPEYE_Dest (infos)))

(set @default-dest POPEYE_Dest)

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

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

(complete 20)

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

(copyfiles
    (source "CND-LSD:POPEYE3")
        (dest POPEYE_Dest))

(copyfiles
    (source "CND-LSD:SAM1.ABK")
        (dest POPEYE_Dest))

(copyfiles
    (source "CND-LSD:POPEYE.EXE")
        (dest POPEYE_Dest))
(copyfiles
    (source "CND-LSD:POPEYE.EXE.INFO")
        (dest POPEYE_Dest))

(copyfiles
    (source "DATA:")
        (dest POPEYE_Dest)
 (infos) (all))

(complete 55)

(copyfiles
    (source "CND-LSD:DERR.TXT")
        (dest POPEYE_Dest))

(complete 90)

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

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

(complete 100)

(makeassign "POPEYE" (safe))

(eXIT text)