;
; $PROJECT: IceArc v1.49 - (c) S.Gillibrand 1996
;

(complete 15)

(message "I'm a FiRE STARTER\n"
         " TWiSTED FiRE STARTER!\n"
         "\n"
         "Icearc v1.49\n"
         "Ultimate Extraction Tool\n"
         "\n\n"
         "Installer\n\n"
         "-+- Digital Design Production 1996 -+-"
)

(complete 20)

(set cdir
		  (askdir
					 (prompt "Where do you want the executable copying?")
					 (help @askdir-help)
					 (default "C:")
		  )
)
(complete 40)

(set docsdir
		  (askdir
					 (prompt "Where do you want the guide file copying?")
					 (help @askdir-help)
					 (default "AmigaGuide:")
		  )
)

(complete 60)

					 (copyfiles (source "c/IceArc") (dest (cdir)))

(complete 75)

					 (copyfiles (source "docs/IceArc.guide") (dest (docsdir)))

(complete 85)

					 (copyfiles (source "s/IceArc.brain") (dest ("S:")))

(complete 95)

(message "\n\n Now take a look at the docs please :-)")
					 (run "c/guide docs/IceArc.guide")

(complete 100)

(message "\n\n\n\n-<*>- IceArc Is Now Installed - Enjoy! -<*>-"
         "\n-<*>- Thanx For Choosing Digital Design -<*>-"
)

(exit (quiet))