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

; setze sprachenabhängige Texte -----------------------------------------------------------------------------

(IF (= @LANGUAGE "english")
(
	(SET #bad-kick			"SoundFX requires at least Kickstart 2.04 !")
	(SET #welcome-messy 	"\n\nWelcome to the installation of 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-loader		"copying loadermoduls ...")
	(SET #copy-operators	"copying operatormoduls ...")
	(SET #copy-player		"copying playermoduls ...")
	(SET #copy-rexx			"copying arexxscripts ...")
	(SET #copy-saver		"copying savermoduls ...")
	(SET #copy-executable	"copying executable ...")
	(SET #copy-help			"The respective files will copied to your HD.")
	(SET #exit-messy		"\n\nSFX is successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
))
(IF (= @LANGUAGE "deutsch")
(
	(SET #bad-kick			"SoundFX benötigt mindestens Kickstart 2.04 !")
	(SET #welcome-messy		"\n\nWillkommen zur Installation von SoundFX !")
	(SET #choose-dest		"Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
	(SET #choose-dest-help	"Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
	(SET #dest-require		"\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.2 Mb-Speicher frei ist !")
	(SET #copy-loader		"kopiere Loader-Module ...")
	(SET #copy-operators	"kopiere Operator-Module ...")
	(SET #copy-player		"kopiere Player-Module ...")
	(SET #copy-rexx			"kopiere ARexx-Scripts ...")
	(SET #copy-saver		"kopiere Saver-Module ...")
	(SET #copy-executable	"kopiere Executable ...")
	(SET #copy-help			"Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
	(SET #exit-messy		"\n\nSFX 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)
(COMPLETE 5)
; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
(SET @default-dest (TACKON @default-dest "SFX"))
(SET sfx-dest @default-dest)
(IF (= (EXISTS sfx-dest) 0)
	(MAKEDIR sfx-dest (INFOS))
)

; Loader ----------------------------------------------------------------------------------------------------
(COMPLETE 10)
(SET sfxsub-dest (TACKON sfx-dest "_loader"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 12)
(COPYFILES
	(PROMPT #copy-loader)
	(HELP #copy-help)
	(SOURCE "_loader/")
	(DEST sfxsub-dest)
	(ALL)
)

; Operators -------------------------------------------------------------------------------------------------
(COMPLETE 25)
(SET sfxsub-dest (TACKON sfx-dest "_operators"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 27)
(COPYFILES
	(PROMPT #copy-operators)
	(HELP #copy-help)
	(SOURCE "_operators/")
	(DEST sfxsub-dest)
	(ALL)
)

; Player ----------------------------------------------------------------------------------------------------
(COMPLETE 50)
(SET sfxsub-dest (TACKON sfx-dest "_player"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 52)
(COPYFILES
	(PROMPT #copy-player)
	(HELP #copy-help)
	(SOURCE "_player/")
	(DEST sfxsub-dest)
	(ALL)
)

; Rexx ------------------------------------------------------------------------------------------------------
(COMPLETE 60)
(SET sfxsub-dest (TACKON sfx-dest "_rexx"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 62)
(COPYFILES
	(PROMPT #copy-rexx)
	(HELP #copy-help)
	(SOURCE "_rexx/")
	(DEST sfxsub-dest)
	(ALL)
)

; Saver -----------------------------------------------------------------------------------------------------
(COMPLETE 70)
(SET sfxsub-dest (TACKON sfx-dest "_saver"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 72)
(COPYFILES
	(PROMPT #copy-saver)
	(HELP #copy-help)
	(SOURCE "_saver/")
	(DEST sfxsub-dest)
	(ALL)
)

; SFX -------------------------------------------------------------------------------------------------------
(COMPLETE 80)
(COPYFILES
	(PROMPT #copy-executable)
	(HELP #copy-help)
	(SOURCE "sfx")
	(DEST sfx-dest)
	(NEWNAME "SoundFX")
)
(COMPLETE 95)
(COPYFILES
	(PROMPT #copy-executable)
	(HELP #copy-help)
	(SOURCE "sfxsupport.library")
	(DEST sfx-dest)
)

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

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