; Install script

;=============================================================================
(set #bad-kick "You need Kickstart 3.0 (39),\nato use this program !")
(set #bad_req "You need reqtools.library v38,\nato use this program !")
(set #where-prog "Choose directory for application")
(set #doc-install "Would you like to install documentation?")
(set #where-doc "Choose directory for documentation")
(set #sel-catalogs "Which languages shall I install?")
(set #where-catalogs "Choose directory for catalogs")

(set #install-msg
	(cat "\n\nNVControl install script.\n"
	   "This script will install NVControl in your Amiga.\n\n"
		 "NVControl\n"
		 "Copyright © 2001 Tomasz \"Pony\" Peczek\n"
		 "E-MailWare\n\n"
	)
)

;=============================================================================
; make sure we are running under a 3.0 ROM

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

;=============================================================================
(set #old-level @user-level)
(user 2)
(message #install-msg)

(if (not(exists "LIBS:reqtools.library"))
  (
    (abort #bad_req)
  )
  (
    (if (< (/ (getversion "LIBS:reqtools.library") 65536) 38)
      (
        (abort #bad_req)
      )
    )
  )
)

(user #old-level)

(set destdir	(askdir
								(prompt #where-prog)
								(help @askdir-help)
								(default "DH1:")
							)
)

(set @default-dest destdir)

(complete 25)

(copyfiles
	(source "NVControl")
	(dest destdir)
	(infos)
	(noposition)
)


(set doc	(askbool
						(prompt #doc-install)
						(help @askbool-help)
					)
)

(complete 50)

(if (<> doc 0)
	(
		(set docdir	(askdir
									(prompt #where-doc)
									(help @askdir-help)
									(default "HELP:")
								)
		)
		(copyfiles
			(source "NVControlEng.guide")
			(dest docdir)
			(infos)
			(noposition)
		)
	)
)

(complete 75)
(set catalogsdir	(askdir
								(prompt #where-catalogs)
								(help @askdir-help)
								(default "Locale:Catalogs")
							)
)

(copyfiles
	(prompt #sel-catalogs)
	(help @copyfiles-help)
	(source "Catalogs")
	(dest catalogsdir)
	(noposition)
	(all)
	(confirm)
)

(complete 100)
(exit)