(set #langfound 0)

(if (= "deutsch" @language)
	(
		(set #langfound 1)
		(set #MSG_WHERE "Wohin soll das Utility (ca. 8 KByte lang) kopiert werden?")
		(set #MSG_WHERE_OTHER "Anderen Pfad auswählen ...")
		(set #MSG_PATH "Zielpfad wählen!")
		(set #MSG_BADPATH "\nPfad existiert nicht!")
		(set #MSG_COPY "Kopiere MCPPReload nach \"%s\" ...")
		(set #MSG_DONE "\nInstallation abgeschlossen!")
		(set #MSG_NOHELP "Es gibt keine Hilfe. Sorry!")

	)
)

(if (= 0 #langfound)
	(
		(set #MSG_WHERE "Where do you want the utility (~8 KBytes long) to be copied?")
		(set #MSG_WHERE_OTHER "Other place ...")
		(set #MSG_PATH "Select destination path!")
		(set #MSG_BADPATH "\nPath does not exist!")
		(set #MSG_COPY "Copying MCPPReload to \"%s\" ...")
		(set #MSG_DONE "\nInstallation complete!")
		(set #MSG_NOHELP "No help available. Sorry!")
	)
)

(set #where
	(askchoice
		(prompt #MSG_WHERE)
		(help #MSG_NOHELP)
		(choices "C:" "MDEV:bin/" #MSG_WHERE_OTHER)
		(default 0)
	)
)

(set #ok 0)

(while (= 0 #ok)
	(
		(set #ok 1)

		(if (= 0 #where)
			(set #dest "C:")
			(
				(if (= 1 #where)
					(set #dest "MDEV:bin")
					(
						(set #dest
							(askdir
								(prompt #MSG_PATH)
								(help #MSG_NOHELP)
								(default "MDEV:")
								(disk)
							)
						)
					)
				)
			)
		)
		
		(if (<> 2 (exists #dest))
			(
				(set #ok 0)
				(set #where 2)
				(message #MSG_BADPATH)
			)
		)
	)
)

(set #dest (expandpath #dest))

(copyfiles
	(prompt (#MSG_COPY #dest))
	(help #MSG_NOHELP)
	(source "MCPPReload")
	(dest #dest)
	(confirm)
)

(exit #MSG_DONE (quiet))