; $VER: XOpa-Installation 1.92
; 8.1.'97
; Install script for XOpa

(set @abort-button "Installation abbrechen")
(set @language     "deutsch")
(set @default-dest "Work:Tools")
(set @user-level   1)


(set hello (cat  "\nWillkommen zu der Installation von XOpa 1.92!\n\n"
                 "Die Installation luft weitgehend automatisch ab.\n"
                 "Damit XOpa funktioniert, bentigen Sie mindestens\n"
                 "AmigaOS 2.04. XOpa bentigt keine Eintragungen\n"
                 "in Ihrer User-Startup.\n"
                 "Die Dokumentation ist derzeit nur im\n"
                 "AmigaGuide-Format vorhanden.\n\n"
                 "Eine Vollinstallation bentigt ca. 250kB.")
)

(procedure XOpaInstall
  (set destdir (askdir
                   (prompt  "In welchem Verzeichnis soll XOpa installiert werden?\n"
                            "Es wird keine eigene Schublade generiert.")
                   (help    @askdir-help)
                   (default @default-dest)))
  (set @default-dest destdir)

  (set whichPart (askoptions
                      (prompt  "Welche Teile des Programmes mchten Sie installieren?")
                      (help    @askoptions-help)
                      (choices "XOpa-Hauptprogramm"
                               "Dokumentation"
                               "Strukturdefinitionen"
                               "Identify-Library")
                      (default 15)))

  (if (IN whichPart 0)
    (
      (copyfiles (prompt "Kopiere XOpa-Hauptprogramm...")
                 (help   @copyfiles-help)
                 (source "XOpa")
                 (dest   destdir))
      (copyfiles (nogauge)
                 (help   @copyfiles-help)
                 (source "XOpa.info")
                 (dest   destdir))
      (if (= (exists "XOpa-Registration") 1)
        (
          (copyfiles (prompt "Kopiere XOpa-Registration...")
                     (help   @copyfiles-help)
                     (source "XOpa-Registration")
                     (dest   destdir))
          (copyfiles (nogauge)
                     (help   @copyfiles-help)
                     (source "XOpa-Registration.info")
                     (dest   destdir))
        )
      )
    )
  )
  (complete 60)

  (if (IN whichPart 1)
    (
      (copyfiles (prompt "Kopiere Dokumentation...")
                 (help   @copyfiles-help)
                 (source "XOpa.guide")
                 (dest   destdir))
      (copyfiles (nogauge)
                 (help   @copyfiles-help)
                 (source "XOpa.guide.info")
                 (dest   destdir))
    )
  )
  (complete 80)

  (if (IN whichPart 2)
    (
      (copyfiles (prompt "Kopiere Strukturdefinitionen...")
                 (help   @copyfiles-help)
                 (source "XOpa.structs")
                 (dest   destdir))
    )
  )
  (complete 87)

  (if (IN whichPart 3)
    (
      (copyfiles (prompt "Kopiere Identify-Library...")
                 (help   @copyfiles-help)
                 (source "identify.library")
                 (dest   "libs:"))
    )
  )
  (complete 94)

  (set whichLang (askoptions
                      (prompt  "Welche Sprachen mchten Sie installieren?")
                      (help    @askoptions-help)
                      (choices "deutsch")
                      (default 1)))

  (if (IN whichLang 0)
    (
      (copyfiles (prompt "Kopiere deutschen Katalog...")
                 (help   @copyfiles-help)
                 (source "catalogs/deutsch/XOpa.catalog")
                 (dest   "locale:catalogs/deutsch/"))
    )
  )
  (complete 100)
)

(message hello)
(XOpaInstall)
