; $VER: 1.4 (23.05.2000)

(trace)
(trace)
(complete 0)
(set #mcxprefs(askdir(prompt "Select the location for MCXPrefs")
  (help "The preference program will be installed to this location.")
  (default "SYS:Prefs/")
  (back (retrace))
))

(trace)
(complete 10)
(set #online_language
  (askoptions
  (prompt ("Install which amigaguide sets?"))
  (help "Installation of the amigaguide set is recommended. The destination is the HELP assign, which is normally SYS:Locale/Help.")
  (choices "English guide" "Deutsch guide")
  (default 1)
  (back (retrace))
))

(trace)
(complete 20)
(set #catalog_language
  (askbool
  (prompt ("Install German catalog?"))
  (help "Installation of catalogs is optional. The destination is LOCALE:")
  (back (retrace))
))

(trace)
(complete 30)
(set #mcx(askfile(prompt "Select MultiCX")
  (help "MCXPrefs will be configured to use the file you select.")
  (default "SYS:WBStartup/MultiCX")
  (back (retrace))
))

(trace)
(complete 40)
(copylib
  (prompt ("Install WBStart-Handler?"))
  (help "WBStart-Handler must be installed.")
  (source ("L/WBStart-Handler"))
  (dest "L:")
  (confirm)
  (back (retrace))
)

(complete 50)

(copyfiles (source "MCXPrefs") (dest #mcxprefs) (infos) (nogauge))

(complete 70)

(tooltype (settooltype "MCX_LOCATION" #mcx) (dest (tackon #mcxprefs "MCXPrefs")))

(complete 80)

(if #catalog_language
((copyfiles (source "Locale/Catalogs/Deutsch/mcxprefs.catalog")
 (dest "LOCALE:Catalogs/Deutsch/") (nogauge))
))

(if (IN #online_language 0)
((copyfiles (source "Locale/Help/English/mcxprefs.guide")
 (dest "HELP:English/") (infos) (nogauge))
))

(if (IN #online_language 1)
((copyfiles (source "Locale/Help/Deutsch/mcxprefs.guide")
 (dest "HELP:deutsch/") (infos) (nogauge))
))

(complete 100)

(exit 'Installation complete!\n\nMCXPrefs Copyright © 1998-2000 Richard West and Daniel Pimley.\nAn application by Micro Design\n\nThis is a MUI application\nMUI Copyright © 1993-1997 Stefan Stuntz\n\nThe software is supplied "as is" and comes with absolutely no warranty either expressed or implied.' (quiet))