;
;$VER: 1.0 SerialPrefs Installer (C) 1997 by Lorenzo Succi.
;

(welcome "Welcome to the SerialPrefs Installer v1.0")
(set @app-name "SPInstall")
(set #DESTDIR "SYS:Prefs")

(set #DESTLIB "Libs:")
(set #DEFICON 0)
(set #GETICON 0)
(set #DEFLIB 0)

(message "\nBenvenuto nel programma di installazione di SerialPrefs\n"
		 "(c) 1996-97 Lorenzo Succi.\n\n"
		 "Questo programma installa SerialPrefs\n"
		 "nel tuo computer.\n"
		 "SerialPrefs aumenta il controllo e la potenza\n"
		 "della tua porta seriale.\n"
		 "Leggi la documentazione per maggiori informazioni.\n\n"
)

(set #DESTDIR
	(askdir
		(prompt "Seleziona il cassetto dove desideri installare SerialPrefs\n"
		)
		(help @askdir-help)
		(default #DESTDIR)
	)
)
(set @default-dest #DESTDIR)

(set #GETICON
	(askchoice
		(prompt "Scegli un'icona per SerialPrefs.\n"
				
		)
		(help @askchoice-help)
		(choices "Normal"
			 "Magic Wb"
			 "Newicon"
		(default #DEFICON)
	)
)

)



(copyfiles
	(prompt "Copio la Gui.library")
	(help @copyfiles-help)
	(source "libs/Gui.library")
	(dest #DESTLIB)
	(noposition)
	(optional fail force)
)


(copyfiles
	(prompt "Copio SerialPrefs")
	(help @copyfiles-help)
	(source "bin/SerialPrefs")
	(dest #DESTDIR)
	(noposition)
	(optional fail force)
)



(if (= #GETICON 0)
(copyfiles
	(prompt "Copio l'icona tipo normale")
	(help @copyfiles-help)
	(source "icons/NN")
	(newname "SerialPrefs.info")
	(dest #DESTDIR)
	(noposition)
	(optional fail force)
)

endif)

(if (= #GETICON 1)
(copyfiles
	(prompt "Copio l'icona tipo MagicWb")
	(help @copyfiles-help)
	(source "icons/MWB")
	(newname "SerialPrefs.info")
	(dest #DESTDIR)
	(noposition)
	(optional fail force)
)

endif)

(if (= #GETICON 2)
(copyfiles
	(prompt "Copio l'icona tipo Newicon")
	(help @copyfiles-help)
	(source "icons/NI")
	(newname "SerialPrefs.info")
	(dest #DESTDIR)
	(noposition)
	(optional fail force)
)

endif)