;
; Script d'installation de Majordome V1.7 Localisé.
;
;
;=============================================================================
; English strings
  
(set def_language 4)

(set #bad-kick "You must be using Kickstart 2.04+ to install Majordome")
   
(set #introduction
	(cat "\n\nWelcome to the Majordome installation tool"
	     "\n\nWe will install Majordome on your hard-disk"
	     "\n\n\nMajordome is Copyright 1995-1996 DONAT Michel"
	     "\n\nPlease read the Readme file and the documentation for more informations"
	)
)

(set @default-dest "Work:") 

(set #hd_prompt"Where do you want Majordome and Nestor to be installed?")

(set #hd_help
	(cat "    You must choose your hard disk partition on which Majordome will install.\n"
	     "The default partition is " @default-dest "\n\n"
	     "    The installation software will create a directory named 'Majordome' located \n"
	     "	where you have choosen, and a 'Nestor' directory"
	)
)

(set #desarchivage "Unpacking...")

(set #copy_docs "Copy of the documentation files ...")

(set #assign_prompt "\n\nWe will assign the program in the user-startup file.")

(set #assign_help "\n This function allows the program to find its files.")

(set #quelle-langue "\nWhich languages to install?")

(set #quelle-langue-help
	(cat "    Amiga can be used with several languages.\n"
	     "If you want Majordome to use your Workbench language, \n"
	     "a catalog must then be copied on your hard disk for each supported language.\n"
	     "    Just click on the language that you want to be available on your system.\n"
	     "    Note that the list displays more catalogs than available"
	)
)

(set #fin_install_hd
	(cat "\n\n Here we are... Installation is   completed"
	     " Remember to reset your Amiga."
	     " Majordome will be found in \n"
	)
)

;=============================================================================
; French strings

(if (= @language "français")
	(
		(set def_language 16)

		(set #bad-kick "Majordome a besoin du système 2.04 ou plus : Installation impossible")

		(set #introduction
			(cat "\n\nBienvenue dans l'utilitaire d'installation de Majordome"
			     "\n\nNous allons procéder à l'installation du programme sur votre Disque Dur"
			     "\n\n\nMajordome est Copyright 1995-1996 DONAT Michel"
			     "\n\nVeuillez lire le fichier ReadMe et la documentation pour de plus amples renseignements"
			)
		)

		(set @default-dest "Work:") 

		(set #hd_prompt"Où voulez-vous installer Majordome et Nestor?")

		(set #hd_help
			(cat "    Vous devez choisir sur quelle partition de votre disque dur "
    			     "le logiciel Majordome s'installera. Par défaut il s'agit de la partition qui porte "
			     "le nom de " @default-dest "\n"
			     "    Le programme d'installation créera un "
			     "répertoire du nom de 'Majordome' à l'endroit que vous avez choisi, "
			     "ainsi qu'un répertoire 'Nestor'"
			)
		)

		(set #desarchivage "Désarchivage des archives...")

		(set #copy_docs "Copie des Documentations ...")

		(set #assign_prompt "\n\nNous allons assigner le programme dans le fichier user-startup.")

		(set #assign_help "\n Cette fonction permet au programme de retrouver ses fichiers.")

		(set #quelle-langue "\nQuelles langues doivent être installées?")

		(set #quelle-langue-help
			(cat "    L'Amiga peut être utilisé dans différentes langues. Si vous "
			     "voulez que Majordome utilise la même langue que votre Workbench, "
			     "un catalogue doit alors être copié dans votre disque dur pour "
			     "chaque langue supportée.\n"
			     "    Cochez simplement les langues que vous souhaitez avoir "
			     "disponibles dans votre systême.\n"
			     "    Sachez qu'il n'y a pas de autant de catalogues"
			     "disponibles que la liste le propose."
			)
		)

		(set #fin_install_hd
			(cat "\n\n Voilà.. l'installation est   terminée  ..."
	    		     " A la fin de celle-ci, n'oubliez pas de réinitialiser votre Amiga."
			     " Le programme se trouvera dans le répertoire \n"
			)
		)
	)
)
;=============================================================================
; Deutsch strings

(if (= @language "deutsch")
	(
		(set def_language 2)

		(set #bad-kick "Majordome benötigt Workbench 2.04 oder höher: Installation unmöglich")

		(set #introduction
			(cat "\n\nWillkommen beim Installationsskript von Majordome"
			     "\n\nWir beginnen nun mit der Installation des Programmes auf ihrer Festplatte"
			     "\n\n\nMajordome ist Copyright 1995-1996 DONAT Michel"
			     "\n\nBitte lesen Sie die ReadMe Datei sowie die Dokumentation zur besseren Information"
			)
		)

		(set @default-dest "Work:") 

		(set #hd_prompt"Wo wollen Sie Majordome und Nestor installieren ?")

		(set #hd_help
			(cat "    Sie müssen eine Partition auf ihrer Festplatte wählen, wo "
    			     "das Programm Majordome installiert wird. Als Vorgabe wird die "
			     "Partition mit dem Namen " @default-dest " benutzt\n"
			     "    Das Installationsprogramm erstellt ein Verzeichnis mit dem "
			     "Namen 'Majordome', sowie ein zweites mit dem Namen 'Nestor'."
			)
		)

		(set #desarchivage "Desarchivierung des Archives...")

		(set #copy_docs "Kopie der Dokumentationen ...")

		(set #assign_prompt "\n\nAssigner des Programms in der Startup.")

		(set #assign_help "\n Diese Funktion bewirkt, daß das Programm seine Datein wiederfindet.")

		(set #quelle-langue "\nWelche Sprachen installieren?")

		(set #quelle-langue-help
			(cat "    Der Amiga kann verschiedene Sprachen benutzen. Wenn Sie wollen,"
			     "daß Majordome die selbe Sprache benutzt, wie ihre Workbench, "
			     "muss für jede Sprache ein Katalog auf ihre Festplatte kopiert werden.\n"
			     "    Kreuzen Sie enfach die Sprachen an, die Sie installieren wollen.\n"
			     "    Bedenken Sie, daß nicht alle, in der Liste, angebotenen Kataloge"
			     "vorhanden sind."
			)
		)

		(set #fin_install_hd
			(cat "\n\n Die Installation ist beendet"
	    		     " Vergessen Sie bitte nicht, ihren Amiga neu zu starten."
			     " Das Programm befindet sich im Verzeichnis \n"
			)
		)
	)
)
; == =========================================================

(if (= @language "dansk")
  	(
    	(set def_language 2)
  	)
)

; == =========================================================

(if (= @language "español")
  	(
    	(set def_language 8)
  	)
)
; == =========================================================

(if (= @language "italiano")
  	(
    	(set def_language 32)
  	)
)
; == =========================================================

(if (= @language "nederlands")
  	(
    	(set def_language 64)
  	)
)

; == =========================================================

(if (= @language "norsk")
  	(
    	(set def_language 128)
  	)
)

; == =========================================================

(if (= @language "português")
  	(
    	(set def_language 256)
  	)
)
; == =========================================================

(if (= @language "suomi")
  	(
    	(set def_language 512)
  	)
)
; == =========================================================

(if (= @language "svenska")
  	(
    	(set def_language 1024)
  	)
)

;
;
;
;
;
; Teste la version du Kickstart si <2.04 Installation impossible
;
(complete 0)
;(if (< (/ (getversion) 65536) 37)
;(
;	(exit #bad-kick (quiet))
;))

;
; Message introduction
;
(complete 5)
(message #introduction)

;******************************************************************************** 
; installation sur le disque Dur
;******************************************************************************** 	
;======================== choix et assignement tiroir
	
(complete 10)

(set dest1 (askdir
	   (prompt #hd_prompt)
	   (default @default-dest)
	   (help #hd_help )
	   (disk)
	   )
)
	
;======================== création tiroir
	
(complete 20)
(set destination (tackon dest1 "Majordome"))
(makedir destination (prompt #cree_tiroir destination "."))

(set destination1 (tackon dest1 "Majordome/Nestor")) 
(makedir destination1 (prompt #cree_tiroir "Nestor"))

;======================== copie des fichiers
	
(complete 30) 

(copyfiles (source "/Majordome") (dest destination))
(copyfiles (source "/Majordome.info") (dest destination))

(complete 50)

(copyfiles (source "/Nestor") (dest destination1))
(copyfiles (source "/Nestor.info") (dest destination1))

(complete 70)	
(copyfiles (source "/Majordome.prefs") (dest destination))
(copyfiles (source "/Nestor.prefs") (dest destination1))
(copyfiles (source "/Démo.Majordome") (dest destination))
(copyfiles (source "/Démo.Nestor") (dest destination1))
(copyfiles (source "/Leather.iff") (dest destination))

;======= Copie du tiroir Documentation ==================

(set destination (tackon destination "Documentations"))
(makedir destination (prompt #cree_tiroir destination "."))

(Working #copy_docs )
(complete 80)	
(copyfiles
	(source "/Documentations")
        (dest destination)
        (optional nofail)
	(all)
	(infos)
)

;======= Installe les Catalogues ========================

(set destcatalogs (tackon dest1 "Majordome/Catalogs"))
(makedir destcatalogs (prompt #cree_tiroir destcatalogs "."))

(complete 90)

(set lang
	(askoptions
    		(prompt #quelle-langue)
    		(help   (cat #quelle-langue-help "\n\n" @askoptions-help))
    		(choices
			"Dansk"
			"Deutsch"
			"English"
			"Español"
			"Français"
			"Italiano"
			"Nederlands"
			"Norsk"
			"Português"
			"Suomi"
			"Svenska"
		)
		(default def_language)
     	)
)

(set n 0)

(while
	(set language
   		(select n
			"Dansk"
		     	"Deutsch"
		     	"English"
		     	"Español"
		     	"Français"
			"Italiano"
			"Nederlands"
			"Norsk"
			"Português"
			"Suomi"
			"Svenska"
			""
		)
	)

	(
	(if (IN lang n)
		(
		       	(set sourcecatalogs (tackon "/Catalogs" language))
		       	(set destination (tackon destcatalogs language))

		       	(makedir destination)

		       	(if (exists (tackon sourcecatalogs "majordome.catalog"))
	    		(copyfiles
			       	(source (tackon sourcecatalogs "majordome.catalog"))
			       	(dest destination)
			)
		)      
	    )
        )
	(set n (+ n 1))
	)

)

;======================= assign
	
(complete 95)
(startup "Majordome"
	(command "assign Majordome: " destination)
	(command "\nassign Nestor: " destination1)
	(prompt #assign_prompt )
	(help #assign_help )
)

;======================= fin

(complete 100)

(message #fin_install_hd  destination "\n")

(exit (quiet))