;******************************************************************************** ; ;CyBERgraphics Installer ©1994-1995 by Robert C. Reiswig ;If you wish to use parts you MUST ask!! (May-30-95) ;For use with PD and Registered CyBERgraphics Only, not for Commercial use. ;For Frank Mariak ONLY : CyBERgraphics! ; ;Installer suggestions or problems: rcr@netcom.com ;-------------------------------------------------------------------------------- ;Thanks to: ScottE for the EGS Dirs layout ; ;******************************************************************************** ;******************************************************************************** ; Any new 3rd Party Program Drivers. Version of CyBERgraphics & PAY ;******************************************************************************** ; 1 = There is an Update 0 = NO Update (set #ADPro 0) (set #Cinema4D 0) (set #PhotoWorx 0) (set #Photogenics 0) (set #Real3D 0) (set #ImageFX 0) (set #cyberver "40.49") (set #PAY 0) ; 0=NO 1=YES (message (cat "\nCyBERgraphics V" #cyberver "\n~~~~~~~~~~~~~~~~~~~~\nPicasso II\n\nSpectrum\n\nPiccolo\n\nDomino\n\nRetina Z3 BLT\n\nPiccolo SD64")) ;(if (= FrankIsAKing 46) (welcome) ) (welcome) ;******************************************************************************** ; ; Read All System information ; ;******************************************************************************** (set cpu (database "cpu")) (set vblank (database "vblank")) (set graphmem (database "graphics-mem")) (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536)) (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL"))) (set fastmem (- totmem graphmem)) ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1")) ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1")) ( if (= osver 41) ( (set workbench "4.0")) ))))) ;(run "type >RAM:Cyber SYS:Expansion/village.library.info opt h") (set runstring (cat "search" " SYS:Expansion/village.library.info")) (set runstring1 (cat runstring "\"R=64\"")) (if (= (run runstring1) 0) (set MonitorIS 64)) (set runstring1 (cat runstring "\"R=57\"")) (if (= (run runstring1) 0) (set MonitorIS 57)) (set runstring1 (cat runstring "\"R=48\"")) (if (= (run runstring1) 0) (set MonitorIS 48)) (set runstring1 (cat runstring "\"R=38\"")) (if (= (run runstring1) 0) (set MonitorIS 38)) (set runstring1 (cat runstring "\"R=35\"")) (if (= (run runstring1) 0) (set MonitorIS 35)) (set runstring1 (cat runstring "\"R=15\"")) (if (= (run runstring1) 0) (set MonitorIS 15)) (set runstring1 (cat runstring "\"CUSTOM\"")) (if (= (run runstring1) 0) (set MonitorIS 99)) (run "type >RAM:lan EnvArc:sys/locale.prefs opt h") (set runstring (cat "search" " RAM:lan ")) (set english "") (set german "") (set runstring1 (cat runstring "\"deutschland\"")) (if (= (run runstring1) 0) (set german1 "Deutsch")) (set runstring1 (cat runstring "\"english\"")) (if (= (run runstring1) 0) (set english1 "English")) (set CyberDrawer "SYS:") (set were "sys") ;******************************************************************************** ; ;ASK DEFAULT LANG ; ;******************************************************************************** (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages.")) (set LAN (askchoice (choices "German (Deutsch)" "English" (prompt #langQuestion) (help "Select a Language") (default lang) ) ) ) ;******************************************************************************** ; ;English Information ; ;******************************************************************************** (set #ThankYou (cat "\nWelcome to the Registered version of the CyBERgraphics " "installer!\n\n\nTHANK\n\nYOU\n\nFrom the CyBERgraphics Team." ) ) (set #By (cat "CyBERgraphics Release Version " #cyberver "\n" "Software by:\n\nFrank Mariak\nfmariak@chaosengine.ping.de" "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de" "\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com" ) ) (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n" "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n" "Kickstart 3.x, **You only have " workbench "**\n\n" "PicassoII in linear mode *not segmented*\n\n" "68020 or higher\n\n" "2 MB of fast memory" ) ) (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n" "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n" "68020 or higher, **You only have " cpu "**\n\n" "PicassoII in linear mode *not segmented*\n\n" "Kickstart 3.x\n\n" "2 MB of fast memory" ) ) (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" " \"" workbench "\" Version of OS\n\n" " \"" cpu "\" Processor\n\n " " \"" blank "\" Machine\n\n" " \"" graphmem "\" Total Free Chip Memory\n\n" " \"" fastmem "\" Total Free Fast Memory\n\n \"" totmem "\" Total Free Memory\n\n" ) ) (set #WillInstall "\n\n\n\nThis installer will Move OR Delete the Current Graphic Boards's Drivers. Please read the Docs if you have any question!\n") (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: " MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n" "that came with your Picasso II to create a custom monitorfile. Then you need to change " "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n" "YOU MUST DO THIS NOW!" ) ) (set #BackUpFiles "BackUp the Files") (set #DeleteFiles "Delete the Files") (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software.") (set #YES-ADPRO "Yes - Install ADPro Saver") (set #NO-ADPRO "No - Don't Install ADPro Saver") (set #ask-ADPRO "Do you wish to install the CyBERgraphics ADPro saver?") (set #where-ADPRO "Where do you wish to Install the ADPro Saver?\n(The default is \"ADPRO:Savers2\")") (set #YES-MC4D "Yes - Install MaxonCinema4D display module") (set #NO-MC4D "No - Don't Install MaxonCinema4D display module") (set #ask-MC4D "Do you wish to install the MaxonCinema4D display module?") (set #where-MC4D "Where do you wish to Install the MaxonCinema4D display module?\n(The default is \"libs:\")") (set #YES-PHOTOW "Yes - Install PhotoworX display module") (set #NO-PHOTOW "No - Don't Install PhotoworX display module") (set #ask-PHOTOW "Do you wish to install the PhotoworX display module?") (set #where-PHOTOW "Where do you wish to Install the PhotoworX display module?\n(The default is \"work:\")") (set #YES-PHOTOG "Yes - Install Photogenics saver module") (set #NO-PHOTOG "No - Don't Install Photogenics saver module") (set #ask-PHOTOG "Do you wish to install the Photogenics saver module?") (set #where-PHOTOG "Where do you wish to Install the Photogenics saver module?\n(The default is \"work:\")") (set #YES-REAL "Yes - Install Real3D display module") (set #NO-REAL "No - Don't Install Real3D display module") (set #ask-REAL "Do you wish to install the Real3D display module?") (set #where-REAL "Where do you wish to Install the Real3D display module?\n(The default is \"libs:\")") (set #YES-IFX "Yes - Install ImageFX Render module") (set #NO-IFX "No - Don't Install ImageFX Render module") (set #ask-IFX "Do you wish to install the ImageFX Render module?") (set #where-IFX "Where do you wish to Install the ImageFX Render module?\n(The default is \"ImageFX:Modules/Render\")") (set #ask-MODEFILE "Which modefile should be installed ?") (set #15KHZ "15khz maximum") (set #31KHZ "31khz maximum") (set #35KHZ "35khz maximum") (set #38KHZ "38khz maximum") (set #48KHZ "48khz maximum") (set #57KHZ "57khz maximum") (set #64KHZ "64khz maximum") (set #wishtoinstall "Do you wish to install any of the following?") (set #order "Order Form") (set #guide "AmigaGuide File") (set #devdocs "Developer Documentation") (set #versions "Versions - Shows Vers of CyBERgraphics") (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyBERgraphics\" will be created there!)") (set #SetEnv "SetEnv - Sets/Changes Env Vars") (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "15/16/24 bit extension of the "normal" graphics.library, that means that " "you can open 24bit screens as standard intuition screens and that you " "can use all graphics.library functions on them as before. (with some " "limitations of course because of the missing color lookup table)\n\n" "Application to adjust the monitor parameters" ) ) (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "As a registered user, you will get the latest registered " "release of CyBERgraphics including a personalized graphics board driver.\n\n" "The first update of the graphics board driver is for free, any forthcoming " "update will cost DM 5 (US$ 5 outside EU) just to pay our posting&packaging " "costs. email updates will be charge free. This offer is valid for registered users only of course." ) ) (set #REGtext (cat "LAST INFO\n~~~~~~~~~~~~~\n" "You can reach us at the following address:\n" " Frank Mariak Thomas Sontowski \n" " Klosterstr. 7 Bensberger Marktweg 15\n" " 44135 Dortmund 51069 Köln \n\n\n" "Feel free to contact us by email or smail if you have any questions." ) ) (set #REGtext1 (cat "You can now register CyBERgraphics from\n" "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "Europe/Africa/Aisa/Australia/Antarctia\n\n" "Frank Mariak\n" "Klosterstr. 7\n" "44135 Dortmund\n" "Germany\n\n" "Thomas Sontowski\n" "Bensberger Marktweg 15\n" "51069 Koeln\n" "Germany\n" ) ) (set #REGtext2 (cat "You can now register CyBERgraphics from\n" "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "North-America & South-America\n\n" "Robert Reiswig\n" "5396 Norma Way\n" "Livermore, California 94550-3802\n" "United States of America\n\n\n" "Please read the Orderform!" ) ) (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "* In the Shareware release there are no custom modes available. " "In the registered version there are no limitations of this kind " "of course. You may define higher colordepth and refresh frequencies.\n\n" "* If you are registered we grant support if you have any problems " "or questions by email and/or smail. We can't do this for any person who " "has problems with the unregistered release !\n" ) ) (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "By setting this variable, the planar-to-chunky conversion " "will be done by the CPU (in contrast to the blitter-conversion) " "Therefore the ugly-looking "planar" blitting-effects are gone, " "but the software-conversion is slower. Do you wish to Enable this feature?" ) ) (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "By setting this variable, the Lores-Sprites on non-AA-machines " "become Hires-sprites (they are no longer doubled by " "the CyBERgraphics-Software). " "This variable is identical to the tooltype HIRESSPRITE " "of older Picasso-monitor files." ) ) (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "By setting this variable, you can switch off 15bit modes to reduce " "screenmode list length. The Modes are still available but hidden." ) ) (set #alertemu (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) " "will be placed on an CyBERgraphics screens." ) ) (set #ask-driver (cat "Select The Driver(s) you wish to install.")) (set #board (cat "\nPlease Select the Graphics Board you wish to install CyBERgraphics for:\n")) (set #CyberREG (cat "Do you have a Registered version of CyBERgraphics installed? If you DO, the installer will NOT copy over the Monitor file! You must answer this Correctly!")) (set #firstTime "First time install") (set #PDInstalled "PD version Installed") (set #REGInstalled "Registered version Installed") (set #quickupdate "Quick Update (New Libs & Drivers only)") (set #cvmode "CVMode (Screen Mode Creator)") (set #WhereReadME "Please select where you wish to put the ReadMe.") (set #AboutQuickie (cat "\n\nThis will ONLY UPDATE the CyberGraphic libraries.\n\n" "It is ment for Registered and Non-Registered CyberGraphics users!\n\n" "It will update you system to version " #CyberVer " of the CyBERgraphics libraries." ) ) (set #NoUp "No, Don't update") (set #OnlyNew "Yes, Only if newer") (set #YesAll "Yes, No matter what") ;******************************************************************************** ; ;German Information ; ;******************************************************************************** (if (= LAN 0) ( (set #By (cat "CyBERgraphics Software von:\n\nFrank Mariak\nfmariak@chaosengine.ping.de" "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de" "\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com" ) ) (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n" "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n" "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n" "PicassoII im linear Modus *nicht segmentiert*\n\n" "68020 oder höher\n\n" "2 MB FAST Ram" ) ) (set #MinReqCP (cat "Folgendes sind die Minimalanforderungen!\n" "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n" "68020 oder höher, **Sie haben nur eine " cpu "**\n\n" "PicassoII im linear Modus *nicht segmentiert*\n\n" "Kickstart 3.x\n\n" "2 MB FAST Ram" ) ) (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" " Version \"" Workbench "\" des OS\n\n" " \"" cpu "\" Prozessor\n\n " " \"" blank "\" Gerät\n\n" " \"" graphmem "\" freier Chip Speicher\n\n" " \"" fastmem "\" freies Fast RAM\n\n \"" totmem "\" freies RAM gesamt\n\n" ) ) (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber. Bitte lesen sie die Guidedatei bei Fragen!\n") (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: " MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n" "that came with your Picasso II to create a custom monitorfile. Then you need to change " "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n" "YOU MUST DO THIS NOW!" ) ) (set #BackUpFiles "Sichern der alten Dateien") (set #DeleteFiles "Löschen der alten Dateien") (set #ask-BackOrDelete "Der Installer sichert die Village Tronic Picasso II Dateien in SYS:Storage/Village oder SYS:Storage/EGS für EGS Karten. Was wollen sie tun?") (set #YES-ADPRO "Ja - Installiere ADPro Saver") (set #NO-ADPRO "Nein - Installiere ADPro Saver nicht") (set #ask-ADPRO "Wollen Sie den CyBERgraphics ADPro saver installieren ?") (set #where-ADPRO "Wohin wollen Sie den ADPro Saver installieren ?\n(Default ist \"ADPRO:Savers2\")") (set #YES-MC4D "Ja - Installiere MaxonCinema4D Treiber") (set #NO-MC4D "Nein - Installiere MaxonCinema4D Treiber nicht") (set #ask-MC4D "Wollen Sie den MaxonCinema4D Treiber installieren ?") (set #where-MC4D "Wohin wollen Sie den MaxonCinema4D Treiber installieren ?\n(Default ist \"libs:\")") (set #YES-PHOTOW "Ja - Installiere PhotoworX Treiber") (set #NO-PHOTOW "Nein - Installiere PhotoworX Treiber nicht") (set #ask-PHOTOW "Wollen Sie den PhotoworX Treiber installieren ?") (set #where-PHOTOW "Wohin wollen Sie den PhotoworX Treiber installieren ?\n(Default ist \"work:\")") (set #YES-PHOTOG "Ja - Installiere Photogenics Saver") (set #NO-PHOTOG "Nein - Installiere Photogenics Saver nicht") (set #ask-PHOTOG "Wollen Sie den Photogenics Saver installieren ?") (set #where-PHOTOG "Wohin wollen Sie den Photogenics Treiber installieren ?\n(Default ist \"work:\")") (set #YES-REAL "Ja - Installiere Real3D Treiber") (set #NO-REAL "Nein - Installiere Real3D Treiber nicht") (set #ask-REAL "Wollen Sie den Real3D Treiber installieren ?") (set #where-REAL "Wohin wollen Sie den Real3D Treiber installieren ?\n(Default ist \"libs:\")") (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?") (set #15KHZ "Definition mit 15khz max. HFrequenz") (set #31KHZ "Definition mit 31khz max. HFrequenz") (set #35KHZ "Definition mit 35khz max. HFrequenz") (set #38KHZ "Definition mit 38khz max. HFrequenz") (set #48KHZ "Definition mit 48khz max. HFrequenz") (set #57KHZ "Definition mit 57khz max. HFrequenz") (set #64KHZ "Definition mit 64khz max. HFrequenz") (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?") (set #order "Bestellformular") (set #guide "AmigaGuide Datei") (set #devdocs "Entwickler Dokumentation") (set #versions "Versions - Zeigt die CyberGFX Versionen") (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyBERgraphics\" wird automatisch erstellt!)") (set #Comming (cat "\nCOMING! (Geplante Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "* 15/16/24 bit Erweiterung der "normalen" graphics.library, das bedeutet, daß " "man 24bit Bildschirme als Standard Intuition Bildschirme öffnen kann und " "das alle graphics.library Funktionen wie zuvor darauf benutzt werden können " "(mit Einschränkungen wegen der fehlenden Farbtabelle)\n\n" "* Ein Monitor Modes Edit Tool" ) ) (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "Als registrierter Anwender erhalten Sie die neueste Version von " "CyBERgraphics mit einem auf sie persönlich registrierten Grafikkarten " "Treiber. Neu erscheinende Versionen der CyBERgraphics libraries " "und tools werden weiterhin über elektronische Netze veröffentlicht " "und können dann auch direkt von Ihnen ohne Einschränkungen genutzt " "werden. Neue Versionen des Grafikkarten Treibers werden Ihnen " "persönlich zugestellt (per smail bzw. email)\n" "Dieses Angebot gilt selbstverständlich nur für registrierte Benutzer.\n" ) ) (set #REGtext (cat"Letzte Info\n~~~~~~~~~~~~~\n" " Bei Fragen wenden Sie sich an:\n\n" " Frank Mariak Thomas Sontowski \n" " Klosterstr. 7 Bensberger Marktweg 15\n" " 44135 Dortmund 51069 Köln \n\n\n" "Bei Anregungen & Verbesserungsvorschläge können Sie uns gerne per Post oder email kontaktieren." ) ) (set #REGtext1 (cat "Registrierungs Adressen für\n" "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "Europa/Afrika/Asien/Australien\n\n" "Frank Mariak\n" "Klosterstr. 7\n" "44135 Dortmund\n" "Germany\n\n" "Thomas Sontowski\n" "Bensberger Marktweg 15\n" "51069 Koeln\n" "Germany\n" ) ) (set #REGtext2 (cat "Registrierungsaddressen für\n" "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "North-America & South-America\n\n" "Robert Reiswig\n" "5396 Norma Way\n" "Livermore, California 94550-3802\n" "United States of America\n\n\n" "Please read the Orderform!" ) ) (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "* Im Shareware release sind keine Custom Modes verfügbar. " "In der registrierten Version sind diese Beschränkungen natürlich nicht. " "Dort können höhere Farbtiefen und Refreshfrequenzen verwendet werden..\n" "* Nur der ADPro 2.5 Treiber ist im Shareware release verfügbar. " "In der Vollversion gibt es auch Treiber für Maxon Cinema 4D, Real3D, Photogenics, " "PhotoWorx, AmaxIV ... mehr werden folgen.\n" ) ) (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung " "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) " "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, " "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?" ) ) (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten " "zu Hires-sprites (Sie werden nicht mehr von der CyBERgraphics Software " "verdoppelt). " "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE " "in der alten Picasso software)." ) ) (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um " "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar." ) ) (set #alertemu (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) " "auf einen CyBERgraphics Bildschirm umgeleitet." ) ) (set #ask-driver (cat "Bitte wählen Sie die Treiber, die installiert werden sollen.")) (set #board (cat "\nBitte wählen Sie die Grafikkarte, fuer die Sie CyBERgraphics installieren wollen:\n")) (set #CyberREG (cat "Haben Sie bereits eine Version von CyBERgraphics installiert? Wenn das so ist, ueberschreibt die Installation die Monitordatei nicht ! Sie muessen diese Frage richtig beantworten!")) (set #firstTime "Erstinstallation") (set #PDInstalled "PD version installiert") (set #REGInstalled "Registrierte Version installiert") (set #quickupdate "Schnelles Update (Nur neue Libraries & Treiber)") (set #cvmode "CVMode (Screen Mode Programm)") (set #WhereReadME "Bitte waehlen Sie den Pfad, wo die LiesMich Datei hinkopiert werden soll.") (set #AboutQuickie (cat "\n\nBeim schnellen Update werden nur die libraries erneuert.\n\n" "Es ist sowohl fuer registrierte als auch nichtregistrierte Benutzer gedacht!\n\n" "Es erneuert CyBERgraphics auf Version " #CyberVer " der CyBERgraphics libraries." ) ) ) ) ;******************************************************************************** ; ; Quick Update! ********************* ; ;******************************************************************************** (procedure QUICKIE (message #AboutQuickie) ;******************************************************************* ; CyBERgraphics.library ;******************************************************************* (set vernum1 (getversion "libs:cybergraphics.library")) (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) ) (set vernum2 (getversion "libs/cybergraphics.library")) (set ver2 (/ vernum2 65536)) (set rev2 (- vernum2 (* ver2 65536) ) ) (set pick 0) (set pick (askchoice (choices #NoUp #OnlyNew #YesAll) (prompt ("'cybergraphics.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'CyBERgraphics.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2)) (help " ") (default 1) ) ) (if (= pick 1) (copylib (source "libs/cybergraphics.library") (dest "SYS:Libs")) ) (if (= pick 2) (copyfiles (prompt "Copying 'cybergraphics.library' to Libs:") (source "libs/cybergraphics.library") (dest "SYS:Libs") (confirm) (infos) (help " ") ) ) ;******************************************************************* ; cyberintuition.library ;******************************************************************* (set vernum1 (getversion "libs:cyberintuition.library")) (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) ) (set vernum2 (getversion "libs/cyberintuition.library")) (set ver2 (/ vernum2 65536)) (set rev2 (- vernum2 (* ver2 65536) ) ) (set pick 0) (set pick (askchoice (choices #NoUp #OnlyNew #YesAll) (prompt ("'cyberintuition.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cyberintuition.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2)) (help " ") (default 1) ) ) (if (= pick 1) (copylib (source "libs/cyberintuition.library") (dest "SYS:Libs")) ) (if (= pick 2) (copyfiles (prompt "Copying 'cyberintuition.library' to Libs:") (source "libs/cyberintuition.library") (dest "SYS:Libs") (confirm) (infos) (help " ") ) ) ;******************************************************************* ; cyberlayers.library ;******************************************************************* (set vernum1 (getversion "libs:cyberlayers.library")) (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) ) (set vernum2 (getversion "libs/cyberlayers.library")) (set ver2 (/ vernum2 65536)) (set rev2 (- vernum2 (* ver2 65536) ) ) (set pick 0) (set pick (askchoice (choices #NoUp #OnlyNew #YesAll) (prompt ("'cyberlayers.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cyberlayers.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2)) (help " ") (default 1) ) ) (if (= pick 1) (copylib (source "libs/cyberlayers.library") (dest "SYS:Libs")) ) (if (= pick 2) (copyfiles (prompt "Copying 'cyberlayers.library' to Libs:") (source "libs/cyberlayers.library") (dest "SYS:Libs") (confirm) (infos) (help " ") ) ) ;******************************************************************* ; vilintuisup.library ;******************************************************************* (set vernum1 (getversion "libs:vilintuisup.library")) (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) ) (set vernum2 (getversion "libs/vilintuisup.library")) (set ver2 (/ vernum2 65536)) (set rev2 (- vernum2 (* ver2 65536) ) ) (set pick 0) (set pick (askchoice (choices #NoUp #OnlyNew #YesAll) (prompt ("'vilintuisup.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'vilintuisup.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2)) (help " ") (default 1) ) ) (if (= pick 1) (copylib (source "libs/vilintuisup.library") (dest "SYS:Libs")) ) (if (= pick 2) (copyfiles (prompt "Copying 'vilintuisup.library' to Libs:") (source "libs/vilintuisup.library") (dest "SYS:Libs") (confirm) (infos) (help " ") ) ) ;******************************************************************* ; New 3rd Party Program Drivers ;******************************************************************* ;*********************************** (if (= #ADPro 1) ( (set RegDriver (askoptions (choices "ADPro 2.5.0") (prompt #ask-ADPRO) (help #ask-ADPRO) (default 0) ) ) (if (IN RegDriver 0) ( (copylib (prompt #where-ADPRO) (source "drivers/adpro/CyBERgraphics") (dest (askdir (prompt #where-ADPRO) (help #where-ADPRO) (default "ADPRO:Savers2") ) ) (optional) ) ) ) ) ) ;*********************************** (if (= #Cinema4D 1) ( (set RegDriver (askoptions (choices "Maxon Cinema 4D") (prompt #ask-MC4D) (help #ask-MC4D) (default 0) ) ) (if (IN RegDriver 0) ( (copylib (prompt #where-MC4D) (source "drivers/cinema4d/cinemaausgabe.library") (dest (askdir (prompt #where-MC4D) (help #where-MC4D) (default "libs:") ) ) (optional) ) ) ) ) ) ;*********************************** (if (= #PhotoWorx 1) ( (set RegDriver (askoptions (choices "PhotoWorx") (prompt #ask-PHOTOW) (help #ask-PHOTOW) (default 0) ) ) (if (IN RegDriver 0) ( (copylib (prompt #where-PHOTOW) (source "drivers/photoworx/cyber.viewer") (dest (askdir (prompt #where-PHOTOW) (help #where-PHOTOW) (default "Work:") ) ) (optional) ) ) ) ) ) ;*********************************** (if (= #Photogenics 1) ( (set RegDriver (askoptions (choices "Photogenics") (prompt #ask-PHOTOG) (help #ask-PHOTOG) (default 0) ) ) (if (IN RegDriver 0) ( (copylib (prompt #where-PHOTOG) (source "drivers/photogenics/cybergraphics.gio") (newname "CyBERgraphics.gio") (dest (askdir (prompt #where-PHOTOG) (help #where-PHOTOG) (default "Work:") ) ) (optional) ) ) ) ) ) ;*********************************** (if (= #Real3D 1) ( (set RegDriver (askoptions (choices "Real3D Library") (prompt #ask-REAL) (help #ask-REAL) (default 0) ) ) (if (IN RegDriver 0) ( (copylib (prompt #where-REAL) (source "drivers/real3d/cybergfx_r3d.library") (dest (askdir (prompt #where-REAL) (help #where-REAL) (default "libs:") ) ) (optional) ) ) ) ) ) ;*********************************** (if (= #ImageFX 1) ( (set RegDriver (askoptions (choices "ImageFX") (prompt #ask-IFX) (help #ask-IFX) (default 0) ) ) (if (IN RegDriver 0) ( (if (< cpu 68030) (set IFXVer "CyberGraphics.000")) (if (> cpu 68020) (set IFXVer "CyberGraphics.030")) (copylib (prompt #where-IFX) (source (cat "drivers/ImageFX/" IFXVer)) (dest (askdir (prompt #where-IFX) (help #where-IFX) (default "ImageFX:Modules/Render") ) ) (optional) ) ) ) ) ) ;******************************************************************* ; EEENNNDDD ;******************************************************************* (message #Updates) (message #REGtext1) (message #REGtext2) (exit "Quick Update Complete!") ) ;******************************************************************************** ; ; Main Part of the Installer (Main Loop) ; ;******************************************************************************** (if (= #PAY 1) (message #ThankYou) ) (message #by) (message #SysInfo) ;******************************************************************************** ; Check CPU & OS for Right versions ;******************************************************************************** (if (< osver 39) (abort #MinReqOS) ) (if (< cpu 68020) (abort #MinReqCP) ) ;******************************************************************************** ; ;ASK DEFAULT GFX board ; ;******************************************************************************** (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino" "Retina Z3 BLT" "Piccolo Z3 SD64" (prompt #board) (help "Select a Gfx Board") (default 0) ) ) ) ;******************************************************************************** ; ;ASK if user has REG version of CyBERgraphics ; ;******************************************************************************** (set #REG (askchoice (choices #firstTime #PDInstalled #REGInstalled #quickupdate (prompt #CyberREG) (help "Select a Gfx Board") (default 3) ) ) ) (if (= #REG 3) (QUICKIE) ) ;******************************************************************************** ; Warning Messages ;******************************************************************************** (message #WillInstall) ;******************************************************************************** ; Makesure the Monitor type is set to Custom fer Picasso ;******************************************************************************** (if (< MonitorIS 99) ( (set PicassoMonSize (getsize "Devs:Monitors/Picasso")) (if (> PicassoMonSize 25000) ( (if (= board 0) (message #NeedChangeTool) ) ) ) ) ) ;******************************************************************************** ; Ask if to backup the Current OLDER libraries ;******************************************************************************** (if (= board 0) (set BackDirText "(SYS:Storage/Village)")) (if (= board 1) (set BackDirText "(SYS:Storage/EGS)")) (if (= board 2) (set BackDirText "(SYS:Storage/EGS)")) (if (= board 3) (set BackDirText "(SYS:Storage/Domino)")) (if (= board 4) (set BackDirText "(SYS:Storage/MacroSystemZ3)")) (if (= board 5) (set BackDirText "(SYS:Storage/EGS)")) (set keep (askchoice (choices #BackUpFiles #DeleteFiles) (prompt (cat #ask-BackOrDelete "\n" BackDirText)) (help #ask-BackOrDelete) (default 0) ) ) ;******************************************************************************** ; If backup TRUE then move all old files to ; "SYS:Storage/Village" or "SYS:Storage/EGS" ;******************************************************************************** (if (= keep 0) ( (if (= board 0) ; PICASSO ( (if (< (exists ("SYS:Storage/Village")) 2) (makedir ("SYS:Storage/Village") (infos))) (complete 10) (set VillSize (getsize "Libs:vilintuisup.library")) (if (> VillSize 14000) ( (if (> (exists ("libs:vilintuisup.library")) 0) (copylib (source "libs:vilintuisup.library") (dest "SYS:Storage/Village")) ) ) ) (complete 20) (if (> (exists ("sys:Expansion/village.library")) 0) (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Village") (infos)) ) (set PicassoMonSize (getsize "Devs:Monitors/Picasso")) (if (< #REG 2) ( (complete 30) (if (> PicassoMonSize 25000) ( (if (> (exists ("Devs:Monitors/Picasso")) 0) (copyfiles (source "Devs:Monitors/Picasso") (dest "SYS:Storage/Village") (infos)) ) ) ) ) ) ) ) ;******************************************************************************** (if (= board 1) ; SPECTRUM ( (if (< (exists ("SYS:Storage/EGS")) 2) (makedir ("SYS:Storage/EGS") (infos))) (complete 5) (if (> (exists ("SYS:WBStartup/E.S.P.")) 0) (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos)) ) (complete 10) (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0) (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos)) ) (complete 15) (if (> (exists ("SYS:WBStartup/EGSStartup")) 0) (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos)) ) (if (> (exists ("Devs:Monitors/EGS")) 0) (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos)) ) (if (< #REG 2) ( (complete 25) (if (> (exists ("Devs:Monitors/Spectrum")) 0) (copyfiles (source "Devs:Monitors/Spectrum") (dest "SYS:Storage/EGS") (infos)) ) ) ) ) ) ;******************************************************************************** (if (= board 2) ; PICCOLO ( (if (< (exists ("SYS:Storage/EGS")) 2) (makedir ("SYS:Storage/EGS") (infos))) (complete 5) (if (> (exists ("SYS:WBStartup/E.S.P.")) 0) (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos)) ) (complete 10) (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0) (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos)) ) (complete 15) (if (> (exists ("SYS:WBStartup/EGSStartup")) 0) (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos)) ) (if (> (exists ("SYS:WBStartup/PicoRetarget")) 0) (copyfiles (source "SYS:WBStartup/PicoRetarget") (dest "SYS:Storage/EGS") (infos)) ) (if (> (exists ("Devs:Monitors/EGS")) 0) (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos)) ) (if (< #REG 2) ( (complete 25) (if (> (exists ("devs:monitors/piccolo")) 0) (copyfiles (source "devs:monitors/piccolo") (dest "SYS:Storage/EGS") (infos)) ) ) ) ) ) ;******************************************************************************** (if (= board 3) ; DOMINO ( (if (< (exists ("SYS:Storage/Domino")) 2) (makedir ("SYS:Storage/Domino") (infos))) (if (> (exists ("SYS:Expansion/village.library")) 0) (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Domino") (infos)) ) (if (< #REG 2) ( (complete 25) (if (> (exists ("devs:monitors/Domino")) 0) (copyfiles (source "devs:monitors/Domino") (dest "SYS:Storage/Domino") (infos)) ) ) ) ) ) ;******************************************************************************** (if (= board 4) ; RetinaZ3 ( (if (< (exists ("SYS:Storage/MacroSystemZ3")) 2) (makedir ("SYS:Storage/MacroSystemZ3") (infos))) (if (> (exists ("Libs:retina.library")) 0) (copyfiles (source "Libs:retina.library") (dest "SYS:Storage/MacroSystemZ3") (infos)) ) (if (> (exists ("SYS:WBStartup/retinaemu")) 0) (copyfiles (source "SYS:WBStartup/retinaemu") (dest "SYS:Storage/MacroSystemZ3") (infos)) ) (if (< #REG 2) ( (complete 25) (if (> (exists ("devs:monitors/RetinaZ3")) 0) (copyfiles (source "devs:monitors/RetinaZ3") (dest "SYS:Storage/MacroSystemZ3") (infos)) ) ) ) ) ) ;******************************************************************************** (if (= board 5) ; PiccoloSD64 ( (if (< (exists ("SYS:Storage/EGS")) 2) (makedir ("SYS:Storage/EGS") (infos))) (complete 5) (if (> (exists ("SYS:WBStartup/E.S.P.")) 0) (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos)) ) (complete 10) (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0) (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos)) ) (complete 15) (if (> (exists ("SYS:WBStartup/EGSStartup")) 0) (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos)) ) (if (> (exists ("SYS:WBStartup/PicoRetarget")) 0) (copyfiles (source "SYS:WBStartup/PicoRetarget") (dest "SYS:Storage/EGS") (infos)) ) (if (> (exists ("Devs:Monitors/EGS")) 0) (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos)) ) (if (< #REG 2) ( (complete 25) (if (> (exists ("Devs:Monitors/PiccoSD64")) 0) (copyfiles (source "Devs:Monitors/PiccoSD64") (dest "SYS:Storage/EGS") (infos)) ) ) ) ) ) ;** ) ) ;******************************************************************************** ; Delete Old files from system ;******************************************************************************** (complete 50) (if (= board 0) ;PICASSO ( (delete "sys:Expansion/village.library") (delete "sys:Expansion/village.library.info") (if (< #REG 2) ( (delete "Devs:Monitors/Picasso") (delete "Devs:Monitors/Picasso.info") ) ) ) ) (if (= board 1) ;SPECTRUM ( (delete "SYS:WBStartup/EGSAmigaDriver") (delete "SYS:WBStartup/EGSAmigaDriver.info") (delete "SYS:WBStartup/E.S.P.") (delete "SYS:WBStartup/E.S.P..info") (delete "DEVS:Monitors/EGS") (delete "DEVS:Monitors/EGS.info") (if (< #REG 2) ( (delete "Devs:Monitors/Spectrum") (delete "Devs:Monitors/Spectrum.info") ) ) ) ) (if (= board 2) ; PICCOLO ( (delete "SYS:WBStartup/EGSAmigaDriver") (delete "SYS:WBStartup/EGSAmigaDriver.info") (delete "SYS:WBStartup/E.S.P.") (delete "SYS:WBStartup/E.S.P..info") (delete "DEVS:Monitors/EGS") (delete "DEVS:Monitors/EGS.info") (delete "SYS:WBStartup/PicoRetarget") (delete "SYS:WBStartup/PicoRetarget.info") (if (< #REG 2) ( (delete "Devs:Monitors/Piccolo") (delete "Devs:Monitors/Piccolo.info") ) ) ) ) (if (= board 3) ;DOMINO ( (if (< #REG 2) ( (delete "DEVS:Monitors/Domino") (delete "DEVS:Monitors/Domino.info") ) ) ) ) (if (= board 4) ;RetinaZ3 ( (delete "Libs:retina.library") (delete "SYS:WBStartup/retinaemu") (delete "SYS:WBStartup/retinaemu.info") (if (< #REG 2) ( (delete "DEVS:Monitors/RetinaZ3") (delete "DEVS:Monitors/RetinaZ3.info") ) ) ) ) (if (= board 5) ;PiccoloSD64 ( (delete "SYS:WBStartup/EGSAmigaDriver") (delete "SYS:WBStartup/EGSAmigaDriver.info") (delete "SYS:WBStartup/E.S.P.") (delete "SYS:WBStartup/E.S.P..info") (delete "DEVS:Monitors/EGS") (delete "DEVS:Monitors/EGS.info") (delete "SYS:WBStartup/PicoRetarget") (delete "SYS:WBStartup/PicoRetarget.info") (if (< #REG 2) ( (delete "Devs:Monitors/PiccoSD64") (delete "Devs:Monitors/PiccoSD64.info") ) ) ) ) ;******************************************************************************** ; Make ENVARC: for boards and copy files ;******************************************************************************** (if (= #PAY 1) ( (if (= board 0) ( (run "makedir envarc:cybergraphics") (run "makedir envarc:cybergraphics/Picasso") (run "ConvPicassoModes") ) ) (if (= board 1) ( (run "makedir envarc:cybergraphics") (run "makedir envarc:cybergraphics/Spectrum") (copyfiles (source "modes") (dest "envarc:cybergraphics/Spectrum") (all) ) ) ) (if (= board 2) ( (run "makedir envarc:cybergraphics") (run "makedir envarc:cybergraphics/Piccolo") (copyfiles (source "modes") (dest "envarc:cybergraphics/Piccolo") (all) ) ) ) (if (= board 3) ( (run "makedir envarc:cybergraphics") (run "makedir envarc:cybergraphics/Domino") (copyfiles (source "modes") (dest "envarc:cybergraphics/Domino") (all) ) ) ) (if (= board 4) ( (run "makedir envarc:cybergraphics") (run "makedir envarc:cybergraphics/RetinaZ3") (copyfiles (source "modes") (dest "envarc:cybergraphics/RetinaZ3") (all) ) ) ) (if (= board 5) ( (run "makedir envarc:cybergraphics") (run "makedir envarc:cybergraphics/PiccoSD64") (copyfiles (source "modes") (dest "envarc:cybergraphics/PiccoSD64") (all) ) ) ) ) ) ;******************************************************************************** ; Copy over new Cyber files to system ;******************************************************************************** (copylib (source "libs/cybergraphics.library") (dest "libs:")) (copylib (source "libs/cyberintuition.library") (dest "libs:")) (copylib (source "libs/cyberlayers.library") (dest "libs:")) (copylib (source "libs/vilintuisup.library") (dest "libs:")) (if (< #REG 2) ( (if (= board 0) (copyfiles (source "devs/monitors/Picasso") (dest "devs:monitors") (infos) ) ) (if (= board 1) (copyfiles (source "devs/monitors/Spectrum") (dest "devs:monitors") (infos) ) ) (if (= board 2) (copyfiles (source "devs/monitors/Piccolo") (dest "devs:monitors") (infos) ) ) (if (= board 3) (copyfiles (source "devs/monitors/Domino") (dest "devs:monitors") (infos) ) ) (if (= board 4) (copyfiles (source "devs/monitors/RetinaZ3") (dest "devs:monitors") (infos) ) ) (if (= board 5) (copyfiles (source "devs/monitors/PiccoSD64") (dest "devs:monitors") (infos) ) ) ) ) ;******************************************************************************** ; Ask which modefile to install (in case of piccolo or spectrum) ;******************************************************************************** (if (= #PAY 1) ( (if (> board 0) ( (set modefile (askchoice (choices #15KHZ #31KHZ #35KHZ #38KHZ #48KHZ #57KHZ #64KHZ) (prompt #ask-MODEFILE) (help #ask-MODEFILE) (default 0) ) ) (if (= board 1) ( (if (= modefile 0) (run "setenv Cybergraphics/SpectrumMonitor Monitor-15khz") ) (if (= modefile 1) (run "setenv Cybergraphics/SpectrumMonitor Monitor-31khz") ) (if (= modefile 2) (run "setenv Cybergraphics/SpectrumMonitor Monitor-35khz") ) (if (= modefile 3) (run "setenv Cybergraphics/SpectrumMonitor Monitor-38khz") ) (if (= modefile 4) (run "setenv Cybergraphics/SpectrumMonitor Monitor-48khz") ) (if (= modefile 5) (run "setenv Cybergraphics/SpectrumMonitor Monitor-57khz") ) (if (= modefile 6) (run "setenv Cybergraphics/SpectrumMonitor Monitor-64khz") ) (copyfiles (source "env:Cybergraphics/SpectrumMonitor") (dest "envarc:Cybergraphics") ) ) ) (if (= board 2) ( (if (= modefile 0) (run "setenv Cybergraphics/PiccoloMonitor Monitor-15khz") ) (if (= modefile 1) (run "setenv Cybergraphics/PiccoloMonitor Monitor-31khz") ) (if (= modefile 2) (run "setenv Cybergraphics/PiccoloMonitor Monitor-35khz") ) (if (= modefile 3) (run "setenv Cybergraphics/PiccoloMonitor Monitor-38khz") ) (if (= modefile 4) (run "setenv Cybergraphics/PiccoloMonitor Monitor-48khz") ) (if (= modefile 5) (run "setenv Cybergraphics/PiccoloMonitor Monitor-57khz") ) (if (= modefile 6) (run "setenv Cybergraphics/PiccoloMonitor Monitor-64khz") ) (copyfiles (source "env:Cybergraphics/PiccoloMonitor") (dest "envarc:Cybergraphics") ) ) ) (if (= board 3) ( (if (= modefile 0) (run "setenv Cybergraphics/DominoMonitor Monitor-15khz") ) (if (= modefile 1) (run "setenv Cybergraphics/DominoMonitor Monitor-31khz") ) (if (= modefile 2) (run "setenv Cybergraphics/DominoMonitor Monitor-35khz") ) (if (= modefile 3) (run "setenv Cybergraphics/DominoMonitor Monitor-38khz") ) (if (= modefile 4) (run "setenv Cybergraphics/DominoMonitor Monitor-48khz") ) (if (= modefile 5) (run "setenv Cybergraphics/DominoMonitor Monitor-57khz") ) (if (= modefile 6) (run "setenv Cybergraphics/DominoMonitor Monitor-64khz") ) (copyfiles (source "env:Cybergraphics/DominoMonitor") (dest "envarc:Cybergraphics") ) ) ) (if (= board 4) ( (if (= modefile 0) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-15khz") ) (if (= modefile 1) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-31khz") ) (if (= modefile 2) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-35khz") ) (if (= modefile 3) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-38khz") ) (if (= modefile 4) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-48khz") ) (if (= modefile 5) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-57khz") ) (if (= modefile 6) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-64khz") ) (copyfiles (source "env:Cybergraphics/RetinaZ3Monitor") (dest "envarc:Cybergraphics") ) ) ) (if (= board 5) ( (if (= modefile 0) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-15khz") ) (if (= modefile 1) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-31khz") ) (if (= modefile 2) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-35khz") ) (if (= modefile 3) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-38khz") ) (if (= modefile 4) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-48khz") ) (if (= modefile 5) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-57khz") ) (if (= modefile 6) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-64khz") ) (copyfiles (source "env:Cybergraphics/PiccoSD64Monitor") (dest "envarc:Cybergraphics") ) ) ) ) ) ) ) ;******************************************************************************** ; ;Move #?monitor file from envarc: to envarc:CyberGraphics for newer Libraries ; ;******************************************************************************** (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor")) 1) (if (> (exists ("EnvArc:PicassoMonitor")) 0) (copyfiles (source "EnvArc:PicassoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) ) ) ) (if (< (exists ("EnvArc:CyberGraphics/PicassoSpectrum")) 1) (if (> (exists ("EnvArc:SpectrumMonitor")) 0) (copyfiles (source "EnvArc:SpectrumMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) ) ) ) (if (< (exists ("EnvArc:CyberGraphics/PiccoloMonitor")) 1) (if (> (exists ("EnvArc:PiccoloMonitor")) 0) (copyfiles (source "EnvArc:PiccoloMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) ) ) ) (if (< (exists ("EnvArc:CyberGraphics/DominoMonitor")) 1) (if (> (exists ("EnvArc:DominoMonitor")) 0) (copyfiles (source "EnvArc:DominoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) ) ) ) (if (< (exists ("EnvArc:CyberGraphics/RetinaZ3Monitor")) 1) (if (> (exists ("EnvArc:RetinaZ3Monitor")) 0) (copyfiles (source "EnvArc:RetinaZ3Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) ) ) ) (if (< (exists ("EnvArc:CyberGraphics/PiccoSD64Monitor")) 1) (if (> (exists ("EnvArc:PiccoSD64Monitor")) 0) (copyfiles (source "EnvArc:PiccoSD64Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) ) ) ) ;******************************************************************************** ; ASK to set the 4 ENV modes! ;******************************************************************************** ;(if (= #PAY 1) ;( (set cpup2c (askchoice (choices "Yes" "No") (prompt #cpup2c) (help #cpup2c) (default 0) ) ) (if (= cpup2c 0) ( (run "setenv cybergraphics/CPUP2C 1") (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") ) ) ) (set HIRESCRSR (askchoice (choices "Yes" "No") (prompt #hirescrsr) (help #hirescrsr) (default 0) ) ) (if (= HIRESCRSR 0) ( (run "setenv cybergraphics/HIRESCRSR 1") (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") ) ) ) (set HIDE15BIT (askchoice (choices "Yes" "No") (prompt #hide15bit) (help #hide15bit) (default 0) ) ) (if (= HIDE15BIT 0) ( (run "setenv cybergraphics/HIDE15BIT 1") (copyfiles (source "ENV:cybergraphics/HIDE15BIT") (dest "ENVARC:cybergraphics") ) ) ) (set ALERTEMU (askchoice (choices "Yes" "No") (prompt #alertemu) (help #alertemu) (default 0) ) ) (if (= ALERTEMU 0) ( (run "setenv cybergraphics/ALERTEMU 1") (copyfiles (source "ENV:cybergraphics/ALERTEMU") (dest "ENVARC:cybergraphics") ) ) ) ;) ;) ;******************************************************************************** ; ReG version with all the drivers! ;******************************************************************************** (set RegDriver (askoptions (choices "Maxon Cinema 4D" "PhotoWorx" "Photogenics" "Real3D Library" "ADPro 2.5.0" "ImageFX" ) (prompt #ask-driver) (help #ask-driver) (default 0) ) ) (if (IN RegDriver 0) ( (copyfiles (prompt #where-MC4D) (source "drivers/cinema4d/cinemaausgabe.library") (dest (askdir (prompt #where-MC4D) (help #where-MC4D) (default "libs:") ) ) (optional) ) ) ) (if (IN RegDriver 1) ( (copyfiles (prompt #where-PHOTOW) (source "drivers/photoworx/cyber.viewer") (dest (askdir (prompt #where-PHOTOW) (help #where-PHOTOW) (default "Work:") ) ) (optional) ) ) ) (if (IN RegDriver 2) ( (copyfiles (prompt #where-PHOTOG) (source "drivers/photogenics/cybergraphics.gio") (newname "CyBERgraphics.gio") (dest (askdir (prompt #where-PHOTOG) (help #where-PHOTOG) (default "Work:") ) ) (optional) ) ) ) (if (IN RegDriver 3) ( (copyfiles (prompt #where-REAL) (source "drivers/real3d/cybergfx_r3d.library") (dest (askdir (prompt #where-REAL) (help #where-REAL) (default "libs:") ) ) (optional) ) ) ) (if (IN RegDriver 4) ( (copyfiles (prompt #where-ADPRO) (source "drivers/adpro/CyBERgraphics") (dest (askdir (prompt #where-ADPRO) (help #where-ADPRO) (default "ADPRO:Savers2") ) ) (optional) ) ) ) (if (IN RegDriver 5) ( (if (< cpu 68030) (set IFXVer "CyberGraphics.000")) (if (> cpu 68020) (set IFXVer "CyberGraphics.030")) (copyfiles (prompt #where-IFX) (source (cat "drivers/ImageFX/" IFXVer)) (dest (askdir (prompt #where-IFX) (help #where-IFX) (default "ImageFX:Modules/Render") ) ) (optional) ) ) ) ;******************************************************************************** ; Ask to install DEVDOCS, Versions, Order, guide ;******************************************************************************** (set ToDo (askoptions (choices #order #guide #devdocs #versions #SetEnv) (prompt #wishtoinstall) (help #wishtoinstall) (default 63) ) ) ;******************************************************************************** ; Ask WHERE to install DEVDOCS, Versions, Order, guide ;******************************************************************************** (if (<> ToDo 0) ( (set CyberDrawer (askdir (prompt #WhereStuffDir) (help #WhereStuffDir) (default "Work:") ) ) (if (< (exists (tackon CyberDrawer "CyberGraphics")) 2) (makedir (tackon CyberDrawer "CyberGraphics") (infos)) ) (set where (tackon CyberDrawer "CyberGraphics")) (set @default-dest CyberDrawer) ;******************************************************************************** ; COPY selected stuff! ;******************************************************************************** (if (IN ToDo 0) ( (if (= #PAY 0) ( (set StarTrek 1) ;(if (= LAN 0) (copyfiles (source "Bestellformular") (dest where) (infos) ) ) ;(if (= LAN 1) (copyfiles (source "Orderform") (dest where) (infos) ) ) ) ) ) ) (if (IN ToDo 1) ( (if (= LAN 0) (copyfiles (source "CyBERgfx_D.guide") (dest where) (infos) (newname "CyberGfx.guide")) ) (if (= LAN 1) (copyfiles (source "CyBERgfx_E.guide") (dest where) (infos) (newname "CyberGfx.guide")) ) ) ) (if (IN ToDo 2) ( (if (< (exists (tackon where "DevDocs")) 2) (makedir (tackon where "DevDocs") (infos)) ) (copyfiles (source "devdocs") (dest (tackon where "DevDocs")) (all) ) ) ) (if (IN ToDo 3) ( (copyfiles (source "Versions") (dest where) (infos) ) ) ) (if (IN ToDo 4) ( (copyfiles (source "CyberGfx_SetEnv") (dest where) (infos) ) ;(if (= #PAY 0) (message "\n\n\nNote:\n\nCyberGfx_SetEnv\n\nis only for Registered Users.") ) ) ) (set CyberDrawer where) ) ) ;******************************************************************************** ; Move over PAY things ;******************************************************************************** (if (= #PAY 1) ( (set ToDo1 (askoptions (choices #cvmode) (prompt #wishtoinstall) (help #wishtoinstall) (default 63) ) ) (if (<> ToDo1 0) ( (set CyberDrawer (askdir (prompt #WhereStuffDir) (help #WhereStuffDir) (default CyberDrawer) ) ) ) ) (if (IN ToDo1 0) ( (copylib (source "libs/gtlayout.library") (dest "Libs:")) (copylib (source "CVMode") (dest CyberDrawer) (infos) ) ;** "Picasso II" "Spectrum" "Piccolo" ;** "Domino" "Retina Z3 BLT" "Piccolo SD64" (tooltype (dest (tackon CyberDrawer "CVMode")) (if (= board 0) (settooltype "BOARD" "Picasso") ) (if (= board 1) (settooltype "BOARD" "Spectrum") ) (if (= board 2) (settooltype "BOARD" "Piccolo") ) (if (= board 3) (settooltype "BOARD" "Domino") ) (if (= board 4) (settooltype "BOARD" "RetinaZ3") ) (if (= board 5) (settooltype "BOARD" "PiccoSD64") ) ) ) ) (if (= LAN 0) (copyfiles (source "LiesMich") (dest CyberDrawer) (infos) ) ) (if (= LAN 1) (copyfiles (source "Readme") (dest CyberDrawer) (infos) ) ) (set @default-dest CyberDrawer) ) ) ;******************************************************************************** ; How to get the REAL version and what coming! ;******************************************************************************** (if (= #PAY 0) (message #Restrictions) ) (message #Comming) (message #Updates) (message #REGtext1) (message #REGtext2) ;******************************************************************************** ; ; END OF NORMAL INSTALL ; ;********************************************************************************