;-- $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		"Installiere das Sort Programm...")

(set #versionsnr	"V1.60")

(set #info-msg 	(cat	"\n\nSort Installations Script.\n"
						("Dieses Script installiert sort %s auf Ihrem System.\n\n" #versionsnr)
						"Lesen Sie bitte das Docfile fr mehr Informationen\n"
						"ber Distribution und kommerzielle Nutzung\n"
						"Sort ist Copyright  1994-1996 by\n"
						"Rdiger Werner.\n"
						"Alle Rechte vorbehalten."))

(set #useroptions-msg	"Whlen Sie, welche Files Sie installieren mchten")
(set #useroption1-msg	"Deutsche Version")
(set #useroption2-msg	"Englische Version")
(set #useroption3-msg	"Deutsche Dokumentation")
(set #useroption4-msg	"Englische Dokumentation")
(set #useroption5-msg	"Aminet .readme file")

(set #maindir-msg (cat	"Wo mchten Sie das Sort Programm installieren?\n"
			"Der Installer erzeugt KEIN neues\n"
			"Verzeichnis an der gewhlten Stelle."))

(set #sellocfor-msg	"Bitte whlen Sie ein Verzeichnis")
(set #docdir-msg	("%s fr die Dokumentation" #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)
				(default @default-docdest)
				(optional nofail askuser)
			)
		)
	)
)

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

(if (IN userinstall 1)
	(copyfiles
	       	(source "/English/sort")
	       	(dest destdir (newname "sort_english"))
	)
)

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

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

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