;
;	$VER: Install-AddressManager_MUI 1.0 (04.07.94)
;
;	Install script for AddressManager for MUI 1.0
;	© Copyright 1994 by Michael Schikora
;	All Rights Reserved
;	
(set intro
(cat "\n Installation von AddressManager for MUI 1.0\n\n"
     " ©1994 by Michael Schikora  \n"
     " All Rights Reserved\n\n"
))

(set bad-kick
(cat "\n\n\nSie brauchen mindestens Kickstart 2.04 (Version 37.175) !"
))

(set copying-AM
(cat "AddressManager for MUI wird kopiert ..."
))

(set copying-catalogs
(cat "Die Catalog-Dateien für AddressManager for MUI werden kopiert..."
))

(set copying-docs
(cat "Die Dokumentation von AddressManager for MUI wird kopiert..."
))

(set copying-help2
(cat "Die Online-Hilfe von AddressManager for MUI wird kopiert..."
))

(set which-languages
(cat "\nWelche Sprachen sollen installiert werden?"
))

(set which-languages-help
(cat "Der Amiga und AddressManager arbeiten noramllerweise in"
     "Englisch. Wenn Sie aber Workbench(tm) 2.1 oder höher haben,"
     "können Sie auch andere Sprachen benutzen.\n"
     "Wenn Sie möchten, daß AddressManager for MUI die gleichen Sprachen benutzt"
     "wie die Workbench, müssen für alle unterstützte Sprachen Catalog-" 
     "Dateien auf ihre System-Disk kopiert werden.\n"
     "Sie brauchen nur die gewünschten Sprachen anzuwählen.\n\n\n\n\n"
     @askoptions-help
))
 
(set install-help
(cat "\n\n\n\n\n\nMöchten Sie die Dokumentation installieren?"
))

(set install-help2
(cat "\n\n\n\n\n\nMöchten Sie die Online-Hilfe installieren?"
))

(set install-help-help
(cat "Die Dokumentation könnte bei der Arbeit mit AddressManager helfen.\n"
))

(set install-help-help2
(cat "Sie haben das Amigaguide(tm)-Online-Hilfe-System installiert."
     "AddressManager kann es benutzen, braucht aber dafür spezielle"
     "Hilfe-Dateien.\n\n\n"
))

(set choose (cat "Wählen Sie ein Verzeichnis\n"))

; Kickstart version test

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

(welcome intro)

(set @default-dest "SYS:")

(set destination (cat (askdir(prompt choose)(help copyingAM)(default "sys:")(newpath)(disk))))

(copyfiles
  (prompt copying-AM)
  (help @copylib-help)
  (source "/AM_Mui1.0")
  (dest destination)
  (infos)
  (optional force askuser)
)

; install catalogs

  (set languages 
    (askoptions 
      (prompt which-languages)
      (help   which-languages-help)
      (choices
        "english"
        "deutsch"
      )
    )
  )

(if (exists "Locale:catalogs")
(
  (set n 1)
  (while (set language (select n
           "english"
           "deutsch"
           ""
         ))
  (
    (if (IN languages n)
    (
      (copyfiles
        (prompt copying-catalogs)
        (help @copylib-help)
        (source (cat "/catalogs/" language "/AM_Mui.catalog"))
        (dest (cat "Locale:catalogs/" language))
        (optional force askuser)
      )
    ))
    (set n (+ n 1))
  ))
)
(
  (set languages 0)
))

  (if(askbool
       (prompt install-help)
       (help install-help-help)
       (default 1)
     )
  (
    (set n 0)
    (while (set language (select n
             "english"
             "deutsch"
             ""
           ))
    (
      (if (IN languages n)
      (
        (copyfiles
          (prompt copying-docs)
          (help @copylib-help)
          (source (cat "/docs/" language) )
          (all)(infos)
          (dest destination)
          (optional force askuser)
        )
      ))
      (set n (+ n 1))
    ))
  ))

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