;$VER: dUd-Installer-Script 1.2 (9.12.96)
;-- Language specific string definitions --------------------------------------
;
; ENGLISH -----------------------------
(procedure english (
   (set MSG_BAD_KICK "%s needs at least system software 2.04.")
   (set MSG_INSTALL (cat "\nThis section lets you install the %s executable.\n\n"
                         "If you choose to skip this part you'll be given the choice to"
                         " install the documentation for %s."))
   (set MSG_INSTALL_HELP "\n\n    hello ;-)")
   (set MSG_DESTINATION (cat "Where would you like %s to be installed?\n"
                        "(NO drawer will be created)"))
   (set MSG_COPYING "Going to copy %s to %s.")
   (set MSG_WHATDOC "Install the documentation in AmigaGuide\nformat for this language:")
   (set MSG_WHATCAT "Install the locale-catalog\nfor this language:")
   (set MSG_NONE "none")
   (set MSG_WHEREDOC "Where shall I put the documentation?")
   (set MSG_YES "Yes")
   (set MSG_NO "No")
   (set MSG_PROCEED "Proceed")
   (set MSG_SKIP "Skip this part")
   (set MSG_THANKS (cat "\n\nThanks for installing %s.\n"
                   "\nPlease don`t forget to install the triton.library\n"
                   "in the Triton-drawer in this archive !"))
   (set MSG_copy-tritonrexx-library "Installing tritonrexx.library...")
   (set MSG_copy-rexxtricks-library "Installing rexxtricks.library...")
   (set docfile 0)
))

; DEUTSCH ----------------------------
(procedure deutsch (
   (set MSG_BAD_KICK "%s benötigt mindestens OS 2.04 des Betriebssystems.")
   (set MSG_INSTALL (cat "\n\nDiese Sektion installiert %s.\n\n"
                         "Wenn Sie diesen Teil überspringen, können"
                         "Sie die Dokumentation zu %s installieren."))
   (set MSG_INSTALL_HELP "\n\n    Guuuude ! ;-)")
   (set MSG_DESTINATION (cat "Wohin soll %s installiert werden ?\n"
                        "(Es wird KEINE Schublade angelegt !)"))
   (set MSG_COPYING "Kopiere %s nach %s.")
   (set MSG_WHATDOC "Zu welcher Sprace soll die Dokumentation im \nAmigaGuide-Format installiert werden ?:")
   (set MSG_WHATCAT "Sprachkatalog für welche Sprache\ninstallieren ?:")
   (set MSG_NONE "Keine")
   (set MSG_WHEREDOC "Wohin soll die Dokumentation kopiert werden ?")
   (set MSG_YES "Ja")
   (set MSG_NO "Nein")
   (set MSG_PROCEED "Los")
   (set MSG_SKIP "Überspringen.")
   (set MSG_THANKS (cat "\n\%s wurde erfolgreich installiert,.\n"
                   "\nBitte vergessen Sie nicht, die triton.library\n"
                   "aus dem Triton-Verzeichnis im Archiv zu installieren!"))
   (set MSG_copy-tritonrexx-library "Installiere tritonrexx.library...")
   (set MSG_copy-rexxtricks-library "Installiere rexxtricks.library...")
   (set docfile 1)
))
;------------------------------------------------------------------------------

(if (= @language "english")  (english))
(if (= @language "deutsch") (deutsch))

(set vernum (getversion))
(set osversion (/ vernum 65536))
(if (>= osversion 39)
   (set reader "MultiView") 
   (set reader "AmigaGuide")
)

(if (< osversion 37)
   (abort (MSG_BAD_KICK @app-name))
)

(set installed 0)

(if (askbool (prompt (MSG_INSTALL @app-name @app-name)) (help MSG_INSTALL_HELP) 
             (choices MSG_PROCEED MSG_SKIP) (default 1))
   (   
      (set dest_dir
         (askdir (prompt (MSG_DESTINATION @app-name @app-name))
                 (help @askdir-help)
                 (default @default-dest)
                 (newpath)
         )
      )
      (set @default-dest dest_dir)

      (copyfiles  (prompt (MSG_COPYING "dAUUdIRECTOR" @default-dest))
                  (help @copyfiles-help)
                  (source "Programm/")
                  (all)
                  (dest @default-dest)
      )
      
      (copyfiles  (help @copyfiles-help)
                  (source "Preview.iff")
                  (dest @default-dest)
                  (optional "nofail")
      )

      (set installed 1)
   )
)

(set docfile
    (askchoice  (prompt MSG_WHATDOC)
                (help @askchoice-help)
                (choices "english" "deutsch" MSG_NONE)
                (default docfile))
)
(set docdir
    (if (AND (= @user-level 2) (<> docfile 2))
        (askdir (prompt MSG_WHEREDOC)
                (help @askdir-help)
                (default @default-dest))
        (@default-dest)
    )
)

(select docfile

    (copyfiles  (help @copyfiles-help)
                (source "Docs/English.guide")
                (dest docdir)
                (newname "dAUUdIRECTOR.guide")
                (infos)
                (optional "nofail")
    )
    (copyfiles  (help @copyfiles-help)
                (source "Docs/Deutsch.guide")
                (dest docdir)
                (newname "dAUUdIRECTOR.guide")
                (infos)
                (optional "nofail")
    )
    ("")  ; "none"
)

(if (exists (tackon docdir "dAUUdIRECTOR.guide.info") (noreq))
   (
      (tooltype   (dest (tackon docdir "dAUUdIRECTOR.guide"))  (noposition) (setdefaulttool reader))
      (set installed 1)
   )
)

(set catfile
    (askchoice  (prompt MSG_WHATCAT)
                (help @askchoice-help)
                (choices "english" "deutsch" MSG_NONE)
                (default catfile))
)

(select catfile

    ("")

    (copyfiles  (help @copyfiles-help)
                (source "catalogs/deutsch/dA->UU<-dIRECTOR.catalog")
                (dest "locale:catalogs/deutsch/")
                (optional "nofail")
    )
    ("")  ; "none"
)

(copylib
       (prompt MSG_copy-rexxtricks-library)
       (help @copylib-help)
       (source "Libs/rexxtricks.library")
       (dest "Libs:")
       (confirm)
)

(copylib
       (prompt MSG_copy-tritonrexx-library)
       (help @copylib-help)
       (source "Libs/tritonrexx.library")
       (dest "Libs:")
       (confirm)
)

(if (= 1 installed)
   (exit (MSG_THANKS @app-name))
   (exit (quiet))
)