;Install script for Adagis v3.1
;� 1996 Stv
;(Hope it works !)
;
;Install the main program
;
(set @language "catal�")
(set directory
	(askdir
		(prompt "A on vols instal.lar Adagis ?\n(no es crear� cap directori)")
		(help @askdir-help)
		(default "Sys:WBStartUp")
	)
)
(copyfiles
	(prompt "Copiar Adagis:")
	(help @copyfiles-help)
	(dest directory)
	(source "/Adagis")
	(infos)
)
;
;Install Adagis.data
;
(set quinfitxer
	(askchoice
		(help @askchoice-help)
		(prompt "Quin Adagis.data he de instal.lar ?\n\nS'ESBORRAR� QUALSEVOL ADAGIS.DATA ANTERIOR\n")
		(choices "Angl�s" "Catal�" "Espanyol" "Cap")
		(default 1)
	)
)
(if (<> 3 quinfitxer)			; Delete file if required
	(delete "s:adagis.data"
		(help @delete-help)
		(prompt "Esborrando l'Adagis.data")
	)
)
(select quinfitxer
	(copyfiles
		(prompt "Copiant Adagis.data.eng")
		(help @copyfiles-help)
		(dest "S:")
		(source "/s/Adagis.data.eng")
		(newname "s:Adagis.data")
	)
	(copyfiles
		(prompt "Copiant Adagis.data.cat")
		(help @copyfiles-help)
		(dest "S:")
		(source "/s/Adagis.data.cat")
		(newname "s:Adagis.data")
	)
	(copyfiles
		(prompt "Copiant Adagis.data.esp")
		(help @copyfiles-help)
		(dest "S:")
		(source "/s/Adagis.data.esp")
		(newname "s:Adagis.data")
	)
	(message "\n\n\nRecorda que l'Adagis requereix\nun Adagis.data al directori S:\n"
			 "\n\nSi crees el teu propi fitxer (veurer docs),\nsi us plau posa't en contacte amb l'autor.\n")
)
;
;Install locale files
;
(set locales
	(askoptions
		(prompt "Quins cat�legs he d'instal.lar ?")
		(help @askoptions-help)
		(choices "Espayol" "Catal�")
		(default %10)
	)
)
(if (in locales 0)
	(copyfiles
		(source "/locale/catalogs/espa�ol/adagis.catalog")
		(dest "locale:catalogs/espa�ol/")
		(prompt "Copiant cat�logos d'espanyol.")
		(help @copyfiles-help)
	)
)
(if (in locales 1)
	(copyfiles
		(source "/locale/catalogs/catal�/adagis.catalog")
		(dest "locale:catalogs/catal�/")
		(prompt "Copiant cat�legs en catal�.")
		(help @copyfiles-help)
	)
)