;$VER: NewMode Install 1.04 (17.5.95)
;Written 1994-95 by Thomas Kessler
;All rights reserved 1994-95 Andreas Linnemann

(set old-level @user-level)

;english (default)
(set #na "\n Read the documentation for help.")
(set #ultimate "the ultimate screen-promotor\n\n")
(set #rights "All rights reserved.\n")
(set #instscr "Install-script by")
(set #install "Install/Update NewMode")
(set #remove "Remove NewMode")
(set #isinst "is now installed.\n\n")
(set #reboot (cat "Please reboot now or double-click the\nNewMode-icon in \"SYS:WBStartup\"\nto start the program."))
(set #isrem "has been removed from your system and memory!")
(set #isremold (cat "Your previous installed version of NewMode\n" #isrem "\n\n"))
(set #delconf "Do you want to delete your\npersonal NewMode config file, too?")
(set #yes "Yes, delete!")
(set #no "No")

;deutsch
(if (exists "LOCALE:catalogs/deutsch")
	(
		(set #na "\n Lesen Sie bitte die Anleitung.")
		(set #ultimate "der ultimative Screen-Promotor\n\n")
		(set #rights "Alle Rechte vorbehalten.\n")
		(set #instscr "Installations-Skript von")
		(set #install "Installieren/Aktualisieren")
		(set #remove "Entfernen")
		(set #isinst "wurde installiert.\n\n")
		(set #reboot (cat "Bitte machen Sie jetzt einen Reset oder starten\nSie das Programm über das NewMode-Icon im\nVerzeichnis \"SYS:WBStartup\".\n"))
		(set #isrem "wurde aus System und Speicher entfernt!")
		(set #isremold (cat "Ihre bislang installierte NewMode-Version\n" #isrem "\n\n"))
		(set #delconf "Wollen Sie auch Ihre persönliche\nNewMode Konfigurationsdatei löschen?")
		(set #yes "Ja, löschen!")
		(set #no "Nein")
	)
)

(run (prompt "Version") (help #na) "Version NewMode FULL >ENV:NewMode.Version")
(set #newmode-version-full (getenv "NewMode.Version"))
(delete (prompt "Cleanup") (help #na) "ENV:NewMode.Version" (optional force))

(user 2)
(set what
	(askchoice
		(prompt "\n"#newmode-version-full
			#ultimate
			"NewMode © 1992-95 Andreas Linnemann\n"
			#instscr " Thomas Kessler\n"
			#rights
		)
		(help #na)
		(choices #install #remove)
	)
)
(complete 10)
(user old-level)
(set rc (run (prompt "Killer") (help #na) "KillNewMode"))
(complete 20)
(if what
	(
		(delete
			(prompt "Remove")
			(help #na)
			"SYS:WBStartup/NewMode"
			(optional force)
		)
		(complete 40)
		(delete
			(prompt "Remove")
			(help	#na)
			"SYS:WBStartup/NewMode.info"
			(optional force)
		)
		(complete 60)
		(delete
			(prompt "Remove")
			(help	#na)
			"LOCALE:catalogs/deutsch/NewMode.catalog"
			(optional force)
		)
		(complete 80)
		(user 2)
		(set del
			(askbool
				(prompt "\n\n\n\n\n"#delconf)
				(help #na)
				(choices #yes #no)
			)
		)
		(user old-level)
		(if del
			(
				(delete
					(prompt "Remove")
					(help	#na)
					"ENV:NewMode.config"
					(optional force)
				)
				(delete
					(prompt "Remove")
					(help	#na)
					"ENVARC:NewMode.config"
					(optional force)
				)
			)
		)	
		(complete 100)
		(user 2)
		(message "\n\n\n\nNewMode\n\n"#isrem)
		(user old-level)
	)
	(
		(if (NOT (exists "SYS:WBStartup/NewMode.info"))
			(copyfiles
				(prompt "Install")
				(help #na)
				(source "NewMode.info")
				(dest "SYS:WBStartup")
			)
		)
		(complete 50)
		(copyfiles
			(prompt "Install")
			(help #na)
			(source "NewMode")
			(dest "SYS:WBStartup")
		)
		(complete 80)
		(if (exists "LOCALE:catalogs/deutsch")
			(copyfiles
				(prompt "Install")
				(help #na)
				(source "Catalogs/deutsch/NewMode.catalog")
				(dest "LOCALE:catalogs/deutsch")
			)
		)
		(complete 100)
		(user 2)
		(message
			(cat "\n\n\n"#newmode-version-full #isinst
				(if (= rc 0) #isremold)
				#reboot
			)
		)
		(user old-level)
	)
)
(exit (quiet))
(welcome "")