
; 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 Franois\n"
     "All rights reserved."
))

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

(if (= @language "portugus")
(

(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 devero ser instaladas?" ))

(set #which-language-help
(cat "\nO Amiga pode ser operado em muitas linguagens "
     "diferentes. Alguns ficheiros tm de ser copiados "
     "para o seu disco rgido por cada linguagem suportada.\n\n"
     "Para reduzir o consumo de espao no disco pelas linguagens "
     "poder apenas escolher aquelas que lhe sero 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 Instalao do Spot.\n"
     "Este script instala o Spot no seu Amiga.\n\n"
     "Leia o ficheiro README para mais informao\n"
     "acerca da distribuio do Spot.\n\n"
     "Spot  1993 Nico Franois\n"
     "Todos os Direitos Reservados."
))

))

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

(if (= @language "espaol")
(

(set default_lang 8)

(set #bad-kick
(cat "Este script de instalacin 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 "Dnde debo asignar MAIL: ?")
(set #where-spot
(cat "Dnde quieres que instale Spot?\n"
     "(Crear un directorio)"
))

(set #add-mail-startup
(cat "\nAado la asignacin MAIL: a \"S:user-startup\" "
     "para que tu sistema este configurado para utilizar Spot?"
))

(set #copy-arexx "\nQuieres 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 "\nQu lenguaje quieres instalar?"
))

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

(set #install-msg
(cat "\n\nScript de instalacin de Spot.\n"
     "Este script instala el programa Spot en tu Amiga.\n\n"
     "Lee el fichero LEEME para mas informacin\n"
     "sobre la distribucin de Spot.\n\n"
     "Spot  1993 Nico Franois\n"
     "Todos los derechos reservados."
))

))

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

(if (= @language "franais")
(

(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 cre)"
))

(set #add-mail-startup
(cat "\nAjoutez MAIL: direction a votre \"S:user-startup\" "
     "pour que votre systme 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 mme"
     " langue que le Amiga Workbench alors"
     " un fichier catalog doit tre copi"
     " sur votre disque dur pour chaque langue supporte.\n\n"
     "Pour rduire l'espace occupe par les fichiers langues,"
     " vous avez la possibilit de slectioner"
     " les fichiers des langues copis.\n\n"
     "Simplement cochez les botes des langues que"
     " vous dsirez installer sur vtre systme.\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 Franois\n"
     "Touts droits rservs."
))

))

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

(if (= @language "deutsch")
(

(set default_lang 2)

(set #bad-kick
(cat "Sie mssen Kickstart 2.04 benutzen, um dieses Skript zur Installation "
	  "benutzen zu knnen!"
))

(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 mchten Sie Spot installieren ?\n"
     "(Eine Schublade wird angelegt)"
))

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

(set #copy-arexx "\nSoll ich die beigefgten 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, mssen fr jede zu installierende Sprache "
	  "eine Datei auf Ihre Festplatte kopiert werden.\n\n"
	  "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
	  "einnehmen, knnen Sie whlen, nur die Treiber fr bestimmte "
	  "Sprachen zu installieren.\n\n"
	  "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
	  "Ihrem System verfgbar haben wollen, so da diese Sprachen mit "
	  "einem Hkchen 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 fr weitere Informationen\n"
     "ber die Weitergabe von Spot.\n\n"
	  "Spot  1993 Nico Franois\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 genstalleerd 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 Franois\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 Franois\n"
     "Tutti i diritti riservati."
))

))

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

(if (= @language "dansk")
(

(set default_lang 1)

(set #bad-kick		  "De behver 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		  "\nTilfj MAIL: tilknytning til \"S:user-startup\" filen "
			  "sledes at Deres system vil blive korrekt konfigureret "
			  "til at benytte Spot?"
	)
)

(set #copy-arexx	  "\nInstallr medflgende 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 vlge kun at installere udvalgte "
			  "sprogfiler.\n\nDe kan ganske enkelt klikke i de "
			  "felter der reprsenterer de sprog De nsker at "
			  "installere pDeres system.\n\n"
			  @askoptions-help
	)
)

(set #install-msg
	(cat		  "\n\nSpot installationsprogram.\n"
			  "Dette program installerer Spot p Deres Amiga.\n\n"
			  "Ls README filen for mere information\nom distribution "
			  "af Spot.\n\nSpot  1993 Nico Franois\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 mste anvnda Kickstart 2.04 fr 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 sprk skall installeras?"
))

; string needs to be changed (see english string)
(set #which-language-help
(cat "\nAmigan kan arbeta med flera olika sprk. Ett flertal filer "
     "mste kopieras till hrddisken fr varje sprk du vill kunna "
     "anvnda.\n\n"
     "Fr att minimera hrddiskutrymmet fr sprkfiler kan du "
     "vlja att bara installera filerna fr vissa sprk.\n\n"
     "Markera bara rutorna fr de sprk 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 Franois\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    "Kopierr fil reqtools.library til Libs:...")
(set #copying-powerpacker "Kopierr 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 "\nInstallre ARexx script i REXX: ?")
(set #copy-arexx-help
(cat "\nDette vil installere noen ARexx script "
     "som flger med Spot."
))

(set #which-language
(cat "\nHvilke sprk skal installeres?"
))

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

(set #install-msg
(cat "\n\nSpot installasjons script.\n"
     "Dette scriptet installrer Spot p din Amiga.\n\n"
     "Les README filen for mer informasjon\n"
     "om distribusjonen av Spot.\n\n"
     "Spot  1993 Nico Franois\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"
										 "Espaol"
										 "Franais"
										 "Italiano"
										 "Nederlands"
										 "Norsk"
										 "Portugus"
										 "Svenska")
							       (default default_lang)
					 )
		)
		(user old_level)

		(set n 0)
		(while (set language (select n
										"dansk"
										"deutsch"
										"english"
										"espaol"
										"franais"
										"italiano"
										"nederlands"
										"norsk"
										"portugus"
										"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))
		))
	))
))
