; Install script for Convert (Workbench 2.1 or higher)

(set @default-dest "SYS:Tools")
(set old_level @user-level)

(set reqtoolslib "reqtools.library")
(set convertapp "Convert")

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

(set default_lang 1)

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

(set #reqtools-copy "Copying reqtools.library to Libs:...")
(set #reqtools-help "Copies the reqtools.library to the Libs: directory")

(set #convert-copy "Copying Convert...")
(set #convert-help "Copies Convert to your disk for usage.")

(set #select-convert "Select the location to install Convert")
(set #select-help "Choose a destination directory to contain the Convert application")

(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 convert to use the same "
	  "language as the Amiga Workbench "
	  "then a catalog file must be copied to your"
	  " system disk 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\nConvert installation script.\n"
	 "This script installs Convert and the ReqTools.library on your Amiga.\n\n"
	 "Read the Convert.guide file for more information.\n"
	 "Convert © 1993-1995 Bert Wynants\n"
	 "ReqTools © 1991-1995 Nico François\n"
	 "All rights reserved."
))


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

(if (= @language "nederlands")
(

(set default_lang 4)

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

(set #reqtools-copy "Kopieer reqtools.library naar Libs:...")
(set #reqtools-help "Kopieert de reqtools.library naar de Libs: lade")

(set #convert-copy "Kopieer Convert...")
(set #convert-help "Kopieert convert naar uw disk om te gebruiken")

(set #select-convert "Selecteer de lade om Convert te installeren")
(set #select-help "Kies de lade waarin de convert applicatie moet komen")

(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 Convert in dezelfde taal werkt als uw Workbbench"
	  " dan moet er voor elke taal een bestand naar"
	  " uw systeem disk 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\nConvert installatie script.\n"
	 "Dit script installeert Convert en de ReqTools library op uw Amiga.\n\n"
	 "Lees het Convert.guide bestand voor meer informatie\n"
	 "Convert © 1993-1995 Bert Wynants\n"
	 "ReqTools © 1991-1995 Nico François\n"
	 "All rights reserved."
))

))

;=============================================================================
; procedure to call on exit...

(procedure TERMINATE

)

;=============================================================================
; termination stuff

(onerror (TERMINATE))

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

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

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

(message #install-msg)

; copy reqtools, including version checking

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

(complete 20)

(set thedest 
		(askdir (prompt #select-convert)
				(default @default-dest)
				(help #select-help)
		)
)

; copy convert, including version checking
(copylib
	(prompt "\n" #convert-copy)
	(help #convert-help)
	(source convertapp)
	(dest thedest)
	(infos)
	(confirm)
)

(complete 50)

(if (exists "SYS:Locale")
(
	(if (exists "LOCALE:")
	(
		(user 2)
		(set lang (askoptions (prompt #which-language)
							  (help #which-language-help)
							  (choices "English" "Français" "Nederlands")
							  (default default_lang)
				  )
		)
		(user old_level)

		(set n 0)
		(while (set language (select n "english" "français" "nederlands" ""))
		(
			(if (IN lang n)
			(
				(if (<> 0 n)
				(
					(makedir (cat "LOCALE:Catalogs/" language))
					(copyfiles (source (cat "Catalogs/" language))
							   (dest (cat "LOCALE:Catalogs/" language))
							   (all)
					)
				))
			))
			(set n (+ n 1))
		))
	))
))

(complete 100)