;--------------------------------------------------------- ; $VER: FreshIconsV1.2 Installer Script 1. September 1996 ; by Christian Taulien of Strange Intelligence ; German Language ; Script-Version: 1.6 ; Copyright (C) 1996-1997 Strange Intelligence ; Last change: 31. März 1997 ; *** Achtung: Faltstart="/*S*/" und Faltende="/*E*/" *** ;--------------------------------------------------------- ;/*S*/ Bitmask-Definitions (set #bn_install_parts_icons 0) ;// Bitnumber 0 is set to TRUE for installing the icon-part (set #bn_install_parts_tools 1) ;// Bitnumber 1 is set to TRUE for installing the icon-tools (set #bn_install_parts_doc 2) ;// Bitnumber 2 is set to TRUE for installing the icon-docs (set #bn_install_parts_preview 3) ;// Bitnumber 3 is set to TRUE for installing the icon-preview (set #bn_install_parts_symbolpics 4) ;// Bitnumber 4 is set to TRUE for installing the icon-symbolpics (set #bn_install_parts_developer 5) ;// Bitnumber 5 is set to TRUE for installing the developer-informations (set #bn_install_icons_basics 0) ;// Bitnumber 0 is set to TRUE for installing the basics (set #bn_install_icons_packets 1) ;// Bitnumber 1 is set to TRUE for installing the icon-SW-Packets (set #bn_install_icons_templates 2) ;// Bitnumber 2 is set to TRUE for installing the templates (set #bn_install_icons_dockbrushes 3) ;// Bitnumber 3 is set to TRUE for installing the dockbrushes (set #bn_install_basics_drives 0) ;// Bitnumber 0 is set to TRUE for installing the drive-icons (set #bn_install_basics_drawers 1) ;// Bitnumber 1 is set to TRUE for installing the drawers-icons (set #bn_install_basics_tools 2) ;// Bitnumber 2 is set to TRUE for installing the tools-icons (set #bn_install_basics_projects 3) ;// Bitnumber 3 is set to TRUE for installing the project-icons (set #bn_install_packets_wb 0) ;// Bitnumber 0 is set to TRUE for installing the workbench-set (set #bn_install_packets_defaults 1) ;// Bitnumber 1 is set to TRUE for installing the defaults (set #bn_install_defaults_1 0) ;// Bitnumber 0 is set to TRUE for installing the default1 (set #bn_install_defaults_2 1) ;// Bitnumber 1 is set to TRUE for installing the default2 (set #bn_install_tools_FI 0) ;// Bitnumber 0 is set to TRUE for installing the FreshIconizer (set #bn_install_tools_CAFIC 1) ;// Bitnumber 1 is set to TRUE for installing the CAFIC (set #bn_install_tools_Magic2Fresh 2) ;// Bitnumber 2 is set to TRUE for installing the Magic_2_Fresh (set #bn_install_tools_DeInstaller 3) ;// Bitnumber 2 is set to TRUE for installing the DeInstaller (set #bn_install_docs_g 0) ;// Bitnumber 0 is set to TRUE for installing the german docs (set #bn_install_docs_e 1) ;// Bitnumber 1 is set to TRUE for installing the english docs ;/*E*/ ;/*S*/ Variable-declarations ;/*S*/ Flag-Variables (set #f_ReallyInstall 1) ;// get 1 if the user wants to really start the installation (set #f_InstallComplete 1) ;// 0 if userdefined installation (set #f_Backup 1) ;// 1 if a Backup shall be made ;/*E*/ ;/*S*/ BitMasks-Variables (set #b_parts 0) ;// which parts of the packet shall be installed (set #b_icons 0) ;// which icons-categories shall be installed (set #b_basics 0) ;// which icons of the base Icons shall be installed (set #b_packets 0) ;// which packets shall be installed (set #b_defaults 0) ;// which defaultset shall be installed (set #b_tools 0) ;// which tools shall be installed (set #b_docs 0) ;// which docs shall be installed (in which language) ;/*E*/ ;/*S*/ String-declarations ;// Drawer names (set #temp "") ; The path to the temporary directory (set #destination "SYS:System") ; Default-Destinationdirectory (set #backup_dest "SYS:System") ; Default-Backup-Destination-directory (set #unpackto "") ; where to unpack (set #subdest "/") ; path relative to destination (set #backupfile "") ; the file to backup ;/*E*/ ;/*E*/ ;--------------------------------------------------------- ;/*S*/ Subroutines ;/*S*/ UP: english-strings (procedure P_englishinstall ;/*S*/ Frage-Texts (set #ask_WhereToInstall "Where do you want FreshIconsV1.2.1 to be installed?\n(A Drawer named 'FreshIcons' will be created).") (set #ask_InstallMode "Do you want a complete or an userdefined installation?\nIf you choose to install the complete FreshIcons-package, the whole package will be installed without asking you which parts to install. If you want the userdefined installation, you are able to select exactly which parts to install.") (set #ask_ReallyInstall "All settings done.\nDo you want to install FreshIcons now?\nThe installation creates a FreshIcons-Drawer and copies the icons into it. No icon of other parts of your harddisk will be changed!!!"); (set #ask_parts "Which parts of the FreshIcons-package do you want to install?") (set #ask_icons "Which icon-categories shall be installed?") (set #ask_basics "Which icon-types do you want to install?") (set #ask_packets "For which software-packages do you want to install icons-installscripts?") (set #ask_tools "Which tools shall be installed?") (set #ask_defaultsets "Which of the default-iconssets do you want to install?") (set #ask_docs "For which languages do you want the documentations to be installed?") (set #ask_backup "To activate the FreshColors and so on, some changes in your system are to be made. Do you want to copy all changed files in a backup-directory before they are changed?") (set #ask_WhereToBackup "Specify the backup-drawer to copy all files to be changed to!\n(A seperate drawer will be created.)") (set #ask_Installer "Copying of the installer (version 43.3)") ;/*E*/ ;/*S*/ Hilfe-Texts (set #help_Requirements "FreshIcons is an Icon-package, similar to the MagicWB-Iconpackage, but with 16-Color icons\nFreshIcons are compatible to the MagicWB Version 2. FreshIcons is FreeWare!\n\nFreshIcons are © copyright 1995-1997 by \nAndre' Taulien\nMühlesteigstraße 40/1\n72458 Albstadt-Ebingen, Germany\nPhone: (049)-07431 / 2745 EMail: AndreTaulien@swol.de\n\nAll tools, including the installation-script written by:\nChristian Taulien\nDistelweg11\n89079 Ulm, Germany") (set #help_WhereTo "Here you shall specify, where to install the FreshIcons-Package FreshIcon-Paket. Select a directory where the FreshIcons-Drawer will be created.") (set #help_InstallMode "The complete installation is for the first FreshIcons-Installation at all. For updates or re-installation of special parts choose the userdefined installation mode.") (set #help_ReallyInstall "If you want to start with the installation itself, select \"Yes\", ohterwise press \"No\" and the installation ist stopped without any installation!"); (set #help_parts1 "FreshIcons-categories:\nWith that the Icons will be installed. You can specify later exactly, which of the iconsets shall be installed (z.B. whether iconsbase-set, the iconsets for defaulticons or so.).\n\nUseful tools:\nSome little tools to make it easier to install or update your icons or tools for setting the right colors. (Some of these tools need MUI3.3 or better)\n\n") (set #help_parts2 "Documentations:\nThe manuals for FreshIconsV1.2.1 in several languages.\n\nPreviewpicture:\nAn IFF-Picture that shows the FreshIcons in use on a Workbench with 16 Colors.\n\nSymbol-Examples:\nPictures with symbols for creating your own icons.\n\nDeveloper-informations:\nIf you write programs which work with or support the FreshPalette or scripts in which you want to know whether the FreshPalette is available/active, so these information will help you.") (set #help_icons1 "FreshIcons itself:\nThe icons get installed. You can specify with higher precision which icontypes are to be installed. (that means disk-, drawer-, tool- and/or projecticons).\n\nInstallscripts for known softwarepackages:\nPredefined icon-installations for choosen softwarepackages. With that it gets easy to update already installed software with FreshIcons.\n\n") (set #help_icons2 "FreshTemplates:\nIf you want to draw your own FreshIcons, you can use these icons as templates showing the base-design of all FreshIcons depending on the type they are of.\n\nFresh-Toolmanagerdockbrushes:\nFor the Toolmanager (short: TM) by Stefan Becker: with the so called Dockbrushes you can hold your dock in a Fresh-Style. For that, some Dockbrushes will be installed.\n") (set #help_basics "Disk-Icons:\nDo you want to install icons for example for harddisks or CD-ROM-drives so set this checkbox to ON.\n\nDrawer-Icons:\nIf you like to have drawer-icons too set this box to ON.\n\nTools & projects: see disks- and drawer-icons.") (set #help_packets "Workbench:\nThis iconset is for the automatic convertion of the standardicons of the Workbench.\n\nDefaulticonsets:\nDefault-iconssets will be installed, which are used by the Workbench automatically if a dataobject has no own icon and you selected the menu-item window/show all.\n") (set #help_defaultsets "Defaulticon-Set1 and 2:\nDefault-iconssets will be installed, which are used by the Workbench automatically if a dataobject has no own icon and you selected the menu-item window/show all.\n") (set #help_tools1 "FreshIconizer:\n(short: FI). This tool is for replacing old icons with a new one in a very convinient way. For example if you want to replace the icon of a textfile, you just drop the new icon over the source-box and drop the icon of the textfile over the destination-box. Now the old icons gets replaced. Which informations will be taken over, can be set up in a prefs-window/configfile. This tool needs MUI3.3 or better\n\n") (set #help_tools2 "CAFIC:\nThis Tool enables you to create your own icons. For that an other way is gone than an icon-editor goes. An IFF-picture is selected and loaded showing one or more icons and which was drawn with a paintprogram. Now you can cut a brush out of this picture. Then all you need then is to save the icon. This tool needs MUI3.3 or better.\n\n") (set #help_tools3 "Magic_2_Fresh:\nIn MagicWB Version 1 the icons were built up in a different way than in the second version. This leads to wrongcolored icons on a workbench with more than 8 colors (They look green in a 16-FreshColorsWB). With this tool you can convert these old icons in an easy way. After this they are simply MagicWB-2 icons. Also 8-Bitplane-MagicWB-Icons can be converted (on your command). This tool needs MUI3.3 or better\n\nThe DeInstaller-Script is for removing the FreshIconspackage from your system.\n") (set #help_docs "Select all the languages you want documentations for. This selection affects the docs of the tools too.") (set #help_backup "If you agree the backup, you will have the option to put the system in the original state by de-installing the FreshIcons.") (set #help_wheretobackup "Please specify here the drawer you want to use as backup-path. In this drawer NO extra drawer will be created!") (set #help_changeuserstartup "With this, two comment-lines and one command-line will be inserted into the user-startup.\nThe command-line calls the tool LockFreshPens out of the C: drawer. This tool takes care of setting the right colors on your Workbench everytime its screen is opened. The OpenWorkbench-function of the intuition-library will be patched to lock the needed pens (sharedlocked).") (set #help_installer "This version of the installer is at least required to install the software-package-icon-sets.") ;/*E*/ ;/*S*/ Fehler-Texts (set #err_wrongdest "You specified a wrong destination!\nFor this reason the installation gets aborted.") (set #err_notemploc "Couldn't find temp-drawer!") (set #err_notemp "Couldn't create temp-drawer!") (set #err_wronginstaller "Your installer-program is too old. At least version 43 is needed.\n\nIn the install-drawer of the FreshIcons this needed version is a copy of this.") ;/*E*/ ;/*S*/ Status-Texts (set #msg_CreatingDestDir "Creating FreshIcon-drawer...") (set #msg_copyicons "Copying an icon ...") (set #msg_copyfreshiconizer "Copying FreshIconizer...") (set #msg_copycafic "Copying CAFIC...") (set #msg_copym2f "Copying Magic_2_Fresh...") (set #msg_copydeinstaller "Copying DeInstaller...") (set #msg_copydoc_e "Copying english documentation...") (set #msg_copydoc_d "Copying german documentation...") (set #msg_copytool "Copying a tool...") (set #msg_copyconfig "Copying a config-file...") (set #msg_makebackup "Savin' file into backup-drawer") (set #msg_Requirements_1 "You are going to install FreshIconsV1.2.1.\n\n") (set #msg_Requirements_2 "The installation of the FreshIcons-Package will just be unpacked and the FreshColors will be 'mounted'. NO Icons will be modified! To make your WB-Icons appear in the FreshIcons-Look, run the Softwareset-") (set #msg_Requirements_3 "Installationscript in drawer: FreshIcons/Icons/Software-Sets/WB/ after successful and complete FreshIcons-Installation.") (set #msg_Requirements_4 "\n\nTo use FreshIcons in a sane manner the following requirements should be complied:\n\n1. Your Workbench should have at least 16 colors.\n") (set #msg_Requirements_5 "2. For the tools you need at least MUI3.3 or higher.\n\nDuring the installation 750KBytes of free RAM are needed.\nThe complete FreshIcons-Package needs a space of 3.2MBytes on your harddisk.") (set #msg_Requirements_1 (cat #msg_Requirements_1 #msg_Requirements_2 #msg_Requirements_3)) (set #msg_Requirements_2 (cat #msg_Requirements_4 #msg_Requirements_5)) (set #msg_do_basics_drives "Unpacking disk-icons...") (set #msg_do_basics_drawers "Unpacking drawer-icons...") (set #msg_do_basics_madifri "Creating drawers for the drawer-icons...") (set #msg_do_basics_tools "Unpacking tool-icons...") (set #msg_do_basics_projects "Unpacking project-Icons...") (set #msg_do_packets_wb "Unpacking Workbenchicons installpackages...") (set #msg_do_packets_defaults_1 "Unpacking defaulticons installpackage No. 1...") (set #msg_do_packets_defaults_2 "Unpacking defaulticons installpackage No. 2...") (set #msg_do_templates "Unpacking templates...") (set #msg_do_dockbrushes "Unpacking toolmanagersymbols...") (set #msg_do_tools_lha "Unpacking tools into the temporary drawer...") (set #msg_do_docs_lha "Unpacking documentations into the temporary drawer...") (set #msg_do_pics_lha "Unpacking examplepictures...") (set #msg_do_developer_lha "Unpacking developer-informations...") (set #msg_doingbackup "Creating backup...") (set #msg_installstop "The installation is stopped!") (set #msg_broken "The FreshIconsV1.2.1-installation is aborted!") (set #msg_changeuserstartup "Now the user-startup in your s: drawer will be changed.\nThis line will be inserted:\n\n\"run >nil: C:LockFreshPens quiet patch magic8 >nil:\"") (set #msg_readme "\n\nRemember, this installation-script just installed the package. Not even one icon outside the created drawer changed! To change your icons, either do it by hand, with the tools or use the installscripts of special software-packages placed in FreshIcons/Icons/Software-Sets/.") (set #msg_readme_0 "The installation is complete. FreshIcons V1.2.1 can be found in ") ;/*E*/ ;/*S*/ Gadget-Texts (set #gad_complete "Complete") (set #gad_userdefined "Userdefined") (set #gad_yes "Yes") (set #gad_no "No") (set #gad_icons "FreshIcons-categories") (set #gad_tools "Useful (almost needed) Tools") (set #gad_doc "Documentations") (set #gad_preview "Preview-Picture") (set #gad_symbolpics "Symbol-Examplepicture (for your own creations)") (set #gad_developerinfo "Developer-Informations") (set #gad_icons_basics "FreshIcons itself (Basics)") (set #gad_icons_packets "Install-Scripts for well known softwarepackages") (set #gad_icons_templates "FreshTemplates (Base for creating your own icons)") (set #gad_icons_dockbrushes "Fresh-Toolmanagersymbols") (set #gad_basics_disks "Disk-Icons") (set #gad_basics_drawers "Drawer-Icons") (set #gad_basics_tools "Tool-Icons") (set #gad_basics_projects "Project-Icons") (set #gad_packets_wb "Workbench-Installation") (set #gad_packets_defaults "Standard-Iconsets") (set #gad_default_1 "Standardicon-Set1 (colored Amiga Hook)") (set #gad_default_2 "Standardicon-Set2 (red Amiga-Rectangle)") (set #gad_tools_FI "FreshIconizer") (set #gad_tools_CAFIC "CAFIC") (set #gad_tools_Magic2Fresh "Magic_2_Fresh") (set #gad_tools_DeInstaller "DeInstaller") (set #gad_docs_g "German") (set #gad_docs_e "English") ;/*E*/ ) ;/*E*/ ;/*S*/ UP: german-string (procedure P_germaninstall ;/*S*/ Frage-Texts (set #ask_WhereToInstall "Wo soll FreshIconsV1.2.1 installiert werden?\n(Es wird ein Verzeichnis 'FreshIcons' erstellt).") (set #ask_InstallMode "Wünschen Sie eine komplette oder eine\nbenutzerdefinierte Installation?\nBei der kompletten Installation wird das gesamte FreshIcon-Paket installiert, während Sie bei der benutzerdefinierten Installation die Möglichkeit haben, genau zu bestimmen welche Teile des Paketes Sie installieren möchten.") (set #ask_ReallyInstall "Alle Einstellungen für die Installation wurden getroffen.\n\nWollen Sie FreshIcons nun installieren?\n\nBei dieser Installation wird ein neues Verzeichnis angelegt und das entpackte FreshIconsV1.2.1 hinein kopiert. Kein bereits bestehendes Icon wird überschrieben!!!"); (set #ask_parts "Welche Teile des FreshIcons-Paketes sollen installiert werden?") (set #ask_icons "Welche Icon-Kategorien sollen installiert werden?") (set #ask_basics "Welche Icon-Typen sollen installiert werden?") (set #ask_packets "Für welche Softwarepakete sollen Icons-Installskripts installiert werden?") (set #ask_tools "Welche Tools sollen installiert werden?") (set #ask_defaultsets "Welche der Standardiconssets soll installiert werden?") (set #ask_docs "In welchen Sprachen sollen die Anleitungen installiert werden?") (set #ask_backup "Zum Aktivieren der FreshFarben usw. sind einige Änderungen am System nötig. Möchten Sie, daß alle veränderten Dateien in einem BackUp-Verzeichnis gespeichert werden?") (set #ask_WhereToBackup "Wo sollen die zu sichernden Daten gespeichert werden?\n(Dort wird ein extra Verzeichnis angelegt.)") (set #ask_Installer "Kopieren des Installers in der Version 43.3") ;/*E*/ ;/*S*/ Hilfe-Texts (set #help_Requirements "FreshIcons ist ein Icon-Paket, ähnlich dem MagicWB-Iconpaket nur mit 16-farbigen Icons\nFreshIcons sind kompatibel zu MagicWB Version 2. FreshIcons ist FreeWare!\n\nFreshIcons sind ©copyright 1995-1997 by:\nAndre' Taulien\nMühlesteigstraße 40/1\n72458 Albstadt-Ebingen\nTelefon: 07431 / 2745 EMail: AndreTaulien@swol.de\n\nSämtliche Programme sowie das Installationsskript wurden geschrieben von:\nChristian Taulien\nDisterweg 11\n89079 Ulm") (set #help_WhereTo "Hier sollen Sie angeben, wohin das FreshIcon-Paket installiert werden soll. Dazu geben Sie ein Verzeichnis an, in dem dann die FreshIcons-Schublade erzeugt wird.") (set #help_InstallMode "Die komplette Installation empfiehlt sich bei einer ersten Installation des FreshIcons-Paketes. Wenn Sie bestimmte Teile nocheinmal installieren möchten, so wählen Sie die benutzerdefinierte Installation") (set #help_ReallyInstall "Wenn Sie nun mit der eigentlichen Installation beginnen wollen, so wählen Sie Ja. Wollen Sie die Installation hier beenden ohne die FreshIcons zu installieren, so wählen Sie Nein!"); (set #help_parts1 "FreshIcons-Kategorieen:\nHiermit werden die Icons installiert. Sie können noch genauer spezifizieren, welche Iconssätze genau Installiert werden sollen (z.B. ob Iconsbasis-Satz, die Iconsätze für Standardicons usw.).\n\nNützliche Hilfsprogramme:\nKleine Programme die das Installieren bzw. Updaten der Icons erleichtern sollen oder das Setzen der FreshFarben übernehmen. (Einige dieser Programme benötigen MUI 3.3)\n\n") (set #help_parts2 "Dokumentationen:\nDie Anleitungen für FreshIconsV1.2.1 in verschiedenen Sprachen.\n\nVorschaubild:\nEin IFF-Bild das die FreshIcons im Einsatz auf der Workbench mit 16 Farben zeigt\n\nSymbol-Beispiele:\nBilder mit Symbolen zum Erstellen von eigenen Icons\n\nEntwickler-Informationen:\nWenn Sie Programme schreiben, in denen sie mit der FreshPalette arbeiten möchten oder Skripts schreiben, in denen Sie wissen wollen ob die FreshFarben vorhanden sind, so werden Ihnen diese Informationen helfen.") (set #help_icons1 "FreshIcons an sich:\nEs werden die eigentlichen Icons installiert. Sie können noch genauer angeben welche Icontypen installiert werden sollen. (D.h. Disketten-, Verzeichnis-, Werkzeug- und/oder Projekticons).\n\nInstall-Scripts für bekannte Software-Pakete:\nVordefinierte Icon-Installationen für ausgewählte Softwarepakete. Damit wird es einfach bereits installierte Programmpakete mit FreshIcons zu versehen.\n\n") (set #help_icons2 "FreshTemplates:\nWenn Sie selber Icons zeichnen möchten, können Sie diese Icons als Vorlagen verwenden, denn diese Icons zeigen das Grunddesign der verschiedenen Icontypen.\n\nFresh-Toolmanagersymbole:\nFür den Toolmanager (kurz: TM) von Stefan Becker: mit den sogenannten Dockbrushes können Sie Ihre TM-Docks im FreshIcons-Stil halten. Es werden dafür Symbole installiert.\n") (set #help_basics "Datenträger-Icons:\nWollen Sie Laufwerksicons z.B. für Festplatten oder CD-ROMs installieren, so haken Sie das entsprechende Kästchen ab\n\nVerzeichnis-Icons:\nMöchten Sie auch die Verzeichnis- bzw. Schubladen-Icons installieren so haken Sie entsprechend ab.\n\nTools & Projekte: siehe Laufwerks- und Schubladen-Icons.") (set #help_packets "Hierbei handelt es sich um Installationsskripte mit denen die Icons von Softwarepaketen durch FreshIcons erstetzt werden können.\n\nWorkbench:\nDieses Iconset ist zum automatischen Umwandeln der Standard-Workbenchicons.\n\nStandardiconsets:\nEs werden Standard-Iconssets installiert, die von der Workbench automatisch verwendet werden, wenn ein Datenobjekt, wie eine Datei oder ein Verzeichnis, kein eigenes Icon besitzt.\n") (set #help_defaultsets "Standardicon-Set1 und 2:\nEs werden Standard-Icons installiert, die von der Workbench automatisch verwendet werden, wenn ein Datenobjekt, wie eine Datei oder ein Verzeichnis, kein eigenes Icon besitzt.\n") (set #help_tools1 "FreshIconizer:\n(kurz: FI). Dieses Programm dient dem Ersetzen eines Icons durch ein anderes. Z.B. möchte man das Icons einer Textdatei ersetzen, so läßt man das neue Icon auf die dafür vorgesehene Quellbox fallen und danach das Icon der Textdatei auf die Zielbox. Nun wird das alte Icon ersetzt. Welche Eigenschaften genau übernommen werden, kann über ein Einstellfenster/Konfigdatei festgelegt werden. Dieses Programm benötigt MUI3.3 oder besser\n\n") (set #help_tools2 "CAFIC:\nDieses Programm dient dem Erstellen von Icons. Dabei wird von einem anderen Ansatz herangegangen als bei einem Iconeditor. Es wird ein IFF-Bild eingelesen auf dem (auch mehrere) Icons z.B. mit einem Malprogramm gezeichnet wurden. Nun kann man mit einer Ausschneide-Funktion den gewünschten Bildschirmausschnitt wählen. Nun braucht man nur noch das neue Icon abspeichern. Dieses Programm benötigt MUI3.3 oder besser.\n\n") (set #help_tools3 "Magic_2_Fresh:\nUnter MagicWB Version 1 waren die Icons anders aufgebaut als unter der aktuellen Version 2. Dies hat zur Folge, das diese MWB-1-Icons unter den 16 Farben der FreshIcons grün aussehen. Mit diesem Programm kann man diese Icons umwandeln. Danach sind es praktisch MagicWB-2 Icons. Auch 8-Bitplane-MagicWB-Icons können auf Wunsch umgewandelt werden.\n\nMit dem DeInstaller können sie das FreshIcons-Paket wieder von Ihrem System entfernen.") (set #help_docs "Wählen Sie hier die Sprachen an, für die die Anleitungen installiert werden sollen. Diese Auswahl hat auch Auswirkungen auf die Anleitungen der Tools.") (set #help_backup "Wenn Sie dem Backup zustimmen, haben Sie die Möglichkeit, das System in den ursprünglichen Zustand zu bringen, indem Sie die FreshIcons wieder De-Installieren.") (set #help_wheretobackup "Geben Sie hier bitte das Verzeichnis an, in welches alle Sicherheitskopieen von Dateien und Verzeichnissen getan werden sollen. In diesem Verzeichnis wird ein extra Verzeichnis angelegt!") (set #help_changeuserstartup "Hierbei werden zwei Kommentarzeilen und eine Befehlszeile eingefügt.\nDie Befehlszeile ruft das Programm lockfreshpens aus dem C: Verzeichnis auf. Dieses Programm sorgt dafür, daß die Farben auf der Workbench richtig gesetzt sind. Dabei wird die OpenWorkbench-Funktion der intuition-library gepatcht, die die richtigen Pens (shared-)lockt.") (set #help_installer "Der Installer in der Version 43.3 wird für die Software-Install-Sets benötigt.") ;/*E*/ ;/*S*/ Fehler-Texts (set #err_wrongdest "Sie haben ein falsches Ziel angegeben!\nDie Installation wird deshalb abgebrochen.") (set #err_notemploc "Konnte temporäres Verzeichnis nicht lokalisieren!") (set #err_notemp "Konnte temporäres Verzeichnis nicht erstellen!") (set #err_wronginstaller "Ihr Installer-Programm ist zu alt. Es wird mindestens Version 43 benötigt.\n\nIm Install-Verzeichnis von FreshIcons ist diese Version enthalten.") ;/*E*/ ;/*S*/ Status-Texts (set #msg_CreatingDestDir "Erzeuge FreshIcon-Schublade...") (set #msg_copyicons "Ein Icon wird kopiert...") (set #msg_copyfreshiconizer "Kopiere FreshIconizer...") (set #msg_copycafic "Kopiere CAFIC...") (set #msg_copym2f "Kopiere Magic_2_Fresh...") (set #msg_copydeinstaller "Kopiere DeInstaller...") (set #msg_copydoc_e "Kopiere englische Anleitung...") (set #msg_copydoc_d "Kopiere deutsche Anleitung...") (set #msg_copytool "Kopiere ein Tool...") (set #msg_copyconfig "Kopiere eine Konfigurationsdatei...") (set #msg_makebackup "Sichere Datei in das Backup-Verzeichnis") (set #msg_Requirements_1 "Sie sind im Begriff FreshIconsV1.2.1 zu installieren.\n\nBei der Installation wird das FreshIcons-Paket nur entpackt und die ") (set #msg_Requirements_2 "FreshFarben angemeldet. Kein Icon wird hiermit modifiziert. Wollen Sie die Workbench nach erfolgter Installation mit FreshIcons versehen, starten ") (set #msg_Requirements_3 "Sie den Software-Set-Installationsskript im Verzeichnis FreshIcons/Icons/Software-Sets/WB/ des installierten FreshIcons-Verzeichnisses. ") (set #msg_Requirements_4 "\nUm FreshIcons sinnvoll nutzen zu können, sind folgende Mindestanforderungen zu erfüllen:\n\n1. Ihre Workbench sollte mindestens 16 Farben haben.\n") (set #msg_Requirements_5 "2. Für die Hilfsprogramme wird MUI3.3 oder besser benötigt.\n\nWährend der Installation werden 750Kb freier Arbeitspeicher benötigt.\nDas komplette FreshIcons-Paket benötigt 3,2MB auf der Festplatte.") (set #msg_Requirements_1 (cat #msg_Requirements_1 #msg_Requirements_2 #msg_Requirements_3)) (set #msg_Requirements_2 (cat #msg_Requirements_4 #msg_Requirements_5)) (set #msg_do_basics_drives "Entpacke Laufwerks-Icons...") (set #msg_do_basics_drawers "Entpacke Verzeichnis-Icons...") (set #msg_do_basics_madifri "Erzeuge Verzeichnisse für die Verzeichnis-Icons...") (set #msg_do_basics_tools "Entpacke Programm-Icons...") (set #msg_do_basics_projects "Entpacke Projekt-Icons...") (set #msg_do_packets_wb "Entpacke WorkbenchIcons-Installpaket...") (set #msg_do_packets_defaults_1 "Entpacke Defaulticons-Installpaket Nr. 1...") (set #msg_do_packets_defaults_2 "Entpacke Defaulticons-Installpaket Nr. 2...") (set #msg_do_templates "Entpacke Templates...") (set #msg_do_dockbrushes "Entpacke Toolmanagersymbole...") (set #msg_do_tools_lha "Entpacke Hilfsprogramme ins temporäre Verzeichnis...") (set #msg_do_docs_lha "Entpacke Anleitungen ins temporäre Verzeichnis...") (set #msg_do_pics_lha "Entpacke Beispiel-Symbolbilder...") (set #msg_do_developer_lha "Entpacke Entwickler-Informationen...") (set #msg_doingbackup "Erstelle Backup") (set #msg_installstop "Die Installation ist abgebrochen worden.") (set #msg_broken "Die FreshIconsV1.2.1-Installation wurde abgebrochen.") (set #msg_changeuserstartup "Jetzt wird die User-Startup geändert.\nEs wird folgendes eingefügt:\n\n\"run >nil: C:LockFreshPens quiet patch magic8 >nil:\"") (set #msg_readme "\n\nBitte beachten Sie, daß dieses Installationsskript nur das Paket selbst installierte. Kein einziges Icon außerhalb des erzeugten Verzeichnisses wurde geändert. Um Ihre Icons in FreshIcons umzuwandeln, ersetzen Sie diese per Hand, benutzen die mitgelieferten Tools oder verwenden die speziellen Installationsskripte für Softwarepakete aus dem Verzeichnis FreshIcons/Icons/Software-Sets/") (set #msg_readme_0 "Die Installation ist abgeschlosssen. FreshIcons V1.2.1 finden sie in ") ;/*E*/ ;/*S*/ Gadget-Texts (set #gad_complete "Komplett") (set #gad_userdefined "Benutzerdefiniert") (set #gad_yes "Ja") (set #gad_no "Nein") (set #gad_icons "FreshIcons-Kategorieen") (set #gad_tools "Nützliche Hilfsprogramme") (set #gad_doc "Dokumentationen") (set #gad_preview "Vorschaubild") (set #gad_symbolpics "Symbol-Beispielbilder (zum Selbstkreieren)") (set #gad_developerinfo "Entwickler-Informationen") (set #gad_icons_basics "FreshIcons an sich (Basics)") (set #gad_icons_packets "Install-Scripts für bekannte Software-Pakete") (set #gad_icons_templates "FreshTemplates (zum Erstellen eigener Icons)") (set #gad_icons_dockbrushes "Fresh-Toolmanagersymbole") (set #gad_basics_disks "Datenträger-Icons") (set #gad_basics_drawers "Verzeichnis-Icons") (set #gad_basics_tools "Programm-Icons") (set #gad_basics_projects "Projekt-Icons") (set #gad_packets_wb "Workbench-Installation") (set #gad_packets_defaults "Standard-Iconssets") (set #gad_default_1 "Standardicon-Set1 (bunter Amiga Haken)") (set #gad_default_2 "Standardicon-Set2 (rotes Amiga Viereck)") (set #gad_tools_FI "FreshIconizer") (set #gad_tools_CAFIC "CAFIC") (set #gad_tools_Magic2Fresh "Magic_2_Fresh") (set #gad_tools_DeInstaller "DeInstaller") (set #gad_docs_g "Deutsch") (set #gad_docs_e "Englisch") ;/*E*/ ) ;/*E*/ ;/*S*/ UP: Find path to a temporary directory (procedure P_maketemp (if (<> (exists ("T:") (noreq)) 2) ;// then (if (<> (exists ("Ram:T")) 2) ( (makedir ("ram:t")) (if (<> (exists ("ram:t")) 2) (message #err_notemploc) (set #temp "ram:") ) ) (set #temp "ram:t") ;// else "ram:t" exists ) ;// else (set #temp "T:") ;// else "T:" exists ) (set #temp (tackon #temp "freshicons_temp/")) (makedir #temp) (if (<> (exists #temp) 2) (abort #err_notemp) ) (set #backup_dest "SYS:Storage") ; Default-Backup-Destination-directory (set #unpackto #temp) ; where to unpack (trap 255 P_CleanUp) ) ;/*E*/ ;/*S*/ UP: Empties the temp-directory (procedure P_cleartemp (run (cat "delete " "force " "all " "quiet " (tackon #temp "#?")) ) ) ;/*E*/ ;/*S*/ UP: Deletes the temp-directory (procedure P_deletetemp (run (cat "delete " "force " "all " "quiet " #temp) ) ) ;/*E*/ ;/*S*/ UP: CleansUp the temp-directory (procedure P_CleanUp ( (P_cleartemp) (P_deletetemp) ) ) ;/*E*/ ;/*S*/ UP: Asks for the destination-directory (procedure P_GetDestDir (set #destination (askdir (prompt #ask_WhereToInstall) (help #help_whereto) (default #destination) ) ) (if (<> (exists (#destination)) 2) (abort #err_wrongdest) ) ) ;/*E*/ ;/*S*/ UP: Asks for the name of the backup-path (PROCEDURE P_AskBackUp (IF (ASKBOOL (PROMPT #ask_backup) (CHOICES #gad_yes #gad_no) (HELP #help_backup) ) ;//then (SET #f_Backup 1) ;//else (SET #f_Backup 0) ) (IF (= 1 #f_Backup) ;// then ( (SET #backup_dest (askdir (prompt #ask_WhereToBackup) (help #help_wheretobackup) (default #backup_dest) ) ) (set #backup_dest (tackon #backup_dest "FreshIcons_Baks")) ;// hänge den namen des Software-paketes an (makedir #backup_dest) ;// Erzeuge entsprechendes Verzeichnis ) ) ) ;/*E*/ ;/*S*/ UP: Does the Backup of a given file (PROCEDURE P_DoBackup (if (= (exists #backupfile (noreq) ) 1) ;// test wheter the source exists ;// if it exists ( (COPYFILES ;// copying the source to the backup-drawer (PROMPT #msg_makebackup) (SOURCE #backupfile) (DEST #backup_dest) ) ) ) ) ;/*E*/ ;/*S*/ UP: Unpack-LHA (procedure P_unpack ;// wenn in das hauptverzeichnis entpacken (if (= #subdest "/") ;// then (set #unpackto (cat #destination "/")) ;// else (set #unpackto (tackon #destination #subdest)) ) (run (cat "lhex -w="(' "%s"' #unpackto) " x " (tackon "archives" #archive) ) ) ) ;/*E*/ ;/*S*/ UP: Does the Basics-Installation (PROCEDURE P_DoBasics (IF (IN #b_icons #bn_install_icons_basics) ;// if basics shall be installed (IF (<> #b_basics 0) ;// if anything of the basics drawer is to be installed ;// then ( (MAKEDIR (TACKON #destination "Icons/Basics")) (COPYFILES (PROMPT #msg_copyicon) (SOURCE "archives/Icons/Basics.info") (DEST (TACKON #destination "Icons")) ) (IF (IN #b_basics #bn_install_basics_drives) ;// if drives shall be installed ;// then ( (WORKING #msg_do_basics_drives) (set #archive "Icons/Basics/Drives.lha") (set #subdest "Icons/Basics/") (P_unpack) ) ) (IF (IN #b_basics #bn_install_basics_drawers) ;// if drawers shall be installed ;// then ( (WORKING #msg_do_basics_drawers) (set #archive "Icons/Basics/Drawers.lha") (set #subdest "Icons/Basics/") (P_unpack) (WORKING #msg_do_basics_madifri) (run (cat "archives/installtools/MakeDirsFromIcons \"" (tackon #destination "Icons/Basics/Drawers") "\"") ) ) ) (COMPLETE 55) (IF (IN #b_basics #bn_install_basics_tools) ;// if tools shall be installed ;// then ( (WORKING #msg_do_basics_tools) (set #archive "Icons/Basics/Tools.lha") (set #subdest "Icons/Basics/") (P_unpack) ) ) (IF (IN #b_basics #bn_install_basics_projects) ;// if project shall be installed ;// then ( (WORKING #msg_do_basics_projects) (set #archive "Icons/Basics/Projects.lha") (set #subdest "Icons/Basics/") (P_unpack) ) ) ) ) ) ) ;/*E*/ ;/*S*/ UP: Does the Packet-Installation (PROCEDURE P_DoPackets (IF (IN #b_icons #bn_install_icons_packets) ;// if packets shall be installed (IF (<> #b_packets 0) ;// if anything of the packets drawer is to be installed ;// then ( (MAKEDIR (TACKON #destination "Icons/Software-Sets")) (COPYFILES (PROMPT #msg_copyicon) (SOURCE "archives/Icons/Software-Sets.info") (DEST (TACKON #destination "Icons")) ) (IF (IN #b_packets #bn_install_packets_wb) ;// if default-sets shall be installed ;// then ( (WORKING #msg_do_packets_wb) (SET #archive "Icons/Software-Sets/wb.lha") (SET #subdest "Icons/Software-Sets/") (P_unpack) ) ) (COMPLETE 57) (IF (IN #b_packets #bn_install_packets_defaults) ;// if default-sets shall be installed ;// then ( (IF (<> #b_defaults 0) ;// if anything of the defaultsets-drawer shall be installed ;// then ( (MAKEDIR (TACKON #destination "Icons/Software-Sets/DefaultSets")) (COPYFILES (PROMPT #msg_copyicon) (SOURCE "archives/Icons/Software-Sets/DefaultSets.info") (DEST (TACKON #destination "Icons/Software-Sets")) ) ;// if installing the defset no. 1 (IF (IN #b_defaults #bn_install_defaults_1) ;// then ( (WORKING #msg_do_packets_defaults_1) (SET #archive "Icons/Software-Sets/DefaultSets/default1.lha") (SET #subdest "Icons/Software-Sets/DefaultSets/") (P_unpack) ) ) ;// if installing the defset no. 2 (IF (IN #b_defaults #bn_install_defaults_2) ;// then ( (WORKING #msg_do_packets_defaults_2) (SET #archive "Icons/Software-Sets/DefaultSets/default2.lha") (SEt #subdest "Icons/Software-Sets/DefaultSets/") (P_unpack) ) ) ) ) ) ) ) ) ) ) ;/*E*/ ;/*S*/ UP: Does the Templates-Installation (PROCEDURE P_DoTemplates (IF (IN #b_icons #bn_install_icons_templates) ;// if templates shall be installed ;// then ( (WORKING #msg_do_templates) (SET #archive "Icons/Templates.lha") (SET #subdest "Icons/") (P_unpack) ) ) ) ;/*E*/ ;/*S*/ UP: Does the Toolmanagersymbol-Installation (PROCEDURE P_DoDockbrushes (IF (IN #b_icons #bn_install_icons_dockbrushes) ;// if dockbrushes shall be installed ;// then ( (WORKING #msg_do_dockbrushes) (SET #archive "Icons/Dockbrushes.lha") (SET #subdest "Icons/") (P_unpack) ) ) ) ;/*E*/ ;/*S*/ UP: Does the Tools-Installation (PROCEDURE P_DoTools (WORKING #msg_do_tools_lha) (SET #archive "Tools.lha") ;// First unpack the whole tools.lha (SET #subdest #temp) (P_unpack) (COMPLETE 61) (MAKEDIR (TACKON #destination "Tools")) ;// Create Tools drawer (COPYFILES ;// Copy Tools.info (PROMPT #msg_copyicon) (SOURCE (TACKON #temp "Tools.info")) (DEST #destination) ) (COPYFILES ;// Copy FreshIconizer.info (PROMPT #msg_copytool) (SOURCE (TACKON #temp "Tools/FreshFarben16")) (DEST (TACKON #destination "Tools")) (INFOS) ) (COPYFILES ;// Copy FreshIconizer.info (PROMPT #msg_copytool) (SOURCE (TACKON #temp "Tools/FixRamDiskIcon.bat")) (DEST (TACKON #destination "Tools")) (INFOS) ) (IF (IN #b_tools #bn_install_tools_DeInstaller) ;// then ( ;// the icon for the english-deinstaller (COPYFILES ;// copy the english-deinstaller-icon (PROMPT #msg_copytool) (SOURCE (TACKON #temp "Tools/DeInstall_FreshIcons_E.info")) (DEST (TACKON #destination "Tools")) ) ;// the icon for the german-deinstaller (COPYFILES ;// Copy the german-deinstaller-icon (PROMPT #msg_copytool) (SOURCE (TACKON #temp "Tools/DeInstall_FreshIcons_G.info")) (DEST (TACKON #destination "Tools")) ) ;// copy the installerscript itself (COPYFILES ;// Copy the deinstaller-script (PROMPT #msg_copytool) (SOURCE (TACKON #temp "Tools/DeInstall_FreshIcons")) (DEST (TACKON #destination "Tools")) ) ) ) (COMPLETE 62) (IF (IN #b_tools #bn_install_tools_FI) ;// if the freshiconizer shall be installed ( (MAKEDIR (TACKON #destination "Tools/FreshIconizer")) (COPYFILES ;// Copy FreshIconizer.info (PROMPT #msg_copyicon) (SOURCE (TACKON #temp "Tools/FreshIconizer.info")) (DEST (TACKON #destination "Tools")) ) (COPYFILES (PROMPT #msg_copyfreshiconizer) ;// copying the FreshIconizer tool (SOURCE (TACKON #temp "Tools/FreshIconizer")) (DEST (TACKON #destination "Tools/FreshIconizer")) (ALL) ) (IF (IN #b_docs #bn_install_docs_e) ;// if the user wants the english doc (COPYFILES (PROMPT #msg_copydoc_e) (SOURCE (TACKON #temp "tooldocs/FI_E.guide")) (DEST (TACKON #destination "Tools/FreshIconizer")) (INFOS) ) ) (IF (IN #b_docs #bn_install_docs_g) ;// if the user wants the german doc (COPYFILES (PROMPT #msg_copydoc_g) (SOURCE (TACKON #temp "tooldocs/FI_G.guide")) (DEST (TACKON #destination "Tools/FreshIconizer")) (INFOS) ) ) ) ) (COMPLETE 63) (IF (IN #b_tools #bn_install_tools_CAFIC) ;// if the CAFIC shall be installed ( (MAKEDIR (TACKON #destination "Tools/CAFIC")) (COPYFILES ;// Copy CAFIC.info (PROMPT #msg_copyicon) (SOURCE (TACKON #temp "Tools/CAFIC.info")) (DEST (TACKON #destination "Tools")) ) (COPYFILES (PROMPT #msg_copycafic) ;// copying the CAFIC tool (SOURCE (TACKON #temp "Tools/CAFIC")) (DEST (TACKON #destination "Tools/CAFIC")) (ALL) ) (IF (IN #b_docs #bn_install_docs_e) ;// if the user wants the english doc (COPYFILES (PROMPT #msg_copydoc_e) (SOURCE (TACKON #temp "tooldocs/CAFIC_E.guide")) (DEST (TACKON #destination "Tools/CAFIC")) (INFOS) ) ) (IF (IN #b_docs #bn_install_docs_g) ;// if the user wants the german doc (COPYFILES (PROMPT #msg_copydoc_g) (SOURCE (TACKON #temp "tooldocs/CAFIC_G.guide")) (DEST (TACKON #destination "Tools/CAFIC")) (INFOS) ) ) ) ) (COMPLETE 64) (IF (IN #b_tools #bn_install_tools_Magic2Fresh) ;// if the Magic_2_Fresh shall be installed ( (MAKEDIR (TACKON #destination "Tools/Magic_2_Fresh")) (COPYFILES ;// Copy Magic_2_Fresh.info (PROMPT #msg_copyicon) (SOURCE (TACKON #temp "Tools/Magic_2_Fresh.info")) (DEST (TACKON #destination "Tools")) ) (COPYFILES (PROMPT #msg_copym2f) ;// copying the Magic_2_Fresh tool (SOURCE (TACKON #temp "Tools/Magic_2_Fresh")) (DEST (TACKON #destination "Tools/Magic_2_Fresh")) (ALL) ) (IF (IN #b_docs #bn_install_docs_e) ;// if the user wants the english doc (COPYFILES (PROMPT #msg_copydoc_e) (SOURCE (TACKON #temp "tooldocs/M2F.History_E")) (DEST (TACKON #destination "Tools/Magic_2_Fresh")) (INFOS) ) ) (IF (IN #b_docs #bn_install_docs_g) ;// if the user wants the german doc (COPYFILES (PROMPT #msg_copydoc_g) (SOURCE (TACKON #temp "tooldocs/M2F.History_G")) (DEST (TACKON #destination "Tools/Magic_2_Fresh")) (INFOS) ) ) ) ) (P_cleartemp) ) ;/*E*/ ;/*S*/ UP: Does the Docs-Installation (PROCEDURE P_DoDocs (WORKING #msg_do_docs_lha) (SET #archive "Doc.lha") ;// First unpack the whole docs.lha (SET #subdest #temp) (P_unpack) (COMPLETE 66) (MAKEDIR (TACKON #destination "Doc")) ;// Create Doc drawer (COPYFILES ;// Copy Doc.info (PROMPT #msg_copyicon) (SOURCE (TACKON #temp "Doc.info")) (DEST #destination) ) (COMPLETE 67) (IF (IN #b_docs #bn_install_docs_e) ;// if the user wants the english doc ( ;// then (COPYFILES (PROMPT #msg_copydoc_e) (SOURCE (TACKON #temp "Doc/FreshIcons_E.guide")) (DEST (TACKON #destination "Doc")) (INFOS) ) (COPYFILES (PROMPT #msg_copydoc_e) (SOURCE (TACKON #temp "Doc/ProblemSolve.guide")) (DEST (TACKON #destination "Doc")) (INFOS) ) (COPYFILES (PROMPT #msg_copydoc_e) (SOURCE (TACKON #temp "Doc/LockFreshPens_E.guide")) (DEST (TACKON #destination "Doc")) (INFOS) ) ) ) (COMPLETE 68) (IF (IN #b_docs #bn_install_docs_g) ;// if the user wants the german doc ;// then ( (COPYFILES (PROMPT #msg_copydoc_g) (SOURCE (TACKON #temp "Doc/FreshIcons_G.guide")) (DEST (TACKON #destination "Doc")) (INFOS) ) (COPYFILES (PROMPT #msg_copydoc_g) (SOURCE (TACKON #temp "Doc/ProblemHilfe.guide")) (DEST (TACKON #destination "Doc")) (INFOS) ) (COPYFILES (PROMPT #msg_copydoc_e) (SOURCE (TACKON #temp "Doc/LockFreshPens_G.guide")) (DEST (TACKON #destination "Doc")) (INFOS) ) ) ) (COMPLETE 69) (P_cleartemp) ) ;/*E*/ ;/*S*/ UP: ***** Does the real installation ***** (PROCEDURE P_realinstall (COMPLETE 50) (P_AskBackUp) (COMPLETE 51) ;// copy the drawer-icon of the main-dir (COPYFILES (PROMPT #msg_copyicon) (SOURCE "archives/FreshIcons.info") (DEST #destination) ) ;// destination is now the freshicons-drawer (SET #destination (TACKON #destination "FreshIcons")) (COMPLETE 52) ;// create this dir (MAKEDIR #destination (PROMPT #msg_CreatingDestDir) ) (COMPLETE 53) (IF (IN #b_parts #bn_install_parts_icons) ;// if icon-categories shall be installed (IF (<> #b_icons 0) ;// if anything of the icons-drawer is to be installed ;// then ( (MAKEDIR (TACKON #destination "Icons")) (COPYFILES (PROMPT #msg_copyicon) (SOURCE "archives/Icons.info") (DEST #destination) ) (COMPLETE 54) (P_DoBasics) (COMPLETE 56) (P_DoPackets) (COMPLETE 58) (P_DoTemplates) (COMPLETE 59) (P_DoDockbrushes) ) ) ) (COMPLETE 60) (IF (IN #b_parts #bn_install_parts_tools) ;// if tools-category shall be installed (IF (<> #b_tools 0) ;// if any of the tools shall be installed (P_DoTools) ) ) (COMPLETE 65) (IF (IN #b_parts #bn_install_parts_doc) ;// if doc-category shall be installed (IF (<> #b_docs 0) ;// if any of the docs shall be installed (P_DoDocs) ) ) (COMPLETE 70) (IF (IN #b_parts #bn_install_parts_preview) ;// if preview-category shall be installed ( (COPYFILES ;// copy the picture itself (PROMPT #msg_previewpic) (SOURCE "Preview.iff") (DEST #destination) ) (COPYFILES ;// copy the info in freshicon-lock from the archive drawer (PROMPT #msg_copyicon) (SOURCE "archives/Preview.iff.info") (DEST #destination) ) ) ) (COMPLETE 75) (IF (IN #b_parts #bn_install_parts_symbolpics) ;// if preview-category shall be installed ( (WORKING #msg_do_pics_lha) (SET #archive "pics.lha") ;// First unpack the whole pics.lha (SET #subdest "/") (P_unpack) ) ) (COMPLETE 80) (IF (IN #b_parts #bn_install_parts_developer) ;// if developer-stuff shall be installed ( (WORKING #msg_do_developer_lha) (SET #archive "developer.lha") ;// First unpack the whole developer.lha (SET #subdest "/") (P_unpack) ) ) (COMPLETE 85) (IF (= #f_backup 1) ;// if a backup shall be made ( (WORKING #msg_doingbackup) (SET #backupfile "ENVARC:SYS/screenmode.prefs") (P_DoBackup) (COMPLETE 86) (SET #backupfile "ENVARC:SYS/palette.prefs") (P_DoBackup) (COMPLETE 87) (SET #backupfile "S:User-Startup") (P_DoBackup) ) ) (COMPLETE 88) (WORKING #msg_copytool) (COPYFILES (PROMPT #msg_copytool) (SOURCE "archives/Installtools/LockFreshPens") (DEST "C:") ) (COMPLETE 89) (WORKING #msg_copyconfig) (COPYFILES (PROMPT #msg_copyconfig) (SOURCE "archives/Installtools/LockFreshPens.config") (DEST "S:") ) (COMPLETE 90) (COPYFILES (PROMPT #msg_copytool) (SOURCE "archives/Installtools/UpdateIcon") ; (DEST "C:") (DEST (TACKON #destination "c")) ) (COMPLETE 92) (COPYFILES (PROMPT #msg_copytool) (SOURCE "archives/Installtools/AddToolType") (DEST (TACKON #destination "c")) ; (DEST "C:") ) (COMPLETE 94) (COPYFILES (PROMPT #msg_copytool) (SOURCE "archives/Installtools/MakeDirsFromIcons") (DEST (TACKON #destination "c")) ; (DEST "C:") ) (COMPLETE 96) (COPYFILES (PROMPT #msg_copytool) (SOURCE "archives/Installtools/AddToolType.script") (DEST "S:") (INFOS) ) (COMPLETE 97) (WORKING #msg_changesystem) (COPYFILES (PROMPT #msg_copytool) (SOURCE "archives/Installtools/palette.prefs") (DEST "ENVARC:SYS/") ) (COMPLETE 98) (STARTUP "FreshIcons" (PROMPT #msg_changeuserstartup) (HELP #help_changeuserstartup) (command "run >nil: C:LockFreshPens quiet patch magic8 >nil:") ) (COPYLIB (PROMPT #ask_installer) (HELP #help_installer) (SOURCE "installer") (DEST "c:") (CONFIRM) ) ) ;/*E*/ ;/*S*/ UP: Asks the user which installationmode he wants to go (PROCEDURE P_GetInstallMode (if (ASKBOOL (PROMPT #ask_installmode) (CHOICES #gad_complete #gad_userdefined) (HELP #help_InstallMode) ) ;//then (SET #f_InstallComplete 0) ;//else (SET #f_InstallComplete 1) ) ) ;/*E*/ ;/*S*/ UP: AskParts, Asks the user what parts he wants to install (procedure P_AskParts (set #b_parts (askoptions (prompt #ask_parts) (choices #gad_icons #gad_tools #gad_doc #gad_preview #gad_symbolpics #gad_developerinfo ) (default -1) (help (cat #help_parts1 #help_parts2)) ) ) ) ;/*E*/ ;/*S*/ UP: AskIcons, Asks the user which icons to install (procedure P_AskIcons (set #b_icons (askoptions (prompt #ask_icons) (choices #gad_icons_basics #gad_icons_packets #gad_icons_templates #gad_icons_dockbrushes ) (default -1) (help (cat #help_icons1 #help_icons2)) ) ) ) ;/*E*/ ;/*S*/ UP: AskBasics, Ask the user which icons of the basepacket to be installed (procedure P_AskBasics (set #b_basics (askoptions (prompt #ask_basics) (choices #gad_basics_disks #gad_basics_drawers #gad_basics_tools #gad_basics_projects ) (default -1) (help #help_basics) ) ) ) ;/*E*/ ;/*S*/ UP: AskPackets, Ask the user which iconpackets to install (procedure P_AskPackets (set #b_packets (askoptions (prompt #ask_packets) (choices #gad_packets_wb #gad_packets_defaults ) (default -1) (help #help_packets) ) ) ) ;/*E*/ ;/*S*/ UP: AskDefaultSets, Ask the user which iconpackets to install (procedure P_AskDefaultSets (set #b_defaults (askoptions (prompt #ask_defaultsets) (choices #gad_default_1 #gad_default_2 ) (default -1) (help #help_defaultsets) ) ) ) ;/*E*/ ;/*S*/ UP: AskTools, Ask the user which tools he wants to install (procedure P_AskTools (set #b_tools (askoptions (prompt #ask_tools) (choices #gad_tools_FI #gad_tools_CAFIC #gad_tools_Magic2Fresh #gad_tools_DeInstaller ) (default -1) (help (cat #help_tools1 #help_tools2 #help_tools3)) ) ) ) ;/*E*/ ;/*S*/ UP: AskDocs, Ask the user for which language he wants to install the docs (procedure P_AskDocs (set #b_docs (askoptions (prompt #ask_docs) (choices #gad_docs_g #gad_docs_e ) (default -1) (help #help_docs) ) ) ) ;/*E*/ ;/*S*/ UP: Ask whether to begin now the installation itself (procedure P_AskReallyInstall (if (askbool (prompt #ask_ReallyInstall) (choices #gad_yes #gad_no) (help #help_ReallyInstall) ) ;//then: (set #f_ReallyInstall 1) ;//else: ( (set #f_ReallyInstall 0) (exit #msg_installstop (quiet) ) ) ) ) ;/*E*/ ;/*E*/ ;--------------------------------------------------------- ;/*S*/ ### Main ### (COMPLETE 0) (IF (= @language "deutsch") ;// then (P_germaninstall) ;// else (P_englishinstall) ) (if (<= @installer-version 0) ;// installer-versions-check (abort #err_wronginstaller) ) (MESSAGE #msg_Requirements_1 (help #help_requirements) ) (MESSAGE #msg_Requirements_2 (help #help_requirements) ) (WELCOME) (P_maketemp) (COMPLETE 1) (ONERROR ( (P_CleanUp) (EXIT #msg_broken (quiet) ) ) ) (P_GetDestDir) ;// Determine the destinationdirectory for installation (COMPLETE 2) (P_GetInstallMode) ;// complete or userdefined installation (IF (= 1 #f_InstallComplete) ;// if complete installation ;// then: ( (COMPLETE 5) (P_AskParts) ;// Ask the user which parts he wants to install? (IF (IN #b_parts #bn_install_parts_icons) ;// if the icons shall be installed ;// then ( (COMPLETE 10) (P_AskIcons) ;// Ask which Icons shall be installed (if (IN #b_icons #bn_install_icons_basics) ;// If Icons installation, then ask which of them ;// then ( (COMPLETE 15) (P_AskBasics) ;// Which Basics shall be installed? ) ) (if (IN #b_icons #bn_install_icons_packets) ;// If Packets installation, then ask which of them ;// then ( (COMPLETE 20) (P_AskPackets) ;// Which Packets shall be installed? ;// if installing Defaulticons (if (IN #b_packets #bn_install_packets_defaults) ;// Then ( (COMPLETE 30) (P_AskDefaultSets) ) ) ) ) ) ) (IF (IN #b_parts #bn_install_parts_tools) ;// if tools shall be installed ;// then ( (COMPLETE 40) (P_AskTools) ) ) (IF (IN #b_parts #bn_install_parts_doc) ;// if docs shall be installed ;// then ( (COMPLETE 45) (P_AskDocs) ) ) (P_AskReallyInstall) ;// shall real the installation begin now? (IF (= 1 #f_ReallyInstall) (P_realinstall) ) ) ;// else: ( (COMPLETE 3) ;// if Complete-Install, dann set all bits to TRUE (set #b_parts -1) (set #b_icons -1) (set #b_basics -1) (set #b_packets -1) (set #b_defaults -1) (set #b_tools -1) (set #b_docs -1) (P_realinstall) ) ) (COMPLETE 99) (SET @default-dest #destination) (P_CleanUp) (COMPLETE 100) (EXIT (cat #msg_readme_0 #destination #msg_readme) (Quiet)) ;/*E*/