; Install Genics Companion release 1, v1.1 update
; $VER:  Update_Companion v1.0

; Script by Ben Matthew 05-07-98

(message
	(cat
		"Welcome to the Photogenics Companion installation!\n\n"
		"This package has been produced to further your\n"
		"enjoyment of Photogenics 2 by making a few changes\n"
		"to your current setup.\n\n"
		
		"This update will install the Mask.gio on your system\n"
		"Please read help files / docs to understand what this\n"
		"does...\n"

	)
)

(message 
	(cat
		"Photogenics Companion Release 1 update for Photogenics II\n"
		"---------------------------------------------------------\n\n"
		"By Ben Matthew, 5th July 1998.\n\n"
		"All original copyrights are acknowledged\n\n"
		"Photogenics is Copyright © 1996-7 by Almathera and\n"
		"Paul Nolan.  All rights reserved\n\n"
		"This update is freely distributable but has been released\n"
		"under the genre of GuiltWare.  Please see help files\n"
	)
)
		
(set DestDir (askdir
	(prompt ("Where do you have Photogenics 2 installed?"))
	(default "Photogenics:")
	(help "Simply locate the folder on your hard disk where Genics II is")
))

(copyfiles
	(prompt "Copying New GIOS...")
	(source "Mask.gio")
	(dest (tackon DestDir "data/gio"))
	(newname "Mask.gio")
	(optional "nofail")
	(confirm)
	(help "None")
)

(copyfiles
	(prompt "Copying New Help files...")
	(source "fileformats_M.HTM")
	(dest (tackon DestDir "data/help"))
	(optional "nofail")
	(confirm)
	(help "None")
)

(copyfiles
	(prompt "Updating Old Help files...")
	(source "fileformats.HTM")
	(dest (tackon DestDir "data/help"))
	(optional "nofail")
	(confirm)
	(help "None")
)

(message 
	(cat
		"Companion update has now been successfully installed!\n\n"
		"Please read the updated help files for info\n"
		"on the changes\n\n"
		"Also check out the Companion web pages at:\n"
		"http://www.bmatthew.demon.co.uk/genics/\n"
		"email: ben@bmatthew.demon.co.uk\n"
	)
)