;AmiStart Install Script V0.59

(SET WelcomeToAmiStart "Welcome to the AmiStart installation...\nyou should first start AmiStart without installing it\nto see if you like it")
(SET newPrefs 0)
(SET newIcon 0)
(SET newGraphics 0)

(SET @default-dest "clips:")

(MESSAGE WelcomeToAmiStart)

(SET @default-dest
	(ASKDIR (PROMPT "Select a destination for the executable: \n(no drawer will be created)")
		(HELP "this is the path for the AmiStart executable, nolmaly SYS:WbStartup")
		(DEFAULT @default-dest)))

(SET destIcon (TACKON @default-dest "AmiStart.info"))

(COPYFILES (SOURCE "AmiStart") (DEST @default-dest))

(IF (EXISTS destIcon)
	(
		(IF (ASKBOOL
				(PROMPT "do you want to overwrite old AmiStart icon")
				(HELP "this could overwrite all TOOLTYPES, normaly "NO"")
			)
			(
				(SET newIcon 1)
				(COPYFILES
					(SOURCE "AmiStart.info")
					(DEST @DEFAULT-DEST)
				)
			)
		)
	)
	(
		(SET newIcon 1)
		(COPYFILES
			(SOURCE "AmiStart.info")
			(DEST @DEFAULT-DEST)
		)
	)
)

(SET @prefs-dest "")

(IF (> newIcon 0)
	(IF (ASKBOOL
			(PROMPT "do you want to install a default prefs file \n(notice: see HELP)")
			(HELP "you can use your old, but you must use one\nthis must be done by the first installation\nfurther installations have already configured prefs files")
		)
		(
			(SET @prefs-dest
				(ASKDIR
					(PROMPT "Select a destination for the (default) prefs file:\n(no drawer will be created)")
					(HELP "this ist the path for the AmiStart default prefs file, nolmaly SYS:WbStartup")
					(DEFAULT @default-dest)
				)
			)
			(COPYFILES (SOURCE "sm.prefs") (DEST @prefs-dest))
			(SET newPrefs 1)
		)
	)
)

(SET @icon-dest "")

(IF (ASKBOOL
		(PROMPT "do you want to install a default graphics package")
		(HELP "this are item-icons/logos for AmiStart, skip if you have already installed one package")
	)
	(
		(SET @icon-dest
			(ASKDIR
				(PROMPT "Select a destination for the graphical data:\n(two drawers named icons and textures will be created)")
				(HELP "this ist the path for the AmiStart icon files")
				(DEFAULT @default-dest)
			)
		)
		(SET IconDir (TACKON @icon-dest "icons"))
		(SET TextureDir (TACKON @icon-dest "textures"))
		(MAKEDIR IconDir)
		(MAKEDIR TextureDir)
		(COPYFILES (SOURCE "Icons") (DEST IconDir) (INFOS) (ALL))
		(COPYFILES (SOURCE "Textures") (DEST TextureDir) (ALL))
		(SET newGraphics 1)
	)
)


(SET ami_languages
(ASKOPTIONS (PROMPT "select additional catalog files for AmiStart (english is buildin)")
	(HELP "select additional languages for AmiStart...")
	(CHOICES "deutsch"
			 "greek")
	(DEFAULT 0)
))

(if (> ami_languages 0) (
   (set Cat_dir "locale:catalogs")
   (if (bitand ami_languages 1)         ((set lang "deutsch") (copyfiles (source (tackon "Catalogs" lang)) (choices "AmiStart.catalog") (dest (tackon Cat_dir lang)))))
   (if (bitand ami_languages 2)         ((set lang "greek") (copyfiles (source (tackon "Catalogs" lang)) (choices "AmiStart.catalog") (dest (tackon Cat_dir lang)))))
))


(SET @doc-dest "")

(IF (ASKBOOL
		(PROMPT "do you want to install the documentation")
		(HELP "")
	)
	(
		(SET @doc-dest
			(ASKDIR
				(PROMPT "Select a destination for the documentation:\n(no drawer will be created)")
				(HELP "")
				(DEFAULT @default-dest)
			)
		)
		(COPYFILES (SOURCE "AmiStart.guide") (DEST @doc-dest))
	)
)

(SET AmiIcon (TACKON @default-dest "AmiStart"))

(IF (> newIcon 0)
	(
		(IF (> newPrefs 0)
			(
				(SET AmiPrefs (TACKON @prefs-dest "sm.prefs"))
				(TOOLTYPE
					(DEST AmiIcon)
					(SETTOOLTYPE "PREFS" AmiPrefs)
				)
			)
		)

		(IF (> newGraphics 0)
			(
				(SET AmiStartIcon (TACKON IconDir "start"))
				(TOOLTYPE
					(DEST AmiIcon)
					(SETTOOLTYPE "STARTICON" AmiStartIcon)
					(SETTOOLTYPE "DATAPATH" @icon-dest)
				)
			)
		)

		(IF (ASKBOOL
				(PROMPT "do you want to make AmiStart invisible")
				(HELP "using this flag causes AmiStart to be invisible on the Workbench")
			)
			(
				(TOOLTYPE
					(DEST AmiIcon)
					(SETTOOLTYPE "SILENT" "")
				)
				(IF (ASKBOOL
						(PROMPT "do you want to make AmiStart to AutoPopup when\nmouse reaches leftmost bottom position")
						(HELP "using this flag causes AmiStart to visible when the mousepointer reaches the leftmost bottem position")
					)
					(TOOLTYPE
						(DEST AmiIcon)
						(SETTOOLTYPE "AUTOPOPUP" "")
					)
				)
			)
			(
				(IF (ASKBOOL
						(PROMPT "do you want to make AmiStarts starticon transparent (Warning: see HELP)")
						(HELP "this has some restrictions, see docs")
					)
					(TOOLTYPE
						(DEST AmiIcon)
						(SETTOOLTYPE "TRANSPARENT" "")
					)
				)

			)
		)
		(SET @hotkey
			(ASKSTRING
				(PROMPT "change the Hotkey to popup AmiStart")
				(HELP "pressing this hotkey popups/hides AmiStart\nfor example\nctrl p\nlalt ctrl a\nlamiga u")
				(DEFAULT "ctrl p")
			)
		)

		(SET jumpqualifier
			(ASKCHOICE (PROMPT "select a qualifier to jump multiple entries with the up/down keys")
				(HELP "pressing this key down while using the cursor up/down keys\njumps as many entrys as visible")
				(CHOICES	"left alt"
			 				"right alt"
			 				"left shift"
			 				"right shift"
			 				"control"
			 	)
				(DEFAULT 0)
			)
		)

		(if (= jumpqualifier 0) (SET @qualifier "lalt") )
		(if (= jumpqualifier 1) (SET @qualifier "ralt") )
		(if (= jumpqualifier 2) (SET @qualifier "lshift") )
		(if (= jumpqualifier 3) (SET @qualifier "rshift") )
		(if (= jumpqualifier 4) (SET @qualifier "ctrl") )


		(TOOLTYPE
			(DEST AmiIcon)
			(SETTOOLTYPE "CX_HOTKEY" @hotkey)
			(SETTOOLTYPE "JUMPQUALIFIER" @qualifier)
		)

		(IF (ASKBOOL
			(PROMPT "do you want to use the old fast scaling algorithm for small items (see HELP)")
			(HELP "fast scaling is a bit faster but the items are looking bad,\nfast scaling should be used on non true/hi color views")
			)

			(TOOLTYPE
				(DEST AmiIcon)
				(SETTOOLTYPE "FASTSCALE" "")
			)
		)

		(IF (ASKBOOL
			(PROMPT "do you want to use iconobject.library for loading icons (see HELP)")
			(HELP "the iconobject.library is a part from the Scalos package\nfor example you can use newicons without the newicon patch")
			)

			(TOOLTYPE
				(DEST AmiIcon)
				(SETTOOLTYPE "USEICONOBJECT" "")
			)
		)

		(IF (ASKBOOL
			(PROMPT "do you want to load icons late (see HELP)")
			(HELP "normaly AmiStart loads icons while bootup, using this flag icons will be loaded if you first open their window this allows AmiStart to boot faster and if not all Icons are used less memory is needed")
			)

			(TOOLTYPE
				(DEST AmiIcon)
				(SETTOOLTYPE "LATELOAD" "")
			)
		)

	)
)