;======================================================================
;
; DiskSalv general installer -- $VER: Install 13.0 (24.11.95)
;
; 13.0	Moved stuff around for DiskSalv 4 support.
;
; 12.0	Moved stuff around for DiskSalv 4 support.
;
; 11.5	Added updates for DiskSalv V11.30 distribution, mainly support
;	for the additional locale files.
; 11.4	Simple updates for DiskSalv V11.28
;	Fixed the install-locale-from-archive routine
; 11.3	Added better checks for the existance of the locales archive
;
;======================================================================
;
; Some basic strings

(set #disksalv-install 
     (cat "\nInstalliere DiskSalv 4..."
          "\n\nDas Programm DiskSalv 4 und einige weitere Dateien "
          "können in einem Verzeichnis Ihrer Wahl installiert werden."
          "\n\nWollen Sie das Programm nun installieren?"))

(set #disksalv-install-help
     (cat "\nDieser Installationsschritt läßt Sie auswählen, in "
          "welchem Verzeichnis und auf welchem Laufwerk das Programm "
          "installiert wird."
          "\n\nWenn Sie weitermachen, werden Sie nach dem Pfad gefragt, "
          "unter dem die Programmdaten installiert werden. Wenn Sie diesen "
          "Schritt überspringen, kommen Sie direkt zu Installation des "
          "AmigaGuide-Handbuchs zu DiskSalv 4."))

(set #which-disk
     "\nIn welchem Ordner möchten Sie DiskSalv 4 installieren?")

(set #docs-install
     (cat "\nInstalliere DiskSalv 4 Dokumentation..."
          "\n\nDas interaktive AmigaGuide-Handbuch für DiskSalv kann "
	       "in einem Verzeichnis Ihrer Wahl installiert werden."
          "\n\nWollen Sie damit weitermachen?"))

(set #docs-install-help
     (cat "\nDieser Installationsschritt läßt Sie auswählen, in "
          "welchem Verzeichnis und auf welchem Laufwerk das "
          "AmigaGuide-Handbuch installiert wird."
          "\nDas Handbuch sollte in das Programm-Verzeichnis "
          "von DiskSalv 4 oder in den Standard-AmigaGuide-Pfad "
          "installiert werden."
          "\n\nWenn Sie weitermachen, werden Sie nach dem Pfad gefragt, "
          "unter dem das Handbuch installiert wird. Wenn Sie diesen "
          "Schritt überspringen, ist die Installation abgeschlossen."))

(set #docs-where
     (cat "\nIn welchem Ordner soll das interaktive AmigaGuide-Handbuch "
          "installiert werden?"))

(set #dsdocname      "DiskSalv.guide")

;======================================================================
;
; The main program

(set inputdir          (pathonly @icon))
(set @default-dest     "SYS:Tools")

; First, install the DiskSalv program proper.

(if (askbool (prompt #disksalv-install)
             (help #disksalv-install-help)
             (choices "Ja" "Schritt überspringen")
             (default 1))

    ((set outputdir 
          (askdir (prompt  #which-disk)
		  (help    @askdir-help)
		  (default @default-dest)))
     (set @default-dest outputdir)
     (copyfiles (source inputdir)
                (dest outputdir)
                (pattern "DiskSalv")
                (files)
                (infos))
     (tooltype  (dest (tackon outputdir "DiskSalv"))
                (noposition))))

; Next, how about the DiskSalv docs.

(if (askbool (prompt #docs-install)
	     (help #docs-install-help)
        (choices "Ja" "Schritt überspringen")
	     (default 1))

    ((set outputdir
          (askdir (prompt  #which-disk)
		  (help    @askdir-help)
		  (default @default-dest)))
     (set @default-dest outputdir)
     (copyfiles (source inputdir)
                (dest outputdir)
                (pattern "DiskSalv.guide")
                (files)
                (infos))
     (tooltype  (dest (tackon outputdir "DiskSalv.guide"))
                (noposition)))
    (set @default-dest ""))