;$VER:DigitalAlmanac Install_Data 39.7

(if (= @language "deutsch")
	(
	(set #ask-data "Wo befindet sich das Datenarchiv 'DAlmanac_Data.lha' ?")
	(set #ask-lha "Wo befindet sich 'Lha' ?")
	(set #ask-da "Wie heißt das Verzeichnis von Digital Almanac ?")
	(set #msg-install "Das Datenarchiv wird jetzt entpackt.")
	(message "Willkommen zur Installation der Daten für Digital Almanac.\n\nSie müssen das Hauptprogramm von Digital Almanac bereits fertig\ninstalliert haben, um weiter machen zu können !")
	)
)

(if (= @language "english")
	(
	(set #ask-data "Where us the data archive 'DAlmanac_Data.lha' ?")
	(set #ask-lha "Where is 'Lha' ?")
	(set #ask-da "What's the name of Digital Almanac's drawer ?")
	(set #msg-install "The data archive now will be unpacked.")
	(message "Welcome to the installation of the datas for Digital Almanac.\n\nTo continue, you must have completly installed the main program !")
	)
)

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

(set #lha-dir
	(askdir
		(prompt #ask-lha)
		(help @askdir-help)
		(default "C:")
		(disk)
	)
)

(set #da-dir
	(askdir
		(prompt #ask-da)
		(help @askdir-help)
		(default "Work:DigitalAlmanac")
		(disk)
	)
)

(set #data (tackon #data-dir "DAlmanac_Data.lha"))
(set #lha (tackon #lha-dir "Lha"))

(working #msg-install)

(run (cat #lha " e \"" #data "\" \"" (tackon #da-dir "") "\""))