;
; Installer Script for Shoah Full Motion Video.
;
; Version	:	1.0
; Date		:	10 June 96
; Coded by 	:	Vex /SHOAH
;

; ****************
; Initialise
; ****************

(set NOWB (cat "\n\'Shoah Full Motion Video\'\nWorkbench 3.0 or greater"
		" is needed for this software to work properly. Your computer"
		" does not appear to meet this requirement.\n"
		" Are you sure you wish to continue?"
		)
	)
(set NOWB-HELP (cat "The SFMV Convertor, Script Generator and Animation Utility"
		" all need Workbench 3.0 or above to work. The SFMV Player"
		" needs an AGA machine. The system does not appear to be running"
		" Workbench 3.0, therefore these programs are unlikely to work"
		)
	)
(set INSTWHERE (cat "Where do you wish to install the SFMV?\n"
		"A new directory called \'SFMV\' will be created for you.") )

(set ABORTINSTALL (cat "Install aborted. Due to incorrect workbench version"))

; ****************
; Let's go to work...
; ****************

; Check if we've got the right Workbench version

(set OSVER ( / (getversion ) 65536 ) )

(if ( < OSVER 39)
	(if (NOT (askbool (prompt NOWB) (help NOWB-HELP) (default 0) (choices "Proceed" "Cancel") ) )
		(abort ABORTINSTALL)
	)
)

; Which directory
(set INSTDIR (askdir (prompt INSTWHERE) (help @askdir-help) (default @default-dest)))

; Create it
(makedir (set INSTDIR (tackon INSTDIR "SFMV") ) )

; Install dem files...
(copyfiles
	(prompt "Which parts of the SFMV software do you wish to install?")
	(help @copyfiles-help)
	(source "SFMV:")
	(dest INSTDIR)
	(choices	"Convertor"
			"Player"
			"ScriptGenerator"
			"AnimUtil"
			"Guides"
			"Examples"	)
	(confirm)
	(infos)
)

; Copy extra stuff
(if (exists (tackon INSTDIR "Convertor") (noreq))
	; Add Default icon
	(copyfiles
		(prompt "Copying default SFMV icon")
		(source "SFMV:Def_SFMV_Icon")
		(dest INSTDIR)
	)
)

(if (exists (tackon INSTDIR "Player") (noreq))
	; Add WBPlayer icon and script
	(copyfiles
		(prompt "Copying WBPlayer")
		(source "SFMV:")
		(pattern "WBPlayer#?")
		(dest INSTDIR)
	)
)

; All done...
(set @default-dest INSTDIR)
(exit)