; Install script

;=============================================================================
(set #bad-kick "You need Kickstart 2.05 (37),\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 #sources-install "Would you like to install source code?")
(set #where-sources "Choose directory for source code")
(set #sel-sources "Which files shall I install?")

(set #install-msg
	(cat "\n\nSystemReset install script.\n"
	   "This script will install SystemReset in your Amiga.\n\n"
		 "SystemReset\n"
		 "Copyright © 1999 Tomasz <Pony> Peczek\n"
		 "FreeWare\n\n"
	)
)

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

(if (< (/ (getversion) 65536) 37)
	(
    (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 "SYS:Tools")
							)
)

(set @default-dest destdir)

(complete 25)

(copyfiles
	(source "SystemResetEng")
	(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 "Docs/SystemResetEng.guide")
			(dest docdir)
			(infos)
			(noposition)
		)
	)
)

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

(complete 75)

(if (<> sources 0)
	(
		(set sourcesdir	(askdir
									(prompt #where-sources)
									(help @askdir-help)
									(default "DH1:Sources")
								)
		)
		(copyfiles
			(prompt #sel-sources)
			(help @copyfiles-help)
			(source "Sources")
			(dest sourcesdir)
			(noposition)
			(all)
			(confirm)
		)
	)
)

(complete 100)
(exit)