"This program installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool and MI will be copied to this drawer.")
(if (askbool (help "If you selected dansk as default language and install the files, MTool and MI will show up with a dansk user interface.") (prompt "Do you want to install the dansk locale files?"))
(
(copyfiles
(prompt "Installing Dansk Catalogs")
(source "Catalogs/dansk")
(pattern "#?")
(dest "Locale:Catalogs/dansk")
)
)
)
)
)
)
(if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
(
(copyfiles
(prompt "Copying helpfile:...")
(source "MI_GB.help")
(dest "ENVARC:")
(newname "MI.help")
)
)
)
(complete 70)
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MI.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs include two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs if you want to move them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools "About" requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't touch this default setting.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Copying fonts...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 1)
(
(message "\n HINWEIS ZUR INSTALLATION VON MTOOL:\n\n"
"Dieses Programm installiert MTool und MI auf Ihrem System. Sollten Sie eine der während der Installation auftretenden Fragen nicht verstehen, können Sie jederzeit 'Hilfe...' anwählen. Sie erhalten dann genaue Auskunft, was der nächste Arbeitsschritt macht und wozu er gut ist."
)
(set progdest
(askdir
(prompt "Bitte wählen Sie ein Verzeichnis für MTool aus.")
(help "In das gewählte Verzeichnis werden die Programme MTool und MI kopiert.")
(default "SYS:Tools")
(newpath)
)
)
(set @default-dest progdest)
(copyfiles
(prompt "Kopiere Hauptprogramm...")
(source "MTool")
(infos)
(dest progdest)
)
(complete 20)
(copyfiles
(prompt "Kopiere den Voreinstellungseditor zu MTool")
(if (askbool (help "Wenn Sie als Landessprache deutsch gewählt haben und diese Dateien installieren lassen, werden MTool und MI eine deutsche Benutzeroberfläche anzeigen.") (prompt "Soll die deutsche Sprachanpassung installiert werden?"))
(
(copyfiles
(prompt "Installiere deutsche Catalogs")
(source "Catalogs/deutsch")
(pattern "#?")
(dest "Locale:Catalogs/deutsch")
)
)
)
)
)
)
(if (askbool (help "Die Hilfsdatei bietet Ihnen eine deutschsprachige Hilfsfunktion in MI.") (prompt "Soll die Hilfsdatei zu MI kopiert werden?"))
(
(copyfiles
(prompt "Kopiere Hilfsdatei zu MI nach ENVARC:...")
(source "MI_D.help")
(dest "ENVARC:")
(newname "MI.help")
)
)
)
(complete 70)
(if (askbool (help "Die Icons werden von MTool benutzt, um Dateien gemäß ihrem Dateityp mit Icons versehen zu können. Diese Fähigkeit ist in der unregistrierten Version gesperrt.") (prompt "Sollen die Icons installiert werden?"))
(
(set icondest
(askdir
(prompt "Bitte wählen Sie ein Verzeichnis für die Icons aus.")
(help "Die mitgelieferte Voreinstellungsdatei erwartet die Icons im vorgegebenen Verzeichnis")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB ist eine Sammlung von Hintergrundgraphiken und Icons, die eine sehr schöne 8-farbige Workbench ergeben. Sie können dazu passende Icons installieren lassen") (prompt "Benutzen Sie 'MagicWB'?"))
(
(copyfiles
(prompt "Kopiere Icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MI.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Kopiere Icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "Die Anleitungen umfassen zwei AmigaGuide-Dokumente und eine Änderungsdatei.") (prompt "Sollen die Anleitungen kopiert werden?"))
(
(set docdest
(askdir
(prompt "Bitte wählen Sie ein Verzeichnis für die Anleitungen aus.")
(help "Es ist egal, wo Sie die Anleitungen hinstecken, Sie sollten Sie bloß wiederfinden...")
(default (tackon progdest "Anleitungen"))
(newpath)
)
)
(copyfiles
(prompt "Kopiere Anleitungen...")
(source "Docs")
(pattern "#?_D.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "Die Schrift DatMon ist im Hex-Modus von MI recht nützlich, Fineline 11 wird im Aboutrequester von MTool verwendet.") (prompt "Sollen die Schriften kopiert werden?"))
(
(set fontdest
(askdir
(prompt "Bitte wählen Sie ein Verzeichnis für die Schriften aus.")
(help "Wenn Sie kein Verzeichnis zum Fonts:-Verzeichnis zuge'add'et haben, sollten Sie die Einstellung bei Fonts: belassen.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Kopiere Zeichensätze...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 2)
(
(message "\n IMPORTANT NOTE:\n\n"
"This programm installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool and MI will be copied to this drawer.")
(if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
(
(copyfiles
(prompt "Copying helpfile:...")
(source "MI_GB.help")
(dest "ENVARC:")
(newname "MI.help")
)
)
)
(complete 70)
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MI.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs, if you manage to refind them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Copying fonts...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 3)
(
(message "\n IMPORTANT NOTE:\n\n"
"This programm installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool and MI will be copied to this drawer.")
(if (askbool (help "If you selected español as default language and install these files, MTool and MI will show up with a spanish user interface.") (prompt "Do you want to install the spanish locale files?"))
(
(copyfiles
(prompt "Installing Spanish Catalogs")
(source "Catalogs/español")
(pattern "#?")
(dest "Locale:Catalogs/español")
)
)
)
)
)
)
(if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
(
(copyfiles
(prompt "Copying helpfile:...")
(source "MI_GB.help")
(dest "ENVARC:")
(newname "MI.help")
)
)
)
(complete 70)
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MI.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs, if you manage to refind them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_E.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Copying fonts...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 4)
(
(message "\n IMPORTANT NOTE:\n\n"
"This programm installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool and MI will be copied to this drawer.")
(if (askbool (help "If you selected français as default language and install these files, MTool and MI will show up with a French user interface.") (prompt "Do you want to install the French locale files?"))
(
(copyfiles
(prompt "Installing French Catalogs")
(source "Catalogs/français")
(pattern "#?")
(dest "Locale:Catalogs/français")
)
)
)
)
)
)
(if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
(
(copyfiles
(prompt "Copying helpfile:...")
(source "MI_GB.help")
(dest "ENVARC:")
(newname "MI.help")
)
)
)
(complete 70)
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MI.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs, if you manage to refind them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
(default "Fonts:")
(newpath)
)
)
(copyfiles
(prompt "Copying fonts...")
(source "Fonts")
(dest fontdest)
(pattern "#?")
)
)
)
(complete 99)
)
)
(if (= locale 5)
(
(message "\n IMPORTANT NOTE:\n\n"
"This programm installs MTool and MI on your Amiga. If you don't understand one of the questions that show up during installation, please select the 'help...' button. You will be instructed then about the next step and what it's good for."
)
(set progdest
(askdir
(prompt "Please select a drawer for MTool.")
(help "MTool and MI will be copied to this drawer.")
(if (askbool (help "If you selected svenska as default language and install these files, MTool and MI will show up with a Swedish user interface.") (prompt "Do you want to install the Swedish locale files?"))
(
(copyfiles
(prompt "Installing Swedish Catalogs")
(source "Catalogs/svenska")
(pattern "#?")
(dest "Locale:Catalogs/svenska")
)
)
)
)
)
)
(if (askbool (help "The helpfile offers a help function while running MI.") (prompt "Do you want to install the helpfile for MI?"))
(
(copyfiles
(prompt "Copying helpfile:...")
(source "MI_S.help")
(dest "ENVARC:")
(newname "MI.help")
)
)
)
(complete 70)
(if (askbool (help "The icons will be used in MTool to create icons for files according to their type. This feature is disabled in the unregistered version.") (prompt "Do you want to install the icons?"))
(
(set icondest
(askdir
(prompt "Please select a drawer for the icons.")
(help "The example prefs file expects the icons in the default drawer.")
(default (tackon progdest "MToolIcons"))
(newpath)
)
)
(if (askbool (help "MagicWB is a collection of background patterns and icons, providing a very nice 8-coloured Workbench. You can install icons especially designed for MagicWB.") (prompt "Do you use 'MagicWB'?"))
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons/MWB")
(pattern "(~MT)#?.info")
(dest icondest)
)
(copyfiles
(source "MToolIcons/MWB/MTool.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MI.info")
(dest progdest)
)
(copyfiles
(source "MToolIcons/MWB/MTPrefs.info")
(dest "SYS:Prefs")
(newname "MTool.info")
)
)
(
(copyfiles
(prompt "Copying icons...")
(source "MToolIcons")
(pattern "#?.info")
(dest icondest)
)
)
)
)
)
(complete 80)
(if (askbool (help "The docs iclude two AmigaGuide documents and a history file.") (prompt "Do you want to install the docs?"))
(
(set docdest
(askdir
(prompt "Please select a drawer for the docs.")
(help "It doesn't matter where you put the docs, if you manage to refind them...")
(default (tackon progdest "Docs"))
(newpath)
)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_S.#?")
(infos)
(dest docdest)
)
(copyfiles
(prompt "Copying Docs...")
(source "Docs")
(pattern "#?_GB.#?")
(infos)
(dest docdest)
)
)
)
(complete 90)
(if (askbool (help "DatMon is useful in hex mode of MI, Fineline 11 is used in MTools about requester.") (prompt "Do you want to install the fonts?"))
(
(set fontdest
(askdir
(prompt "Please select a drawer for the fonts.")
(help "If you didn't 'assign add' another font drawer, you shouldn't tuch this default setting.")
