; $VER: Install Picasso Software 2.0 © Village Tronic Marketing GmbH (30. Mai 1994) ; Script to install Picasso Software (complete 0) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; NAMING SECTION ; ; first of all I set some vars to file names. This will help me changing ; names easely. ; (set #FirmenName "Village Tronic") ; name of the company (set #Picasso "Picasso-II") ; name of the board (set #PicassoSoft "PicassoII-Software") ; title of this software (set #ChangeScreen "ChangeScreen") ; screen promotion commodity (set #ChangeScreenG "ChangeScreen.Guide") ; screen promotion help file (set #PicassoSwitch "PicassoSwitch") ; monitor switch commodity (set #VillageLib "village.library") ; library to control the hardware (set #VilIntuiSupLib "vilintuisup.library") ; library for high level use (set #MonitorFile "Picasso") ; monitor file -> DEVS:Monitors (set #Bildschoner "StyxBlanker") ; Commodity for blanking (set #HasUndIgel "IntuiSpeed") ; benchmark program for gfx actions (set #defaulttarget "WORK:") ; default destination dir (set #ViewIFF "ViewIFF") ; name of iff viewer (set #ViewGIF "ViewGIF") ; name of gif viewer (set #ViewJPEG "ViewJPEG") ; name of jpeg viewer (set #Play "Play") ; name of anim player (set #PlayMPEG "PlayMPEG") ; name of MPEG anim player (set #IntuiView "IntuiView") ; name of viewer frontend (set #Reflections "PicassoII_rgb") ; name for the paint program (set #TempDir "T:PicInstTemp") ;========================================================================== ; Disk names (set #LastDisk "Install Last") ; Pics and Sources ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; LANGUAGE SECTION ; ; to support more than only one language, there is a special section for ; each supported language. ; (if (<> @language "english") ((if (<> @language "deutsch") ( set @language "english") ) )) ;========================================================================== ; English strings (if (= @language "english") ( (set default_lang 4) (set #bad-kick (cat "You must use Kickstart 2.0 to install the " #Picasso )) (set #reboot-message (cat "Now you have to boot your Amiga to activate " #Picasso ". " "If you don't want to boot, choose \"Abort Install\"." )) (set #end-message (cat "The board is now ready for use. A reboot is not necessary. " "Please start the ScreenMode preference tool and select one " "of the new resolutions. You can also save a " #Picasso "resolution as usual. " )) (set #introduction (cat "This program will install the software for your " #Picasso " graphic board. It takes all necessary steps and takes care " "of the operating system version. Without your permission " "the installation will not perform any changes on important files " "like the \"S:Startup-Sequence\"." )) (set #ask-installdir (cat "Please choose a directory, where the software for " #Picasso " should be installed." )) (set #ask-installdir-help (cat "You have to choose a directory, where the software will be copied. " "This directory must exist, please create one, if necessary. " )) (set #copy-villagelib (cat "You need to copy the \"" #VillageLib "\" to \"Sys:Expansion\". The " "library is the interface between hardware and operating system." )) (set #copy-amigaguidelib (cat "Some programs need the \"amigaguide.library\" to offer you a " "context sensitive help." )) (set #copy-iffparselib (cat #ViewIFF " needs the \"iffparse.library\"." )) (set #copy-localelib (cat "Several programs need The \"locale.library\"." )) (set #copy-vilintuisuplib (cat "The \"vilintuisup.library\" is needed by all programs, which use " "screens with more than 256 colors. " )) (set #copy-monitorfile (cat "You need to copy the monitor file. As a result of that you will " "find new resolutions in the ScreenMode preference tool." )) (set #copy-monitorfile-help (cat "To get the new " #Picasso " resolutions, you need a monitor file " "called " #MonitorFile ". As usual this file must be in " "\"DEVS:monitors\". \n\nIf you are using Workbench 2.0, the monitor file " "must be in \"Sys:WBStartup\", because it is a program and not a text " "file. Monitor files in Workbench 2.0 are text files and not programs." "\n\n" "In case you don't want to use the " #Picasso ", you only have to " "remove the " #MonitorFile " from \"Sys:WBStartup\" or " "\"DEVS:Monitors\"." )) (set #copy-commodities (cat "You should copy both Commodities to \"Sys:WBStartup\"." )) (set #copy-commodities-help (cat #Bildschoner " is a program to blank your monitor screen. After not " "having moved the mouse and not having stroken a key for a certain while " "the screen will turn black and some bright colorful lines move around.\n\n" #ChangeScreen " has a completly different job. It redirects screens to " "the " #Picasso ". Especially older programs open their screen without " "asking the user which screen mode or resolution he wants. " #ChangeScreen " gives you the choice." )) (set #copy-tools (cat "Some usefull tools may be copied to " "Tools" "." )) (set #copy-tools-help (cat "There are tools for creating your own resolutions, reporting errors " "to find bugs, check the hardware or make a hardcopy from special screens.\n\n" "Please check the files you want to install." )) (set #copy-guide "copying AmigaGuide files ... ") (set #copy-guide-help (cat "Now the AmigaGuide files will be copied to the destination directory. " "If you don't want to copy the files, skip this part." )) (set #append-guidedir-help (cat "To provide, that all programs with context sensitive help will " "find their help text, an additional line has to be appended to the " "file \"ENVARC:AmigaGuide/PATH\"." )) (set #append-guidedir (cat "Append a line to \"ENVARC:AmigaGuide/PATH\"." )) (set #ask-guide (cat "Some programs have AmigaGuide help files to provide an interactive " "help. Where should these files be copied?" )) (set #ask-guide-help (cat #ChangeScreen " has an interactive, context sensitive help " "facility. Move the mouse pointer upon a gadget and press HELP to " "get a help text for that gadget. To do so, it needs the special " "AmigaGuide help file \"" #ChangeScreenG "\", where the text for " "every gadget is located." )) (set #copy-picassoswitch (cat #PicassoSwitch " is a Commodity which enables you to switch manually " "between the built-in Amiga graphic and the " #Picasso " graphic." )) (set #copy-picassoswitch-help (cat "Sometimes it may be useful to switch between the built-in Amiga " "graphic and the " #Picasso " graphic. " #PicassoSwitch " enables you " "to do this manually by a key stroke. You will need this feature only, " "if a program runs crazy or doesn't react the way you expect it to do." )) (set #ask-scanrate (cat "Please choose the maximum horizontal scan rate your monitor can handle. " "If you don't know, which the maximum is or you don't know anything about " "scan rates, please choose 38 kHz!" )) (set #ask-scanrate-help (cat "The horizontal scan rate is the amount of lines a monitor can display " "in a second. 14\" monitors can often handle a maximum of " "38 kHz (newer ones sometimes 50 kHz), monitors with 16 or 17 inch tubes " "can often handle 57 kHz or (newer ones) even 64 kHz.\n\n" "Please BE AWARE:\n\n" "If you choose a higher scan rate your monitor can handle, you will " "most certainly DESTROY your monitor!!!" )) (set #change-villagetooltype (cat "Please click on \"Proceed\" to change the horizontal scan rate to the " "value you have chosen. The new value will be written as a tooltype into " "\"" #VillageLib ".info\".\n\n" "Please BE AWARE:\n\n" "If you choose a higher scan rate your monitor can handle, you will " "most certainly DESTROY your monitor!!!" )) (set #change-villagetooltype-help (cat "If you click on \"Proceed\" the new scan rate value will be written " "as a tooltype into \"" #VillageLib ".info\". The new setting will be " "active the next time your Amiga boots. You can always alter this value " "manually.\n\n" "Please take a good look into the documentation of your monitor to be " "definitely sure that you have not chosen a scan rate your monitor " "cannot handle. " #FirmenName " explicitly reject any responsibility " "for damages of your monitor." )) (set #ask-driversoftware (cat "Please mark all programs you want to install a special " #Picasso " driver for." )) (set #ask-driversoftware-help (cat "Various programs let you use both the TrueColor and HiColor " "features of " "the " #Picasso ". Though this is only possible, if you possess a special " "driver for each program. Therefore we deliver drivers for " "famous and well known programs. To install a driver for a mentioned " "program, mark the name with a checkmark." )) (set #copy-localefiles (cat "Copying LOCALE files ..." )) (set #copy-locale-help (cat "Some programs we deliver support the locale feature of the " "operation system. This is available since OS 2.1. Now special " "files for each supported language should be copied to the " "directory \"Sys:Locale\". Please confirm, if you want to copy " "the files now." )) (set #copy-adprosaver (cat "Copying AdPro saver ..." )) (set #ask-adprodir (cat "Please select a directory for the AdPro saver:" )) (set #ask-adprodir-help (cat "Adpro comes along with several directories for special operators and " "modules. These include \"savers\" for various image formats. We support " "AdPro with a special saver, which \"saves\" an image into the graphic " "board and not on a disk. Our saver should be copied into " "\"AdPro:Savers2\"\n\n" "To show an image in AdPro, please choose \"PICASSO\" as a saver and " "click on \"save\"." )) (set #copy-imagefxrender (cat "Copying ImageFX rendering modul ..." )) (set #ask-imagefxdir (cat "Please select a directory for the rendering modul:" )) (set #copy-cinema4d (cat "Copying cinema.library ..." )) (set #ask-cinema4ddir (cat "Please select a directory for the Cinema4D doc-file:" )) (set #ask-cinema4ddir-help (cat "To use the now installed cinemaausgabe.library please take a look" "at the help-file. This help-file will be installed right now." )) (set #ask-imagefxdir-help (cat "ImageFX is able to display images in TrueColor and HiColor display " "modi. To do this the program needs a special rendering modul. This " "should be copied to the directory \"Modules/Render\", where ImageFX " "is located. After having copied you have to select this modul to use " "the " #Picasso " for displaying pictures. Please take a look to your " "program documentation, how to do this." )) (set #copy-real3dlib (cat "Copying library for Real3D ..." )) (set #copy-imagemaster (cat "Copying ImageMaster modul ..." )) (set #ask-imagemasterdir (cat "Please select a directory for the rendering modul:" )) (set #ask-imagemasterrexxdir (cat "Please select a directory for the ARexx script:" )) (set #ask-imagemasterdir-help (cat "ImageMaster has the possibility to display images directly " "on a " #Picasso " screen with a render modul and an ARexx script " "we supply with the " #Picasso ". For that it is necessary to copy " "a rendering modul to \"CMPI:\" and an ARexx Script to \"RXPI:\".\n\n" "To setup ImageMaster please read your manual\n." )) (set #copy-reflections (cat "Copying Reflections display modul ..." )) (set #ask-reflectionsdir (cat "Please select a directory for the rendering modul:" )) (set #ask-reflectionsdir-help (cat "Reflections has the capability to render directly into a " "graphic board. To do this, it is necessary to start a special " "render modul while reflection is running. This modul will get " "the graphic data line by line and displays it on the " #Picasso ". " "The render modul ist called " #Reflections " and should be copied " "to the directory where all the other moduls from Reflections are " "placed." )) (set #IFF-Desc "an IFF picture viewer") (set #GIF-Desc "a GIF picture viewer") (set #JPEG-Desc "a JPEG picture viewer") (set #Play-Desc "a film like player program") (set #PlayMPEG-Desc "a MPEG player program") (set #IntuiView-Desc "a Workbench frontend") (set #ask-viewer (cat "Do you want to copy the following programs which can display " "images saved in special file formats? Please mark the programs " "you want to copy." )) (set #ask-viewer-help (cat "Images may be saved in different ways (compressed or not compressed, " "colored or black and white etc.). To handle this variety there are " "different file formats like IFF or GIF. If you like to show images " "saved in the listed file formats please mark the suitable viewer.\n\n" "If you proceed you will be asked for a directory, where the viewer " "should be copied.\n\n" "\"" #IntuiView "\" is a workbench program with a window and a listview." " It acts like a " "frontend for the other viewers. It has a analyse scheme to determine " "the correct format of a file. You can easily adapt this scheme for new " "file formats.\n\n" "The two player programs " #Play " and " #PlayMPEG " are able to display " "animation files. Those files consist of many pictures, which can be " "displayed like a film. MPEG is a file format, which highly compress " "animations (upto compression factors like 1:15). You can use " #Play " only, if you also install " #PlayMPEG "." )) (set #copy-viewerdir (cat "Copying marked viewer and player ..." )) (set #ask-viewerdir (cat "Please select a directory for the viewer." )) (set #ask-viewerdir-help (cat "You should copy the viewer programs into a directory which is in the " "path list. Doing this you can use the programs immediatly without " "specifying the whole path each time you want to display an image. " "The directory \"C:\" is a good location, but you can use any directory " "which you find in the path list." )) (set #ask-development (cat "In case you want to develope your own programs for the " #Picasso ", you need to have copied documents, include files, libraries and " "example programs to a location, you can choose. Do you want to do " "that now?" )) (set #ask-development-help (cat "The " #Picasso " is capable to display screens with more than 256 " "colors. But the operating system unfortunatly can handle only screen " "upto 256 colors. Therefore we developed software for you to open " "screens in HiColor and TrueColor modi and to offer you all the " "features the graphic board has. \n\n" "Though you will need documents, includes, libraries " "and other things. We prepared these files for using them with well " "known C-Compilers like DICE, SAS C, Aztec C, GNU C and Maxon C/C++." "Please click on "Yes" to install." )) (set #yes "Yes") (set #no "No") (set #proceed "Proceed") (set #skip "Skip") (set #copy-development (cat "Copying all necessary files ..." )) (set #ask-develdir (cat "Please select a directory for the development files:" )) (set #ask-develdir-help (cat "Please select a directory for the development files. This directory " "must exists, it will not be created for you.\n\n" "The installation program will create some subdirectories for " "demonstration programs, documentation of library functions and further " "files. " )) (set #copy-HasUndIgel (cat "Where shall the benchmarking program \"" #HasUndIgel "\" be copied?" )) (set #copy-HasUndIgel-help (cat #HasUndIgel " is a program which measures the speed of some functions in " "the graphics library. The purpose is to offer everyone the possibility " "to compare the speed of the board with the built-in graphic or other " "graphic boards.\n\n" "Each test will run 10 seconds. Higher rates are better rates. " "You can find further information about this program in your handbook." )) (set #ask-disk-last (cat "Please insert the disk \n\n" #LastDisk "\n\n" "into any drive!" )) (set #ask-disk-last-help (cat "You want to install example sources and demos or some " "pictures. The program and additional files are located " "on a disk called " #LastDisk ". Please look for " "this disk and put it into any floppy drive. " )) (set #ask-pictures (cat "There are some pictures in different file formats and an " "example animation on the last disk. Do you want to copy " "them now to your harddisk?" )) (set #ask-pictures-help (cat "We thought, perhaps you will not have some pictures in " "with 16 Million colors and an animation in MPEG file format. " "Therefore we deliver some small example files. The pictures " "are in IFF, GIF and JPEG file formats. All file are located " "on the last installaiton disk." )) (set #copy-pictures (cat "Copying example pictures ...")) (set #ask-picdir (cat "Please select a directory, where the pictures will be copied." )) (set #ask-picdir-help (cat "The pictures and the animation file are located in subdirectories. " "You have to select now a directory, where the subdirectories and " "their contents will be copied. It is not necessary to create " "a directory for each file format, this will be done for you " "be the installation." )) (set #no-binddrivers (cat "The program \"Binddrivers\" was not found in \"Sys:S/Startup-sequence\"." "It is absolutly necessary that \"Binddrivers\" is called there " "to run the " #Picasso ". Please ensure, that you have a original " "\"Startup-sequence\" in \"S:\" and start this installation again." )) (set #change-startup-sequence (cat "To boot with a " #Picasso "-Screen running OS version 2.0, it is " "necessary to manipulate your \"S:Startup-sequence\". O.K. to do " "it now?" )) (set #change-startup-sequence-help (cat "Normaly, running OS version 2.0, the monitor files were startet " "before \"iprefs\" is started. Under OS 2.0, the monitor files are " "only text files. But the " #Picasso " monitor file is a program (and " "that is O.K. under OS 2.1, 3.0, 3.x ...). That's the reason, why we " "have to start the file in a different way. But this must be done " "before \"iprefs\" comes up. There is no other way than inserting " "an additional line right after \"BindDrivers\" in the " "\"Startup-sequence\". The additional line will be\n\n" " run >NIL: sys:WBStartup/Picasso\n\n" )) (set #decompress-message (cat "decompressing source files to " #TempDir ". Please wait. " )) (set #not-enough-memory-on-t (cat "There is not enough memory in " #TempDir " to dekompress all files. " "Please make sure, that there is enough room or assign T: to a place, " "where the installer can decompress all data." )) )) ;============================================================================= ; German strings (if (= @language "deutsch") ( (set default_lang 2) (set #bad-kick (cat "Sie müssen Kickstart 2.0 zum Installieren der " #PicassoSoft " benutzen." )) (set #reboot-message (cat "Der Rechner muß erneut gestartet werden, um die Karte zu" " aktivieren. Sollten Sie dies nicht wünschen, so verlassen" " Sie diese Installation mit \"Installation abbrechen\"" )) (set #end-message (cat "Die Karte ist nun aktiviert und kann benutzt werden. Starten " "Sie einfach ScreenMode und wählen Sie eine der neuen Auflösungen " "aus. Nach einem Klick auf "Speichern" wird Ihr Amiga von dem " "Zeitpunkt an - auch direkt nach dem Booten - seinen " "Workbench-Bildschirm immer auf der " #Picasso " öffnen." )) (set #introduction (cat "Mit diesem Programm können Sie die Software zu Ihrer " #Picasso "-" "Grafikkarte installieren. Die Installation nimmt alle notwendigen " "Schritte vor und beachtet auch die aktuelle Betriebssystemversion.\n" "Es werden bei der Installation ohne Nachfrage keine System-Dateien " "verändert." )) (set #ask-installdir (cat "Bitte geben Sie ein Verzeichnis an, in welchem die Software zur " #Picasso " installiert werden soll." )) (set #ask-installdir-help (cat "Die Software zur " #Picasso " wird in das Verzeichnis kopiert, das " "Sie angeben. Sollte das Verzeichnis noch nicht existieren, legen Sie " "es bitte an.\n\n" "In dem ausgewählten Verzeichnis werden während der Installation weitere " "Verzeichnisse angelegt." )) (set #copy-villagelib (cat "Die \"" #VillageLib "\" muß nach \"Sys:Expansion\" kopiert werden, " "damit die " #Picasso " angesprochen werden kann." )) (set #copy-amigaguidelib (cat "Die \"amigaguide.library\" wird für die interaktive Hilfe in einigen " "Programmen benötigt." )) (set #copy-iffparselib (cat "Die \"iffparse.library\" benötigt der " #ViewIFF " genannte " "Bilderanzeiger." )) (set #copy-localelib (cat "Die \"locale.library\" wird von diversen Programmen ab Version 2.1 " "benötigt." )) (set #copy-vilintuisuplib (cat "Die \"vilintuisup.library\" ist für alle Programme notwendig, die mehr " "als 256-Farb-Bildschirme benutzen." )) (set #copy-monitorfile (cat "Das Monitorfile muß kopiert werden, damit die " #Picasso " mit den " "passenden Auflösungen im \"ScreenMode\"-Voreinsteller eingebunden " "wird:" )) (set #copy-monitorfile-help (cat "Die Monitor-Datei " #MonitorFile " bindet die Auflösungen der " #Picasso " system-konform in das Betriebssystem ein. Da diese Datei " "ein ausführbares Programm ist, muß es unter der Betriebssystemversion " "2.0 nach \"Sys:WBStartup\" kopiert werden.\n\n" "Sollten Sie in einem Fall die "#Picasso " nicht einbinden wollen, so reicht " "es aus, die Monitor-Datei aus dem Verzeichnis \"Sys:WBStartup\" oder " "\"DEVS:Monitors\" zu entfernen." )) (set #copy-commodities (cat "Die beiden Commodities sollten Sie nach \"Sys:WBStartup\" kopieren." )) (set #copy-commodities-help (cat #Bildschoner " ist ein Programm zum Bildschirmschonen. Wenn Sie eine " "voreingestellte Zeit lang die Maus nicht bewegen und keine Taste " "drücken, wird der Bildschirm schwarz und es erscheint ein buntes " "Linien-Büschel, das über den Bildschirm wandert.\n\n" #ChangeScreen " hat eine gänzlich andere Aufgabe. Es dient dazu, " "Bildschirme auf die " #Picasso " umzuleiten. Gerade ältere " "Programme lassen einem oft nicht die Wahl, mit welcher Auflösung " "man arbeiten möchte. " #ChangeScreen " läßt Ihnen die Wahl, auf " "welchem Bildschirm ein Programm seinen Screen öffnen soll." )) (set #copy-tools (cat "Einige nützliche Programme können Sie jetzt nach " "Tools" " oder in eine anderes Verzeichnis kopieren." )) (set #copy-tools-help (cat "Die Programme dienen dazu sich eigene Auflösungen zu erstellen, einen " "Fehlerreport automatisch zu generieren, die Hardware zu testen und " "ein Bildschirmphoto zu schießen und anschließend als IFF-Datei abzulegen.\n\n" "Bitte markieren Sie die Dateien, die Sie kopieren möchten." )) (set #ask-guide (cat "Einige Programme benötigen eine Datei mit Hilfstexten für eine " "interaktive Hilfe. Wohin sollen diese Dateien kopiert werden?" )) (set #ask-guide-help (cat #ChangeScreen " hat eine eingebaute, kontext-sensitive Hilfsfunktion. " "Wenn der Mauszeiger über einem Gadget steht und Sie die HELP-Taste " "drücken, erhalten Sie einen Hilfstext genau zu diesem Gadget. " "Für diese Funktion benötigt " #ChangeScreen " die besondere Datei \"" #ChangeScreenG "\", die alle Hilfstexte enthält." )) (set #copy-guide "kopiere AmigaGuide-Dateien ... ") (set #copy-guide-help (cat "Die AmigaGuide-Dateien werden in das ausgewählte Verzeichnis " "kopiert. Sollten Sie das nicht wünschen, so überspringen Sie " "bitte diesen Teil der Installation." )) (set #append-guidedir-help (cat "Damit die Programme mit kontext-sensitiver Hilfe ihre Texte auch " "finden, muß der Name des Verzeichnisses, das diese Texte enthält, " "an die Datei \"ENVARC:AmigaGuide/PATH\" angefügt werden. " )) (set #append-guidedir (cat "Ergänze die Datei \"ENVARC:AmigaGuide/PATH\" um einen Eintrag:" )) (set #copy-picassoswitch (cat #PicassoSwitch " ist ein Commodity, das die manuelle Umschaltung " "zwischen eingebauter Grafik und der " #Picasso " ermöglicht." )) (set #copy-picassoswitch-help (cat "In speziellen Situationen kann es nötig sein, manuell zwischen " "der " #Picasso "-Grafik und der eingebauten Grafik hin- " "und herschalten zu müssen. " #PicassoSwitch " erlaubt es Ihnen, " "dies per Tastendruck zu erledigen. Sie werden dies Commoditiy " "wohl nur dann brauchen, wenn sich ein Programm sehr komisch " "verhält oder scheinbar aufhängt." )) (set #ask-scanrate (cat "Bitte wählen Sie die MAXIMALE Zeilenfrequenz, die Ihr Monitor noch " "verträgt. Wenn Sie diese nicht kennen, wählen Sie 38 kHz!" )) (set #ask-scanrate-help (cat "Die Zeilenfrequenz ist die Anzahl der Bildschirmzeilen, die ein " "Monitor in einer Sekunde darstellen kann. 14-Zoll-Monitore beherrschen " "meist nur 38 kHz, selten (neuere) 50 kHz. 16- und 17-Zoll-Monitore " "vertragen fast immer 57 kHz, neuere auch 64 kHz.\n\n" "Aber ACHTUNG !!!!\n\n" "Wenn Sie den Wert zu hoch wählen, zerstören Sie mit ziemlicher " "Sicherheit Ihren Monitor!" )) (set #change-villagetooltype (cat "Hiermit ändern Sie die Zeilenfrequenz, mit der die Karte Ihren " "Monitor betreibt. Wenn sie zu hoch gewählt ist, können Sie damit " "Ihren Monitor ZERSTÖREN!" )) (set #change-villagetooltype-help (cat "Wenn Sie diese Aktion bestätigen, wird im ToolType der " #VillageLib " die neue Zeilenfrequenz eingetragen und nach dem nächsten Hochfahren " "des Rechners wirksam. Sie können diese Angabe jederzeit per Hand " "ändern.\n\nBitte vergewissern Sie sich im Handbuch zu Ihrem Monitor, " "daß Sie keinen zu hohen Wert für die Zeilenfrequenz gewählt haben.\n" #FirmenName " übernimmt keine Haftung für Schäden an Ihrem Monitor!" )) (set #ask-driversoftware (cat "Bitte kreuzen Sie an, für welche Ihrer Programme, Sie spezielle " "Treiber für die " #Picasso " installieren möchten." )) (set #ask-driversoftware-help (cat "Verschiedene Programme unterstützen die True- und HiColor-Fähigkeiten " "der " #Picasso " mittels eines speziellen Treibers. Wir liefern deshalb " "zu bekannten und verbreiteten Programmen solche Treiber aus.\n\n" "Sollten Sie eines der aufgeführten Programme besitzen oder nutzen, " "so klicken Sie bitte das Feld vor dem Programmnamen an." )) (set #copy-localefiles (cat "Kopiere LOCALE-Dateien ..." )) (set #copy-locale-help (cat "Einige Programme, die wir mitliefern, unterstützen verschiedene " "Sprachen. Sie wählen automatisch die vom Benutzer eingestellte " "System-Sprache für ihre Texte aus. Diese Texte müssen natürlich " "auch vorhanden sein. Überlicherweise werden sie im Verzeichnis " "\"Sys:Locale\" abgelegt. In dieses Verzeichnis sollen diese " "speziellen Dateien nun kopiert werden." )) (set #copy-adprosaver (cat "Kopiere Adpro-Saver ..." )) (set #ask-adprodir (cat "In welches Verzeichnis soll der AdPro-Saver kopiert werden:" )) (set #ask-adprodir-help (cat "AdPro hat für verschiedene Operationen Modul-Verzeichnisse. Dazu " "gehören auch die sogeannten \"Saver\". Zur " #Picasso " liefern " "wir eine solche Datei aus. Sie sollte in das Verzeichnis " "\"AdPro:Savers2\" kopiert werden.\n\n" "Wenn Sie anschließend AdPro starten, können Sie die Picasso als " "Saver auswählen und Bilder \"in die Picasso\" speichern." )) (set #copy-cinema4d (cat "Kopiere cinema.library..." )) (set #ask-cinema4ddir (cat "Bitte ein Directory für das Cinema4D Dok-File auswählen" )) (set #ask-cinema4ddir-help (cat "Cinema 4d kann Bilder direkt auf Grafikkarten in HiColor- und " "True-Color-Qualität anzeigen. Hierzu wird nur die" "cinemaausgabe.library benötigt. Ein Hilfetext zu dieser Library" "soll nun installiert werden." )) (set #copy-imagefxrender (cat "Kopiere ImageFX-Render-Modul ..." )) (set #ask-imagefxdir (cat "In welches Verzeichnis soll das Render-Modul kopiert werden:" )) (set #ask-imagefxdir-help (cat "ImageFX kann Bilder direkt auf Grafikkarten in HiColor- und " "True-Color-Qualität anzeigen. Hierzu benötigt das Programm " "jedoch ein spezielles Render-Modul, was wir mitliefern.\n\n" "Dieses Modul gehört in das Verzeichnis \"Modules/Render\" im " "ImageFX-Verzeichnis. Wenn Sie das Render-Modul kopiert haben, " "müssen Sie dieses in ImageFX noch anwählen. Dies geschieht über " "das \"prefs\"-Gadget. Weitere Informationen können Sie Ihrem " "Handbuch entnehmen." )) (set #copy-real3dlib (cat "Kopiere Library für Real3D ..." )) (set #copy-imagemaster (cat "Kopiere ImageMaster-Modul ..." )) (set #ask-imagemasterdir (cat "In welches Verzeichnis soll das Render-Modul für ImageMaster " "kopiert werden:" )) (set #ask-imagemasterrexxdir (cat "In welches Verzeichnis soll das ARexx-Skript für ImageMaster " "kopiert werden:" )) (set #ask-imagemasterdir-help (cat "ImageMaster kann Bilder direkt auf Grafikkarten in " "True-Color-Qualität anzeigen. Hierzu benötigt das Programm " "jedoch ein spezielles Render-Modul, was wir mitliefern.\n\n" "Dieses Modul gehört in das Verzeichnis \"CMPI:\". Weiterhin " "benötigen Sie ein ARexx-Skript namens \"PicassoView.rexx\", das " "in das Verzeichnis \"rxpi:\" gehört.\n\n" "Damit das Modul bei jeder Änderung im Bild automatisch aufgerufen " "wird, müssen Sie im Display-Panel von ImageMaster " "\"rxpi:PicassoView.rexx\" als Redraw Skript eintragen und den " "Schalter "Call redraw script" daneben aktivieren." )) (set #copy-reflections (cat "Kopiere Reflections-Anzeige-Modul ..." )) (set #ask-reflectionsdir (cat "In welches Verzeichnis soll das Anzeige-Modul für " "Reflections kopiert werden:" )) (set #ask-reflectionsdir-help (cat "Reflections kann direkt in eine Grafikkarte \"rendern\". Hierzu " "muß allerdings ein Modul gestartet werden, an das Reflections " "die berechneten Zeilen zum Anzeigen hinschicken kann. Das passende " "Modul für die " #Picasso " heißt " #Reflections " und sollte in " "das Verzeichnis kopiert werden, in dem sich alle anderen Module " "befinden." )) (set #IFF-Desc "ein IFF-Bildanzeiger") (set #GIF-Desc "ein GIF-Bildanzeiger") (set #JPEG-Desc "ein JPEG-Bildanzeiger") (set #IntuiView-Desc "ein Workbench-Frontend") (set #Play-Desc "ein Filmabspiel-Programm") (set #PlayMPEG-Desc "ein MPEG-Filmabspiel-Programm") (set #ask-viewer (cat "Wollen Sie die folgenden Programme zum Anzeigen von Bilddateien " "kopieren? Bitte kreuzen Sie die gewünschten Formate an." )) (set #ask-viewer-help (cat "Bilder können in verschiedener Art und Weise auf Datenträgern " "gespeichert werden (komprimiert oder nicht, farbig oder " "schwarz/weiß usw.). Deshalb gibt es verschiedene sogenannte " "Formate, in denen ein Bild gespeichert werden kann. IFF oder GIF " "sind solche Formate. Wenn Sie Bilder in den aufgeführten Formaten " "besitzen, kreuzen Sie den entsprechenden Viewer an. Sie werden " "dann noch nach einem Verzeichnis gefragt, in welches die Programme " "kopiert werden sollen.\n\n" "\"" #IntuiView "\" ist ein Programm, daß das Format einer Datei " "selbst erkennt und automatisch das richtige Programm zum Ansehen " "startet. Es hat eine Workbench-Oberfläche mit Fenster und ListView " "und erlaubt Ihnen, einfach Dateien in das Fenster hinzuwerfen. Sie " "können selbst leicht weitere zu erkennende Formate hinzufügen.\n\n" "Die beiden Programme " #Play " und " #PlayMPEG " können Bildfolgen " "wie einen Film abspielen. Diese Bildfolgen nennt man Animationen. " "MPEG ist ein Datei-Format für solche Animationen, in welchem die Bilder " "stark komprimiert vorliegen (bis zu Faktoren von 1:15). Sie können " #Play " nur zusammen mit " #PlayMPEG " nutzen. " )) (set #copy-viewerdir (cat "Kopiere ausgewählte Viewer und Player ..." )) (set #ask-viewerdir (cat "In welches Verzeichnis sollen die Viewer kopiert werden?" )) (set #ask-viewerdir-help (cat "Sie sollten die Anzeige-Programme (\"Viewer\") in ein Verzeichnis " "kopieren, das im Pfad liegt. So können Sie die Programme sofort " "nutzen, ohne einen langen Pfadnamen eingeben zu müssen.\n\n" "Ein günstiges Verzeichnis wäre \"C:\", vielleicht haben Sie aber " "auch ein anderes Verzeichnis, in welches Sie alle Befehle " "kopieren, die nicht von Commodore sind (ist zu empfehlen!)." )) (set #ask-development (cat "Sollten Sie selbst Programme für die " #Picasso " entwickeln " "wollen, müssen dazu Beschreibungen, Include-Dateien, Libraries " "und Beispielprogramme kopiert werden. Möchten Sie diese Dateien " "kopieren?" )) (set #ask-development-help (cat "Da die " #Picasso " nicht nur bis zu 256 Farben darstellen kann, " "das Betriebssystem bis zur Version 3.0 aber nicht mehr als 256 " "Farben verwaltet, haben wir für die HiColor- und TrueColor-Modi " "der " #Picasso " spezielle Software entwickelt, die Ihnen alle " "Möglichkeiten der Karte zugänglich macht. Allerdings brauchen Sie " "dazu Software, Beschreibungen, Includes ... und andere Dateien. " "Wir haben diese für alle gängigen C-Compiler zusammengestellt. " "Antworten Sie mit \"Ja\", um alles nötige zu installieren." )) (set #yes "Ja") (set #no "Nein") (set #proceed "Weiter") (set #skip "Überspringen") (set #copy-development (cat "Kopiere alle nötigen Dateien ..." )) (set #ask-develdir (cat "In welches Verzeichnis sollen die Dateien kopiert werden?" )) (set #ask-develdir-help (cat "Bitte geben Sie ein Verzeichnis an, in welches die Entwickler-" "Dateien kopiert werden sollen. Das Verzeichnis muß bereits existieren, " "es wird kein Extra-Verzeichnis dafür erzeugt.\n\n" "Die Installation legt allerdings Unterverzeichnisse für ausführbare " "Demo-Programme, die Beschreibungen der Library-Funktionen und weitere, " "nötige Dateien an." )) (set #copy-HasUndIgel (cat "Wohin soll das Benchmark-Programm \"" #HasUndIgel "\" kopiert werden?" )) (set #copy-HasUndIgel-help (cat #HasUndIgel " ist ein Programm, das die Geschwindigkeiten von " "verschiedenen Funktionen der graphics.library mißt. Es bietet damit " "jedem die Möglichkeit zu testen, wie schnell die " #Picasso " im " "Verhältnis zur eingebauten Grafik oder im Vergleich mit anderen " "Grafikkarten arbeitet. \n\n" "Jeder Test läuft dabei 10 Sekunden. Hohe Werte stehen für eine " "schnelle Ausführung. Weitere Informationen über das Programm finden " "Sie im Handbuch." )) (set #ask-disk-last (cat "Bitte legen Sie die Diskette mit der Bezeichnung \n\n" #LastDisk "\n\n" "in ein Diskettenlaufwerk ein!" )) (set #ask-disk-last-help (cat "Da Sie entweder Beispielprogramme und Demos oder aber Bilddateien " "installieren möchten, sollten Sie nun die Diskette in ein " "Diskettenlaufwerk legen, auf welchem " "sich die Dateien befinden. Diese Diskette " "liefern wir mit und sollte die Bezeichnung\n\n" #LastDisk "\n\n" "haben." )) (set #ask-pictures (cat "Wir haben ein paar Beispieldateien mit Bildern in verschiedenen " "Formaten und eine MPEG-Animation (ein Film) auf der letzten Diskette " "untergebracht. Möchten Sie diese Dateien jetzt kopieren?" )) (set #ask-pictures-help (cat "Da Sie wahrscheinlich vor dem Kauf der " #Picasso " kaum das " "Verlangen noch vielfarbigen Bildern hatten, haben wir uns gedacht, " "ein paar bunte Grafiken mit auszuliefern. Dazu gehören Bilder " "im JPEG-, IFF- und GIF-Format sowie eine MPEG-Animations-Datei." "Diese befinden sich alle auf der dritten Diskette." )) (set #copy-pictures (cat "Kopiere Beispiel-Bild-Dateien ...")) (set #ask-picdir (cat "In welches Verzeichnis sollen die Bilder kopiert werden?" )) (set #ask-picdir-help (cat "Die Bilder und die Animations-Datei sind jeweils in " "eigenen Unterverzeichnissen gespeichert. Sie müssen also " "keinen eigenen Ordner für jedes Format erzeugen. Außerdem " "werden die Dateien alle auf einmal kopiert und zwar in das " "Verzeichnis, was Sie bitte angeben möchten." )) (set #no-binddrivers (cat "In Ihrer Datei Sys:S/Startup-Sequence wurde das Programm " "Binddrivers nicht gefunden. Diese Datei MUß aber dort aufgerufen " "werden, um die " #Picasso " betreiben zu können. Bitte kopieren " "Sie die original Startup-Sequence von den Commodore-Disketten " "in Ihr S:-Verzeichnis und starten Sie die Installation erneut." )) (set #change-startup-sequence (cat "Um auch unter 2.0 nach dem Booten sofort mit einem " #Picasso "-Screen starten zu können, muß die \"S:Startup-sequence\" angepaßt " "werden. Soll diese Veränderung jetzt vorgenommen werden?" )) (set #change-startup-sequence-help (cat "Wenn Sie direkt nach dem Start des Rechners einen Bildschirm auf " "der " #Picasso " erhalten wollen, muß zum Zeitpunkt, an dem " "\"iprefs\" gestartet wird, die " #Picasso "-Monitor-Datei bereits " "eingebunden sein. Unter 2.0 passiert dies aber erst beim Start der " "Workbench, da die Monitor-Datei sich in \"Sys:WBstartup\" befindet.\n\n" "Da die \"S:User-Startup\" aber erst nach \"iprefs\" gestartet wird, " "muß man die \"S:Startup-sequence\" verändern. Hierbei wird nach " "Binddrivers gesucht und direkt danach folgende Zeile eingefügt\n\n" " run >NIL: sys:WBStartup/Picasso\n\n" )) (set #decompress-message (cat "Die Dateien werden nach " #TempDir " dekomprimiert. Bitte haben Sie " "ein wenig Geduld." )) (set #not-enough-memory-on-t (cat "In " #TempDir " ist nicht genug Platz, um die Daten zu dekomprimieren. " "Bitte sorgen Sie dafür, daß dort genug Platz ist oder ändern Sie den " "Ort von T: so, daß er auf eine Festplatte mit genügend Platz zeigt.\n" )) )) ;============================================================================= ; make sure we are running under V37 (if (< (/ (getversion) 65536) 37) ( (abort #bad-kick) )) ;============================================================================= ; if something unexpected happens, do this at least (onerror (run (cat "delete " #TempDir " QUIET FORCE ALL"))) ;****************************************************************** ;******************* FULL INSTALL ********************************* ;****************************************************************** ;============================================================================= ; say hi! (welcome) ;============================================================================= ; what we will do the next time together (message #introduction) ;============================================================================= ; first we will get the dirs we need ;============================================================================= ; first we must decompress the stuff we want to install (working #decompress-message) (set sourcedir (pathonly @icon)) (set runstring (cat (tackon sourcedir "lhx ") "-w=" #TempDir " x " (tackon sourcedir "all.lha") ) ) ;============================================================================= ; if something unexpected happens, do this at least (onerror (run (cat "delete " #TempDir " QUIET FORCE ALL"))) (if (> (run runstring) 0) ( abort #not-enough-memory-on-t )) (set sourcedir #TempDir) (set target (askdir (prompt #ask-installdir) (help #ask-installdir-help) (default (tackon #defaulttarget #Picasso)) ) ) (set @default-dest target) ; ; if the dir does not exist, we have to create one ; (if (< (exists target) 2) (makedir target (infos)) ) ;============================================================================= ; second, we will copy the new sst files to their locations (copylib (prompt #copy-villagelib) (help #help-villagelib) (source (tackon sourcedir "Expansion/village.library")) (dest "Sys:Expansion") (infos) (confirm "expert") ) (complete 2) ;============================================================================= ; some additional libraries are necessary (copylib (prompt #copy-amigaguidelib) (help @copylib-help) (source (tackon sourcedir "Libs/amigaguide.library")) (dest "LIBS:") (infos) (confirm "expert") ) (complete 3) (copylib (prompt #copy-iffparselib) (help @copylib-help) (source (tackon sourcedir "Libs/iffparse.library")) (dest "LIBS:") (infos) (confirm "expert") ) (complete 4) ; not necessary, but will produce many prblems 2. June 1993 ; ;(copylib (prompt #copy-localelib) ; (help @copylib-help) ; (source (tackon sourcedir "Libs/locale.library")) ; (dest "LIBS:") ; (infos) ; (confirm "expert") ;) (complete 5) (copylib (prompt #copy-vilintuisuplib) (help @copylib-help) (source (tackon sourcedir "Libs/vilintuisup.library")) (dest "LIBS:") (infos) (confirm "expert") ) (complete 6) ;============================================================================= ; time to copy the monitor file to the right place ; ; but first check, if Binddrivers will be called in S:Startup-Sequence ; (set runstring (cat (tackon sourcedir "c/search") " Sys:S/Startup-sequence Binddrivers" ) ) (if (= (run runstring) 5) ( ; then Binddrivers was deleted -- inform the user ; and abort the installation abort #no-binddrivers )) (if (= (run "version libs:version.library 38") 5) ( ; we are running a 2.0 system (copyfiles (prompt #copy-monitorfile) (help #copy-monitorfile-help) (source (tackon sourcedir "devs/monitors/Picasso")) (dest "Sys:WBStartup") (infos) (confirm "average") ) ; additional problem: when the system is booting with the ; Picasso monitor file in Sys:WBStartup, the monitor "PICASSO" ; is not known the time iprefs comes up. So it is not possible ; to really save a Picasso ScreenMode. To avoid this problem we ; manipulate the "S:Startup-sequence", but we ask the user before. (if (= (askbool (prompt #change-startup-sequence) (help #change-startup-sequence-help) (default 1) (choices #proceed #skip) ) 1 ) ( (set runstring (cat (tackon sourcedir "c/edit") " S:Startup-Sequence WITH=" (tackon sourcedir "s/edit_input") ) ) (run runstring) )) ) ( ; we are running 2.1 or higher (copyfiles (prompt #copy-monitorfile) (help #copy-monitorfile-help) (source (tackon sourcedir "devs/monitors/Picasso")) (dest "DEVS:Monitors") (infos) (confirm "average") ) )) (complete 10) ;============================================================================= ; some useful commodites ... (copyfiles (prompt #copy-commodities) (help #copy-commodities-help) (source (tackon sourcedir "Commodities")) (dest "Sys:WBStartup") (pattern "(Styx#?|#?Screen#?)") (infos) (confirm "average") ) (complete 13) (makedir (tackon target "Guide") (infos)) (set destguidedir (askdir (prompt #ask-guide) (help #ask-guide-help) (default (tackon target "Guide")) ) ) (copyfiles (prompt #copy-guide) (help #copy-guide-help) (source (tackon sourcedir "Guide")) (dest destguidedir) (pattern "#?.guide") (confirm "exopert") (infos) ) (if (= (askbool (prompt #append-guidedir) (help #append-guidedir-help) (default 1) (choices #proceed #skip) ) 1) ( (if (exists "ENVARC:AmigaGuide/PATH") (set runstring ("echo >>ENVARC:AmigaGuide/PATH \"*n%s\"" destguidedir)) (set runstring ("echo >ENVARC:AmigaGuide/PATH \"%s\"" destguidedir)) ) (run runstring) )) (complete 15) (if (= (run "version libs:version.library 38") 0) ( ; 2.1 or higher, this is right for locale stuff (copyfiles (help #copy-locale-help) (source (tackon sourcedir "Locale/catalogs")) (dest "LOCALE:catalogs") (prompt #copy-localefiles) (confirm "expert") (all) (infos) ) )) (complete 17) ;============================================================================= ; some useful tools ... (makedir (tackon target "Tools") (infos)) (copyfiles (prompt #copy-tools) (help #copy-tools-help) (source (tackon sourcedir "Tools")) (dest (tackon target "Tools")) (pattern "#?") (infos) (confirm "average") ) (complete 20) (if (< (exists (tackon target "Commodities")) 2) (makedir (tackon target "Commodities") (infos)) ) (copyfiles (prompt #copy-picassoswitch) (help #copy-picassoswitch-help) (source (tackon sourcedir "Commodities/PicassoSwitch")) (dest (tackon target "Commodities")) (infos) (confirm "expert") ) (complete 25) ;============================================================================= ; copy driver and additional stuff for special 24 bit software (if (>= @user-level 1) (set drivermask (askoptions (choices "AdPro Driver" "ImageFX Driver" "Real3D Library" "ImageMaster" "Reflections" "Cinema 4D" ) (prompt #ask-driversoftware) (help #ask-driversoftware-help) (default 0) ) ) (set drivermask 0) ) (if (IN drivermask 0) ; ADPRO ( (copyfiles (prompt #copy-adprosaver) (source (tackon sourcedir "drivers/AdPro/PICASSO")) (dest (askdir (prompt #ask-adprodir) (help #ask-adprodir-help) (default "AdPro:Savers2") ) ) (optional) ; don't break if an error occurs ) )) (complete 28) (if (IN drivermask 1) ; ImageFX ( (copyfiles (prompt #copy-imagefxrender) (source (tackon sourcedir "drivers/ImageFX/Picasso")) (infos) (dest (askdir (prompt #ask-imagefxdir) (help #ask-imagefxdir-help) (default "Work:ImageFX/modules/render") ) ) (optional) ; don't break if an error occurs ) )) (complete 31) (if (IN drivermask 2) ; Real3D ( (copylib (prompt #copy-real3dlib) (source (tackon sourcedir "drivers/Real3d/Picasso_r3d.library")) (infos) (dest "LIBS:") (optional) ; don't break if an error occurs ) )) (complete 34) (if (IN drivermask 3) ; Imagemaster ( (copyfiles (prompt #copy-imagemaster) (source (tackon sourcedir "drivers/ImageMaster/PicassoIM")) (infos) (dest (askdir (prompt #ask-imagemasterdir) (help #ask-imagemasterdir-help) (default "CMPI:") ) ) (optional) ; don't break if an error occurs ) (copyfiles (prompt #copy-imagemaster) (source (tackon sourcedir "drivers/ImageMaster/PicassoView.rexx")) (infos) (dest (askdir (prompt #ask-imagemasterrexxdir) (help #ask-imagemasterdir-help) (default "RXPI:") ) ) (optional) ; don't break if an error occurs ) (if (= @language "english") ( (copyfiles (prompt #copy-imagemaster) (source (tackon sourcedir "drivers/ImageMaster/PicassoIM.catalog")) (infos) (dest (askdir (prompt #ask-imagemasterdir) (help #ask-imagemasterdir-help) (default "LOCALE:catalogs/English") ) ) (optional) ; don't break if an error occurs ) )) )) (complete 37) (if (IN drivermask 4) ; Reflections ( (copyfiles (prompt #copy-reflections) (source (tackon sourcedir (cat "drivers/Reflections/" #Reflections))) (infos) (dest (askdir (prompt #ask-reflectionsdir) (help #ask-reflectionsdir-help) (default "work:reflections") ) ) (optional) ; don't break if an error occurs ) )) (complete 40) (if (IN drivermask 5) ; Cinema 4D ( (copylib (prompt #copy-cinema4d) (source (tackon sourcedir "drivers/cinema4d/cinemaausgabe.library")) (infos) (dest "LIBS:") (optional) ; don't break if an error occurs ) (copyfiles (prompt #copy-cinema4ddir) (source (tackon sourcedir (cat "drivers/Cinema4d/Cinema_PicassoII.dok"))) (infos) (dest (askdir (prompt #ask-cinema4ddir) (help #ask-cinema4ddir-help) (default "Work:Cinema4D") ) ) (optional) ; don't break if an error occurs ) )) (complete 43) ;============================================================================= ; copy view programs to a location, where they will be find by a shell (if (>= @user-level 1) (set viewermask (askoptions (choices (cat #ViewIFF " - " #IFF-Desc) (cat #ViewGIF " - " #GIF-Desc) (cat #ViewJPEG " - " #JPEG-Desc) (cat #Play " - " #Play-Desc) (cat #PlayMPEG " - " #PlayMPEG-Desc) (cat #IntuiView " - " #IntuiView-Desc) ) (prompt #ask-viewer) (help #ask-viewer-help) (default 63) ) ) (set viewermask 63) ) (if (<> viewermask 0) ( (makedir (tackon target "Viewer") (infos)) (set destviewerdir (askdir (prompt #ask-viewerdir) (help #ask-viewerdir-help) (default (tackon target "Viewer")) ) ) (if (IN viewermask 0) ; IFF viewer (copyfiles (prompt #copy-viewerdir) (source (tackon sourcedir (cat "Viewer/" #ViewIFF))) (dest destviewerdir) (infos) (optional) ; don't break if an error occurs )) (if (IN viewermask 1) ; GIF viewer (copyfiles (prompt #copy-viewerdir) (source (tackon sourcedir (cat "Viewer/" #ViewGIF))) (dest destviewerdir) (infos) (optional) ; don't break if an error occurs )) (if (IN viewermask 2) ; JPEG viewer (copyfiles (prompt #copy-viewerdir) (source (tackon sourcedir (cat "Viewer/" #ViewJPEG))) (infos) (dest destviewerdir) (optional) ; don't break if an error occurs )) (if (IN viewermask 3) ; Play player (copyfiles (prompt #copy-viewerdir) (source (tackon sourcedir (cat "Viewer/" #Play))) (dest destviewerdir) (optional) ; don't break if an error occurs )) (if (IN viewermask 4) ; PlayMPEG player (copyfiles (prompt #copy-viewerdir) (source (tackon sourcedir (cat "Viewer/" #PlayMPEG))) (dest destviewerdir) (optional) ; don't break if an error occurs )) (if (IN viewermask 5) ; IntuiView ((copyfiles (prompt #copy-viewerdir) (source (tackon sourcedir (cat "Viewer/" #IntuiView))) (dest destviewerdir) (infos) (optional) ; don't break if an error occurs ) (textfile (prompt #copy-viewerdir) (include (tackon sourcedir (cat "Viewer/" #IntuiView ".prefs"))) (dest (cat "ENVARC:" #IntuiView ".prefs")) (append "IFF:\n") (append (cat "#?,FORM????ILBM#?," (tackon destviewerdir #ViewIFF) " %s C\n")) (append "\n") (append "GIF:\n") (append (cat "#?,GIF8?a#?," (tackon destviewerdir #ViewGIF) " %s C\n")) (append "\n") (append "JPEG:\n") (append (cat "#?,??????JFIF#?," (tackon destviewerdir #ViewJPEG) " %s SCROLL \n")) (append "\n") (append "All the rest:\n") (append (cat "#?,#?," "run sys:Utilities/more %s\n")) ) )) )) (complete 50) ;============================================================================= ; now copy a benchmark program for testing the graphic speed (copyfiles (prompt #copy-HasUndIgel) (help #copy-HasUndIgel-help) (infos) (all) (confirm "average") (dest target) (source (tackon sourcedir "Benchmarks")) ; (source (tackon sourcedir (cat "Benchmarks/" #HasUndIgel))) ) (complete 55) ;============================================================================= ; copy all the development stuff someone needs to make his special programs (if (askbool (prompt #ask-development) (help #ask-development-help) (choices #yes #no) (default 0) ; default is NO ) ( (askdisk (prompt #ask-disk-last) (help #ask-disk-last-help) (dest #LastDisk) ) (makedir (tackon target "Development") (infos)) (copyfiles (prompt #copy-development) (source (cat #LastDisk ":Development")) (all) (infos) (optional) (dest (askdir (prompt #ask-develdir) (help #ask-develdir-help) (default (tackon target "Development")) ) ) ) )) (complete 85) ;============================================================================= ; copy some example pictures and a sample animation :-) (if (askbool (prompt #ask-pictures) (help #ask-pictures-help) (choices #yes #no) (default 1) ; default is NO ) ( (askdisk (prompt #ask-disk-last) (help #ask-disk-last-help) (dest #LastDisk) ) (makedir (tackon target "Pictures") (infos)) (copyfiles (prompt #copy-pictures) (source (cat #LastDisk ":Pictures")) (all) (infos) (optional) (dest (askdir (prompt #ask-picdir) (help #ask-picdir-help) (default (tackon target "Pictures")) ) ) ) )) (complete 95) ;============================================================================= ; chosse the right monitor scan rate - but only if the user is an expert (if (>= @user-level 2) (set frequenz (askchoice (choices "15 kHz" "31 kHz" "35 kHz" "38 kHz" "48 kHz" "57 kHz" "64 kHz" "Custom" ) (prompt #ask-scanrate) (help #ask-scanrate-help) (default 1) ) ) (set frequenz 1) ) (if (= frequenz 1) ( (set frequenz "31kHz") ) ( if (= frequenz 2) ( (set frequenz "35kHz") ) ( if (= frequenz 3) ( (set frequenz "38kHz") ) ( if (= frequenz 4) ( (set frequenz "48kHz") ) ( if (= frequenz 5) ( (set frequenz "57kHz") ) ( if (= frequenz 6) ( (set frequenz "64kHz") ) ( if (= frequenz 7) ( (set frequenz "CUSTOM") ) ( if (= frequenz 0) ( (set frequenz "15kHz") ) ) ) ) ) ) ) )) (tooltype (prompt #change-villagetooltype) (help #change-villagetooltype-help) (settooltype "MONITOR" frequenz) (noposition) (dest (tackon "Sys:Expansion/" #VillageLib)) (confirm "expert") ) (complete 100) ;============================================================================= ; "Say goodnight Gracy." ; (user 1) (if (= (run "Binddrivers") 5) ( ; then Binddrivers was deleted -- inform the user ; and abort the installation abort #no-binddrivers ) ( (if (= (run "version libs:version.library 38") 5) ( ; we are running a 2.0 system (run "Sys:WBStartup/Picasso") ) ( ; we are running a 2.1 system or above (run "Sys:Devs/Monitors/Picasso") )) )) (message #end-message) (run (cat "delete " #TempDir " QUIET FORCE ALL")) ;(message #reboot-message) ;(run ":c/Reboot")