; this installer script was originally written by Kyzer, but Sönke Tesch
; wrote 'cleverer' selection of the catalogs and guide to install along
; with the localised strings.

; default-strings - english
(set #askdir (cat
  "Where would you like " @app-name " installed?\n"
  "No extra drawer will be created."
))

(set #askcatlang "Which catalog would you like to install?")
(set #askdoclang "Which guide would you like to install?")
(set #askdocdir  "Where would you like to install the guide?")
(set def-guide-lang 0)
(set def-cat-lang 0)

; translations
(if (= @language "czech")
 (
  (set #askdir (cat
    "Kam chcete " @app-name " nainstalovat?\n"
    "Adresáê NEBUDE vytvoêen."
    )
  )
  (set #askcatlang "Který z lokalizaçních katalogû chcete nainstalovat?")
  (set #askdoclang "Který z pêeloùených dokumentû typu .guide chcete nainstalovat?")
  (set #askdocdir  "Kam chcete dokumentaci nainstalovat?")
  (set def-cat-lang 1)
 )
)

(if (= @language "dansk")
 (
  (set #askdir (cat
    "Hvor ønsker du " @app-name " installeret?\n"
    "Der vil ikke blive oprettet et nyt katalog."
    )
  )
  (set #askcatlang "Hvilken oversættelse ønsker du at installere?")
  (set #askdoclang "Hvilken dokumentation ønsker du at installere?")
  (set #askdocdir  "Hvor ønsker du at installere dokumentationen?")
  (set def-cat-lang 2)
 )
)

(if (= @language "deutsch")
 (
  (set #askdir (cat
    "Wo soll " @app-name " installiert werden?\n"
    "Es wird keine neue Schublade angelegt."
    )
  )
  (set #askcatlang "Welcher Katalog soll installiert werden?")
  (set #askdoclang "Welche Anleitung soll installiert werden?")
  (set #askdocdir  "Wo soll die Anleitung installiert werden?")
  (set def-guide-lang 1)
  (set def-cat-lang 3)
 )
)


(if (= @language "español")
 (
  (set #askdir (cat
    "¿Dónde desea instalar " @app-name "?\n"
    "No se creará ningún directorio."
    )
  )
  (set #askcatlang "¿Qué catálogo desea instalar?")
  (set #askdoclang "¿Qué guía desea instalar?")
  (set #askdocdir  "¿Dónde desea instalar la guía?")
  (set def-cat-lang 4)
 )
)

(if (= @language "greek")
  (set def-cat-lang 5)
)

(if (= @language "italiano")
 (
  (set #askdir (cat
    "Dove desideri installare " @app-name " ?\n"
    "Non sarà creato alcun nuovo cassetto."
    )
  )
  (set #askcatlang "Quale catalogo desideri installare?")
  (set #askdoclang "Quale documentazione desideri installare?")
  (set #askdocdir  "Dove desideri installare la documentazione?")
  (set def-guide-lang 2)
  (set def-cat-lang 6)
 )
)

(if (= @language "magyar")
 (
  (set #askdir (cat
    "Hova szeretnéd telepíteni a következõ programot: "@app-name "?\n"
    "Új könyvtárat nem hozok létre."
    )
  )
  (set #askcatlang "Melyik katalógust szeretnéd telepíteni?")
  (set #askdoclang "Melyik guide-ot szeretnéd telepíteni?")
  (set #askdocdir  "Hova telepítenéd a guide-ot?")
  (set def-cat-lang 7)
 )
)

(if (= @language "norsk")
  (set def-cat-lang 8)
)

(if (= @language "português")
 (
  (set #askdir (cat
    "Onde quer instalar o " @app-name "?\n"
    "Não será criado um novo directório."
    )
  )
  (set #askcatlang "Que catálogo quer instalar?")
  (set #askdoclang "Que guia quer instalar?")
  (set #askdocdir  "Onde quer instalar o guia?")

  (set def-guide-lang 3)
  (set def-cat-lang 9)
 )
)

(if (= @language "português-brasil")
 (
  (set #askdir (cat
    "Onde deseja que " @app-name " seja instalado?\n"
    "Nenhuma gaveta será criada."
    )
  )
  (set #askcatlang "Qual catálogo deseja instalar?")
  (set #askdoclang "Que guide deseja instalar?")
  (set #askdocdir  "Onde deseja que o guide seja instalado?")
  (set def-cat-lang 10)
 )
)

(if (= @language "russian")
 (
  (set #askdir (cat
    "çÄÅ ÷Ù ÖÅÌÁÅÔÅ ÕÓÔÁÎÏ×ÉÔØ " @app-name "?\n"
    "äÏÐÏÌÎÉÔÅÌØÎÙÊ ËÁÔÁÌÏÇ ÎÅ ÂÕÄÅÔ ÓÏÚÄÁ×ÁÔØÓÑ."
    )
  )
  (set #askcatlang "ëÁËÏÊ ÑÚÙË × ÐÒÏÇÒÁÍÍÅ ÷Ù ÖÅÌÁÅÔÅ ÕÓÔÁÎÏ×ÉÔØ?")
  (set #askdoclang "òÕËÏ×ÏÄÓÔ×Ï ÎÁ ËÁËÏÍ ÑÚÙËÅ ÷Ù ÖÅÌÁÅÔÅ ÕÓÔÁÎÏ×ÉÔØ?")
  (set #askdocdir  "ëÕÄÁ ÷Ù ÈÏÔÉÔÅ ÐÏÍÅÓÔÉÔØ ÒÕËÏ×ÏÄÓÔ×Ï?")

  (set def-guide-lang 4)
  (set def-cat-lang 11)
 )
)

(if (= @language "slovensko")
 (
  (set #askdir (cat
    "Kam bi radi namestili " @app-name "?\n"
    "Poseben predal ne bo ustvarjen."
    )
  )
  (set #askcatlang "Kateri katalog bi radi namestili?")
  (set #askdoclang "Kateri priroènik bi radi namestili?")
  (set #askdocdir  "Kam bi radi namestili priroènik?")
  (set def-guide-lang 5)
  (set def-cat-lang 12)
 )
)

(if (= @language "srpski")
  (set def-cat-lang 13)
)

(if (= @language "suomi")
 (
  (set #askdir (cat
    "Mihin haluat ohjelman " @app-name " asennettavan?\n"
    "Asennuksessa ei tehdä erillistä hakemistoa."
    )
  )
  (set #askcatlang "Minkä kielen katalogin haluat asentaa?")
  (set #askdoclang "Minkä kielisen guide-tiedoston haluat asentaa?")
  (set #askdocdir  "Mihin haluat guide-tiedoston asennettavan?")
  (set def-guide-lang 6)
  (set def-cat-lang 14)
 )
)


; the actual installation


; ask where to install the program (default SYS:Utilities)
(complete 0)
(set @default-dest (askdir (help @askdir-help) (prompt #askdir) (default "SYS:Utilities")))

; ask where to install the guide (default HELP:<language>)
(complete 20)
(set guide-dest (askdir (help @askdir-help) (prompt #askdocdir) (default (cat "HELP:" @language))))

; ask which guide to install
(complete 40)
(set guide-lang (askchoice (help @askchoice-help) (prompt #askdoclang)
                           (choices "English" "Deutsch" "Italiano" "Português" "Russian" "Slovensko" "Suomi")
                           (default def-guide-lang)
                )
)

; ask which catalog to install
(complete 60)
(set cat-lang (askchoice (help @askchoice-help)
                         (prompt #askcatlang)
                         (choices "English" "Çeîtina" "Dansk" "Deutsch" "Español" "Greek" "Italiano" "Magyar"
                                  "Norsk" "Português" "Português (Brasil)" "Russian" "Slovensko" "Srpski" "Suomi")
                         (default def-cat-lang)
              )
)

; install the program
(complete 80)
(copyfiles (source "ShellScr") (dest @default-dest) (infos) (noposition))

; install the guide
(complete 90)
(copyfiles (source (cat "docs/" (select guide-lang "ShellScr_english.guide" "ShellScr_german.guide" "ShellScr_italian.guide" "ShellScr_russian.guide" "ShellScr_slovenian.guide" "ShellScr_finnish.guide")))
           (dest guide-dest) (infos) (noposition)
)

; install the catalog
(if (> cat-lang 0)
 (
  (complete 95)
  (set locale (select (- cat-lang 1) "czech" "dansk" "deutsch" "español" "greek" "italiano" "magyar"
                        "norsk" "português" "português-brasil" "russian" "slovensko" "srpski" "suomi"))
  (copyfiles (source (cat "Catalogs/" locale "/ShellScr.catalog")) (dest (cat "LOCALE:Catalogs/" locale)) )
 )
)

(complete 100)