;
; Copyright © 1997 Heiko Schröder
; $VER: InstallFW_Makros 1.00 (20.04.97)
;

;
;	============
;	Localization
;	============
;
(if (= @language "deutsch")
(
	(set ##bad-installer (cat
		"Sie arbeiten mit einer alten Version vom 'Installer'!\n\n"
		"Die Installation benötigt den Installer 42.9.\n\n"
		"Bitte überprüfen Sie Ihre Konfiguration!"
	))
	(set ##welcome (cat
		"\n\nDas FinalWriter Makro Paket\nVersion 1\n\n\n"
      "Hiermit erhalten Sie die Vollversion des Paketes\n\n"
		"Dieses Paket ist © 1997  Heiko Schröder\n"
		"Alle Rechte liegen beim Autor."
	))
	(set ##bad-kick "\nSorry, aber es wird mindestens AmigaOS 2.04 benötigt.\n")
	(set ##install "Was möchten Sie installieren oder updaten?")
	(set ##inst-libs " Libraries in Libs:")
	(set ##copying "Was soll kopiert werden?")
	(set ##copying2 "Soll die '")
	(set ##inst-test " FW-Makros.")
	(set ##inst-test-dest "Bitte geben Sie das Verzeichnis für die zu installierenden Makros an.")
	(set ##copying3 "Es werden nun die Makros installiert.")
	(set ##copying4 "Bitte wählen Sie aus, was und wohin kopiert werden soll.")
	(set ##inst-docs " Dokumentation.")
	(set ##inst-docs-dest "Bitte geben Sie das Verzeichnis für die Dokumentation an.")
	(set ##copying5 "Es werden nun die Dokumentationen installiert.")
))

;
; We can't handle this script without Installer 42.9 or better!
;
(if (< @installer-version 2752521)
(
	(message ##bad-installer)
	(exit (quiet))
))

;
;	=======
;	WELCOME
;	=======
;
(complete 0)
(message ##welcome (all))
(welcome)

;
;	Check kick version
;
(if (= (set #flag (/ (getversion "libs:version.library") 65536)) 0)
	(set #flag (/ (getversion) 65536))
)

(if (< #flag 37) (abort ##bad-kick))

;
;	CPU & FPU
;
(set cpu (database "cpu"))
(set fpu (database "fpu"))

;
;	source and destination dir
;
(set #srcdir (pathonly @icon))
(set @default-dest "REXX:")


;
;	================================================
;	the /Libs  directory with libraries...
;	the /Makrosdirectory with makros...
;	the /Docs  directory with documentation files...
;	================================================
;
(set #inst 0)

(if (> (exists (set #libs-dir (tackon #srcdir "Libs"))) 0)
	(set #inst (+ #inst 1))
	(set ##inst-libs "")
)
(if (> (exists (set #mods-dir (tackon #srcdir "Makros"))) 0)
	(set #inst (+ #inst 2))
	(set ##inst-test "")
)
(if (> (exists (set #docs-dir (tackon #srcdir "Dokumentation"))) 0)
	(set #inst (+ #inst 4))
	(set ##inst-docs "")
)

(set #inst
	(askoptions
		(prompt ##install)
		(help @askoptions-help)
		(choices ##inst-libs ##inst-test ##inst-docs)
		(default #inst)
	)
)
(complete 10)


(if (in #inst 0)
	(foreach #libs-dir "#?.library"
		(copylib
			(prompt (cat ##copying2 @each-name "' installiert werden?"))
			(help @copylib-help)
			(source (tackon #libs-dir @each-name))
			(dest "LIBS:")
			(confirm)
		)
	)
)
(complete 40)


(if (in #inst 1)
	(copyfiles
		(prompt (cat ##copying3 "\n" ##copying4))
		(help (cat "\n"##inst-test-dest "\n\n" @copyfiles-help))
		(source #mods-dir)
		(dest "REXX:")
		(all)
      (infos)
		(confirm)
	)
)
(complete 70)

(if (in #inst 1)
	(copyfiles
		(prompt (cat ##copying5 "\n" ##copying4))
		(help (cat "\n"##inst-docs-dest "\n\n" @copyfiles-help))
		(source #docs-dir)
		(dest "Work:")
		(all)
      (infos)
		(confirm)
	)
)

;
;	===========
;	All done...
;	===========
;
(complete 100)
(exit)