;******************************************************************************** ; ;CyberGraphics Install By Robert Reiswig ©1995 If you wish to use parts ;you MUST ask!! (For use with CygerGraphics Only!) Feb-22-95 ;For Frank Mariak : CyberGraphics! ; ;Installer suggestions or problems: rcr@netcom.com ;Thanks to ScottE for the EGS Dirs - Thanks to Flam for Spectrum Install testing! ; ;******************************************************************************** ;******************************************************************************** ; ; Read All System information ; ;******************************************************************************** (set #PAY 0) ; 0=NO 1=YES (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" " RAM:Cyber ")) (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")) ;******************************************************************************** ; ;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 YOU" ) ) (set #By (cat "Cybergraphics Software by:\n\nFrank Mariak\nfmariak@chaosengine.ping.de" "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de" "\n\n\nInstaller 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 #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 #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" "* There is only an AdPro driver in the shareware package. " "There also exist drivers for Maxon Cinema 4D, Real3D, Photogenics, " "PhotoWorx, AmaxIV ... more to come.\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 #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 "Registrated version Installed") ;******************************************************************************** ; ;German Information ; ;******************************************************************************** (if (= LAN 0) ( (set #ThankYou (cat "\nWillkommen zur registrierten Version des Cybergraphics " "Installationsprogramms!\n\n\nVIELEN DANK" ) ) (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 #board (cat "\nBitte wählen Sie das Grafikboard, für das Sie Cybergraphics installieren wollen:\n")) (set #ask-driver (cat "Bitte wählen Sie die zu installierenden Treiber.")) (set #CyberREG (cat "Haben Sie bereits eine registrierte Version von CyberGraphics installiert ? Wenn das so ist , ersetzt das Installerskript den vorhandenen Monitortreiber nicht! Sie müssen diese Frage korrekt beantworten!")) (set #firstTime "Erstinstallation") (set #PDInstalled "PD Version installiert") (set #REGInstalled "Registrierte Version installiert") (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 #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 #YES-IFX "Ja - Installiere ImageFX Rendermodul") (set #NO-IFX "Nein - Installiere ImageFX Rendermodul nicht!") (set #ask-IFX "Wollen Sie das ImageFX Rendermodul installieren?") (set #where-IFX "Wo wollen Sie das ImageFX Rendermodul installieren?\n(Default ist \"ImageFX:Modules/Render\")") (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" "Das erste Update des Grafikkarten Treibers bekommen Sie kostenlos " "zugestellt, alle weiteren werden Ihnen gegen einen Unkostenbeitrag von " "DM 5 (US$ 5 außerhalb der EU) umgehend zugestellt, falls sie den Postweg " "wünschen (email-Zusendung bleibt kostenfrei) " "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 #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)." ) ) ) ) ;******************************************************************************** ; ; Main Part of the Installer (Main Loop) ; ;******************************************************************************** (if (= #PAY 1) (message #ThankYou) ) (message #by) ;******************************************************************************** ; 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" (prompt #board) (help "Select a Gfx Board") (default 0) ) ) ) ;******************************************************************************** ; ;ASK if user has REG version of Cybergraphics ; ;******************************************************************************** (set #REG (askchoice (choices #firstTime #PDInstalled #REGInstalled (prompt #CyberREG) (help "Select a Gfx Board") (default 1) ) ) ) (if (= #REG 2) (set #REG 3)) (set REG# #REG) ;******************************************************************************** ; Warning Messages ;******************************************************************************** (message #SysInfo) (message #WillInstall) ;******************************************************************************** ; Maksure the Monitor type is set to Custom ;******************************************************************************** (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)")) (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# 3) ( (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 (< REG# 3) ( (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 (< REG# 3) ( (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# 3) ( (complete 25) (if (> (exists ("devs:monitors/Domino")) 0) (copyfiles (source "devs:monitors/Domino") (dest "SYS:Storage/Domino") (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# 3) ( (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# 3) ( (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# 3) ( (delete "Devs:Monitors/Piccolo") (delete "Devs:Monitors/Piccolo.info") ) ) ) ) (if (= board 3) ;DOMINO ( (if (< REG# 3) ( (delete "DEVS:Monitors/Domino") (delete "DEVS:Monitors/Domino.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) ) ) ) ) ) ;******************************************************************************** ; 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# 3) ( (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) ) ) ) ) ;******************************************************************************** ; 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 SpectrumMonitor Monitor-15khz") ) (if (= modefile 1) (run "setenv SpectrumMonitor Monitor-31khz") ) (if (= modefile 2) (run "setenv SpectrumMonitor Monitor-35khz") ) (if (= modefile 3) (run "setenv SpectrumMonitor Monitor-38khz") ) (if (= modefile 4) (run "setenv SpectrumMonitor Monitor-48khz") ) (if (= modefile 5) (run "setenv SpectrumMonitor Monitor-57khz") ) (if (= modefile 6) (run "setenv SpectrumMonitor Monitor-64khz") ) (copyfiles (source "env:SpectrumMonitor") (dest "envarc:") ) ) ) (if (= board 2) ( (if (= modefile 0) (run "setenv PiccoloMonitor Monitor-15khz") ) (if (= modefile 1) (run "setenv PiccoloMonitor Monitor-31khz") ) (if (= modefile 2) (run "setenv PiccoloMonitor Monitor-35khz") ) (if (= modefile 3) (run "setenv PiccoloMonitor Monitor-38khz") ) (if (= modefile 4) (run "setenv PiccoloMonitor Monitor-48khz") ) (if (= modefile 5) (run "setenv PiccoloMonitor Monitor-57khz") ) (if (= modefile 6) (run "setenv PiccoloMonitor Monitor-64khz") ) (copyfiles (source "env:PiccoloMonitor") (dest "envarc:") ) ) ) (if (= board 3) ( (if (= modefile 0) (run "setenv DominoMonitor Monitor-15khz") ) (if (= modefile 1) (run "setenv DominoMonitor Monitor-31khz") ) (if (= modefile 2) (run "setenv DominoMonitor Monitor-35khz") ) (if (= modefile 3) (run "setenv DominoMonitor Monitor-38khz") ) (if (= modefile 4) (run "setenv DominoMonitor Monitor-48khz") ) (if (= modefile 5) (run "setenv DominoMonitor Monitor-57khz") ) (if (= modefile 6) (run "setenv DominoMonitor Monitor-64khz") ) (copyfiles (source "env:DominoMonitor") (dest "envarc:") ) ) ) ) ) ) ) ;******************************************************************************** ; ASK to set the 2 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") ) ) ) ) ) ;******************************************************************************** ; 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") (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) (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:CyberGraphics") ) ) (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 (= 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) ) ) ) ) ) ;******************************************************************************** ; How to get the REAL version and what coming! ;******************************************************************************** (if (= #PAY 0) (message #Restrictions) ) (message #Comming) (message #Updates) (message #REGtext)