;
; $VER: BootSelector Install 2.02 (22.11.95)
;
; Copyright (c) 1995 Michael Gollmick.
;
;-----------------------------------------------------
;
; English texts
;

(set #InstallVersion	"BootSelector Install-Script 2.02")

(IF (= @LANGUAGE "english")
(
(set speech 0)

(SET #bad-kick		"BootSelector requires at least Kickstart 2.04 !")

(set #choose-docdest	"Please choose a path for the documentation file.")
(set #choose-docdest-help " The documentation-file contains the same information as the Amiga-Guide file, but in normal ASCII-format.\n The destination path is should be the same as that one, you usually store your documentations to.")
(set #choose-guidedest	"Please choose a path for the AmigaGuide documentation file.")
(set #choose-guidedest-help " The Amiga-Guide documentation is a file in Hypertext-format, which may be viewed with MultiView or AmigaGuide.\n The destination path should be the same as that one you usually store your AmigaGuide files to. Usually this is HELP:")

(set #select-mainf	"\n\nDo you want to install BootSelector 1.31?")
(set #help-mainf	(cat " The main BootSelector file is required to choose between Startup-Sequences. This file is usually placed into the \"C:\" drawer, where it will be found easy.\n\n\n" @copyfiles-help))

(set #SelectStartup	"Please choose all the Startup-Sequences you want to install.\n\n")
(set #SelectStartupHelp	" BootSelector needs alternative Startup-Sequences for its work. This alternative Startup-Sequences should be installed into the S:Startup's directory. If you use an older version of BootSelector, you may have alternative Startup-Sequences with same names already and you do not wish to copy all that scripts. Please choose for that reason the needet alternative scripts.\n The Installer-Script makes a savety-clone of your original Startup-Sequence, for loosing no data in an eventual mailfunktion of the script.")

(set #choose-guide	"Please choose the language you want for the Amiga-Guide documentation.")
(set #choose-guide-help " The Amiga-Guide documentation is a file in Hypertext-format, which may be viewed with MultiView or AmigaGuide.")

(set #choose-doc	"Please choose the language you want for the documentation file\n")
(set #choose-doc-help	" The documentation-file contains the same information as the Amiga-Guide file, but in normal ASCII-format.")

(set #support-me	(cat "This is MAILWARE.\n\nIf you use this Program regulary, you have to send me a Mail.  Thank you.\n\n"))
(set #ready		"BootSelector is now installed correctly. You can reset your machine for testing.")

))

;=============================================================================
; german strings

(if (= @language "deutsch")
(

(set speech 1)

(SET #bad-kick		"BootSelector bentigt mindestens Kickstart 2.04 !")

(set #choose-docdest	"Bitte whlen Sie einen Zielpfad fr die Dokumentationsdatei.")
(set #choose-docdest-help " Die Dokumentationsdatei enthlt dieselben Informationen wie die Amiga-Guide-Dokumentation, aber im normalen ASCII-Format.\n Der Zielpfad sollte der Pfad sein, in dem Sie normalerweise auch Ihre Anleitungen aufbewahren.")
(set #choose-guidedest	"Bitte whlen Sie einen Zielpfad fr die Amiga-Guide-Dokumentation.")
(set #choose-guidedest-help " Die Amiga-Guide Dokumentation ist eine Datei im Hypertext-Format, die mit MultiView oder AmigaGuide angezeigt werden kann.\n Der Zielpfad sollte der Pfad sein, in dem sie normalerweise auch Ihre AmigaGuide-Dateien aufbewahren. Normalerweise ist das das Verzeichnis Help:")

(set #select-mainf	"\n\nMchten Sie BootSelector 1.31 installieren?")
(set #help-mainf	(cat " Das Hauptprogramm von BootSelector wird dazu bentigt, zwischen den verschiedenen Startup-Sequencen zu whlen. Dieses Programm sollte normalerwise im \"C:\" Verzeichnis Ihres Systems stehen, damit es leicht gefunden werden kann.\n\n" @copyfiles-help))

(set #SelectStartup	"Bitte whlen Sie alle Startup-Sequencen, die sie installiert haben mchten.\n\n")
(set #SelectStartupHelp	" BootSelector bentigt alternative Startup-Sequencen, um zu funktionieren. Diese alternativen Scripte sollten im Verzeichnis S:Startup's stehen. Wenn Sie schon eine ltere Version von BootSelector benutzen, dann mchten Sie vielleicht nicht alle Startup-Sequencen kopieren. Bitte whlen Sie aus diesem Grund die bentigten alternativ-Scripte aus.\nDas Installer-Script macht eine Sicherheitskopie von Ihrer original-Startup-Sequence, damit bei einer eventuellen Fehlfunktion keine Daten verloren gehen.")

(set #choose-guide	"Bitte whlen Sie eine Sprache fr die Amiga-Guide Dokumentation.")
(set #choose-guide-help " Die Amiga-Guide Dokumentation ist eine Datei im Hypertext-Format, die mit MultiView oder AmigaGuide angezeigt werden kann.")

(set #choose-doc	"Bitte whlen Sie die Sprache fr die Dokumentationsdatei.")
(set #choose-doc-help	" Die Dokumentationsdatei enthlt dieselben Informationen wie die Amiga-Guide-Dokumentation, aber im normalen ASCII-Format.")

(set #support-me	(cat "Dies ist MAILWARE.\n\nWenn Sie dieses Programm regelmig benutzen, sollten Sie mir eine Mail zukommen lassen.\nVielen Dank.\n\n"))
(set #ready		"BootSelector ist jetzt komplett installiert. Sie knnen Ihren Rechner zurcksetzen um zu testen.")

))
;=============================================================================
;
;****************************************************************************
;
; Setup
;

(if (< (/ (getversion) 65536) 37)
	(abort #bad-kick)
)

(set startup-dest "S:Startup's")

(complete 0)


;****************************************************************************
;
; Welcome
;

(complete 5)

(welcome)

(message "\nBootSelector\n Version 1.31 \n\nCopyright  1995 "
	 "Michael Gollmick,\nAll Rights Reserved.\n\n\n"
         #InstallVersion
)

(complete 10)

(SET doc-dest
	(ASKDIR
		(PROMPT #choose-docdest)
		(HELP #choose-docdest-help)
		(DEFAULT "HELP:")
	)
)
(SET guide-dest
	(ASKDIR
		(PROMPT #choose-guidedest)
		(HELP #choose-guidedest-help)
		(DEFAULT doc-dest)
	)
)

;****************************************************************************
;
; Install Main Program
;

(copylib
       (prompt #select-mainf )
       (help   #help-mainf)
       (source "C/BootSelector")
       (confirm)
       (dest   "C:")
)

(complete 20)

;****************************************************************************
;
; Install Startup-Sequences
;

(copyfiles
       (prompt #mainf)
       (help   #mainf)
       (source "S:Startup-Sequence")
       (dest   "S:")
       (newname "Startup-Sequence_saveclone")
)

(complete 30)

(IF (= (EXISTS "S:Startup's/Startup-SequenceI") 1)
	(copyfiles
	       (source "S:Startup's/Startup-SequenceI")
	       (dest   startup-dest)
               (newname "Startup-SequenceI_saveclone")
        )
)

(complete 35)

; Get startup information
(set startupchen (askoptions
               (prompt #Selectstartup)
               (choices "Startup-SequenceI" "Startup-SequenceII" "Startup-SequenceIII" "Startup-SequenceIV" "Startup-SequenceV" "Startup-SequenceVI")
               (help #SelectStartupHelp)
               (default 0)
             )
)

(complete 40)

(if startupchen
   (
      (if (IN startupchen 0)
         (
            (copyfiles
               (source "S:Startup-Sequence")
               (dest   startup-dest)
               (newname "Startup-SequenceI")
            )

	(complete 45)

		(copyfiles
		       (source "S/Startup-Sequence")
		       (dest   "S:")
		)


         )
      )


(complete 50)

      (if (IN startupchen 1)
         (
            (copyfiles
               (source "S/Startup-SequenceII")
               (dest   startup-dest)
            )
         )
      )

(complete 55)

      (if (IN startupchen 2)
         (
            (copyfiles
               (source "S/Startup-SequenceIII")
               (dest   startup-dest)
            )
         )
      )

(complete 60)

      (if (IN startupchen 3)
         (
            (copyfiles
               (source "S/Startup-SequenceIV")
               (dest   startup-dest)
            )
         )
      )

(complete 65)

      (if (IN startupchen 4)
         (
            (copyfiles
               (source "S/Startup-SequenceV")
               (dest   startup-dest)
            )
         )
      )

(complete 70)

      (if (IN startupchen 5)
         (
            (copyfiles
               (source "S/Startup-SequenceVI")
               (dest   startup-dest)
            )
         )
      )

  )
)

(complete 75)

;****************************************************************************
;
; Choose Guide
;

(SET guide
	(ASKCHOICE
		(PROMPT #choose-guide)
		(HELP #choose-guide-help)
		(CHOICES
			"English"
			"Deutsch"
		)
		(DEFAULT speech)
	)
)
(IF (= guide 0)
	(COPYFILES
		(SOURCE "DOC/BootSelector_engl.GUIDE")
		(DEST guide-dest)
                (newname "BootSelector.GUIDE")
                (infos)
	)
)
(IF (= guide 1)
	(COPYFILES
		(SOURCE "DOC/BootSelector_deu.GUIDE")
		(DEST guide-dest)
                (newname "BootSelector.GUIDE")
                (infos)
	)
)

(complete 80)

;****************************************************************************
;
; Choose Documentation
;

(SET guide
	(ASKCHOICE
		(PROMPT #choose-doc)
		(HELP #choose-doc-help)
		(CHOICES
			"English"
			"Deutsch"
		)
		(DEFAULT speech)
	)
)
(IF (= guide 0)
	(COPYFILES
		(SOURCE "DOC/BootSelector_engl.DOC")
		(DEST doc-dest)
                (newname "BootSelector.DOC")
                (infos)
	)
)
(IF (= guide 1)
	(COPYFILES
		(SOURCE "DOC/BootSelector_deu.DOK")
		(DEST doc-dest)
                (newname "BootSelector.DOK")
                (infos)
	)
)

(complete 90)

;****************************************************************************
;
; Exit
;

	(complete 99)
	(MESSAGE #support-me #ready)
	(complete 100)

(EXIT (QUIET))
