; Install script for images for AmiComSys 1.25+
;
; $VER: AmiComSys-image-install 1.2 (01.01.2000) Håkan Parting

(set #selimages "Do you want to use the NewIcons graphics-buttons\nor the MagicWB-graphics-buttons?")
(set #selimageshelp "This version of AmiComSys have graphics here and there.\nDo you want MagicWB style graphics or the NewIcons one?\nIf you have installed a replacement graphics-set, you'd better\nspecify that. If not it would be overwritten.")


(message
 	"Welcome to the AmiComSys image installer!\n\n"
	"This will install one of the graphics sets.\n"
	"NOTE: The installer for AmiComSys does that\n"
	"automatically. But if you want to switch to\n"
	"another use this script.\n"
	"AmiComSys © Håkan Parting 1997-2000\n"
	"Requires:\n"
	"AmiComSys 1.25+ installed\n"
)

(message
	"\n\n\nPlease make sure that no session of AmiComSys\nis running before you proceed with this\ninstallation."
)

(set DefDir (getassign "AMICOMSYS"))
(if (= DefDir "") (set DefDir (getassign "MIAMI")) )
(if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
(if (= DefDir "") (set DefDir (getassign "Inet")) )

(set #target (askdir	(prompt "Please locate your AmiComSys directory.\nThis is the directory with the Images directory.")
	(help "")
	(default DefDir)
))

(set instdir #target)
(set @default-dest instdir)

(if (< (exists (tackon instdir "images")) 2) (makedir (tackon instdir "images")) )

; copy over files

(set imag (askchoice (choices "NewIcons (20 colours)" "MagicWB - Andreas Kuerzinger '00 (8 colours)" "MagicWB - Mads 'Yedo' Jensen '98 (8 colours)" "I've installed a replacement\ngfx-set. If so, make sure it's done for ACS 1.25+!")
					(prompt #selimages)
					(help #selimageshelp)
					(default 1)
))

(if (= imag 0) (copyfiles (source "NIImages") (dest (tackon instdir "Images")) (all)))
(if (= imag 1) (copyfiles (source "MWBImages") (dest (tackon instdir "Images")) (all)))
(if (= imag 2) (copyfiles (source "MWBImages2") (dest (tackon instdir "Images")) (all)))
(if (= imag 3) (message "Okey why did you run this script anyway :)"))