; Install-SyX
;
; $VER: SyX-Install (19-01-97)
;
; (C) Copyright 1997 Thijs van der Vossen. All Rights Reserved.

(IF (= @LANGUAGE "english")
(
	(SET #bad-kick		"SyX requires Kickstart 2.04 or greater.")
	(SET #welcome-messy 	"\n\nWelcome to the installation of SyX,\nThe Amiga MIDI SysEx dump utility.")
	(SET #choose-dest	"Please choose a destination directory.\nA drawer called SyX will be created.")
	(SET #choose-dest-help	"Here you can choose the place on your harddisk, were SyX should be installed.")
	(SET #copy-files	"Copying program files...")
	(SET #copy-libs		"Copying req.library...")
	(SET #copy-help		"The respective files will copied to your harddisk.")
	(SET #exit-messy	"\n\nSyX is successfuly installed.\nPlease read the doc.\n")
))


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

(COMPLETE 0)
(MESSAGE #welcome-messy)

(SET @default-dest
	(ASKDIR
		(PROMPT #choose-dest)
		(HELP #choose-dest-help)
		(DEFAULT @default-dest)
	)
)

(COMPLETE 5)
(SET @default-dest (TACKON @default-dest "SyX"))
(SET syx-dest @default-dest)
(IF (= (EXISTS syx-dest) 0)
	(MAKEDIR syx-dest (INFOS))
)

(COMPLETE 10)
(COPYFILES
	(PROMPT #copy-files)
	(HELP #copy-help)
	(SOURCE "")
	(DEST syx-dest)
	(ALL)
)

(COMPLETE 50)
(COPYLIB
	(PROMPT #copy-libs)
	(HELP #copy-help)
	(SOURCE "libs/req.library")
	(DEST "LIBS:")
)

(COMPLETE 99)
(MESSAGE #exit-messy)
(COMPLETE 100)

(EXIT (QUIET))
