;
; Installer Script for GetLastAlert
; $VER: 1.1 (5.1.96)
;

(set @default-dest "SYS:")


	(message "Welcome to the Installation script of GetLastAlert! This program will show the last guru on your system. The script is very friendly and you must confirm all the actions.\n\n Enjoy the program!\n\nVersion to install:\n 1.1 (5-1-96)")

	(complete 0)

	 (set destdir (askdir  (prompt "Please select where GetLastAlert should be installed\n"
					"A drawer will NOT be created.")
		 (help @askdir-help)
		 (default "SYS:WBStartup")))

	(complete 20)

	 (set destdoc (askdir (prompt "Please select where to install the documentation\n"
				      "A drawer will NOT be created.")
		 (help @askdir-help)
		 (default "SYS:Documents")))

	(complete 40)

	 (set magic (askchoice (prompt"Select which icons do you want to install") (help"Normal icons:\nThese icons are compatible with 4 colours Workbench screen preferably with an aspect ratio of 2:1 (PAL/NTSC Hires). Use them if you have a 4 colours Workbench\n\nMagicWB icons:\nThese icons are compatible only with MagicWB. MagicWB is a program that improve the look of your Workbench using a selected palette. You must have 8 colours or more (if you have MagicDaemon) to be able to use MagicWB icons. These icons look better on a 1:1 aspect ratio screen.")(choices "Normal icons" "Magic icons")))

; Installation

	(complete 60)

         (copyfiles (prompt "Copying GetLastAlert...")
		    (help "No help available")
		    (source "GetLastAlert")
                    (dest destdir))

	(complete 70)

	 (copyfiles (prompt "Copying document...")
		    (help "No help available")
		    (source "GetLastAlert.guide")
		    (dest destdoc))

	(complete 80)

	 (if magic  ((copyfiles (prompt "Copying MagicWB icons...")
			       (help "No help availabl")
			       (source "magic/GetLastAlert.info")
			       (dest destdir))
		     (copyfiles (prompt "Copying MagicWB icons...")
			       (help "No help availabl")
			       (source "magic/GetLastAlert.guide.info")
			       (dest destdoc)))

		    ((copyfiles (prompt "Copying normal icons...")
			       (help "No help availabl")
			       (source "GetLastAlert.info")
			       (dest destdir))
		     (copyfiles (prompt "Copying normal icons...")
			       (help "No help availabl")
			       (source "GetLastAlert.guide.info")
			       (dest destdoc))))
	(complete 100)

        (message "Installation complete!\n"
              @app-name
               " can be found in your "
              "\"" destdir "\" "
              "drawer\n(or partition) ")

	(exit (quiet))