;  *** GUICreator installation scipt ***

(set #install-msg (cat  "\n\nGUICreator installation script.\n"
                        "This script installs GUICreator on your Amiga.\n\n"
                        "Read the documentation for\n"
                        "more information on the distribution\n"
                        "and commercial usage of GUICreator.\n\n"
                        "GUICreator © 1995 Markus Hillenbrand\n"
                        "All rights reserved.")
)

(set #bad-kick          "You must be using Kickstart 3.0 to use this program!")

(message #install-msg)

(welcome "Welcome to the GUICreator installation!")

(if (< (/ (getversion) 65536) 39)
   (
   (abort #bad-kick)
   )
)

(set cputype (+(database "CPU")))

(set mydest (askdir (prompt "Where shall I install the program?\n(A drawer will be created)")
                    (help @askdir-help)
                    (default "Work:")
                    (disk)
          )
)

(message "\nUnpacking data to " mydest)

(makeassign "GUIC" (cat "" mydest))

(RUN "LHA x GUIC.lha GUIC:")

(makeassign "GUIC")

(message "If you already have a KEYFILE for GuiCreator,\njust put it into the program´s directory!")