; XPKatana Installer Script
; $Ver: 1.0 (28.11.95)
; Written by Philip A. Vedovatti
; German translation by Volker Schleifstein

(set #bad-kick
   (cat "\n\nTut mir leid! Sie müssen Workbench 2.0 oder höher"
        "installiert haben, um dieses Programm nutzen zu können."))

(set #hello-message
   (cat "\n\n\"Hacken Sie Ihre Dateien in Stücke!"
        "\n\nWillkommen zum XPKatana Installier-Skript."
        "\n\nBitte lesen Sie die Dokumentation, um dieses Programm"
        "\nvoll ausnutzen zu können."
        "\n\n\nHIER ANKLICKEN UM FORTZUFAHREN"))

(set #install-which
   (cat "\nWelche Teile des XPKatana Programmpakets möchten"
        "\nSie auf Ihrer Festplatte installieren?\n"))

(set #tools-dest
   (cat "\nIn welches Verzeichnis soll das XPKatana"
        "\nHauptprogramm installiert werden?\n"))

(set #docs-dest
   (cat "\nWo soll die Dokumentation installiert werden?\n"))

(set #rexx-dest
   (cat "\nWo möchten Sie die Katana Arexx Skripten installiert"
        "\nhaben?\n"))

(set #install-arexx-help
   (cat "\nHiermit werden die Arexx Skripten installiert."
        "\nSie erhöhen die Funktionalität von XPKatana."))

(set #exit-message
   (cat "\nXPKatana ist jetzt komplett installiert!"
        "\nViel Spaß!"))

(set #install-library
   ("\nInstalliere FileID.library in Libs:"))

; ------------------------------
; Check Kickstart Version
; ------------------------------

 (if (< (getversion "LIBS:version.library") (* 37 65536))
        (abort #bad-kick)
 )

(message #hello-message)

; ------------------------------
; What should I install?
; ------------------------------

(set InstallOpt
      (askoptions (prompt #install-which)
                  (help @askoptions-help)
                  (choices "XPKatana" "Arexx Skripten" "FileID.library"
                           "Dokumentation")
      )
)

(if (= InstallOpt 0)
      (abort (cat "\n\nInstallation abgebrochen :(")
                  "\n\nEs sind keine Dateien ausgewählt worden!")
)


;-------------------------------------------------------
;Install binary, Icons, and support files
;-------------------------------------------------------


(if (BITAND InstallOpt 1)

  ((set destdir
      (askdir
            (prompt #tools-dest)
            (help @askdir-help)
            (default "Sys:Utilities")
      )
   )

   (set @default-dest destdir)
   (copyfiles
      (source "/XPKatana")
      (dest destdir)
      (infos)
   )
  )
)

;-------------------------------------------------------
;Install Arexx scripts
;-------------------------------------------------------



(if (BITAND InstallOpt 2)

  ((set destdir
      (askdir
            (prompt #rexx-dest)
            (help #install-arexx-help)
            (default "REXX:")
      )
   )

   (copyfiles
      (source "/ARexx")
      (dest destdir)
      (all)
   )
  )
)

;-------------------------------------------------------
;Install FileID.library files
;-------------------------------------------------------

(if (BITAND InstallOpt 4)

  ((copylib
      (prompt #install-library)
      (source "/Libs/FileID.library")
      (dest "Libs:")
   )

   (if (exists "Locale:catalogs/deutsch")
       (copyfiles
          (source "/Locale/catalogs/deutsch/FileID_lib.catalog")
          (dest "Locale:catalogs/deutsch")
       )
   )
  )
)

;-------------------------------------------------------
;Install FileID.library files
;-------------------------------------------------------

(if (BITAND InstallOpt 8)

  ((set destdir
      (askdir
            (prompt #docs-dest)
            (help @askdir-help)
            (default "Help:")
      )
   )
   (copyfiles
      (source "/Docs/XPKatana.guide")
      (dest destdir)
      (newname "XPKatana.guide")
      (infos)
   )
  )
)
(exit #exit-message)