;  *** HTMLCat V2.10 installation scipt ***


; *** Set some useful messages ***
;****************************************************************************
;
; English texts
;
(if (not (= @language "français"))
  (
	(set #install-msg (cat	"\n\nHTMLcat V2.10 installation script.\n"
											"This script installs HTMLcat on your Amiga.\n\n"
											"Read the documentation for\n"
											"more information on the distribution\n"
											"and commercial usage.\n\n"
											"HTMLcat © 1997 by David ANDRE\n"
											"UNREGEGISTRED VERSION"
											"All rights reserved."))
	(set #welcome-msg  	"Welcome to the HTMLcat installation!")
	(set #bad-installer			"You must be using Installer 43.x to install HTMLcat")
	(set #ask-prog-dir			"Where shall I install HTMLcat ?\n(A drawer will NOT be created)")
	(set #which-language  	(cat "\nWhich languages should be installed?"))
	(set #ask_extra_dir		"Where do you want to install sample pictures?")
	(set #copy_extras		"Copying extras files in ")
	(set #copy_prog			"Copying HTMLCat V2.10 in ")
	(set #copy_dir			"Copying docs files in ")
	(set #ask_doc_dir		"Where do you want to copy doc file(s)?")
	(set #which-doc			"In which language do you want to install doc file?")
	(set #copy_rexx			"Copying ARexx script")
	(set #which-rexx		"Which script(s) do you want to install?")
  )
)

;****************************************************************************
;
; Français Texte
;
(if (= @language "français")
  (
	(set #install-msg (cat	"\n\nScript d'installation de HTMLcat V2.10.\n"
											"Ce script va installé HTMLcat dans votre Amiga.\n\n"
											"Veuillez lire la documentation pour\n"
											"plus d'information sur son utilisation\n"
											"et les copyright.\n\n"
											"HTMLcat © 1997 by David ANDRE\n"
											"VERSION NON ENREGISTREE"
											"Tous droits réservés."))
	(set #welcome-msg  	"Bienvenu dans l'installation de HTMLcat!")
	(set #ask-prog-dir			"Où voulez vous installer HTMLcat?\n(Un répertoire ne va pas être créer)")
	(set #bad-installer			"Vous devez installer Installer 43.x pour continuer cette installation")
	(set #which-language		(cat "\nQuelles langues voulez vous installer?"))
	(set #ask_extra_dir		"Ou voulez vous installer les exemples d'images de navigation?")
	(set #copy_extras		"Copie des fichiers Extras dans ")
	(set #copy_prog			"Copie du logiciel HTMLCat V2.10 dans ")
	(set #copy_dir			"Copie des documents dans ")
	(set #ask_doc_dir		"Où voulez vous installer les documents?")
	(set #which-doc			"Dans quelle langue voulez vous installer les documents?")
	(set #copy_rexx			"Copie des script Rexx")
	(set #which-rexx		"Quel(s) script(s) voulez vous installer")
  )
)

; *** Welcome the user to the installation

	(message #install-msg)


; *** Check for Installer-Version ***

	(if (< (/ @installer-version 65536) 43)
		((abort #bad-installer))
	)

; *** Check for CPU ***

; *** Delete old version in C:

	(if (exists "C:HTMLcat") (delete "C:HTMLcat"))

; *** Ask the user for the default-destinations ***

	(set #prog-dest	(askdir 	(prompt #ask-prog-dir)
                      			(help @askdir-help)
                      			(default "SYS:")
						)
	)
; *** Copy the programs ***

	(copyfiles (prompt (cat #copy_prog #prog-dest))
				(help @copyfiles-help)
				(source "HTMLcat")
				(dest #prog-dest )
				(infos)
				(noposition)
	)
	(set #extrasdir (askdir 	(prompt #ask_extra_dir)
				  	(help @askdir-help)
					(default #prog-dest)
	))
	(copyfiles (prompt (cat #copy_extras #extrasdir))
			(help @copyfiles-help)
			(source "extras/")
			(dest #extrasdir)
			(all)
			(infos)
			(noposition)
	)

	(copyfiles (prompt #copy_font)
			(help "")
			(source "Fonts")
			(dest "sys:Fonts/")
			(all)
			(optional askuser)
	)

	(set #docs (askoptions (prompt #which-doc)
				(help "")
				(choices
					 "Français"
					 "English")
				(default 0)
		  )
	)

	(if (not (= #docs 0))
	(
		(set #doc_dir (askdir 	(prompt #ask_doc_dir)
				(help #askdir-help)
				(default #prog-dest)
			)
		)
	))

	(if (BITAND #docs 1)
	(
		(makedir (cat #doc_dir "/français"))
		(copyfiles (prompt #copy_docs)
		   (help @copyfiles-help)
		   (source "doc/français")
		   (dest (cat #doc_dir "/français"))
		   (all)
		   (infos)
		   (noposition)
		)
	))

	(if (BITAND #docs 2)
	(
		(makedir (cat #doc_dir "/english"))
		(copyfiles (prompt #copy_docs)
		   (help @copyfiles-help)
		   (source "doc/français")
		   (dest (cat #doc_dir "/english"))
		   (all)
		   (infos)
		   (noposition)
		)
	))

	(set #rexx	(askoptions (prompt #which-rexx)
				(help "")
				(choices "ADPro 2.5"
					 "GfxCon 1.7")
					(default 0)
			)
	)

	(if (BITAND #rexx 1)
	(
		(copyfiles (prompt #copy_rexx)
			(help @copyfiles-help)
			(source "rexx/ADPRO/MKVignettes.rexx")
			(dest "rexx:")
			(infos)
			(noposition)
		)
	))

	(if (BITAND #rexx 2)
	(
		(copyfiles (prompt #copy_rexx)
			(help @copyfiles-help)
			(source "rexx/GFXCONV/MKVignettes.rexx")
			(dest "rexx:")
			(infos)
			(noposition)
		)
	))


	
(if (exists "SYS:Locale")
(
	(if (exists "LOCALE:")
	(
		(set lang (askoptions (prompt #which-language)
								(help "")
								(choices
									 "Francais"
									 "English (default)")
								(default 0)
			  )
		)
		(if (BITAND lang 1)
		(
			(makedir (cat "LOCALE:Catalogs/français"))
			(copyfiles (source "Catalogs/français" )
						(dest (cat "LOCALE:Catalogs/français"))
						(all)
			)
		))
	))
))