;-- $VER: SortInstaller V1.10 (08.06.96) R.Werner (e-mail:wernerr@iee1.et.tu-dresden.de)

;---------------------- All strings in the script --------------------------

(set #install-msg		"Installing the sort program...")

(set #versionsnr	"V1.60")

(set #info-msg 	(cat	"\n\nSort installation script.\n"
						("This script installs Sort %s on your system.\n\n" #versionsnr)
						"Read the docs for more information on the \n"
						"distribution and for commercial use \n"
						"Sort is Copyright  1994-1996 by\n"
						"Rdiger Werner.\n"
						"All rights reserved."))

(set #useroptions-msg	"Select which user files to install")
(set #useroption1-msg	"English version")
(set #useroption2-msg	"German Version")
(set #useroption3-msg	"English User documentation")
(set #useroption4-msg	"German User documentation")
(set #useroption5-msg	"Aminet .readme file")

(set #maindir-msg (cat	"Where do you wish to install the sort program?\n"
			"The Installer will NOT create a new\n"
			"drawer at the selected location."))

(set #sellocfor-msg	"Please select a location for")
(set #docdir-msg	("%s all documentation" #sellocfor-msg))

(set @default-dest	"C:")
(set @default-docdest	"Docs:")

;-------------------- Installation script begins here ----------------------
(set olduserlevel @user-level)
(user 2)
(transcript #install-msg)
(message #info-msg)
(user olduserlevel)

;-------------------------- Get options for user install -------------------
(set userinstall
	(askoptions
		(prompt #useroptions-msg)
		(help	@askoptions-help)
		(choices	#useroption1-msg
				#useroption2-msg
				#useroption3-msg
				#useroption4-msg
				#useroption5-msg
		)
		(default %10101)
	)
)

;-------------------------- Create main directory --------------------------
(if (IN userinstall 2 3)
	(
		(set destdir
			(askdir
				(prompt #maindir-msg)
				(help @askdir-help)
				(default @default-dest)
			)
		)

		(set @default-dest destdir)

		(set docdir
			(askdir
				(prompt #docdir-msg)
				(help @askdir-help)
				(newpath)
				(default @default-docdest)
				(optional nofail askuser)
			)
		)
	)
)

;-------------------------- Do user installation ---------------------------
(if (IN userinstall 0)
   	(copyfiles
	       	(source "sort")
       		(dest destdir)
	)
)

(if (IN userinstall 1)
	(copyfiles
	       	(source "/Deutsch/sort")
       	(dest destdir (newname "sort_deutsch"))
       	(confirm)
	)
)

(if (IN userinstall 2)
	(
		(copyfiles (source "sort.guide")
			(dest docdir)
		)
		(copyfiles (source "sort.guide.info")
			(dest docdir)
		)
	)
)

(if (IN userinstall 3)
	(
		(copyfiles (source "/Deutsch/sort.guide")
			(dest docdir (newname "sort_deutsch.guide"))
		)
		(copyfiles (source "/Deutsch/sort.guide.info")
			(dest docdir (newname "sort_deutsch.guide.info"))
		)
	)
)

(if (IN userinstall 4)
	(
		(copyfiles (source "/sort.readme")
			(dest docdir)
		)
		(copyfiles (source "/sort.readme.info")
			(dest docdir)
		)
	)
)
	
;--------------------------------- Done ------------------------------------
(exit)
