(set lib "libs/reqtools.library")

(if (= "deutsch" @language)
(
    (set default_lang 1)
    (set #welcome "\nDieses Skript installiert DArc und alle dazugehrigen Dateien auf Ihrer Festplatte. \n\nDArc  1995 by Frank Weber und Holger Kasten.")
    (set #destprompt "Bitte Zielverzeichnis whlen.\n(Ein Verzeichnis 'DArc' wird dort erstellt.)")
    (set #desthelp "Sie mssen hier das Verzeichnis whlen,\nin dem die 'DArc'-Schublade erstellt werden soll.\n\n In diese Schublade werden dann|DArc und alle dazugehrigen Dateien\nkopiert.")
    (set #overwritemsg "\nDArc wurde bereits in dieses Verzeichnis installiert.\n\nAltes DArc-Verzeichnis lschen ???")
    (set #overwritehelp "\nIn dem Verzeichnis, das Sie ausgewhlt haben, existiert bereits ein Verzeichnis mit dem Namen 'DArc'.\n\nAntworten Sie 'Ja', wenn Sie das alte Verzeichnis komplett lschen mchten, bevor diese Version installiert wird.")
    (set #copyreqtools "\nReqtools.library kopieren...")
    (set #chooselang "\nWelche Sprachen sollen installiert werden ???")
    (set #chooselang-help "\nWenn Sie DArc in verschiedenen Sprachen benutzen mchten, mssen Sie die Catalog-Dateien installieren. Whlen Sie aus, welche Cataloge Sie installieren wollen")
)
(
    (set default_lang 2)
    (set #welcome "\nThis script will install DArc and all supported files onto your Harddisk.\n\nDArc  1995 by Frank Weber and Holger Kasten.")
    (set #destprompt "Please choose destination path.\n(A drawer called 'DArc' will be created there.)")
    (set #desthelp "Here you have to choose where the\n'DArc' drawer should be created.\n\nDArc and all supported files will\nbe copied into the 'DArc' directory.")
    (set #overwritemsg "\nDArc has already been installed into this directory.\n\nDelete old directory ???")
    (set #overwritehelp "\nThere is already a directory called 'DArc' in the directory chosen by you.\n\nSelect yes if you want the whole directory to be deleted before this version is installed.")
    (set #copyreqtools "\nInstalling reqtools.library")
    (set #chooselang "\nWhich language do you want to have installed ???")
    (set #chooselang-help "\nIf you want to use DArc in different languages, the catalog files must be installed. Please choose which catalogs you want to be installed.")
))
(set @nohelp " ")

(message #welcome)

(set default-dir "SYS:")
(set @default-dest "SYS:")

(complete 10)

(set @dest (askdir (prompt #destprompt)
                   (help #desthelp)
                   (default @default-dest)
           )
)

(set @darcdrawer (tackon @dest "DArc"))
(set @default-dest @darcdrawer)

(complete 20)

(if (exists @darcdrawer)
(
  (if (> @user-level 1)
  (
    (set overwrite (askbool
                           (prompt #overwritemsg)
                           (help #overwritehelp)
                           (default 0)
                   )
    )
    (if (= 1 overwrite)
      (run (cat "c:delete QUIET ALL " @darcdrawer))
    )
  ))
))

(makedir @darcdrawer(infos))

(complete 30)

(copyfiles  (source "DArc")
            (dest @darcdrawer)
            (infos)
)

(complete 40)

(copyfiles  (source "Anleitung")
            (dest @darcdrawer)
            (infos)
)

(complete 50)

(copyfiles  (source "Manual")
            (dest @darcdrawer)
            (infos)
)
(if (= default_lang 1)
    (tooltype (dest (tackon @darcdrawer "DArc"))
              (settooltype "DOC" "Anleitung")
    )
    (tooltype (dest (tackon @darcdrawer "DArc"))
              (settooltype "DOC" "Manual")
    )
)

(complete 60)

(copyfiles  (source "Readme")
            (dest @darcdrawer)
            (infos)
)

(copyfiles  (source "Liesmich")
            (dest @darcdrawer)
            (infos)
)

(copyfiles  (source "DArc-Filetypes")
            (dest "S:")
)


(complete 65)

(copylib    (prompt #copyreqtools)
            (help @nohelp)
            (source lib)
            (dest "LIBS:")
            (confirm)
)

(complete 75)

(if (> (/ (getversion) 65536) 37)
    (tooltype (dest (tackon @darcdrawer "Anleitung"))
              (setdefaulttool "sys:utilities/MultiView")
    )

    (tooltype (dest (tackon @darcdrawer "Anleitung"))
              (setdefaulttool "sys:utilities/AmigaGuide")
    )

)

(if (> (/ (getversion) 65536) 37)
    (tooltype (dest (tackon @darcdrawer "Manual"))
              (setdefaulttool "sys:utilities/Multiview")
    )

    (tooltype (dest (tackon @darcdrawer "Manual"))
              (setdefaulttool "sys:utilities/AmigaGuide")
    )

)


(complete 80)

(set locale 0)
(if (> @user-level 1)
  (set locale 2)
  (set locale 1)
)
(if (< @user-level 1)
    (set locale 0)
)

(if (= locale 2)
  (if (exists "SYS:Locale")
  (
    (if (exists "LOCALE:")
    (
      (set lang (askoptions (prompt #chooselang)
                            (help #chooselang-help)
                            (choices "Deutsch" "English")
                            (default default_lang)
                )
      )
      (set n 0)
      (while (set language (select n
                                     "deutsch"
                                     "english"
                                     ""
                            )
              )
      (
      (if (IN lang n)
      (
          (makedir (tackon "Locale:Catalogs/" language))
          (copyfiles
             (source (tackon (tackon "Locale/Catalogs/" language) "DArc.catalog"))
             (dest (tackon "Locale:Catalogs/" language))
          )
      ))
      (set n (+ n 1))
      ))
    ))
  ))
)

(if (= locale 0) (set copylangs 1))

(if (= locale 1)
    (set copylangs (askbool   (prompt #copylangs)
                              (help #copylangs-help)
                              (default 0)
                   )
    )
)
(if (= 1 copylangs)
(
    (makedir  "Locale:Catalogs/deutsch")
    (makedir  "Locale:Catalogs/english")
    (copyfiles
       (source "Locale/Catalogs/deutsch/DArc.catalog")
       (dest "Locale:Catalogs/deutsch")
    )
    (copyfiles
       (source "Locale/Catalogs/english/DArc.catalog")
       (dest "Locale:Catalogs/english")
    )
))


(if (exists "DArc.key")
(
    (copyfiles (source "DArc.key")
               (dest @darcdrawer)
    )
    (tooltype (dest (tackon @darcdrawer "DArc"))
              (settooltype "KEYFILE" "DArc.key")
    )
))

(complete 100)
