;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}
; |         HARD DRIVE INSTALL SCRIPT         |
;{*}                  BY                     {*}
; |              CYANIDE / LSD                |
;{*}                CREATED                  {*}
; |            18 - NOVEMBER - 1996           |
;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}
; |           - BOGRATS - LSD RELEASE -       |
;{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}-{*}

(run ":BogRats-Install/Bog.exe")

(onerror
   (makeassign "BogRats" (safe)))

(complete 0)

(makeassign "BogRats" (safe))

(set is_update 0)

(message "BOG RATS\n\n"
         "HD Installer\n"
         "by\n"
         "CYANIDE / HELLFIRE\n\n"
         "If you have a second Disk drive\n"
         "please insert disk 2 in df1: now!\n\n"
         "Installation takes appx 7 mins\n\n"
         "You will require 1,225958 bytes"
         "of free space on your Hard Drive")

(set BogRats_Dest (getassign "BogRats" "a"))

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

(if     (not is_update)
   (makedir BogRats_Dest (infos)))

(set @default-dest BogRats_Dest)

(message "\n\n\n\n\nH E L L F I R E\n\n\n"
         "There can be only one!\n")
         
(run ":Bograts-Install/np -p2 :BogRats-Install/mod.horizons-edge")

(copyfiles
    (source "Bog1:")
        (dest Bograts_Dest)
   (infos) (all))

(copyfiles
    (source "Bog2:")
        (dest BogRats_Dest)
   (infos) (all))

(delete (tackon bograts_Dest "c/run"))
(delete (tackon bograts_Dest "c/assign"))
(delete (tackon bograts_Dest "c/endcli"))
(delete (tackon bograts_Dest "devs/system-configuration"))
(delete (tackon bograts_Dest "l/ram-handler"))
(delete (tackon bograts_Dest "libs/mathieeedoubbas.library"))
(delete (tackon bograts_Dest "libs/mathtrans.library"))
(delete (tackon bograts_Dest "libs/diskfont.library"))
(delete (tackon bograts_Dest "libs/icon.library"))
(delete (tackon bograts_Dest "s/startup-sequence"))
(delete (tackon bograts_Dest "c"))
(delete (tackon bograts_Dest "devs"))
(delete (tackon bograts_Dest "l"))
(delete (tackon bograts_Dest "libs"))
(delete (tackon bograts_Dest "s"))
(delete (tackon bograts_Dest "bog.exe"))
(delete (tackon bograts_Dest "disk.info"))

(message "\n\n\nRMB to stop music\n\n"
         "HELLFIRE 1996")

(complete 100)

(makeassign "BogRats" (safe))

(exit text)