; Install-SFXdoc Start --------------------------------------------------------------------------------------
;
; $VER: Install-SFXdoc (02.12.1995)
;
; SoundFX doc Installscript
; (C) Copyright 1993-1995 Stefan Kost. All Rights Reserved.
;
; -----------------------------------------------------------------------------------------------------------

; setze sprachenabhngige Texte -----------------------------------------------------------------------------

(IF (= @LANGUAGE "english")
(
	(SET #bad-kick			"SoundFX requires at least Kickstart 2.04 !")
	(SET #welcome-messy 	"\n\nWelcome to the installation of docs for SoundFX !")
	(SET #choose-dest		"Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
	(SET #choose-dest-help	"Here you can choose the place on your HD, were SFX should be installed")
	(SET #dest-require		"\n\nPlease be shure, that you have on your HD at least 1.2 Mb free !")
	(SET #copy-text			"copying texts ...")
	(SET #copy-guides		"copying guides ...")
	(SET #exit-messy		"\n\nSFXdoc is successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
))
(IF (= @LANGUAGE "deutsch")
(
	(SET #bad-kick			"SoundFX bentigt mindestens Kickstart 2.04 !")
	(SET #welcome-messy		"\n\nWillkommen zur Installation der docs fr SoundFX !")
	(SET #choose-dest		"Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
	(SET #choose-dest-help	"Hier knnen Sie auswhlen, wohin Sie das Programm installeren mchten")
	(SET #dest-require		"\n\nBitte stellen Sie sicher, da auf der Zielpartition\n 1.2 Mb-Speicher frei ist !")
	(SET #copy-text			"kopiere Texte ...")
	(SET #copy-guides		"kopiere Guides ...")
	(SET #copy-help			"Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
	(SET #exit-messy		"\n\nSFXdoc konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
))

; check kick version ----------------------------------------------------------------------------------------

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

; los geht`s ------------------------------------------------------------------------------------------------

(COMPLETE 0)
(MESSAGE #welcome-messy)

(SET @default-dest
	(ASKDIR
		(PROMPT #choose-dest)
		(HELP #choose-dest-help)
		(DEFAULT @default-dest)
	)
)
(MESSAGE #dest-require)

; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
(COMPLETE 5)
(SET @default-dest (TACKON @default-dest "SFX"))
(SET sfx-dest @default-dest)
(IF (= (EXISTS sfx-dest) 0)
	(MAKEDIR sfx-dest (INFOS))
)

; Guide -----------------------------------------------------------------------------------------------------

(COMPLETE 17)
(COPYFILES
	(PROMPT #copy-text)
	(HELP #copy-help)
	(SOURCE "")
	(FILES)
	(PATTERN "#?.txt")
	(DEST sfx-dest)
)
(IF (= @LANGUAGE "english")
	(COPYFILES
		(PROMPT #copy-text)
		(HELP #copy-help)
		(SOURCE "")
		(FILES)
		(PATTERN "ReadMe#?")
		(DEST sfx-dest)
	)
)
(IF (= @LANGUAGE "deutsch")
	(COPYFILES
		(PROMPT #copy-text)
		(HELP #copy-help)
		(SOURCE "")
		(FILES)
		(PATTERN "LiesMich#?")
		(DEST sfx-dest)
	)
)

(COMPLETE 15)
(SET sfxsub-dest (TACKON sfx-dest "Guides"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 17)
(COPYFILES
	(PROMPT #copy-guides)
	(HELP #copy-help)
	(SOURCE "Guides/")
	(FILES)
	(PATTERN "#?.guide")
	(DEST sfxsub-dest)
)

(COMPLETE 25)
(SET sfxsub-dest (TACKON sfx-dest "_loader"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 27)
(COPYFILES
	(PROMPT #copy-guides)
	(HELP #copy-help)
	(SOURCE "Guides/Loader/")
	(DEST sfxsub-dest)
	(ALL)
)

(COMPLETE 35)
(SET sfxsub-dest (TACKON sfx-dest "_operators"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 37)
(COPYFILES
	(PROMPT #copy-guides)
	(HELP #copy-help)
	(SOURCE "Guides/Operators/")
	(DEST sfxsub-dest)
	(ALL)
)

(COMPLETE 65)
(SET sfxsub-dest (TACKON sfx-dest "_player"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 67)
(COPYFILES
	(PROMPT #copy-guides)
	(HELP #copy-help)
	(SOURCE "Guides/Player/")
	(DEST sfxsub-dest)
	(ALL)
)

(COMPLETE 75)
(SET sfxsub-dest (TACKON sfx-dest "_rexx"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 77)
(COPYFILES
	(PROMPT #copy-guides)
	(HELP #copy-help)
	(SOURCE "Guides/Rexx/")
	(DEST sfxsub-dest)
	(ALL)
)

(COMPLETE 85)
(SET sfxsub-dest (TACKON sfx-dest "_saver"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 87)
(COPYFILES
	(PROMPT #copy-guides)
	(HELP #copy-help)
	(SOURCE "Guides/Saver/")
	(DEST sfxsub-dest)
	(ALL)
)

; Fertig ----------------------------------------------------------------------------------------------------
(COMPLETE 99)
(MESSAGE #exit-messy)
(COMPLETE 100)

(EXIT (QUIET))
; Install-SFXdoc Ende ---------------------------------------------------------------------------------------
