;
; Installer Script for Tooltype Edit v1.1
; using Installer (C) by COMMODORE
;

(transcript "Installing Tooltype Edit v1.1")

(complete 0)

(message "\n\n\n\n\n\nThis program will install Tooltype Edit v1.1\nfor you, please follow the instructions.\nthank you for installing")

(set tool_dir
	(askdir
 		(prompt "Select Destination Directory")
			(help @askdir-help)
			(default 
				(expandpath"SYS:TOOLS")
			)
	)
)

(set cp 1)

(complete 25)

(if (>= (database "cpu") 68020)
	(
		(set advancedcpu TRUE)
		(set cp 0)
	)
	(
		(set advancedcpu FALSE)
	)
)

(message
	"\n\n\n\nHere you have to select the right Version\n"
	"for your CPU.\n"
	"If you  have an 68020+ select 68020+ !!!\n"
	" this version will run on 68030 and 68040 also"
	"else select the plain 68000 version of TT-Ed\n"
)

(set choice 1)
(if (AND (< 1 @user-level advancedcpu)
	(
		 (set choice (askchoice (prompt "Select CPU type") (help @askdir-help) (choices "68020+" "68000") (default cp))))
	)
)

(complete 50)

(if (= choice 0)
	(
		(set s_path	"TT-Ed.020")
	)
	(
		(set s_path	"TT-Ed.000")
	)	
)

(copyfiles	(source s_path)	(dest tool_dir) (infos))

(complete 75)

(set guide_dir
	(askdir
 		(prompt "Select Directory to copy the guidefile")
			(help @askdir-help)
			(default 
				(expandpath"HELP:")
			)
	)
)

(set guide_source "Guide/")
(copyfiles	(source guide_source)	(dest guide_dir) (infos) (all))

(message
	"\n\n\nThank you for installing TT-Ed v1.1\n\n"
	"TT-Ed v1.1 needs MUI v2.2++\n"
	"MUI Application is written by Stefan Stuntz\n"
	"TT-Ed v1.1 (c) 1995 by Bodo Hoffmann\n\n"
	"*** PUBLIC EVALUTION VERSION  ***\n"
	"AND REMEMBER\n"
	"A COOL PROGRAM IS WORTH TO BUY!\n"
)
(complete 100)