; **************************************************************************
; *****                                                                *****
; *****                   I N S T A L L - S C R I P T                  *****
; *****                                                                *****    
; **************************************************************************
; $Id: Install,v 38.15 1994/10/26 23:11:02 schneida Exp schneida $
; **************************************************************************

(transcript "Installing AddressAssist...")

; **************************************************************************
; **************************************************************************
; **************************************************************************

(set @default-dest "ram:")

(complete 10)

(set @default-dest
	(askdir (prompt "Select destination path for 'AddressAssist' drawer:" )
	(help "The Install-Program will create a directory called 'AddressAssist' into this destination directory and copy all necessary file to there.")
	(default @default-dest)
	)
)

(set @default-dest 
	( tackon @default-dest "AddressAssist" )
)

(message "Installing '" @app-name "' to\n\n'"@default-dest "'" )

(makedir @default-dest
	(infos)
	(safe)
)

(set progversion 
	(askchoice
	(prompt "Your system is running a " (database "cpu") " CPU.\n\n Which version of the program would you like to install ???" )
	(choices "Standard (running all CPU's)" "Turbo (optimized for 68020/030)" )
	(help "Select the correct program version, depending on your installed CPU. If you dont't know what type of CPU your machine has, install the standard version of the program,")
	(default 0)
	)
)	

(if ( = 0 progversion )
	(
		(set progname "AddressAssist")
		(message "Installing 'Standard' version of '" @app-name "'" )
	)
	( 	
		(set progname "AddressAssist_030")
		(message "Installing 'Turbo' version of '" @app-name "'" )
	)
)

; **************************************************************************
; **************************************************************************
; **************************************************************************

(complete 20)

(copyfiles 
	(source progname )
	(dest @default-dest)
	(newname "AddressAssist")
)

(copyfiles 
	(source "AddressAssist.info" )
	(dest @default-dest)
	(newname "AddressAssist.info")
)

(copyfiles
	(source "MUI" )
	(dest "env:mui" )
	(pattern "#?" )
	(nogauge)
)

(copyfiles
	(source "MUI" )
	(dest "envarc:mui" )
	(pattern "#?" )
	(nogauge)
)

(complete 60)

(if 	(askbool 
		(prompt "Would you like copy the english documentation files ???" )
		(help @askbool-help)
	)
	(
	(copyfiles 
		(source "Doc_English" )
		(dest (tackon @default-dest "Documentation" ))
		(pattern "#?")
		(infos)
	)
	)
)


(complete 80)

(if 	(askbool 
		(prompt "Would you like install the german catalog file ??? You need locale.library V38 and the logical assignment 'LOCALE:' for localisation to work." )
		(help @askbool-help)
	)
	(
	(copyfiles 
		(source "catalogs/deutsch/AddressAssist.catalog" )
		(dest "locale:catalogs/deutsch")
		(safe)
	)
	)
)

(complete 90)

(if 	(askbool 
		(prompt "Would you like copy an example database file ???" )
		(help @askbool-help)
	)
	(
	(copyfiles (
			(source "Addresses" )
			(dest @default-dest )
			(newname "Addresses" )
		)
	)
	(copyfiles (
			(source "AddressAssist.prefs" )
			(dest @default-dest )
			(newname "AddressAssist.prefs" )
		)
	)
	)
)

(complete 100)