; *******************************************************************
;
; $VER: Install-Vinci 1.2 (18.3.95)
; 
; Install script for Vinci copyright  1995 Martin Wulffeld
;
; *******************************************************************

(set old_level @user-level)
(set @default-dest "")

(set default_lang 2)

(set #bad-kick
(cat "You must at least have Kickstart 2.04 to install Vinci!"
))

(set #copying-reqtoools		"Copying reqtools.library 38.1266 to LIBS:...")
(set #copying-unpack		"Copying unpack.library 39.54 LIBS:...")
(set #copying-vinci			"Copying Vinci program...")
(set #copying-docs			"Copying Vinci documentation...")

(set #where-vinci			"In which drawer should Vinci be installed ?")
(set #would-wb				"Do you also want Vinci in your SYS:C ?")

(set #which-language
(cat "\nWhich languages should be installed?"
))
(set #which-language-help
(cat "\nThe Amiga can be operated in many different"
	  " languages. If you want Vinci to use the"
     " same language as the Amiga Workbench"
	  " then a catalog file must be copied to your"
	  " harddisk for each language supported.\n\n"
	  "To reduce the amount of space consumed by the"
	  " language files, you can select to have only the"
	  " files of specific languages copied.\n\n"
	  "Simply check the boxes of the languages you wish"
	  " to have available on your system.\n\n"
	  @askoptions-help
))

;=============================================================================
; Make sure we are running under a 2.04 ROM

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

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

(copylib
	(prompt "\n" #copying-reqtools)
	(help @copylib-help)
	(source "Libs/reqtools.library")
	(dest "LIBS:")
	(confirm)
)

(copylib
	(prompt "\n" #copying-unpack)
	(help @copylib-help)
	(source "Libs/unpack.library")
	(dest "LIBS:")
	(confirm)
)

(set programdir
	(askdir
	(prompt  "Please select the path where you want to install Vinci along with the acompanying documentation. A drawer will not be created there.")
	(help @copylib-help)
	(default "SYS:")
	(newpath)
	)
)

(copyfiles
	(prompt "\n" #copying-vinci)
	(help "")
	(source "Vinci")
	(dest programdir)
	(infos)
)

(makedir (cat programdir "Documentation"))

(copyfiles
	(prompt "\n" #copying-docs)
	(help "")
	(source "Documentation/Vinci.guide")
	(dest programdir)
	(infos)
)

(copyfiles
	(prompt "\n" #copying-docs)
	(help "")
	(source "Documentation/Vinci.regform")
	(dest programdir)
	(infos)
)

(if (exists "SYS:Locale")
(
	(if (exists "LOCALE:")
	(
		(user 2)
		(set lang (askoptions (prompt #which-language)
								(help #which-language-help)
								(choices
									 "Dansk"
									 "English")
								(default default_lang)
					 )
		)
		(user old_level)

		(set n 0)
		(while (set language (select n
								"dansk"
								""))
		(
			(if (IN lang n)
			(
				(if (< 2 n)
				(
					(makedir (cat "LOCALE:Catalogs/" language))
					(copyfiles (source (cat "Catalogs/" language))
								(dest (cat "LOCALE:Catalogs/" language))
								(all)
					)
				))
			))
			(set n (+ n 1))
		))
	))
))
