; Install script for Spot (Workbench 2.1 or higher)

(set old_level @user-level)

(set reqtoolslib "//libs/reqtools.library")
(set rexxreqtoolslib "//libs/rexxreqtools.library")
(set powerpackerlib "//libs/powerpacker.library")
(set spotdir "//")
(set catalogdir "//Catalogs/")

;=============================================================================
; English strings

(set default_lang 4)

(set #bad-kick
(cat "You must be using Kickstart 2.04 to install using this script!"
))

(set #copying-reqtools     "Copying reqtools.library to Libs:...")
(set #copying-rexxreqtools "Copying rexxreqtools.library to Libs:...")
(set #copying-powerpacker  "Copying powerpacker.library to Libs:...")

(set #where-mail "Where should MAIL: be assigned ?")
(set #where-spot
(cat "Where would you like to install Spot ?\n"
     "(A drawer will be created)"
))

(set #add-mail-startup
(cat "\nAdd MAIL: assignment to the \"S:user-startup\" "
     "so that your system will be properly configured to use Spot ?"
))

(set #copy-arexx "\nInstall supplied ARexx scripts in REXX: ?")
(set #copy-arexx-help
(cat "\nThis will install some ARexx scripts "
     "that are included in the Spot distribution."
))

(set #which-language
(cat "\nWhich languages should be installed?"
))
(set #which-language-help
(cat "\nThe Amiga can be operated in many different"
	  " languages. If you want Spot to use the same"
     " language as the Amiga Workbench"
	  " then a catalog file must be copied to your"
	  " harddisk for each language supported.\n\n"
	  "To reduce the amount of space consumed by the"
	  " language files, you can select to have only the"
	  " files of specific languages copied.\n\n"
	  "Simply check the boxes of the languages you wish"
	  " to have available on your system.\n\n"
	  @askoptions-help
))

(set #install-msg
(cat "\n\nSpot installation script.\n"
     "This script installs Spot on your Amiga.\n\n"
     "Read the README file for more information\n"
     "on the distribution of Spot.\n\n"
     "Spot © 1993 Nico François\n"
     "All rights reserved."
))

;=============================================================================
; Portugues strings

(if (= @language "português")
(

(set default_lang 256)

(set #bad-kick
(cat "É preciso de ter o Kickstart 2.04 para poder instalar!" ))

(set #copying-reqtools     "Copiando reqtools.library para a Libs:...")
(set #copying-rexxreqtools "Copiando rexxreqtools.library para a Libs:...")
(set #copying-powerpacker  "Copiando powerpacker.library para a Libs:...")

; not translated yet
;(set #where-mail "Where should MAIL: be assigned ?")
;(set #where-spot
;(cat "Where would you like to install Spot ?\n"
;     "(A drawer will be created)"
;))

; not translated yet
;(set #add-mail-startup
;(cat "\nAdd MAIL: assignment to the \"S:user-startup\" "
;     "so that your system will be properly configured to use Spot ?"
;))

; not translated yet
;(set #copy-arexx "\nInstall supplied ARexx scripts in REXX: ?")
;(set #copy-arexx-help
;(cat "\nThis will install some ARexx scripts "
;     "that are included in the Spot distribution."
;))

(set #which-language
(cat "\nQue linguagens deverão ser instaladas?" ))

(set #which-language-help
(cat "\nO Amiga pode ser operado em muitas linguagens "
     "diferentes. Alguns ficheiros têm de ser copiados "
     "para o seu disco rígido por cada linguagem suportada.\n\n"
     "Para reduzir o consumo de espaço no disco pelas linguagens "
     "poderá apenas escolher aquelas que lhe serão úteis.\n\n"
     "Para isto basta apenas marcar as caixas com os nomes das "
     "linguagens para que estas sejam instaladas.\n\n"
     @askoptions-help
))


(set #install-msg
(cat "\n\nScript de Instalação do Spot.\n"
     "Este script instala o Spot no seu Amiga.\n\n"
     "Leia o ficheiro README para mais informação\n"
     "acerca da distribuição do Spot.\n\n"
     "Spot © 1993 Nico François\n"
     "Todos os Direitos Reservados."
))

))

;=============================================================================
; Spanish strings

(if (= @language "español")
(

(set default_lang 8)

(set #bad-kick
(cat "¡Este script de instalación requiere el Kickstart 2.04!"
))

(set #copying-reqtools     "Copiando reqtools.library a Libs:...")
(set #copying-rexxreqtools "Copiando rexxreqtools.library a Libs:...")
(set #copying-powerpacker  "Copiando powerpacker.library a Libs:...")

(set #where-mail "¿Dónde debo asignar MAIL: ?")
(set #where-spot
(cat "¿Dónde quieres que instale Spot?\n"
     "(Crearé un directorio)"
))

(set #add-mail-startup
(cat "\n¿Añado la asignación MAIL: a \"S:user-startup\" "
     "para que tu sistema este configurado para utilizar Spot?"
))

(set #copy-arexx "\n¿Quieres instalar los scripts ARexx en REXX: ?")
(set #copy-arexx-help
(cat "\nEsto instalará los scripts ARexx "
     "que se incluyen junto con Spot."
))

(set #which-language
(cat "\n¿Qué lenguaje quieres instalar?"
))

(set #which-language-help
(cat "\nEl Amiga puede operar en diferentes idiomas. "
     "Se copiarán algunos ficheros a tu disco duro "
     "por cada idioma utilizado.\n\n"
     "Para reducir el espacio usado en disco duro "
     "puedes seleccionar sólo los ficheros del idioma "
     "que vayas a utilizar.\n\n"
     "Sólamente tienes que seleccionar el idioma que "
     "quieras instalar en tu sistema.\n\n"
     @askoptions-help
))

(set #install-msg
(cat "\n\nScript de instalación de Spot.\n"
     "Este script instala el programa Spot en tu Amiga.\n\n"
     "Lee el fichero LEEME para mas información\n"
     "sobre la distribución de Spot.\n\n"
     "Spot © 1993 Nico François\n"
     "Todos los derechos reservados."
))

))

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

(if (= @language "français")
(

(set default_lang 16)

(set #bad-kick
(cat "Vous devez emploier Kickstart 2.04 pour utiliser ce script!"
))

(set #copying-reqtools     "Je copie reqtools.library dans Libs:...")
(set #copying-rexxreqtools "Je copie rexxreqtools.library dans Libs:...")
(set #copying-powerpacker  "Je copie powerpacker.library dans Libs:...")

(set #where-mail "Ou doit MAIL: être dirigé ?")
(set #where-spot
(cat "Ou voulez-vous installer SPOT ?\n"
     "(Un tiroir sera crée)"
))

(set #add-mail-startup
(cat "\nAjoutez MAIL: direction a votre \"S:user-startup\" "
     "pour que votre système soit configuré pour utiliser Spot ?"
))

(set #copy-arexx "\nInstaller les scripts ARexx en REXX: ?")
(set #copy-arexx-help
(cat "\nCeci installe les scripts ARexx "
     "qui sont inclus dans la distribution de Spot. "
))

(set #which-language
(cat "\nQuels langues voulez-vous installer?"
))
(set #which-language-help
(cat "\nVotre Amiga offre la posibilité de plusieurs langues."
     " Si vous voulez que Spot utilise la même"
     " langue que le Amiga Workbench alors"
     " un fichier catalog doit être copié"
     " sur votre disque dur pour chaque langue supportée.\n\n"
     "Pour réduire l'espace occupée par les fichiers langues,"
     " vous avez la possibilité de sélectioner"
     " les fichiers des langues copiés.\n\n"
     "Simplement cochez les boïtes des langues que"
     " vous désirez installer sur vôtre système.\n\n"
     @askoptions-help
))

(set #install-msg
(cat "\n\nScript d'installation de Spot.\n"
     "Ce script installe Spot sur votre Amiga.\n\n"
     "Lisez le fichier README pour de plus amples renseignements\n"
     "sur la distribution de Spot.\n\n"
     "Spot © 1993 Nico François\n"
     "Touts droits réservés."
))

))

;=============================================================================
; German strings

(if (= @language "deutsch")
(

(set default_lang 2)

(set #bad-kick
(cat "Sie müssen Kickstart 2.04 benutzen, um dieses Skript zur Installation "
	  "benutzen zu können!"
))

(set #copying-reqtools     "Kopiere Datei reqtools.library nach Libs:...")
(set #copying-rexxreqtools "Kopiere Datei rexxreqtools.library nach Libs:...")
(set #copying-powerpacker  "Kopiere Datei powerpacker.library nach Libs:...")

(set #where-mail "Wohin soll MAIL: zugewiesen werden ?")
(set #where-spot
(cat "Wohin möchten Sie Spot installieren ?\n"
     "(Eine Schublade wird angelegt)"
))

(set #add-mail-startup
(cat "\nSoll ich die MAIL:-Zuweisung in Ihre \"S:user-startup\" einfügen, "
     "damit Ihr System für die Benutzung von Spot richtig konfiguriert ist ?"
))

(set #copy-arexx "\nSoll ich die beigefügten ARexx-Skripte in REXX: installieren ?")
(set #copy-arexx-help
(cat "\nDies wird einige ARexx-Skripte, die Spot beiliegen, in Ihrer "
     "REXX:-Schublade installieren."
))

(set #which-language
(cat "\nWelche Sprachen sollen installiert werden?"
))
(set #which-language-help
(cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
	  "Wenn Sie wollen, daß Spot die gleiche Sprache wie die Amiga-Workbench "
     "benutzen, müssen für jede zu installierende Sprache "
	  "eine Datei auf Ihre Festplatte kopiert werden.\n\n"
	  "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
	  "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
	  "Sprachen zu installieren.\n\n"
	  "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
	  "Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
	  "einem Häkchen markiert sind.\n\n"
	  @askoptions-help
))

(set #install-msg
(cat "\n\nSpot Installationsskript.\n"
	  "Diese Befehlsdatei installiert Spot auf Ihrem Amiga.\n\n"
	  "Lesen Sie die 'README'-Datei für weitere Informationen\n"
     "über die Weitergabe von Spot.\n\n"
	  "Spot © 1993 Nico François\n"
	  "Alle Rechte vorbehalten."
))

))

;=============================================================================
; Dutch strings

(if (= @language "nederlands")
(

(set default_lang 64)

(set #bad-kick
(cat "U moet Kickstart 2.04 gebruiken om met dit installatie script te"
	  " installeren!"
))

(set #copying-reqtools     "Kopieer reqtools.library naar Libs:...")
(set #copying-rexxreqtools "Kopieer rexxreqtools.library naar Libs:...")
(set #copying-powerpacker  "Kopieer powerpacker.library naar Libs:...")

(set #where-mail "Waar moet MAIL: toegewezen (assign) worden?")
(set #where-spot
(cat "Waar wilt u Spot installeren ?\n"
     "(Er zal een lade aangemaakt worden)"
))

(set #add-mail-startup
(cat "\nMAIL: toewijzing (assign) aan de \"S:user-startup\" "
     "toevoegen om uw systeem correct te configureren voor Spot ?"
))

(set #copy-arexx "\nBijgevoegde ARexx scripts in REXX: installeren ?")
(set #copy-arexx-help
(cat "\nDit zal enkele ARexx scripts installeren die "
     "bijgevoegd zijn in de Spot distributie."
))

(set #which-language
(cat "\nWelke talen moeten geïnstalleerd worden?"
))
(set #which-language-help
(cat "\nDe Amiga kan werken in verschillende talen."
	  " Als u wilt dat Spot in dezelfde taal werkt"
	  " dan moet er voor elke taal een bestand naar"
	  " uw vaste schijf gekopieerd worden.\n\n"
	  "Om de grootte van het geheugen die de taal bestanden"
	  " innemen te verkleinen, kunt u een keuze maken uit"
	  " de talen, die vervolgens naar uw systeem disk worden"
	  " gekopieerd .\n\nU hoeft alleen die talen die u op"
	  " uw systeem wilt hebben aan te klikken.\n\n"
     @askoptions-help
))

(set #install-msg
(cat "\n\nSpot installatie script.\n"
     "Dit script installeert Spot op uw Amiga.\n\n"
     "Lees het 'README' bestand voor meer\n"
     "informatie over de verspreiding van Spot.\n\n"
     "Spot © 1993 Nico François\n"
     "Alle rechten voorbehouden."
))

))

;=============================================================================
; Italian strings

(if (= @language "italiano")
(
(set default_lang 32)

(set #bad-kick
(cat "E' necessario il Kickstart 2.04 o superiore !"
))

(set #copying-reqtools     "Copia di reqtools.library in Libs:...")
(set #copying-rexxreqtools "Copia di rexxreqtools.library in Libs:...")
(set #copying-powerpacker  "Copia di powerpacker.library in Libs:...")

(set #where-mail "Dove deve essere assegnato MAIL: ?")
(set #where-spot
(cat "Dove vuoi installare Spot ?\n"
     "(Verrà creato un cassetto)"
))

(set #add-mail-startup
(cat "\nDevo aggiungere l'assegnazione di MAIL: alla \"S:user-startup\" "
     "così il sistema verrà automaticamente configurato per usare Spot ?"
))

(set #copy-arexx "\nInstallo gli script ARexx in REXX: ?")
(set #copy-arexx-help
(cat "\nInstalla alcuni script ARexx "
     "che sono inclusi nel file distribuzione di Spot."
))

(set #which-language
(cat "\nQuali lingue devono essere installate? "
))

(set #which-language-help
(cat "\nAmiga può operate con lingue differenti. "
     "Per ogni lingua supportata saranno copiati "
     "numerosi file sul vostro disco fisso.\n\n"
     "Per ridurre lo spazio occupato da questi "
     "file, potete installare solo quelli di una "
     "lingua specifica.\n\n"
     "Segnate solo i riquadri delle lingue che volete "
     "siano disponibili sul vostro sistema.\n\n"
     @askoptions-help
))

(set #install-msg
(cat "\n\nScript per l'installazione di Spot.\n"
     "Questo script installa Spot nel tuo Amiga.\n\n"
     "Leggi il file README per avere maggiori informazioni\n"
     "sulla distribuzione di Spot.\n\n"
     "Spot © 1993 Nico François\n"
     "Tutti i diritti riservati."
))

))

;=============================================================================
; Danish strings

(if (= @language "dansk")
(

(set default_lang 1)

(set #bad-kick		  "De behøver Kickstart 2.04 for at installere med dette script!")

(set #copying-reqtools     "Kopierer reqtools.library til LIBS:...")
(set #copying-rexxreqtools "Kopierer rexxreqtools.library til LIBS:...")
(set #copying-powerpacker  "Kopierer powerpacker.library til LIBS:...")

(set #where-mail	  "Hvortil skal MAIL: knyttes?")

(set #where-spot
	(cat		  "Hvor ønsker De at installere Spot?\n"
			  "(En skuffe vil blive oprettet)"
	)
)

(set #add-mail-startup
	(cat		  "\nTilføj MAIL: tilknytning til \"S:user-startup\" filen "
			  "således at Deres system vil blive korrekt konfigureret "
			  "til at benytte Spot?"
	)
)

(set #copy-arexx	  "\nInstallér medfølgende ARexx scripts i REXX: ?")

(set #copy-arexx-help
	(cat		  "\nDette vil installere de ARexx scripts "
			  "som er inkluderet i Spot distributionen."
	)
)

(set #which-language	  "\nHvilke sprog ønskes installeret?")

(set #which-language-help
	(cat		  "\nAmigaen kan benyttes i adskillige sprog. "
			  "Hvis De ønsker at Spot skal benytte samme "
			  "sprog som Amiga Workbench, så må en sprogfil for "
			  "dette sprog kopieres til Deres harddisk.\n\nFor at "
			  "mindske pladsforbruget som disse sprogfiler vil "
			  "optage, kan De vælge kun at installere udvalgte "
			  "sprogfiler.\n\nDe kan ganske enkelt klikke i de "
			  "felter der repræsenterer de sprog De ønsker at "
			  "installere på Deres system.\n\n"
			  @askoptions-help
	)
)

(set #install-msg
	(cat		  "\n\nSpot installationsprogram.\n"
			  "Dette program installerer Spot på Deres Amiga.\n\n"
			  "Læs README filen for mere information\nom distribution "
			  "af Spot.\n\nSpot © 1993 Nico François\n"
			  "All rights reserved."
	)
)

))

;=============================================================================
; Swedish strings

(if (= @language "svenska")
(
(set default_lang 512)

; string needs to be changed (see english string)
(set #bad-kick
(cat "Du måste använda Kickstart 2.04 för att kunna installera!"
))

(set #copying-reqtools     "Kopierar reqtools.library till Libs:...")
(set #copying-rexxreqtools "Kopierar rexxreqtools.library till Libs:...")
(set #copying-powerpacker  "Kopierar powerpacker.library till Libs:...")

; not translated yet
;(set #where-mail "Where should MAIL: be assigned ?")
;(set #where-spot
;(cat "Where would you like to install Spot ?\n"
;     "(A drawer will be created)"
;))

; not translated yet
;(set #add-mail-startup
;(cat "\nAdd MAIL: assignment to the \"S:user-startup\" "
;     "so that your system will be properly configured to use Spot ?"
;))

; not translated yet
;(set #copy-arexx "\nInstall supplied ARexx scripts in REXX: ?")
;(set #copy-arexx-help
;(cat "\nThis will install some ARexx scripts "
;     "that are included in the Spot distribution."
;))

(set #which-language
(cat "\nVilka språk skall installeras?"
))

; string needs to be changed (see english string)
(set #which-language-help
(cat "\nAmigan kan arbeta med flera olika språk. Ett flertal filer "
     "måste kopieras till hårddisken för varje språk du vill kunna "
     "använda.\n\n"
     "För att minimera hårddiskutrymmet för språkfiler kan du "
     "välja att bara installera filerna för vissa språk.\n\n"
     "Markera bara rutorna för de språk du önskar installera "
     "i din dator.\n\n"
     @askoptions-help
))

; not translated yet!
;(set #install-msg
;(cat "\n\nSpot installation script.\n"
;     "This script installs Spot on your Amiga.\n\n"
;     "Read the README file for more information\n"
;     "on the distribution of Spot.\n\n"
;     "Spot © 1993 Nico François\n"
;     "All rights reserved."
;))

))

;=============================================================================
; Norwegian strings

(if (= @language "norsk")
(

(set default_lang 128)

(set #bad-kick
(cat "Du må ha Kickstart 2.04 for å installere!"
))

(set #copying-reqtools    "Kopierér fil reqtools.library til Libs:...")
(set #copying-powerpacker "Kopierér fil powerpacker.library til Libs:...")

(set #where-mail "Hvor vil du ha MAIL: tildelt ?")
(set #where-spot
(cat "Hvor vil du innstallere Spot ?\n"
     "(En skuff vil bli opprettet)"
))

(set #add-mail-startup
(cat "\nSkal jeg legge inn en MAIL: tildeling i \"S:user-startup\" "
     "slik at systemet ditt blir korrekt satt opp for bruk av Spot ?"
))

(set #copy-arexx "\nInstallére ARexx script i REXX: ?")
(set #copy-arexx-help
(cat "\nDette vil installere noen ARexx script "
     "som følger med Spot."
))

(set #which-language
(cat "\nHvilke språk skal installeres?"
))

(set #which-language-help
(cat "Amiga kan benytte mange forskjellige språk. "
     "Dersom du vil ha Spot til å bruke samme språk "
     "som er benyttet på Amiga Workbench'en, må en "
     "språkfil kopieres til system disken din. "
     "Språkfiler må kopieres til disken for hvert språk"
     " som du installerer.\n\n"
     "For å redusere plassen som benyttes til språkfiler, "
     "kan du velge ut de språkene du vil ha tilgjengelige "
     "på maskinen din.\n\n"
     "Sett en hake ved de språkene du ønsker å ha "
     "tilgjengelige på din maskin.\n\n"
     @askoptions-help
))

(set #install-msg
(cat "\n\nSpot installasjons script.\n"
     "Dette scriptet installérer Spot på din Amiga.\n\n"
     "Les README filen for mer informasjon\n"
     "om distribusjonen av Spot.\n\n"
     "Spot © 1993 Nico François\n"
     "Alle rettigheter forbeholdes."
))

))

;=============================================================================
; make sure we are running under a 2.04 ROM

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))

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

(message #install-msg)

(welcome)

(set maildir (getassign "MAIL"))

(if maildir
(set dummy 1)
(
	(set maildir
		(askdir
			(prompt #where-mail)
			(help @askdir-help)
			(default @default-dest)
		)
	)
	(makeassign "MAIL" maildir (safe))
	(startup "Spot"
		(prompt #add-mail-startup)
		(help @startup-help)
		(command
			"Assign MAIL: \"" maildir "\"\n"
		)
	)
))

(set spotdestdir
	(tackon
		(askdir
			(prompt #where-spot)
			(help @askdir-help)
			(default @default-dest)
		)
		"Spot"
	)
)

(set @default-dest spotdestdir)

(copylib
	(prompt "\n" #copying-reqtools)
	(help @copylib-help)
	(source reqtoolslib)
	(dest "Libs:")
	(confirm)
)

(copylib
	(prompt "\n" #copying-rexxreqtools)
	(help @copylib-help)
	(source rexxreqtoolslib)
	(dest "Libs:")
	(confirm)
)

(copylib
	(prompt "\n" #copying-powerpacker)
	(help @copylib-help)
	(source powerpackerlib)
	(dest "Libs:")
	(confirm)
)

(makedir spotdestdir (infos))
(makedir (tackon spotdestdir "Catalogs"))

(copyfiles
	(source (tackon spotdir "Spot"))
	(dest spotdestdir)
	(infos)
)

(copyfiles
	(source (tackon spotdir "Spot.guide"))
	(dest spotdestdir)
	(infos)
)
(if (< (/ (getversion) 65536) 39)
(
	(tooltype
		(dest (tackon spotdestdir "Spot.guide"))
		(setdefaulttool "SYS:Utilities/AmigaGuide")
	)
))

(copyfiles
	(source (tackon spotdir "Spot.doc"))
	(dest spotdestdir)
	(infos)
)
(if (> (/ (getversion) 65536) 38)
(
	(tooltype
		(dest (tackon spotdestdir "Spot.doc"))
		(setdefaulttool "SYS:Utilities/MultiView")
	)
))

(copyfiles
	(source (tackon spotdir "README"))
	(dest spotdestdir)
	(infos)
)
(if (> (/ (getversion) 65536) 38)
(
	(tooltype
		(dest (tackon spotdestdir "README"))
		(setdefaulttool "SYS:Utilities/MultiView")
	)
))

(if
	(askbool
		(prompt #copy-arexx)
		(help #copy-arexx-help)
		(default 1)
	)
	(
		(copyfiles
			(source (tackon spotdir "Rexx"))
			(dest "REXX:Spot")
			(all)
		)
	)
)

(if (exists "SYS:Locale")
(
	(if (exists "LOCALE:")
	(
		(user 2)
		(set lang (askoptions (prompt #which-language)
									 (help #which-language-help)
									 (choices
										 "Dansk"
										 "Deutsch"
										 "English"
										 "Español"
										 "Français"
										 "Italiano"
										 "Nederlands"
										 "Norsk"
										 "Português"
										 "Svenska")
							       (default default_lang)
					 )
		)
		(user old_level)

		(set n 0)
		(while (set language (select n
										"dansk"
										"deutsch"
										"english"
										"español"
										"français"
										"italiano"
										"nederlands"
										"norsk"
										"português"
										"svenska"
										""))
		(
			(if (IN lang n)
			(
				(if (<> 2 n)
				(
					(makedir (tackon spotdestdir (cat "Catalogs/" language)))
					(copyfiles (source (tackon (tackon catalogdir language) "spot.catalog"))
								  (dest (tackon spotdestdir (cat "Catalogs/" language)))
					)
					(makedir (cat "LOCALE:Catalogs/" language))
					(copyfiles (source (tackon (tackon catalogdir language) "reqtools.catalog"))
								  (dest (cat "LOCALE:Catalogs/" language))
					)
				))
			))
			(set n (+ n 1))
		))
	))
))