;
;Installer script for Aavd
;

(
    (set dir
        (askdir
            (prompt "Where do you wish to install the Aavd executable")
            (help   "Here you specify in what directory you wish to install "
                    "Aavd. Suggested location can be in either C: (among with "
                    "the default shellcommands) or in SYS:Utilities or SYS:Tools.")
            (default "c:")
        )
    )

    (copyfiles
        (source "aavd")
        (dest   dir)
    )


    (set dir
        (askdir
            (prompt "Where do you wish to install the Aavd documentaion")
            (help   "Here you specify in what directory you wish to install "
                    "the Aavd docs.")
            (default "sys:s")
        )
    )

    (copyfiles
        (source "aavd.guide")
        (dest   dir)
    )


    (if (= 0 (askchoice
                (prompt "Do you wish to install the Aavd font?")
                (help   "From V1.5 of Aavd you will be able to print the window titles "
                        "in the boxes. Because of this Aavd now comes with a font of "
                        "it's own. It's a very small font (size 6) and vill be used "
                        "by default by Aavd, unless you choose to use another font.")
                (choices    "Yes" "No")
            )
        )
        (
            (set dir
                (askdir
                    (prompt "Where do you wish to install the font")
                    (help   "Here you specify in what directory you wish to install "
                    "the Aavd font.")
                    (default "fonts:")
                )
            )
            (copyfiles
                (source "fonts")
                (dest   dir)
                (all)
            )
        )
    )

)