; Install-Script for Luminus 0.1


(complete 0)

(set @default-dest
	(askdir
		(prompt "In which directory would you like Luminus installed?")
		(help @askdir-help)
		(default @default-dest)
	)
)

(set @default-dest
	(tackon @default-dest "Luminus")
)

(set maindir @default-dest)

; determine cpu type
(set cpu
	(database "cpu")
)

(set defcpu
	(if (OR (= cpu "68000") (= cpu "68010"))
		(set defcpu 0)
		(if (= cpu "68020")
			(set defcpu 1)
			(if (= cpu "68030")
				(set defcpu 2)
				(if (= cpu "68040")
					(set defcpu 3)
				)
			)
		)
	)
)

(set luminver
	(askchoice
		(prompt "Which version of Luminus would you like installed?")
		(help @askchoice-help)
		(choices "68000" "68020" "68030" "68040")
		(default defcpu)
	)
)

(makedir @default-dest
	(infos)
)

(select luminver
	; 68000 version
	(copyfiles
		(help @copyfiles-help)
		(source "68000/Luminus")
		(dest maindir)
		(infos)
	)

	; 68020 version
	(copyfiles
		(help @copyfiles-help)
		(source "68020/Luminus020")
		(dest maindir)
		(newname "Luminus")
		(infos)
	)

	; 68030 version
	(copyfiles
		(help @copyfiles-help)
		(source "68030/Luminus030")
		(dest maindir)
		(newname "Luminus")
		(infos)
	)

	; 68040 version
	(copyfiles
		(help @copyfiles-help)
		(source "68040/Luminus040")
		(dest maindir)
		(newname "Luminus")
		(infos)
	)
)

(copyfiles
	(help @copyfiles-help)
	(source "Luminus.info")
	(dest maindir)
)

(complete 60)

(set dodocs
	(askbool
		(prompt "Do you want to install the documentation?")
		(help @askbool-help)
		(default 1)
	)
)

(if dodocs
	(
		(set docsdir
			(tackon @default-dest "Docs")
		)

		(makedir docsdir
			(infos)
		)

		(copyfiles
			(help @copyfiles-help)
			(source "Docs")
			(dest docsdir)
			(choices "Luminus.doc")
			(infos)
			(optional "nofail")
		)
	)
)

(complete 80)

; (set guidedir
;	(askdir
;		(prompt "In which directory would you like Luminus' AmigaGuide file?")
;		(help @askdir-help)
;		(default maindir)
;		(newpath)
;	)
; )

; (set guidedir (expandpath guidedir))

; create guidedir if it doesn't exist
; (if (NOT (exists guidedir))
;	(makedir guidedir
;		(infos)
;	)
; )

(copyfiles
	(help @copyfiles-help)
	(source "Docs")
	(dest maindir)
	(choices "Luminus.guide")
	(infos)
	(optional "nofail")
)

; .guide file uses AmigaGuide instead of MultiView for OS <= V38
(set ver (/ (getversion) 65536))

(if (> ver 38)
	(tooltype
		(dest (tackon maindir "Luminus.guide"))
		(setdefaulttool "MultiView")
	)
)

(run "c:avail flush")
(run "c:avail flush")

(complete 100)

(exit)

