; GVP DSS8+ Install Script
; Version 1.0
; Original     by J.W. Lockhart ---- 21 February 1992
; Re-Write     by Steve Peoples ---- 02 February 1993
; Final Edits  by Gary Nush -------- 04 May      1993
; Copyright (c)1993 by Great Valley Products, Inc.

; Written for use with Commodore's Installer, V1.24.

; Some useful variables
(set disklab1a "DSS8Plus-F")              ; Source disk for new files
(set disklab1b (cat disklab1a ":"))     ; Source disk, with colon
(set disklab2a "Samples")               ; Source disk for new files
(set disklab2b (cat disklab2a ":"))     ; Source disk, with colon

(set target @default-dest)

; Ask where to install
(set target (askdir (prompt "Ou dois-je créer le répertoire DSS8+ ?")
                    (help @askdir-help)
                    (default target)
            )
)

; Install DSS8+ Software and Utilities.
(makedir (tackon target ("DSS8Plus")))

(copyfiles (source disklab1b)
           (dest (tackon target "DSS8Plus"))
           (infos) (all)
)
(copyfiles (source (tackon target "DSS8Plus/GVPSampCtrl.settings"))
           (dest ("S:"))
)
(delete (tackon target ("DSS8Plus/installer")))
(delete (tackon target ("DSS8Plus/install_DSS8+")))
(delete (tackon target ("DSS8Plus/install_DSS8+.info")))

; Install sound player into C:
(copyfiles (source (tackon disklab1b "c"))
           (dest "c:")
           (all) (confirm)
           (prompt "Dois-je copier le programme SOUND dans le tiroir C: ?")
           (help "Il vous permettra de jouer rapidement des échantillons sans"
                 " avoir à charger et executer DSS8+.")
)

; Install default sound samples
(askdisk (prompt "Insérez la disquette d'exemples ";
	     "'"disklab2a"' dans un lecteur.")
         (dest disklab2a)
         (help @askdisk-help))

(copyfiles (source disklab2b)
           (dest (tackon target "DSS8Plus"))
           (infos) (all)
)

(set @default-dest target)

(exit
      "\n"
      "N'oubliez pas de remplir et de retourner votre bon de garantie !")