;
; Installer script to install CRX's `Dreamscope' written by
; MaLC0MN^BK and updated by [-cR!SP-] for CRX
;
; $VER: v1.0 of the installer script for Dreamscope --- Script by MaLC0MN^BK (31/10/96)
; ---> Changed by [-cR!SP-] to work with the CRuX release of Dreamscope (29 Dec 96)
;
;.------------------------------------------------------------------------------------.
;|                                  * H·I·S·T·O·R·Y *                                 |
;+------------------------------------------------------------------------------------+
;| v1.0: Started from scratch. It worked fine instantly!                              |
;+------------------------------------------------------------------------------------+
;|                              * O·T·H·E·R  S·T·U·F·F *                              |
;+------------------------------------------------------------------------------------+
;| Comment strings beginning with `-----' indicate the different stadia of the script |
;| Comment strings beginning with `*****' indicate additional comment to some calls   |
;`------------------------------------------------------------------------------------'

;----- First we'll set up some standard string variables... -----

(set #hello_dudez
    (cat "\n\n·C·R·u·X· ·D·e·M·o· ·D·i·V·i·S·i·o·N·\n"
         "P r e s e n t s\n\n"
         "* Dreamscope *\n\n"
         "A Cool Musicdisk!\n\n"
         "Music by Dexter, AcidJesus and AMusic.\n"
         "Coded by Psychotron and [-cR!SP-].\n"
         "Graphics by Newt, Tof, Clary and Odin.\n\n"
    )
)
(set #install_info
    (cat "\n\n\n\nThis script will unpack the chippack\n"
         "to the destination of your choice.\n"
         "A directory \"Dreamscope\" will be create there.\n\n"
         "This version requires AGA and a Harddisk.\n"
    )
)

(set #boardz
    (cat "\nDreamscope was succesfully installed! \n\n"
         "Don't forget to call our boards:\n"
         "Dial Hard · World · +41-71-9500156\n"
         "Sky Tower · Europe · +45-748-338-86\n"
         "Checkpoint · Norway · +47-515-931-23\n"
         "Hard Disk Cafe · Finland · +358-60-316456\n"
         "Cybergarden · Belgium · +32-11-3337-03\n"
         "Plastic Dreams · Sweden · +46-36-1230-29\n"
         "The Charge · Germany · +49-2-close-4U\n"
         "Acid Slam · Germany · +45-2-close-4U\n"
         "Forgotten World · Holland · +45-2-close-4U\n"
         "Amiga Central · Internet · go.find.it.out\n\n"
    )
)

;----- Then we'll start the install procedure... -----

(message #hello_dudez)

(complete 5)

(message #install_info)

(complete 10)

(set destination
 (askdir (prompt "Please select the destination directory where you want the musicdisk to be unpacked. A subdirectory will be created there!")
         (help @askdir-help)
         (default "")
         (disk)
 )
)

(complete 18)

(set destination (tackon destination "Dreamscope"))
(makedir destination (infos) (safe))

(copyfiles (source "Dreamscope1:c/lzx")
           (dest "T:")
           (nogauge)
)

(complete 25)

(working "Unpacking Dreamscope Archive 1...")
(set @execute-dir destination)
(run ("T:lzx x Dreamscope1:DreamData_1.lzx")
     (safe)
)

(complete 40)

(if (= serverMode FALSE)
(
    (askdisk (prompt "\nPlease insert the second disk in any drive.")
             (help @askdisk-help)
                 (dest "Dreamscope2")
    )
))

(working "Unpacking Dreamscope Archive 2...")
(set @execute-dir destination)
(run ("T:lzx x Dreamscope2:DreamData_2.lzx")
     (safe)
)

(complete 55)

(if (= serverMode FALSE)
(
    (askdisk (prompt "\nPlease insert the third disk in any drive.")
             (help @askdisk-help)
                 (dest "Dreamscope3")
    )
))

(working "Unpacking Dreamscope Archive 3...")
(set @execute-dir destination)
(run ("T:lzx x Dreamscope3:DreamData_3.lzx")
     (safe)
)

(complete 70)

(if (= serverMode FALSE)
(
    (askdisk (prompt "\nPlease insert the fourth disk in any drive.")
             (help @askdisk-help)
                 (dest "Dreamscope4")
    )
))

(working "Unpacking Dreamscope Archive 4...")
(set @execute-dir destination)
(run ("T:lzx x Dreamscope4:DreamData_4.lzx")
     (safe)
)

(complete 85)

(if (= serverMode FALSE)
(
    (askdisk (prompt "\nPlease insert the fifth disk in any drive.")
             (help @askdisk-help)
                 (dest "Dreamscope5")
    )
))

(working "Unpacking Dreamscope Archive 5...")
(set @execute-dir destination)
(run ("T:lzx x Dreamscope5:DreamData_5.lzx")
     (safe)
)

(complete 95)

(working "Clearing temporary buffers.")
(run ("C:Delete T:lzx")
     (safe)
)
(exit #boardz (quiet))