; $VER: 1.0 All rights reserved.

(delopts "oknodelete" "force" "askuser")
(complete 0)

(if (exists "GOLDED:" (NOREQ))

    (
        (set vernum (getversion "golded:golded"))

        (set ver (/ vernum 65536))
        (set rev (- vernum (* ver 65536)))

        (set version (+ (* 10 ver) rev))

        (if (< version 44)

            (
                (message "\nSorry, GoldED 4.4.0 or better required")

                (exit (quiet))
            )
        )

        (message (cat "\n"

            "                                            \n"
            "AmigaGuide Publishing Extensions            \n"
            "                                            \n"
            "©1996 Dietmar Eilert                        \n"
            "      All Rights Reserved.                  \n"
            "                                            \n"
            "      E-Mail: dietmar@tomate.tng.oche.de    \n"
            "                                            \n"
            "GoldED Release 4.4.0+ required.             \n"
        ))

        (copylib

            (prompt "Install syntax parser ?")
            (source "syntax/warpGUIDE.parser")
            (dest   "golded:syntax")
            (confirm)
            (help @copylib-help)
        )

        ; install registry editor (if not yet installed)

        (if (not (exists "golded:tools"))

            (makedir "golded:tools")
        )

        (if (not (exists "golded:tools/regedit"))

            (makedir "golded:tools/regedit")
        )

        (copylib

            (prompt "Install registry editor ?")
            (source "bin/regedit" )
            (dest   "golded:tools/regedit")
            (confirm)
            (help @copylib-help)
        )

        ; install basic files

        (if (not (exists "golded:tools/makeguide"))

            (makedir "golded:tools/makeguide")
        )

        (copyfiles

            (source "makeguide")
            (dest   "golded:tools/makeguide")
            (all)
        )

        ; install scanner

        (if (not (exists "golded:scanner"))

            (makedir "golded:scanner")
        )

        (copyfiles

            (source "scanner")
            (dest   "golded:scanner")
            (all)
        )

        ; install toolbar images

        (if (exists "toolbar") (

            (set hicolor

                (askchoice

                    (prompt "\nSelect toolbar style:\n")

                    (choices

                        "4  colors"
                        "8+ colors"
                    )

                    (default 1)

                    (help (cat "\n"

                        " You can use both styles on all screens. The 4\n"
                        " color style has been optimized for 4-color   \n"
                        " screens. The 8+ style has been optimized for \n"
                        " screens with eight or more colors.           \n"
                    ))
                )
            )

            (if (not (exists "golded:toolbar"))

                (makedir "golded:toolbar")
            )

            (if (not (exists "golded:toolbar/makeguide"))

                (makedir "golded:toolbar/makeguide")
            )

            (copyfiles

                (source "toolbar")
                (dest   "golded:toolbar")
                (all)
            )

            (if (= hicolor 1)

                (copyfiles

                    (source "toolbar16")
                    (dest   "golded:toolbar")
                    (nogauge)
                    (all)
                )
            )
        ))

        ; update registry

        (working "Updating registry...")

        (run "golded:tools/regedit/regedit script=install.bat")
    )

    (message (cat "\n"

        "Please install GoldED before attempting to\n"
        "install this client.                      \n"
    ))
)

(exit (quiet))

(welcome)