;$VER: Install Starlord 1.0 (23-06-1994)
;Starlord Hard Drive Installation Script by Scott Johnston

(complete 0)

;=============================================================================

(set #ask-Starlord-dir-ENG
	(cat
		"In which disk or drawer should a drawer \"Starlord\" "
		"be created where all files will be copied?"
	)
)

(set #ask-Starlord-dir-help-ENG
	(cat
		"Here you specify, where you want to install Starlord "
		"and all support files. A drawer \"Starlord\" will "
		"be created, so you select \"DH0:\" to install Starlord "
		"in a drawer \"DH0:Starlord\".\n\n"
	)
)

(set #ask-Starlord-copying-ENG
	(cat
		"\n"
		"Copying Starlord files...."
	)
)

;=============================================================================

(set #ask-Starlord-dir-FRE
	(cat
		"Dans quel disque ou tiroir devrait être créé Starlord?  Tous les fichiers "
		"seront copiés à cet endroit."
	)
)

(set #ask-Starlord-dir-help-FRE
	(cat
		"Veuillez spécifier la destination pour l'installation d'Starlord et des "
		"fichiers de soutien.  Un tiroir intitulé Starlord sera créé.\n\n"
	)
)

(set #ask-Starlord-copying-FRE
	(cat
		"\n"
		"Copie des fichiers d'Starlord..."
	)
)

;=============================================================================

(set #ask-Starlord-dir-GER
	(cat
		"In welchem Laufwerk oder welcher Schublade soll Starlord installiert "
		"werden?  Dorthin werden alle Dateien übertragen."
	)
)

(set #ask-Starlord-dir-help-GER
	(cat
		"Bitte angeben, wo Starlord und Zusatzdateien installiert werden sollen.  Eine "
		"Schublade namens Starlord wird dann erstellt.\n\n"
	)
)

(set #ask-Starlord-copying-GER
	(cat
		"\n"
		"Starlord-Dateien werden kopiert..."
	)
)

;=============================================================================
;=============================================================================
;=============================================================================

;Ask for destination drawer or partition for Starlord

(set language 0)

(if (= language 0)
	(
		(set #ask-Starlord-dir #ask-Starlord-dir-ENG)
		(set #ask-Starlord-dir-help #ask-Starlord-dir-help-ENG)
		(set #ask-Starlord-copying #ask-Starlord-copying-ENG)
		(set #ask-Starlord-diskfull #ask-Starlord-diskfull-ENG)
	)
)
(if (= language 1)
	(
		(set #ask-Starlord-dir #ask-Starlord-dir-FRE)
		(set #ask-Starlord-dir-help #ask-Starlord-dir-help-FRE)
		(set #ask-Starlord-copying #ask-Starlord-copying-FRE)
		(set #ask-Starlord-diskfull #ask-Starlord-diskfull-FRE)
	)
)
(if (= language 2)
	(
		(set #ask-Starlord-dir #ask-Starlord-dir-GER)
		(set #ask-Starlord-dir-help #ask-Starlord-dir-help-GER)
		(set #ask-Starlord-copying #ask-Starlord-copying-GER)
		(set #ask-Starlord-diskfull #ask-Starlord-diskfull-GER)
	)
)

(set Starlord_dest
	(tackon
		(askdir
			(prompt #ask-Starlord-dir)
			(help
				#ask-Starlord-dir-help
				@askdir-help
			)
			(default "Work:")
		)
		"Starlord"
	)
)
(set @default-dest Starlord_dest)
(complete 5)



(working #ask-Starlord-copying)

(makedir Starlord_dest
	(infos)
)

(complete 10)



;Copy all the program files from disk 2 to dest

(copyfiles
	(source "Starlord#2:")
	(dest Starlord_dest)
	(pattern "~((Install)#?)")
	(infos)
	(help @copyfiles-help)
)

(complete 40)



;Copy all the program files from disk 3 to dest

(copyfiles
	(source "Starlord#3:")
	(dest Starlord_dest)
	(pattern "~((Install)#?)")
	(infos)
	(help @copyfiles-help)
)

(complete 70)



;Copy all the program files from disk 1 to dest

(copyfiles
	(source "Starlord#1:")
	(dest Starlord_dest)
	(pattern "~((Install)#?)")
	(infos)
	(help @copyfiles-help)
)

(complete 100)


(exit)