;script to install Ami-Back Tools

(complete 0)

;Get directory to install Ami-Back Tools in.
(set destdir 
	(askdir 
		(prompt "In which drawer should Ami-Back Tools be installed?") 
		(help @askdir-help)
		(default (tackon @default-dest "Tools"))
	)
)

(set vernum (getversion))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )

(complete 10)

;Determine system version and copy appropriate libraries.
(if (> ver 36)
	(
		(copylib 
			(source "Ami-Back Tools:Libs2.0/amigaguide.library")
			(dest "LIBS:")
		)
	)
	(
		(copylib 
			(source "Ami-Back Tools:Libs1.3/gadtools13.library")
			(dest "LIBS:")
		)
		(copylib 
			(source "Ami-Back Tools:Libs1.3/asl13.library")
			(dest "LIBS:")
		)
	)
)

(complete 30)

;Copy AmigaGuide files to destination.

(copyfiles
	(source "Ami-Back Tools:S/Ami-BackTools.guide")
	(dest "S:")
)

(complete 40)

;Copy program files to destination.
(copyfiles
	(source "Ami-Back Tools:ABTools")
	(dest destdir)
)

(copyfiles
	(source "Ami-Back Tools:ABTools.info")
	(dest destdir)
)

(copyfiles
	(source "Ami-Back Tools:Ami-SchedII")
	(dest destdir)
)

(copyfiles
	(source "Ami-Back Tools:Ami-SchedII.info")
	(dest destdir)
)

(complete 90)

;Personalize Ami-Back Tools

(run ('\"%s\"' "Ami-Back Tools:C/Person" )
	('\"%s\"'
		(tackon destdir "ABTools")
	)	

	('\"%s\"'
		(askstring 
			(prompt "What is your name?") 
			(help "You must enter your name or company name so that your copy of Ami-Back Tools can be personalized.")
		)
	)
	
	(askstring
		(prompt "What is your serial number?") 
		(help "You can find your serial number on the front of you Ami-Back Tools master disk.")
	)
	
	242512
)

;Correct @default-dest so that final information is correct.
(set @default-dest destdir)

(complete 100)

(exit)