;Installer script for RIPcomm beta1
;
;This script assumes you have not installed it previousely?
;

;Ask where to install the program files.

(set name
	(askdir
		(prompt "Where should RIPcomm be installed?")
		(help @askdir-help)
		(default "SYS:")
		(disk)
	)
)

(set @default-dest name)
(set fontdir (cat name "/RIPFONTS"))
(set icondir (cat name "/RIPICONS"))

(makedir fontdir
	(prompt "Creating a directory for RIP fonts")
	(help @makedir-help)
	(infos)
)
(makedir icondir
	(prompt "Creating a directory for RIP icons")
	(help @makedir-help)
	(infos)
)

(copyfiles
	(prompt "Copying RIP fonts...")
	(source "rfonts")
	(dest fontdir)
	(all)
)

(copyfiles
	(prompt "Copying ICON files...")
	(source "ricons")
	(dest icondir)
	(all)
)

(copyfiles
	(prompt "Copying Amiga fonts...")
	(source "fonts")
	(dest "FONTS:")
	(all)
)

(copyfiles
	(prompt "Copying RIPcomm and documentation...")
	(source "")
	(dest name)
	(pattern "RIP#?")
)

(copylib
	(prompt "Copying XPRZmodem.library...")
	(help @copylib-help)
	(source "LIBS/xprzmodem.library")
	(dest "LIBS:")
	(confirm)
)