;$VER:Digital Almanac II SE Installer Script

(if (= @language "deutsch")
	(
	(set #ask-dest1 "Wählen Sie ein Verzeichnis aus,\nwo Digital Almanac II SE installiert werden soll.\nEine Schublade 'Almanac' wird automatisch erzeugt.")
	(set #choose-lang "Wählen Sie eine Sprache für Digital Almanac II SE aus.")
	(set #choose-lang-def 0)
	(set #msg-install-exe "Installiere Digital Almanac II SE.")
   (set #msg-ende "Bitte lesen Sie noch das Kapitel Installation im Guide, um noch einige notwendige MUI-Einstellungen durchzuführen. Diese müssen Sie manuell vornehmen.\n\n\
Vergessen Sie nicht in ihrem MUI-Einsteller das Flag Fenster/Refresh auf SMART zu stellen, da sonst Digital Almanac abstürzt !!")
	)
)
(if (= @language "english")
	(
	(set #ask-dest1 "Choose directory to install Digital Almanac II SE.\nA drawer 'Almanac' will automatically be created.")
	(set #choose-lang "Select language you want to use with Digital Almanac II SE.")
	(set #choose-lang-def 1)
	(set #msg-install-exe "Installing Digital Almanac II SE.")
   (set #msg-ende "Please read the chapter Installation in the Guide to adjust some necessary MUI settings. These must be done manually.\n\n\
Don't forget to set the flag Windows/Refresh to SMART in your MUI pref !! Otherwise Digital Almanac will crash !")
	)
)

(set #inst-dir
	(askdir
		(prompt #ask-dest1)
		(help @askdir-help)
		(default @default-dest)
		(disk)
	)
)

(set #dest-dir (tackon #inst-dir "Almanac"))

(set #dest-cat-dir (tackon #dest-dir "Catalogs"))
(set #dest-fonts-dir (tackon #dest-dir "Fonts"))
(set #dest-icons-dir (tackon #dest-dir "Icons"))
(set #dest-toolbar-dir (tackon #dest-dir "Toolbar"))
(set #dest-pictures-dir (tackon #dest-dir "Pictures"))
(set #dest-projects-dir (tackon #dest-dir "Projects"))
(set #dest-user-dir (tackon #dest-dir "User"))
(set #dest-misc-dir (tackon #dest-dir "Misc"))
(set #dest-data-dir (tackon #dest-dir "Data"))

(set #langnum
	(askchoice
		(prompt #choose-lang)
		(choices "Deutsch" "English")
		(help @askchoice-help)
		(default #choose-lang-def)
	)
)

(set #langcat
	(select #langnum
	"Deutsch" "English"
	)
)

(set #langdoc
	(select #langnum
	"Deutsch" "English"
	)
)

(set #src-lang-dir (tackon "/Catalogs" #langcat))
(set #src-docs-dir (tackon "/Docs" #langdoc))
(set #dest-lang-dir (tackon #dest-cat-dir #langcat))

(working #msg-install-exe)

(makedir #dest-dir)
(copyfiles
	(source "//Almanac.info")
	(dest #inst-dir)
)

(copyfiles
	(source "/Almanac")
	(dest #dest-dir)
	(infos)
)

(copyfiles
	(source (tackon #src-docs-dir "Almanac.guide"))
	(dest #dest-dir)
	(infos)
)

(makedir #dest-cat-dir)
(makedir #dest-lang-dir)
(copyfiles
	(source (tackon #src-lang-dir "Almanac.catalog"))
	(dest #dest-lang-dir)
)

(makedir #dest-fonts-dir)
(copyfiles
	(source "/Fonts")
	(dest #dest-fonts-dir)
	(all)
)

(makedir #dest-icons-dir)
(copyfiles
	(source "/Icons.info")
	(dest #dest-dir)
)
(copyfiles
	(source "/Icons")
	(dest #dest-icons-dir)
	(all)
)

(makedir #dest-toolbar-dir)
(copyfiles
	(source "/Toolbar")
	(dest #dest-toolbar-dir)
	(all)
)

(makedir #dest-misc-dir)
(copyfiles
	(source "/Misc")
	(dest #dest-misc-dir)
	(all)
)

(makedir #dest-pictures-dir)
(copyfiles
	(source "/Pictures.info")
	(dest #dest-dir)
)

(makedir #dest-projects-dir)
(copyfiles
	(source "/Projects.info")
	(dest #dest-dir)
)
(copyfiles
	(source "/Projects")
	(dest #dest-projects-dir)
	(all)
)

(makedir #dest-user-dir)
(copyfiles
	(source "/User")
	(pattern "#?.data")
	(dest #dest-user-dir)
)
(if (= #langnum 0)
	(copyfiles
		(source "/User/ngcnames.data.deutsch")
		(dest #dest-user-dir)
		(newname "ngcnames.data")
	)
	(copyfiles
		(source "/User/ngcnames.data.english")
		(dest #dest-user-dir)
		(newname "ngcnames.data")
	)
)

(if (= #langnum 0)
	(copyfiles
		(source "/User/place.data.deutsch")
		(dest #dest-user-dir)
		(newname "place.data")
	)
	(copyfiles
		(source "/User/place.data.english")
		(dest #dest-user-dir)
		(newname "place.data")
	)
)

(copylib
	(prompt "asyncio.library")
	(help @copylib-help)
	(source "/Libs/asyncio.library")
	(dest "LIBS:")
	(confirm "average")
)

(copylib
	(prompt "NList.mcc")
	(help @copylib-help)
	(source "/Libs/MUI/NList.mcc")
	(dest "MUI:Libs/MUI")
	(confirm "average")
)

(copylib
	(prompt "NListview.mcc")
	(help @copylib-help)
	(source "/Libs/MUI/NListview.mcc")
	(dest "MUI:Libs/MUI")
	(confirm "average")
)

(copylib
	(prompt "NFloattext.mcc")
	(help @copylib-help)
	(source "/Libs/MUI/NFloattext.mcc")
	(dest "MUI:Libs/MUI")
	(confirm "average")
)

(copylib
	(prompt "NListviews.mcp")
	(help @copylib-help)
	(source "/Libs/MUI/NListviews.mcp")
	(dest "MUI:Libs/MUI")
	(confirm "average")
)

(copylib
	(prompt "HotkeyString.mcc")
	(help @copylib-help)
	(source "/Libs/MUI/HotkeyString.mcc")
	(dest "MUI:Libs/MUI")
	(confirm "average")
)

(copylib
	(prompt "TransferAnim.mcc")
	(help @copylib-help)
	(source "/Libs/MUI/TransferAnim.mcc")
	(dest "MUI:Libs/MUI")
	(confirm "average")
)

(copylib
	(prompt "TransferAnim.mcp")
	(help @copylib-help)
	(source "/Libs/MUI/TransferAnim.mcp")
	(dest "MUI:Libs/MUI")
	(confirm "average")
)

(copylib
	(prompt "imagepool.library")
	(help @copylib-help)
	(source "/Libs/imagepool.library")
	(dest "LIBS:")
	(confirm "average")
)

(makedir #dest-data-dir)
(copyfiles
	(source "/Data")
	(dest	#dest-data-dir)
	(all)
)

(set @default-dest #inst-dir)
(message #msg-ende)