;
; Installation script for MUI_MCX_Prefs
;
; -------------------------------------------------------------
; English strings (default) 

(if	(= @language "deutsch")
		(
			(set #msj1 "Installiere MUI_MCX_Prefs...")
			(set #msj2 "Wo soll MUI_MCX_Prefs installiert werden ?")
			(set #msj3 "Welche Sprachkataloge sollen installiert werden ?")
			(set #msj4 "Installiere 'WBStart.library'...")
			(set #msj5 "Installiere 'WBStart-Handler'...")
			(set #msj6 "Installiere 'DosPath.library'...")
		)
)

; German strings

(if	(= @language "english")
		(
			(set #msj1 "Installing MUI_MCX_Prefs...")
			(set #msj2 "Where shall I install MUI_MultiCX_Prefs?")
			(set #msj3 "Which languages do You wish to install ?")
			(set #msj4 "Install 'WBStart.library'...")
			(set #msj5 "Install 'WBStart-Handler'...")
			(set #msj6 "Install 'DosPath.library'...")
		)
)

; Spanish strings

(if (= @language "español")
		(
			(set #msj1 "Instalando MUI_MCX_Prefs...")
			(set #msj2 "¿Dónde desea instalar MUI_MultiCX_Prefs?")
			(set #msj3 "¿Qué idioma(s) desea instalar?")
			(set #msj4 "Instalando 'WBStart.library'...")
			(set #msj5"Instalando 'WBStart-Handler'...")
			(set #msj6 "Instalando 'DosPath.library'...")
		)
)

; Galician strings

(if	(= @language "galego")
		(
			(set #msj1 "Instalando MUI_MCX_Prefs...")
			(set #msj2 "¿Onde desexa instalar MUI_MultiCX_Prefs?")
			(set #msj3 "¿Qué língua(s) desexa instalar?")
			(set #msj4 "Instalando 'WBStart.library'...")
			(set #msj5 "Instalando 'WBStart-Handler'...")
			(set #msj6 "Instalando 'DosPath.library'...")
		)
)

; French strings

(if	(= @language "français")
		(
			(set #msj1 "Je suis en train de copier MUI_MCX_Prefs...")
			(set #msj2 "Oú voulez-vous copier MUI_MultiCX_Prefs?")
			(set #msj3 "Quelles sont les langues à installer?")
			(set #msj4 "Je suis en train de copier 'WBStart.library'...")
			(set #msj5 "Je suis en train de copier 'WBStart-Handler'...")
			(set #msj6 "Je suis en train de copier 'DosPath.library'...")
		)
)

; Start

(transcript #msj1)

(set name
        (askdir
        	(prompt #msj2)
        	(help @askdir-help)
        	(default "SYS:Prefs")
        )
)

(copyfiles
    (source "MUI_MCX_Prefs")
    (infos)
    (dest name)
)

(set lang
	(askoptions
		(prompt #msj3)
		(help @askoptions-help)
		(choices "deutsch")
		(default def-lang)
	)
)

(set n 0)

(while (set language (select n "deutsch" "" ) )
(
	(if (IN lang n)
		(copyfiles
			(source (cat "locale/" language ".catalog" ))
			(dest (cat "LOCALE:catalogs/" language ))
			(newname "mcxp.catalog")
		)
	)
	(set n (+ n 1))
))

      (set vernum (getversion "intuition.library" (resident)))
      (set ver (/ vernum 65536))


      (if ( > ver 38)

          (copylib
                (prompt #msj4)
                (help @copylib-help)
                (source "libs/wbstart.library")
                (dest "libs:")
                (confirm)
		  )
          
		  (copylib
                (prompt #msj5)
                (help @copylib-help)
                (source "l/WBStart-Handler")
                (dest "l:")
                (confirm)
          )

      )

      (if ( > ver 38)

          (copylib
                (prompt #msj6)
                (help @copylib-help)
                (source "libs/dospath.library")
                (dest "libs:")
                (confirm)
		  )

		  
	)

(set @default-dest name)

(exit)