; HomeBank Installtion Script
;$VER Install-HomeBank 1.0 (03.01.98)

;**************************************************************
; English strtings

(set #badkick "\n Sorry, this package requires OS v2.04 or better.\n")

(set #msg_welcome
  (cat
    "\nWelcome to HomeBank installation\n\n"
    "This script installs HomeBank 1.0\n"
    "on your Amiga.\n\n"
    "HomeBank © 1995-1998 Maxime Doyen\n"
    "All rights reserved\n\n"
    "MUI © 1993-1993 Stefan Stuntz"
  )
)

(set #msg_askdestdir
  (cat
    "Please select a place for \"HomeBank\".\n"
    "A drawer will be created here for you."
  )
)

(set #msg_wichlang
  "Select the language(s) you wish to install."
)

;=======================================================
;=================== Settings! =========================
;=======================================================

;sure we are running under OS2.04 or above
(if (< (/ (getversion) 65536) 37)
    (
      (message #msg_badkick)
      (exit (quiet))
    )
)

(message #msg_welcome (all))
(welcome)
(complete 0)

; get destination directory
(set destdir
  (askdir
    (prompt #msg_askdestdir)
    (help @askdir-help)
    (default "SYS:")
  )
)

(set @default-dest (expandpath destdir))

(set lang
  (askoptions
    (prompt #msg_wichlang)
    (help @askoptions-help)
    (choices
      "Français"
    )
  )
)

(set destination (tackon destdir "HomeBank"))

(if (= (exists destination) 0)
  (makedir destination )
)

(if (exists "/d_HomeBank.info")
  (run
    (cat "copy /d_HomeBank.info \"" destination ".info\"")
  )
)

(complete 20)

(copyfiles
  (source "HomeBank")
  (dest destination)
  (infos)
)

(complete 40)

(copyfiles
  (source "ReadMe")
  (dest destination)
  (infos)
)

(complete 50)

(copyfiles
  (source "Accounts")
  (dest (tackon destination "Accounts"))
  (all)
  (infos)
)
(copyfiles
    (source "Accounts.info")
    (dest destination)
)

(complete 60)

(copyfiles
  (source "Icons")
  (dest (tackon destination "Icons"))
  (all)
  (infos)
)
(copyfiles
    (source "Icons.info")
    (dest destination)
)

(complete 70)

(copyfiles
  (source "Docks")
  (dest (tackon destination "Docks"))
  (all)
  (infos)
)
(copyfiles
    (source "Docks.info")
    (dest destination)
)

(complete 80)

(copyfiles
  (source "Docs")
  (dest (tackon destination "Docs"))
  (all)
  (infos)
)
(copyfiles
    (source "Docs.info")
    (dest destination)
)

(complete 90)

(if (= lang 1)
  (
    (copylib
      (source (tackon "Catalogs/français" "HomeBank.catalog"))
      (dest "LOCALE:Catalogs/français")
    )
  )
)

(complete 100)