;
; install $VER 0.91 (14.8.1996)
;
; This is the installerscript for BibCard
;

(set @default-dest "ram:")

(set #bad-kick
    (cat "You need at least kickstart v2.04 (V37)")
)

(set #install-msg
(cat "\n\nBibCard instalation script.\n\n"
     "This script installs BibCard on your Amiga.\n\n"
     "BibCard  1995 Matthijs Luger\n"
     "All rights reserved."
))

;=============================================================================
; make sure we are running under a 2.04 ROM

(set kick_ver (/ (getversion) 65536))

(if (< kick_ver 37)
    (abort #bad-kick)
)

;=============================================================================

(message #install-msg)

(welcome)

;=============================================================================

(set destdir
    (askdir
        (prompt "Where should BibCard be installed?")
        (help @askdir-help)
        (default @default-dest)
        (disk)
    )
)

(set @default-dest destdir)

;=============================================================================

(set vernum (getversion "BibCard"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536)))

(set ver_msg (cat "BibCard v" ver "." rev))

;=============================================================================

(message "\nCopy " ver_msg "\nto " destdir " ?")

(copylib
    (prompt ("Copy BibCard to %s." destdir))
    (help @copylib-help)
    (source "BibCard")
    (dest destdir)
    (infos)
    (confirm)
)

(complete 30)

;=============================================================================

(message "\nWhere should the\nBibCard.guide\ngo to?")

(copyfiles
    (prompt ("Copy BibCard.guide to %s." destdir))
    (help @copylib-help)
    (source "BibCard.guide")
    (dest destdir)
    (infos)
    (confirm)
)

(complete 60)

;=============================================================================

(message "BibCard uses the TextField gadget\n"
         "made by Mark Thomas.\n\n"
         "Under v3.0+ it will be installed in\n"
         "SYS:Classes/gadgets.\n\n"
         "Under v2.0 and v2.1 it must\n"
         "be installed in the same\n"
         "directory as BibCard."
)

;=============================================================================

(if (< kick_ver 40)
    (
        (set destdir (tackon destdir "gadgets"))
    )
    (
        (set destdir "SYS:Classes/gadgets")
    )
)

(message "\nInstall textfield.gadget.\n\n"
         "textfield.gadget will\n"
         "be installed in:\n\n" destdir
)

(copylib
        (prompt ("Copy textfield.gadget to %s." destdir))
        (help @copylib-help)
        (source "Gadgets/textfield.gadget")
        (dest destdir)
        (infos)
        (confirm)
)
(complete 100)

