; XPKatana Installer Script
; $Ver: 1.0 (28.11.95)
; Written by Philip A. Vedovatti
; Norsk translation by: Petter Nilsen

(set #bad-kick
   (cat "\n\nBeklager! Du må ha Workbench 2.0 eller "
        "høyere installert for å bruke denne pakken. "))

(set #hello-message
   (cat "\n\n\"Kutt filene dine til småbiter!\""
        "\n\nVelkommen til Installer skripted for XPKatana."
        "\n\nVennligst les dokumentasjonen for å få mest mulig"
        "\nut av denne pakken."
        "\n\n\nTRYKK FOR Å FORTSETTE."))


(set #install-which
   (cat "\nHvilke deler av XPKatana-arkivet vil"
        "\ndo installere på din hard disk?\n"))

(set #tools-dest
   (cat "\nI hvilken katalog vil du ha hoveddelen av XPKatana "
        "\ninstallert i?\n"))


(set #docs-dest
   (cat "\nHvor vil du installere dokumentasjonen?\n"))

(set #rexx-dest
   (cat "\nHvor vil du installere Arexx skriptene?\n"))


(set #install-arexx-help
   (cat "\nDette vil installere Arexx skriptene for å "
        "\nutvide funksjonaliteten til XPKatana."))

(set #exit-message
   (cat "\nXPKatana er nå fullstendig installert!"
        "\nKos deg."))


(set #install-library
   ("\nInstallerer FileID.library til 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 skripts" "FileID.library"
                           "Dokumentasjon")




      )
)

(if (= InstallOpt 0)
(abort (cat "\n\nInstallasjonen avbrutt :(")
                  "\n\nIngen filer valgt for installering!")
)



;-------------------------------------------------------
;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)
   )
  )
)

;-------------------------------------------------------
;Insall 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)