; $VER: mirror.install 1.0 (14.5.2001)
;
; Based on a script by the Amiga Translators' Organization (http://ato.vapor.com)

(set cdoc 0) (set ccat 0)
(set def-doc cdoc) (set def-cat ccat)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))

(set #askcatlang "Which catalog would you like to install?")                      ;This is displayed on top of the page that lists the available translations.
(set #askdoclang "Which guide would you like to install?")                        ;Same as askcatlang, but for the guide.
(set #askexedir (cat "Where do you want to install " @app-name "?"))                 ;File requester requesting the installation directory.
(set #askdocdir (cat "Where do you want to place the " @app-name " documentation?")) ;File requester requesting the directory where the guide shall be copied.

;-translations---------------------------------------------------------------------------

;Bosnian
(if (= @language "bosanski")
 (
  (set def-doc cdoc) (set def-cat ccat)
  (set #askcatlang "Koji katalog zelis instalirati?")
  (set #askdoclang "Koju dokumentaciju zelis instalirati?")
  (set #askexedir (cat "Gdje zelis instalirati" @app-name "?"))
  (set #askdocdir (cat "Gdje zelis smjestiti dokumentaciju za" @app-name "?"))
 )
)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))

;Catalan
(if (= @language "català")
 (
  (set def-doc cdoc) (set def-cat ccat)
  (set #askcatlang "Quin catàleg vols instal·lar?")
  (set #askdoclang "Quina guia vols instal·lar?")
  (set #askexedir  (cat "On vols instal·lar " @appnane "?"))
  (set #askdocdir  (cat "On vols col·locar la documentació de " @app-name "?"))
 )
)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))

;Deutsch
(if (= @language "deutsch")
 (
  (set def-doc cdoc) (set def-cat ccat)
  (set #askcatlang "Welcher Katalog soll installiert werden?")
  (set #askdoclang "Welche Anleitung soll installiert werden?")
  (set #askexedir (cat "Wo soll " @app-name " installiert werden?"))
  (set #askdocdir (cat "Wohin soll die " @app-name "-Anleitung kopiert werden?"))
 )
)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))

;Espanol (Spanish)
(if (= @language "español")
 (
  (set def-doc cdoc) (set def-cat ccat)
  (set #askcatlang "¿Qué catálogo desea instalar?")
  (set #askdoclang "¿En qué idioma desea la documentación?")
  (set #askexedir (cat "¿Dónde desea instalar " @app-name "?"))
  (set #askdocdir (cat "¿Dónde desea guardar la documentación de " @app-name "?"))
 )
)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))

;français
(if (= @language "français")
 (
  (set #askcatlang "Quel catalogue voulez-vous installer ?")
  (set #askdoclang "Quel guide voulez-vous installer ?")
  (set #askexedir "Où voulez-vous placer lexécutable « CyberClock » ?")
  (set #askdocdir "Où voulez-vous placer la documentation de « CyberClock » ?")
 )
)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))

;italiano
(if (= @language "italiano")
 (
  (set def-doc cdoc) (set def-cat ccat)
  (set #askcatlang "Quale catalogo vuoi installare?")
  (set #askdoclang "Quale guida vuoi installare?")
  (set #askexedir (cat "Dove vuoi installare " @app-name "?"))
  (set #askdocdir (cat "Dove vuoi installare la documentazione di " @app-name "?"))
 )
)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))

;Polish
(if (= @language "polski")
 (
  (set def-doc cdoc) (set def-cat ccat)
  (set #askcatlang "Wybierz katalog, który chcesz zainstalowaê.")
  (set #askdoclang "Wybierz dokumentacjë, którâ chcesz zainstalowaê.")
  (set #askexedir (cat "Gdzie chcesz zainstalowaê " @app-name "?"))
  (set #askdocdir (cat "Gdzie chcesz umiôciê dokumentacjë dla " @app-name "?"))
 )
)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))

; Russian
(if (= @language "russian")
 (
  (set def-doc cdoc) (set def-cat ccat)
  (set #askcatlang "Êàòàëîã êàêîãî ÿçûêà Âû õîòèòå óñòàíîâèòü?")
  (set #askdoclang "Äîêóìåíòàöèþ êàêîãî ÿçûêà Âû õîòèòå óñòàíîâèòü?")
  (set #askexedir (cat "Êóäà ïðîèçâåñòè óñòàíîâêó " @app-name " ?"))
  (set #askdocdir (cat "Êóäà ïðîèçâåñòè óñòàíîâêó äîêóìåíòàöèè " @app-name " ?"))
 )
)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))

; Slovenian
(if (= @language "slovensko")
 (
  (set def-doc cdoc) (set def-cat ccat)
  (set #askcatlang "Kateri katalog ¾elite namestiti?")
  (set #askdoclang "Kateri priroènik ¾elite namestiti?")
  (set #askexedir (cat "Kam ¾elite namestiti " @app-name "?"))
  (set #askdocdir (cat "Kam ¾elite namestiti navodila za " @app-name "?"))
 )
)
(set cdoc (+ cdoc 1)) (set ccat (+ ccat 1))


;-request installation options-----------------------------------------------------------


(set @default-dest (askdir (help @askdir-help) (prompt #askexedir) (default "C:")))
(set guide-dest    (askdir (help @askdir-help) (prompt #askdocdir) (default (cat "HELP:" @language))))

(set cat-lang
  (select (askchoice
            (help @askchoice-help) (prompt #askcatlang) (default def-cat)
            (choices "English" "bosanski" "català" "Deutsch" "Español" "Français" "Italiano" "Polski" "Ðóññêèé (Russian)" "Slovensko")
          )
                     "english" "bosanski" "català" "deutsch" "español" "français" "italiano" "polski" "russian          " "slovensko"
  )
)

;-install requested files----------------------------------------------------------------

(copyfiles
  (source "mirror.readme")
  (dest guide-dest) (infos) (noposition)
)

(if (<> cat-lang "english")
  (copyfiles (source (cat "Catalogs/" cat-lang "/mirror.catalog")) (dest (cat "LOCALE:Catalogs/" cat-lang)) )
)

(copyfiles
  (source "mirror")
  (dest @default-dest)
)