; $VER: Install Upper Disk Tools 1.01 (15.5.94) © Upper Design 1992, 1993, 1994
; Script to install Upper Disk Tools Release 1.01

(
	procedure localecopy
	(
		if (exists file$)
		(
			(if (= (exists (set to$ (tackon @default-dest to$))) 0) (makedir to$))
			(if (= (exists (set to$ (tackon to$ language$))) 0) (makedir to$))
			(
				copyfiles
				(source file$)
				(dest to$)
				(noposition)
			)
		)
	)
)

(
	procedure librarycopy
	(
		if (< (/ (getversion library$ (resident)) 65536) version)
		(
			if (< (/ (getversion (cat "LIBS:" library$)) 65536) version)
			(
				copyfiles
				(source (tackon LIBRARIES$ library$))
				(dest (tackon @default-dest "libs"))
			)
		)
	)
)
(set SOURCE_DISK$ "UDT_1.01:")
(
	while
	(= 0 (exists (set to$ SOURCE_DISK$) (noreq)))
	(
		askdisk
		(dest SOURCE_DISK$)
		(prompt "Please insert \"Upper Disk Tools\" 1.01 disk in any drive")
		(help "You must insert disk the original \"Upper Disk Tools\" installation in any drive.")
	)
)
(set SOURCE$ (expandpath (tackon SOURCE_DISK$ "UDT")))
(set LIBRARIES$ (expandpath (tackon SOURCE_DISK$ "libs")))
(set LANGUAGES$ (expandpath (tackon SOURCE_DISK$ "Locale/Languages")))
(set default-languages 1)
(
	set requires2.04$
	"Sorry, but \"Upper Disk Tools\" requires AmigaDOS V2.04 or greater to run!"
)
(
	set prompt-applications$
	"Which applications do you want installed?"
)
(
	set help-applications$
	(
		cat
		"Select which \"Upper Disk Tools\" applications you want to be "
		"installed.\n\n"
		"All the files needed to run the selected applications will be copied "
		"to the directory where \"Upper Disk Tools\" is going to be installed."
	)
)
(
	set prompt-where$
	"Where do you want to install \"Upper Disk Tools\"?"
)
(
	set help-where$
	(
		cat
		"Select a directory on your disk that has at least 300K of free space.\n\n"
		"All \"Upper Disk Tools\" applications and related files will be copied to "
		"a new directory named 'UDT' that will be created inside the selected "
		"directory."
	)
)
(
	set prompt-languages$
	"Which languages do you want to be supported?"
)
(
	set help-languages$
	(
		cat
		"Select all the supported languages that you want to be installed.\n\n"
		"All the files needed to support the selected languages will be copied "
		"to the directory where \"Upper Disk Tools\" is going to be installed."
	)
)
(
	set no-applications$
	(
		cat
		"If you don't intend to install any \"Upper Disk Tools\ applications, the"
		"installation process will be cancelled."
	)
)
(
	if(= @language "português")
	(
		(set default-languages 2)
		(set @abort-button "Cancelar a instalação")
		(
			set requires2.04$
			(
				cat
				"Lamento, mas \"Upper Disk Tools\" requere a versão 2.04 ou superior do "
				"AmigaDOS para poder correr!"
			)
		)
		(
			set prompt-applications$
			"Quais as aplicações é que pretende que sejam instaladas?"
		)
		(
			set help-applications$
			(
				cat
				"Escolha quais as aplicações do pacote \"Upper Disk Tools\" é que "
				"pretende que sejam instaladas.\n\n"
				"Todos os ficheiros necessários para correr as aplicações escolhidas "
				"serão copiados para o directório onde \"Upper Disk Tools\" vai ser "
				"instalado."
			)
		)
		(
			set prompt-where$
			"Onde é que pretende instalar \"Upper Disk Tools\"?"
		)
		(
			set help-where$
			(
				cat
				"Escolha um directório num disco que onde tenha pelo menos 300K de "
				"espaço livre.\n\n"
				"Todos as aplicações de \"Upper Disk Tools\" e ficheiros relacionados "
				"serão copiados para um directório com o nome 'UDT' que será criado "
				"dentro do directório escolhido."
			)
		)
		(
			set prompt-languages$
			"Quais as linguas que pretende que sejam instaladas?"
		)
		(
			set help-languages$
			(
				cat
				"Escolha quais das linguas suportadas que pretende que sejam "
				"instaladas.\n\n"
				"Todos os ficheiros necessários para suportar as linguas escolhidas "
				"serão copiados para o directório onde \"Upper Disk Tools\" vai ser "
				"instalado."
			)
		)
		(
			set no-applications$
			(
				cat
				"Se não pretende instalar nenhuma aplicação de \"Upper Disk Tools\", o "
				"processo de instalação vai ser cancelado."
			)
		)
	)
)
(
	if(= @language "deutsch")
	(
		(set default-languages 4)
		(set @abort-button "Installation abbrechen")
		(
			set requires2.04$
			(
				cat
				"Es tut mir leid, aber \"Upper Disk Tools\" benötigt AmigaDOS V2.04 "
				"oder größer zum Laufen!"
			)
		)
		(
			set prompt-applications$
			"Welche Anwendung soll installiert werden?"
		)
		(
			set help-applications$
			(
				cat
				"Wähle Anwendungen des \"Upper Disk Tools\" aus, die installiert "
				"werden sollen.\n\n"
				"Alle benötigten Dateien werden in das Verzeichnis kopiert, in das "
				"\"Upper Disk Tools\" installiert wird."
			)
		)
		(
			set prompt-where$
			"Wo möchten Sie \"Upper Disk Tools\" installieren?"
		)
		(
			set help-where$
			(
				cat
				"Wähle Verzeichnis in einem Laufwerk aus, daß mindestens noch 300 KB "
				"Platz hat.\n\n"
				"Alle \"Upper Disk Tools\" Anwendungen und Dateien werden in das "
				"Verzeichnis "UDT" kopiert, welches im ausgewählten Verzeichnis "
				"erstellt wird."
			)
		)
		(
			set prompt-languages$
			"Welche Sprachen sollen unterstützt werden?"
		)
		(
			set help-languages$
			(
				cat
				"Wählen Sie die benötigten Sprachen aus, die Sie installieren "
				"wollen.\n\n"
				"Alle benötigten Dateien zur Unterstützung der Sprachen werden in das "
				"Verzeichnis kopiert, in das \"Upper Disk Tools\" installiert wird."
			)
		)
		(
			set no-applications$
			(
				cat
				"Falls Sie keine Anwendung von \"Upper Disk Tools\" installieren "
				"möchten, dann wird der Installationsprozeß abgebrochen."
			)
		)
	)
)
(
	if(= @language "français")
	(
		(set default-languages 8)
		(set @abort-button "Annuler l'installation")
		(
			set requires2.04$
			"Sorry, but \"Upper Disk Tools\" a besoin de l'AmigaDOS V2.04 ou plus!"
		)
		(
			set prompt-applications$
			"Quelle applications désirez-vous installer?"
		)
		(
			set help-applications$
			(
				cat
				"Sélectionnez quelles applications de \"Upper Disk Tools\" vous "
				"désirez installer.\n\n"
				"Tous les fichiers nécessaires pour lancer cette application seront "
				"copiés vers le répertoire où \"Upper Disk Tools\" sera installé."
			)
		)
		(
			set prompt-where$
			"Où voulez-vous installer \"Upper Disk Tools\"?"
		)
		(
			set help-where$
			(
				cat
				"Sélectionnez un répertoire avec au moins 300K de libres.\n\n"
				"Tous les applications \"Upper Disk Tools\" et leurs fichiers seront "
				"copiés dans un répertoire appelé 'UDT' qui sera créé dans le "
				"répertoire sélectionné."
			)
		)
		(
			set prompt-languages$
			"Quels langages voulez-vous conserver?"
		)
		(
			set help-languages$
			(
				cat
				"Sélectionnez tous les langages que vous voulez installer.\n\n"
				"Tous les fichiers nécessaires pour ces langages seront copiés dans "
				"le répertoire où \"Upper Disk Tools\" sera installé."
			)
		)
		(
			set no-applications$
			(
				cat
				"Si vous ne souhaitez pas installer des applications de "
				"\"Upper Disk Tools\" l'installation sera annulé."
			)
		)
	)
)
(
	if(= @language "nederlands")
	(
		(set default-languages 16)
		(set @abort-button "Abort installation")
		(
			set requires2.04$
			"Sorry, maar \"Upper Disk Tools\" heeft AmigaDOS V2.04 of hoger nodig!"
		)
		(
			set prompt-applications$
			"Welke applicaties wilt u geïnstalleerd hebben?"
		)
		(
			set help-applications$
			(
				cat
				"Selecteer welke \"Upper Disk Tools\" applicaties u geïnstalleerd "
				"wilt hebben.\n\n"
				"Alle bestanden die nodig zijn om de geselecteerde applicatie te "
				"gebruiken zullen gekopieërd worden naar de lade waarin \"Upper Disk "
				"Tools\" geïnstalleerd gaat worden"
			)
		)
		(
			set prompt-where$
			"Waar wilt u \"Upper Disk Tools\" installeren?"
		)
		(
			set help-where$
			(
				cat
				"Selecteer een lade op uw schijf waar minstens 300k vrije ruimte "
				"aanwezig is. \n\n"
				"Alle \"Upper Disk Tools\" applicaties en bijbehorende bestanden "
				"zullen gekopieërd worden naar een nieuwe lade 'UDT', die aangemaakt "
				"zal worden in de geselecteerde lade."
			)
		)
		(
			set prompt-languages$
			"Welke talen moeten ondersteunt worden?"
		)
		(
			set help-languages$
			(
				cat
				"Selecteer alle talen die u geïnstalleerd wilt hebben.\n\n"
				"Alle bestanden die nodig zijn om deze talen te ondersteunen zullen"
				"gekopieërd worden naar de directory waar \"Upper Disk Tools\" "
				"geïnstalleerd gaat worden."
			)
		)
		(
			set no-applications$
			(
				cat
				"Als u niet van plan bent een \"Upper Disk Tools\" applicatie te "
				"installeren, zal de installatieprocedure worden afgebroken."
			)
		)
	)
)
(
	if(= @language "slovenski")
	(
		(set default-languages 32)
	)
)
(
	if(= @language "dansk")
	(
		(set default-languages 0)
	)
)
(
	if(= @language "español")
	(
		(set default-languages 0)
	)
)
(
	if(= @language "italiano")
	(
		(set default-languages 256)
		(set @abort-button "Annulla l'installazione")
		(
			set requires2.04$
			(
				cat
				"Spiacente, ma \"Upper Disk Tools\" richiede AmigaDos 2.0 o "
				"successivo per funzionare!"
			)
		)
		(
			set prompt-applications$
			"Quali applicazioni volete installare?"
		)
		(
			set help-applications$
			(
				cat
				"Selezionate quali applicazioni di \"Upper Disk Tools\" volete "
				"installare.\n\n"
				"Tutti i files necessari per eseguire le applicazioni scelte saranno "
				"copiati nella directory in cui installerete \"Upper Disk Tools\"."
			)
		)
		(
			set prompt-where$
			"Dove volete installare \"Upper Disk Tools\"?"
		)
		(
			set help-where$
			(
				cat
				"Scegliete una directory su di un disco che abbia almeno 300K "
				"liberi.\n\n"
				"Tutte le applicazioni di \"Upper Disk Tools\" ed i files relativi "
				"saranno copiati in una nuova directory chiamata 'UDT' che verrà "
				"creata all'interno della directory da voi scelta."
			)
		)
		(
			set prompt-languages$
			"Quali lingue volete siano installate?"
		)
		(
			set help-languages$
			(
				cat
				"Selezionate, tra le lingue disponibili, quelle che volete siano "
				"installate.\n\n"
				"Tutti i files necessari per utilizzare le lingue scelte saranno "
				"copiati nella directory in cui verrà installato \"Upper Disk Tools\"."
			)
		)
		(
			set no-applications$
			(
				cat
				"Se non intendete installare alcuna applicazione di "
				"\"Upper Disk Tools\", l'installazione verrà annullata."
			)
		)
	)
)
(
	if(= @language "norsk")
	(
		(set default-languages 512)
		(set @abort-button "Avbryt installasjon")
		(
			set requires2.04$
			"Beklager, men \"Upper Disk Tools\" krever AmigaDOS V2.04 eller høyere."
		)
		(
			set prompt-applications$
			"Hvilke programmer vil du installere?"
		)
		(
			set help-applications$
			(
				cat
				"Velg hvilke \"Upper Disk Tools\" programmer du vil installere.\n\n"
				"Alle filer som kreves vil bli kopiert til \"Upper Disk Tools\" "
				"katalogen."
			)
		)
		(
			set prompt-where$
			"Hvor vil du ha \"Upper Disk Tools\" installert?"
		)
		(
			set help-where$
			(
				cat
				"Velg et område som har minst 300K med ledig plass.\n\n"
				"Alle \"Upper Disk Tools\" programmene, og de relaterte filene, vil "
				"bli kopiert til en ny katalog ('UDT'), som blir skapt i det valgte "
				"området."
			)
		)
		(
			set prompt-languages$
			"Hvilke språk vil du ha støtte for?"
		)
		(
			set help-languages$
			(
				cat
				"Velg de språkene du vil ha støtte for.\n\n"
				"Alle filer som kreves for å støtte de valgte språkene vil bli "
				"kopiert til \"Upper Disk Tools\" katalogen."
			)
		)
		(
			set no-applications$
			(
				cat
				"Hvis du velger ikke å installere noen \"Upper Disk Tools\" programmer, vil installasjonen bli avbrutt."
			)
		)
	)
)
(
	if(= @language "svenska")
	(
		(set default-languages 1024)
		(set @abort-button "Avbryt installation")
		(
			set requires2.04$
			"Ledsen, \"Upper Disk Tools\" kräver minst AmigaDOS V2.04!"
		)
		(
			set prompt-applications$
			"Vilka program vill du installera?"
		)
		(
			set help-applications$
			(
				cat
				"Välj vilka \"Upper Disk Tools\" program du vill installera.\n\n"
				"Alla filer som behövs för de valda programmen kommer att kopieras "
				"till lådan där \"Upper Disk Tools\" ska installeras."
			)
		)
		(
			set prompt-where$
			"Var vill du installera \"Upper Disk Tools\"?"
		)
		(
			set help-where$
			(
				cat
				"Välj en låda på en disk med minst 300K ledigt utrymme.\n\n"
				"Alla \"Upper Disk Tools\" program och relaterade filer kommer att "
				"kopieras till en ny låda, 'UDT', som kommer att skapas i den valda "
				"lådan."
			)
		)
		(
			set prompt-languages$
			"Vilka språk vill du ha stöd för?"
		)
		(
			set help-languages$
			(
				cat
				"Välj alla språk du vill installera stöd för.\n\n"
				"Alla filer som krävs för att stödja de valda språken kommer att "
				"kopieras till lådan där \"Upper Disk Tools\" ska installeras."
			)
		)
		(
			set no-applications$
			(
				cat
				"Om du inte tänker installera något \"Upper Disk Tools\" program så "
				"avbryts installationsprocessen."
			)
		)
	)
)
(
	if (< (/ (getversion) 65536) 37)
	(
		(abort requires2.04$)
	)
)
(
	if (= 0 default-languages)
	(
		(message ("Sorry, support for language \"%s\" is not yet available!" @language))
		(set default-languages 1)
	)
)
(
	while
	(= 0
		(
			set applications
			(
				(
					askoptions
						(prompt prompt-applications$)
						(help help-applications$)
						(
							choices
							"Recovery"
							"DSBackup"
						)
				)
			)
		)
	)
		(message no-applications$)
)
(
	(
		set dest$
		(
			(
				tackon
				(
					askdir
						(prompt prompt-where$)
						(help help-where$)
						(default @default-dest)
						(disk)
				)
				"UDT"
			)
		)
	)
	(set @default-dest dest$)
	(
		set languages
		(
			(
				askoptions
					(prompt prompt-languages$)
					(help help-languages$)
					(
						choices
						"English"
						"Português"
						"Deutsch"
						"Français"
						"Nederlands"
						"Slovenski"
						"Dansk"
						"Español"
						"Italiano"
						"Norsk"
						"Svenska"
					)
					(default default-languages)
			)
		)
	)
	(if (= languages 0) (set languages default-languages))
	(makedir @default-dest (infos))
	(
		if (IN applications 0)
		(
			copyfiles
			(source (tackon SOURCE$ "Recovery"))
			(dest @default-dest)
			(noposition)
			(infos)
		)
	)
	(
		if (IN applications 1)
		(
			copyfiles
			(source (tackon SOURCE$ "DSBackup"))
			(dest @default-dest)
			(noposition)
			(infos)
		)
	)
	(
		copyfiles
		(source (tackon SOURCE$ "Icons"))
		(dest (tackon @default-dest "Icons"))
		(all)
	)
	(set library$ "locale.library")
	(set version 38)
	(librarycopy)
	(set library$ "commodities.library")
	(set version 37)
	(librarycopy)
	(set library$ "asl.library")
	(set version 37)
	(librarycopy)
	(set library$ "diskfont.library")
	(set version 37)
	(librarycopy)
	(set library$ "iffparse.library")
	(set version 37)
	(librarycopy)
	(set l 0)
	(
		while (< l 11)
		(
			(
				if (IN languages l)
				(
				
					(
						set language$
						(
							select l
							"english"
							"português"
							"deutsch"
							"français"
							"nederlands"
							"slovenski"
							"dansk"
							"español"
							"italiano"
							"norsk"
							"svenska"
						)
					)
					(
						if (IN applications 0)
						(
							(set file$ (tackon SOURCE$ (cat "Help/" language$ "/Recovery.help")))
							(set to$ "Help")
							(localecopy)
							(set file$ (tackon SOURCE$ (cat "Catalogs/" language$ "/Recovery.catalog")))
							(set to$ "Catalogs")
							(localecopy)
						)
					)
					(
						if (IN applications 1)
						(
							(set file$ (tackon SOURCE$ (cat "Help/" language$ "/DSBackup.help")))
							(set to$ "Help")
							(localecopy)
							(set file$ (cat file$ ".V33"))
							(set to$ "Help")
							(localecopy)
							(set file$ (tackon SOURCE$ (cat "Catalogs/" language$ "/DSBackup.catalog")))
							(set to$ "Catalogs")
							(localecopy)
						)
					)
					(
						if (exists (set file$ (cat (tackon LANGUAGES$ language$) ".language")))
						(
							if (exists (set to$ "LOCALE:Languages"))
							(
								if (= 0 (exists (cat (tackon to$ language$) ".language")))
								(
									copyfiles
									(source file$)
									(dest to$)
								)
							)
						)
					)
				)
			)
			(set l (+ l 1))
		)
	)
)