; Install-SFXdata Start -------------------------------------------------------------------------------------
;
; $VER: Install-SFXdata (02.12.1995)
;
; SoundFX data  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 data 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 the data for 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-fonts		"copying fonts ...")
	(SET #copy-libs			"copying librarys ...")
	(SET #copy-synths		"copying synths ...")
	(SET #copy-eqshapes		"copying eq-shapes ...")
	(SET #copy-envelopes	"copying envelopes ...")
	(SET #copy-workshop		"copying workshopfiles ...")
	(SET #copy-icons		"copying icons ...")
	(SET #copy-help			"The respective files will copied to your HD.")
	(SET #choose-icon		"Please choose the the icon you want to install\n The 4 colour version is made for standart wb-colors and the 8 colour version is made for magic-wb !")
	(SET #choose-icon-help	"If your wb-screen has more than 4 colours than choose the 8 colour version.\n This one looks nicer.")
	(SET #exit-messy		"\n\nSFXdata 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 Daten 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 die Daten fr 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-fonts		"kopiere Fonts ...")
	(SET #copy-libs			"kopiere Librarys ...")
	(SET #copy-synths		"kopiere Synths ...")
	(SET #copy-eqshapes		"kopiere EQ-Shapes ...")
	(SET #copy-envelopes	"kopiere Envelopes ...")
	(SET #copy-workshop		"kopiere Workshopdateien ...")
	(SET #copy-icons		"kopiere Icons ...")
	(SET #copy-help			"Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
	(SET #choose-icon		"Bitte whlen Sie das Icon aus, das Sie installieren mchten !\n Die 4-farbige Variante ist fr die Standart-WB und die 8-farbige fr MagicWB !")
	(SET #choose-icon-help	"Wenn Sie mehr als 4 Farben auf der WB haben, dann whlen Sie die 8-farbige Version.\n Diese sieht schner aus.")
	(SET #exit-messy		"\n\nSFXdata 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))
)

; Fonts kopieren --------------------------------------------------------------------------------------------
(COMPLETE 10)
(COPYFILES
	(PROMPT #copy-fonts)
	(HELP #copy-help)
	(SOURCE "Fonts/")
	(DEST "FONTS:")
	(ALL)
)

; Libs kopieren ---------------------------------------------------------------------------------------------
(COMPLETE 15)
(COPYLIB
	(PROMPT #copy-libs)
	(HELP #copy-help)
	(SOURCE "Libs/amigaguide.library")
	(DEST "LIBS:")
)

; Synths ----------------------------------------------------------------------------------------------------
(COMPLETE 20)
(SET sfxsub-dest (TACKON sfx-dest "Synths"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 22)
(COPYFILES
	(PROMPT #copy-synths)
	(HELP #copy-help)
	(SOURCE "Synths/")
	(DEST sfxsub-dest)
	(ALL)
)

; Eqshapes --------------------------------------------------------------------------------------------------
(COMPLETE 35)
(SET sfxsub-dest (TACKON sfx-dest "Eqshps"))
(IF (= (EXISTS sfxsub-dest) 0)
	(MAKEDIR sfxsub-dest)
)
(COMPLETE 37)
(COPYFILES
	(PROMPT #copy-eqshapes)
	(HELP #copy-help)
	(SOURCE "Eqshps/")
	(DEST sfxsub-dest)
	(ALL)
)

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

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

; Icon ------------------------------------------------------------------------------------------------------
(COMPLETE 90)
(SET icon
	(ASKCHOICE
		(PROMPT #choose-icon)
		(HELP #choose-icon-help)
		(CHOICES
			"4 colours"
			"8 colours"
		)
		(DEFAULT 0)
	)
)
(COMPLETE 92)
(SET sfxsub-dest (TACKON sfx-dest "Guides"))
(IF (= icon 0)
(
	(COPYFILES
		(PROMPT #copy-icons)
		(HELP #copy-help)
		(SOURCE "icons_4col/SoundFX.info")
		(DEST sfx-dest)
	)
	(COPYFILES
		(PROMPT #copy-icons)
		(HELP #copy-help)
		(SOURCE "icons_4col/Guides.info")
		(DEST sfx-dest)
	)
	(COPYFILES
		(PROMPT #copy-icons)
		(HELP #copy-help)
		(SOURCE "icons_4col/SFX.guide.info")
		(DEST sfxsub-dest)
	)
	(IF (= @LANGUAGE "english")
	(
		(COPYFILES
			(PROMPT #copy-icons)
			(HELP #copy-help)
			(SOURCE "icons_4col/Form.info")
			(DEST sfx-dest)
			(NEWNAME "Orderform.txt.info")
		)
	)
	(
		(COPYFILES
			(PROMPT #copy-icons)
			(HELP #copy-help)
			(SOURCE "icons_8col/Form.info")
			(DEST sfx-dest)
			(NEWNAME "Orderform.txt.info")
		)
	))
))
(IF (= icon 1)
(
	(COPYFILES
		(PROMPT #copy-icons)
		(HELP #copy-help)
		(SOURCE "icons_8col/SoundFX.info")
		(DEST sfx-dest)
	)
	(COPYFILES
		(PROMPT #copy-icons)
		(HELP #copy-help)
		(SOURCE "icons_8col/Guides.info")
		(DEST sfx-dest)
	)
	(COPYFILES
		(PROMPT #copy-icons)
		(HELP #copy-help)
		(SOURCE "icons_8col/SFX.guide.info")
		(DEST sfxsub-dest)
	)
	(IF (= @LANGUAGE "english")
	(
		(COPYFILES
			(PROMPT #copy-icons)
			(HELP #copy-help)
			(SOURCE "icons_4col/Form.info")
			(DEST sfx-dest)
			(NEWNAME "Bestellformular.txt.info")
		)
	)
	(
		(COPYFILES
			(PROMPT #copy-icons)
			(HELP #copy-help)
			(SOURCE "icons_8col/Form.info")
			(DEST sfx-dest)
			(NEWNAME "Bestellformular.txt.info")
		)
	))
))

(if (< (/ (getversion) 65536) 37)
(
	(TOOLTYPE
		(DEST (TACKON sfx-dest "Guides/SFX.guide"))
		(SETDEFAULTTOOL "sys:Utillities/AmigaGuide")
	)
	(IF (= @LANGUAGE "english")
	(
		(TOOLTYPE
			(DEST (TACKON sfx-dest "Orderform.txt"))
			(SETDEFAULTTOOL "sys:Utillities/AmigaGuide")
		)
	)
	(
		(TOOLTYPE
			(DEST (TACKON sfx-dest "Bestellformular.txt"))
			(SETDEFAULTTOOL "sys:Utillities/AmigaGuide")
		)
	))
)
(
	(TOOLTYPE
		(DEST (TACKON sfx-dest "Guides/SFX.guide"))
		(SETDEFAULTTOOL "sys:Utillities/MultiView")
	)
	(IF (= @LANGUAGE "english")
	(
		(TOOLTYPE
			(DEST (TACKON sfx-dest "Orderform.txt"))
			(SETDEFAULTTOOL "sys:Utillities/MultiView")
		)
	)
	(
		(TOOLTYPE
			(DEST (TACKON sfx-dest "Bestellformular.txt"))
			(SETDEFAULTTOOL "sys:Utillities/MultiView")
		)
	))
))

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

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