;  	*** MysticView installation scipt ***


	; *** versions ***

	(set ver (getversion "MysticView"))
	(set tver (/ ver 65536))
	(set trev (- ver (* tver 65536)))
	(set #MysticVersion (cat tver "." trev))

	(set ver (getversion "libs/render.library"))
	(set renderversion (/ ver 65536))
	(set renderrevision (- ver (* renderversion 65536)))

	(set ver (getversion "libs/guigfx.library"))
	(set guigfxversion (/ ver 65536))
	(set guigfxrevision (- ver (* guigfxversion 65536)))

	(set ver (getversion "libs/mysticview.library"))
	(set mysticlibversion (/ ver 65536))
	(set mysticlibrevision (- ver (* mysticlibversion 65536)))

	(set oldrenderversion 0)
	(set oldrenderrevision 0)
	(if (> (exists ("libs:render.library")) 0)
		(
			(set ver (getversion "libs:render.library"))
			(set oldrenderversion (/ ver 65536))
			(set oldrenderrevision (- ver (* oldrenderversion 65536)))
		)
	)

	(set oldguigfxversion 0)
	(set oldguigfxrevision 0)
	(if (> (exists ("libs:guigfx.library")) 0)
		(
			(set ver (getversion "libs:guigfx.library"))
			(set oldguigfxversion (/ ver 65536))
			(set oldguigfxrevision (- ver (* oldguigfxversion 65536)))
		)
	)

	(set oldmysticlibversion 0)
	(set oldmysticlibrevision 0)
	(if (> (exists ("libs:mysticview.library")) 0)
		(
			(set ver (getversion "libs:mysticview.library"))
			(set oldmysticlibversion (/ ver 65536))
			(set oldmysticlibrevision (- ver (* oldmysticlibversion 65536)))
		)
	)

;****************************************************************************
;
;	English texts
;

	(if (not (= @language "deutsch"))
		(
			(set #install-msg (cat	"\n\nMysticView installation script.\n\n"
						"this script will install MysticView " #MysticVersion " to your system.\n\n"
						"MysticView © 1997/98 by TEK neoscientists\n"))

			(set #welcome-msg  		"welcome to the MysticView installation process.")
			(set #bad-kick			"you need at least os3.0 (v39) to use this program.")
			(set #bad-cpu			"you need at least a 68020 processor.");
			(set #bad-installer		"you must be using Installer v43 to install MysticView.")
			(set #ask-prog-dir		"where shall i install MysticView?\na drawer will NOT be created.")
			(set #ask-help-dir		"where shall i install the documentation?")
			(set #copy-msg			"copying files to ")
		)
	)

;****************************************************************************
;
;	Deutsche Texte
;

	(if (= @language "deutsch")
		(
			(set #install-msg (cat	"\n\nMysticView installationsskript.\n\n"
									"dieses skript installiert MysticView " #MysticVersion " auf ihrem system.\n\n"
									"MysticView © 1997/98 by TEK neoscientists\n"))

			(set #welcome-msg 	 	"willkommen zur installation von MysticView")
			(set #bad-kick			"sie benötigen mindestens os3.0 (v39).")
			(set #bad-cpu			"sie benötigen mindestens einen 68020 prozessor.");
			(set #bad-installer		"sie benötigen den Installer v43, um MysticView zu installieren.")
			(set #ask-prog-dir		"wo soll MysticView installiert werden?\nein verzeichnis wird NICHT angelegt.")
			(set #ask-help-dir		"wohin soll die anleitung kopiert werden?")
			(set #copy-msg			"kopiere dateien nach ")
		)
	)


;****************************************************************************
;
;	installation process
;


	; *** Welcome the user to the installation

	(message #install-msg)


	; *** Check for Kickstart version ***

	(if (< (/ (getversion) 65536) 39)
		((abort #bad-kick))
	)


	; *** Check for Installer-Version ***

	(if (< (/ @installer-version 65536) 43)
		((abort #bad-installer))
	)


	; *** Check for CPU ***

	(if (patmatch "68000|68010" (database "cpu"))
		(abort #bad-cpu)
	)

  
	; *** Ask the user for the destination ***

	(set #prog-dest
		(askdir (prompt #ask-prog-dir)
				(help @askdir-help)
				(default "sys:utilities")
		)
	)

	(set #help-dest
		(askdir	(prompt #ask-help-dir)
				(help @askdir-help)
				(default #prog-dest)
		)
	)


	; *** Copy libs ***

	(if (> renderversion oldrenderversion)
		(
			(set #render-lib "libs/render.library")
			(if (patmatch "68040" (database "cpu")) (set #render-lib "libs/render.library_68040"))
			(if (patmatch "68060" (database "cpu")) (set #render-lib "libs/render.library_68060"))
	
			(copylib (prompt #copy-msg "LIBS:")
				(help @copylib-help)
				(source #render-lib)
				(dest "LIBS:")
				(newname "render.library")
			)
		)
	)



	(if (> guigfxversion oldguigfxversion)
		(
			(set #guigfx-lib "libs/guigfx.library")
			(if (patmatch "68881" (database "fpu")) (set #guigfx-lib "libs/guigfx.library_FPU"))
			(if (patmatch "68882" (database "fpu")) (set #guigfx-lib "libs/guigfx.library_FPU"))
			(if (patmatch "68040" (database "cpu")) (set #guigfx-lib "libs/guigfx.library_68040"))
			(if (patmatch "68060" (database "cpu")) (set #guigfx-lib "libs/guigfx.library_68060"))

			(copylib (prompt #copy-msg "LIBS:")
				(help @copylib-help)
				(source #guigfx-lib)
				(dest "LIBS:")
				(newname "guigfx.library")
			)
		)
	)


	(if (> mysticlibversion oldmysticlibversion)
		(
			(set #mystic-lib "libs/mysticview.library")
			(if (patmatch "68881" (database "fpu")) (set #mystic-lib "libs/mysticview.library_FPU"))
			(if (patmatch "68882" (database "fpu")) (set #mystic-lib "libs/mysticview.library_FPU"))
			(if (patmatch "68040" (database "cpu")) (set #mystic-lib "libs/mysticview.library_FPU"))
			(if (patmatch "68060" (database "cpu")) (set #mystic-lib "libs/mysticview.library_68060"))

			(copylib (prompt #copy-msg "LIBS:")
				(help @copylib-help)
				(source #mystic-lib)
				(dest "LIBS:")
				(newname "mysticview.library")
			)
		)
	)



	; *** Copy the program ***

	(set #mview "MysticView")
	(if (patmatch "68881" (database "fpu")) (set #mview "MysticView_030FPU"))
	(if (patmatch "68882" (database "fpu")) (set #mview "MysticView_030FPU"))
	(if (patmatch "68040" (database "cpu")) (set #mview "MysticView_68040"))
	(if (patmatch "68060" (database "cpu")) (set #mview "MysticView_68060"))

	(copyfiles (prompt #copy-msg #prog-dest)
				(help @copyfiles-help)
				(source #mview)
				(dest   #prog-dest)
				(infos)
				(noposition)
				(newname "MysticView")
	)


	; *** Copy the help file ***

	(copyfiles (prompt #copy-msg #help-dest)
				(help @copyfiles-help)
				(source "MysticView.guide")
				(dest   #help-dest)
				(infos)
				(noposition)
	)


	; ** set return value of installer

	(set @default-dest #prog-dest)