;
;	$VER: Install-DOSPrefs 2.2 (13.07.94)
;
;	Install script for DOSPrefs
;	© Copyright 1993-94 by Norbert Püschel
;	All Rights Reserved
;	

; strings

(set intro
(cat "\n Welcome to the installation of DOSPrefs !\n\n"
     "© Copyright 1993-94 by Norbert Püschel\n"
     "All Rights Reserved"
))

(set bad-kick
(cat "\n\n\nYou must be using at least Kickstart 2.04 (Version 37.175) !"
))

(set copying-DOSPrefs
(cat "Copying the DOSPrefs program ..."
))

(set copying-catalogs
(cat "Copying the catalog files for DOSPrefs ..."
))

(set which-languages
(cat "\nWhich languages should be installed ?"
))

(set which-languages-help
(cat "The Amiga, and the DOSPrefs commodity, normally use the "
     "english language. As you have Workbench(tm) 2.1 or better, "
     "you can make the Amiga use other languages.\n"
     "If you want DOSPrefs to use the same languages as the Amiga Workbench "
     "then a catalog file must be copied to your system disk for each "
     "language supported.\n"
     "Simply check the boxes of the languages you wish to have available "
     "on your system.\n\n\n\n\n"
     @askoptions-help
))

(set copying-help
(cat "Copying online help for DOSPrefs ..."
))

(set install-help
(cat "\n\n\n\n\n\nDo you want to install the online help ?"
))

(set install-help-help
(cat "You have the AmigaGuide(tm) online help system installed.\n" 
     "DOSPrefs supports it, but it needs help files to do so.\n"
))

; Kickstart version test

(if (< (/ (getversion) 65536) 37)
(
 (abort bad-kick)
))

; here we go

(welcome intro)

; install Program

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

(copyfiles
  (prompt copying-DOSPrefs)
  (help @copylib-help)
  (source "DOSPrefs")
  (dest "SYS:WBStartup")
  (infos)
  (optional force askuser)
)

; install catalogs

(if (exists "Locale:catalogs")
(
  (set languages 
    (askoptions 
      (prompt which-languages)
      (help   which-languages-help)
      (choices
        "english"
        "dansk"
        "deutsch"
        "español"
        "français"
        "italiano"
      )
    )
  )
   
  (set n 1)
  (while (set language (select n
           "english"
           "dansk"
           "deutsch"
           "español"
           "français"
           "italiano"
           ""
         ))
  (
    (if (IN languages n)
    (
      (copyfiles
        (prompt copying-catalogs)
        (help @copylib-help)
        (source (cat "catalogs/" language "/DOSPrefs.catalog"))
        (dest (cat "Locale:catalogs/" language))
        (optional force askuser)
      )
    ))
    (set n (+ n 1))
  ))
)
(
  (set languages 0)
))

(if (AND (exists "LIBS:amigaguide.library") (exists "HELP:"))
(
  (if(askbool
       (prompt install-help)
       (help install-help-help)
       (default 1)
     )
  (
    (set n 0)
    (while (set language (select n
             "english"
             "deutsch"
             "italiano"
             "français"
             ""
           ))
    (
      (if (IN languages n)
      (
        (copyfiles
          (prompt copying-help)
          (help @copylib-help)
          (source (cat "help/" language "/DOSPrefs.guide"))
          (dest (cat "HELP:" language))
          (optional force askuser)
        )
      ))
      (set n (+ n 1))
    ))
  ))
))