; GVP DSS-3 Install Script
; Version 1.0
; 31 May 1994
; Copyright (c)1994 by Great Valley Products, Inc.

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


;----------------------------- Text Strings -------------------------------

(set InstallDisk	"DSS-Install")
(set InstallDiskColon	(cat InstallDisk ":"))
(set DataDisk		"Samples")
(set DataDiskColon	(cat DataDisk ":"))
(set ModDisk		"Modules")
(set ModDiskColon	(cat ModDisk ":"))
(set DSSDrawerName      "DSS-3")
(set DemoDrawerName     "Demo")
(set SampDrawerName     "Samples")
(set ModDrawerName      "Modules")
(set PrgExDrawerName    "Programmeurs")
(set Mod1EmptyDisk      "Modules1")
(set Mod2EmptyDisk      "Modules2")

(set target @default-dest)
(set hdmode 1)

(if (askbool (prompt "A T T E N T I O N  :     Version Amiga DREAM\n\n"
                     "Cette procédure d'installation nécessite les 3 "
                     "disquettes DSS (Install, Samples et Modules).\n"
                     "\nSi vous n'avez que la disquette livrée avec le"
                     " magazine, il n'est pas nécessaire d'utiliser cette "
                     "procédure d'installation : lancez directement le "
                     "programme à partir de la disquette, ou déplacez le "
                     "tiroir DSS-3 sur votre disque dur.\n"
                     "Si vous avez commandé les disquettes supplémentaires "
                     "auprès d'Amiga Dream, vous pouvez continuer l'installation"
             )
             (help "")
             (default 1)
             (choices "Arrêter" "Continuer")
    
    )
    (exit "Installation interrompue")
)

;Ask Installation mode (0: on floppy disks, 1: on hard drive)
(set hdmode (askbool (prompt "Avez-vous un disque dur ?")
                     (help "Si vous sélectionnez OUI, les 3 disques DSS "
                           "seront installés sur votre disque dur. "
                           "Si vous sélectionnez NON, les modules Tracker de démonstration "
                           "seront désarchivés et installés sur 2 disquettes vierges."
                     )
                     (default 1)
                     (choices "Oui" "Non")
            )
)

(if hdmode
 (
  ; Ask where to install
  (set target (askdir (prompt "Où dois-je créer le tiroir DSS-3 ?")
                      (help @askdir-help)
                      (default target)
              )
  )

  ; Install DSS3 Software and Utilities.
  (set DSSDrawer (tackon target DSSDrawerName))
  (makedir DSSDrawer (infos))
  (copyfiles (source (tackon InstallDiskColon DSSDrawerName))
             (dest DSSDrawer)
             (infos) (all)
  )
  
  ; Install Tracker Demo files
  (set ModDrawer (tackon DSSDrawer  ModDrawerName))
  (copyfiles (source (tackon InstallDiskColon DemoDrawerName))
             (dest (ModDrawer))
             (pattern "#?")
             (prompt "Dois-je installer le module de démo auto-exécutable ?")
             (confirm)
             (help "Ce module auto-exécutable DSS3 peut être lancé à "
                   "partir du Workbench ou être chargé dans le Tracker "
                   "de DSS3 en tant qu'exemple de demonstration des "
                   "possibilités de DSS")
             (infos)
  )
  
  ; Install sound player into C:
  (copyfiles (source (tackon InstallDiskColon "c"))
             (dest "c:")
             (all) (confirm)
             (prompt "Dois-je copier le player de sons par défaut dans C:?")
             (help "Cela vous permettra de jouer des sons rapidement "
                   "sans avoir à charger DSS3.")
  )
  
  (askdisk (prompt "Insérez la disquette '" DataDisk "' dans un lecteur.")
           (dest DataDisk)
           (help @askdisk-help)
  )
  
  (copyfiles (source (tackon DataDiskColon "UNLZ"))
             (dest "RAM:")
  )
  ; Install default sound samples
  (set InstallSound (askbool (prompt "Dois-je installer les sons d'exemple ?")
                             (help "Si vous sélectionnez OUI, tous les échantillons "
                                   "de la disquette DSS 'Samples' seront installés dans "
                                   "le tiroir 'Samples' qui se trouve dans le même tiroir que DSS3."
                             )
                             (default 1)
                             (choices "Oui" "Non")
                    )
  )
  (if InstallSound
   (
    (set SampDrawer (tackon DSSDrawer  SampDrawerName))
    (copyfiles (source DataDiskColon) (dest SampDrawer) (infos) (all))
    (delete (tackon SampDrawer "player.lha"))
    (delete (tackon SampDrawer "UNLZ"))
    (delete (tackon SampDrawer "more"))
    (delete (tackon SampDrawer "Read.Me"))
    (delete (tackon SampDrawer "Read.Me.info"))
    (delete (tackon SampDrawer "Lisez.Moi"))
    (delete (tackon SampDrawer "Lisez.Moi.info"))
   )
  )
  ; Install programmers example
  (set InstallPrgEx (askbool (prompt "Dois-je installer le code source d'exemple ?")
                             (help "Si vous sélectionnez OUI, un tiroir appelé "
                                   "'Programmeurs' sera créé dans le tiroir DSS-3, "
                                   "et les fichiers d'exemple pour les programmeurs y seront copiés"
                             )
                             (default 1)
                             (choices "Oui" "Non")
                    )
  )
  (if InstallPrgEx
   (
    (set PrgExDrawer (tackon DSSDrawer PrgExDrawerName))
    (makedir PrgExDrawer (infos))
    (run (cat "RAM:UNLZ x " (tackon DataDiskColon "player.lha") " " PrgExDrawer "/" ))
   )
  )

  (askdisk (prompt "Insérez la disquette '" ModDisk "' dans un lecteur.")
           (dest ModDisk)
           (help @askdisk-help)
  )

  ; Install default tracker modules
  (set InstallMod   (askbool (prompt "Dois-je installer les modules de démonstration du Tracker ?")
                             (help "Si vous sélectionnez OUI, tous les modules de "
                                   "la disquette DSS 'Modules' seront installés "
                                    "dans le tiroir 'Modules' qui se trouve dans le même "
                                    "tiroir que DSS3"
                             )
                             (default 1)
                             (choices "Oui" "Non")
                    )
  )
  (if InstallMod
   (
    ;(copyfiles (source ModDiskColon) (dest ModDrawer) (pattern "#?") (infos) (files))
    (run (cat "RAM:UNLZ x " (tackon ModDiskColon "modules/modules_1.lha") " " ModDrawer "/" ))
    (run (cat "RAM:UNLZ x " (tackon ModDiskColon "modules/modules_2.lha") " " ModDrawer "/" ))
   )
  )
  (delete "RAM:UNLZ")
 )
 (
  ; Floppy disk mode
  (message "IMPORTANT: avant l'installation, copiez les "
           "3 disquettes et renommez les avec leurs noms d'origine\n"
           "UTILISATION A PARTIR DES DISQUETTES: Vous pouvez utiliser directement la diquette 'DSS-Install' "
           "ou copier le programme 'DSS3' et le tiroir 'fonts' sur une autre disquette\n"
           "INSTALLATION SUR DISQUETTES: Le programme et les échantillons de démonstration sont prêts à être utilisés, "
           "mais les modules tracker sont archivés.\n"
           "Vous aurez besoin de 2 disquettes formatées nommées 'Modules1' et 'Modules2' pour y décompresser ces modules.\n"
           "Pressez 'Arrêter tout' et initialisez 2 disquettes vierges si ce n'est déjà fait..."
  )
  ; Install sound player into C:
  (copyfiles (source (tackon InstallDiskColon "c"))
             (dest "c:")
             (all) (confirm)
             (prompt "Dois-je copier le player de sons par défaut dans C:?")
             (help "Cela vous permettra de jouer des sons rapidement "
                   "sans avoir à charger DSS3.")
  )

  (askdisk (prompt "Insérez la disquette '" DataDisk "' dans un lecteur.")
           (dest DataDisk)
           (help @askdisk-help)
  )
  (copyfiles (source (tackon DataDiskColon "UNLZ"))
             (dest "RAM:")
  )

  (askdisk (prompt "Insérez la disquette '" ModDisk "' dans un lecteur.")
           (dest ModDisk)
           (help @askdisk-help)
  )
  (copyfiles (source (tackon ModDiskColon "modules/modules_1.lha"))
             (dest "RAM:")
  )
  (askdisk (prompt "Insérez la disquette '" Mod1EmptyDisk "' dans un lecteur.")
           (dest Mod1EmptyDisk)
           (help @askdisk-help)
  )
  (run (cat "RAM:UNLZ x RAM:modules_1.lha " Mod1EmptyDisk ":" ))
  (delete "RAM:modules_1.lha")

  (askdisk (prompt "Insérez la disquette '" ModDisk "' dans un lecteur.")
           (dest ModDisk)
           (help @askdisk-help)
  )
  (copyfiles (source (tackon ModDiskColon "modules/modules_2.lha"))
             (dest "RAM:")
  )
  (askdisk (prompt "Insérez la disquette '" Mod2EmptyDisk "' dans un lecteur.")
           (dest Mod2EmptyDisk)
           (help @askdisk-help)
  )
  (run (cat "RAM:UNLZ x RAM:modules_2.lha " Mod2EmptyDisk ":" ))
  (delete "RAM:modules_2.lha")
 )
)

(if (exists "S:DSS3.Prefs") 
 (delete "S:DSS3.Prefs")
)

(set @default-dest target)

(exit "\n"
      "Amusez-vous bien..."
)