;Install script for Adagis v3.1
;© 1996 Stv
;(Hope it works !)
;
;Install the main program
;
(set @language "español")
(set directory
	(askdir
		(prompt "Dónde quieres instalar Adagis ?\n(no se creará nuevo directorio)")
		(help @askdir-help)
		(default "Sys:WBStartUp")
	)
)
(copyfiles
	(prompt "Copiar Adagis program:")
	(help @copyfiles-help)
	(dest directory)
	(source "/Adagis")
	(infos)
)
;
;Install Adagis.data
;
(set quinfitxer
	(askchoice
		(help @askchoice-help)
		(prompt "Qué Adagis.data debo instalar ?\n\nSE BORRARÁ CUALQUIER ADAGIS.DATA ANTERIOR\n")
		(choices "Inglés" "Catalán" "Español" "Ninguno")
		(default 2)
	)
)
(if (<> 3 quinfitxer)			; Delete file if required
	(delete "s:adagis.data"
		(help @delete-help)
		(prompt "Borrando Adagis.data existente")
	)
)
(select quinfitxer
	(copyfiles
		(prompt "Copiando Adagis.data.eng")
		(help @copyfiles-help)
		(dest "S:")
		(source "/s/Adagis.data.eng")
		(newname "s:Adagis.data")
	)
	(copyfiles
		(prompt "Copiando Adagis.data.cat")
		(help @copyfiles-help)
		(dest "S:")
		(source "/s/Adagis.data.cat")
		(newname "s:Adagis.data")
	)
	(
		(copyfiles
			(prompt "Copiando Adagis.data.esp")
			(help @copyfiles-help)
			(dest "S:")
			(source "/s/Adagis.data.esp")
			(newname "s:Adagis.data")
		)
		(message "\n\n\nEl Adagis.data en español contiene sólo 10,\n"
			 "refranes, ya que nadie me ha enviado refranes en español.\n\n"
			 "Por favor, si creas un Adagis.data en español ponte en\n"
			 "contacto conmigo.")
	)
	(message "\n\n\nRecuerda que Adagis requiere\nun Adagis.data en el directorio S:\n"
			 "\n\nSi creas tu propio fichero (ver docs),\npor favor ponte en contacto conmigo.\n")
)
;
;Install locale files
;
(set locales
	(askoptions
		(prompt "¿ Qué catálogos debo instalar ?")
		(help @askoptions-help)
		(choices "Español" "Catalán")
		(default %01)
	)
)
(if (in locales 0)
	(copyfiles
		(source "/locale/catalogs/español/adagis.catalog")
		(dest "locale:catalogs/español/")
		(prompt "Copiando catalogos en español.")
		(help @copyfiles-help)
	)
)
(if (in locales 1)
	(copyfiles
		(source "/locale/catalogs/català/adagis.catalog")
		(dest "locale:catalogs/català/")
		(prompt "Copiando catálogos en catalán.")
		(help @copyfiles-help)
	)
)