home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GrafikenKartenSoft / crx-cyb.lha / cyberregs / CyberGfx_Install < prev    next >
Encoding:
Text File  |  1995-06-01  |  60.8 KB  |  2,041 lines
  1. ;******************************************************************************** 
  2. ;
  3. ;CyBERgraphics Installer ©1994-1995 by Robert C. Reiswig
  4. ;If you wish to use parts you MUST ask!!  (May-30-95)
  5. ;For use with PD and Registered CyBERgraphics Only, not for Commercial use.
  6. ;For Frank Mariak ONLY : CyBERgraphics!
  7. ;
  8. ;Installer suggestions or problems: rcr@netcom.com
  9. ;--------------------------------------------------------------------------------
  10. ;Thanks to: ScottE for the EGS Dirs layout
  11. ;
  12. ;********************************************************************************
  13.  
  14.  
  15. ;******************************************************************************** 
  16. ; Any new 3rd Party Program Drivers. Version of CyBERgraphics & PAY 
  17. ;********************************************************************************
  18. ; 1 = There is an Update   0 = NO Update
  19.  
  20. (set #ADPro 0)     (set #Cinema4D 0)
  21. (set #PhotoWorx 0) (set #Photogenics 0)
  22. (set #Real3D 0)    (set #ImageFX 0)
  23.  
  24. (set #cyberver "40.49")
  25.  
  26. (set #PAY 0) ; 0=NO 1=YES  
  27.  
  28.  
  29. (message (cat "\nCyBERgraphics V" #cyberver "\n~~~~~~~~~~~~~~~~~~~~\nPicasso II\n\nSpectrum\n\nPiccolo\n\nDomino\n\nRetina Z3 BLT\n\nPiccolo SD64"))
  30. ;(if (= FrankIsAKing 46) (welcome) )
  31. (welcome)
  32. ;******************************************************************************** 
  33. ;
  34. ; Read All System information 
  35. ;
  36. ;********************************************************************************
  37. (set cpu (database "cpu"))
  38. (set vblank (database "vblank"))
  39. (set graphmem (database "graphics-mem"))
  40. (set totmem (database "total-mem"))
  41. (set osver (/ (getversion "LIBS:version.library") 65536))
  42. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  43. (set fastmem (- totmem graphmem))
  44.  
  45. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  46. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  47. ( if (= osver 41) ( (set workbench "4.0")) )))))
  48.  
  49. ;(run "type >RAM:Cyber SYS:Expansion/village.library.info opt h")
  50. (set runstring (cat "search" " SYS:Expansion/village.library.info"))
  51.  
  52. (set runstring1 (cat runstring "\"R=64\""))   (if (= (run runstring1) 0) (set MonitorIS 64))      
  53. (set runstring1 (cat runstring "\"R=57\""))   (if (= (run runstring1) 0) (set MonitorIS 57))
  54. (set runstring1 (cat runstring "\"R=48\""))   (if (= (run runstring1) 0) (set MonitorIS 48))
  55. (set runstring1 (cat runstring "\"R=38\""))   (if (= (run runstring1) 0) (set MonitorIS 38))
  56. (set runstring1 (cat runstring "\"R=35\""))   (if (= (run runstring1) 0) (set MonitorIS 35))
  57. (set runstring1 (cat runstring "\"R=15\""))   (if (= (run runstring1) 0) (set MonitorIS 15))
  58. (set runstring1 (cat runstring "\"CUSTOM\"")) (if (= (run runstring1) 0) (set MonitorIS 99))    
  59.  
  60.  
  61. (run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
  62. (set runstring (cat "search" " RAM:lan "))
  63.  
  64. (set english "")  (set german  "")
  65.  
  66. (set runstring1 (cat runstring "\"deutschland\""))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
  67. (set runstring1 (cat runstring "\"english\""))   (if (= (run runstring1) 0) (set english1 "English"))      
  68.  
  69. (set CyberDrawer "SYS:")
  70. (set were "sys")
  71.  
  72.  
  73. ;******************************************************************************** 
  74. ;
  75. ;ASK DEFAULT LANG
  76. ;
  77. ;********************************************************************************
  78.  
  79.  
  80. (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))
  81.  
  82. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  83.              (prompt #langQuestion)
  84.                      (help "Select a Language")
  85.                    (default lang)
  86.                  )
  87.           )
  88. )
  89.  
  90.  
  91.  
  92.  
  93. ;******************************************************************************** 
  94. ;
  95. ;English Information
  96. ;
  97. ;********************************************************************************
  98.  
  99.  
  100. (set #ThankYou (cat "\nWelcome to the Registered version of the CyBERgraphics "
  101.                     "installer!\n\n\nTHANK\n\nYOU\n\nFrom the CyBERgraphics Team."
  102.                )
  103. )
  104.  
  105. (set #By (cat "CyBERgraphics Release Version " #cyberver "\n"
  106.               "Software by:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  107.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  108.               "\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com"
  109.          )
  110. )
  111.  
  112.  
  113.  
  114.  
  115.  
  116. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  117.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  118.                     "Kickstart 3.x, **You only have " workbench "**\n\n" 
  119.                     "PicassoII in linear mode *not segmented*\n\n"
  120.                     "68020 or higher\n\n"
  121.                     "2 MB of fast memory"                       
  122.                ) 
  123. )
  124.  
  125.  
  126. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  127.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  128.                     "68020 or higher, **You only have " cpu "**\n\n"
  129.                     "PicassoII in linear mode *not segmented*\n\n"
  130.                     "Kickstart 3.x\n\n"                     
  131.                     "2 MB of fast memory" 
  132.                )
  133. )  
  134.  
  135.  
  136. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  137.                    " \"" workbench "\" Version of OS\n\n"
  138.                    " \"" cpu "\" Processor\n\n "
  139.                    " \"" blank "\" Machine\n\n"
  140.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  141.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  142.               )
  143. )
  144.  
  145.  
  146. (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")
  147.  
  148.  
  149. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  150.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  151.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  152.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  153.                           "YOU MUST DO THIS NOW!"
  154.                      )
  155. )
  156.  
  157.  
  158. (set #BackUpFiles "BackUp the Files")
  159. (set #DeleteFiles "Delete the Files")
  160. (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software.")
  161.  
  162.  
  163. (set #YES-ADPRO "Yes - Install ADPro Saver")
  164. (set #NO-ADPRO "No - Don't Install ADPro Saver")
  165. (set #ask-ADPRO "Do you wish to install the CyBERgraphics ADPro saver?")
  166. (set #where-ADPRO "Where do you wish to Install the ADPro Saver?\n(The default is \"ADPRO:Savers2\")")
  167.  
  168. (set #YES-MC4D "Yes - Install MaxonCinema4D display module")
  169. (set #NO-MC4D "No - Don't Install MaxonCinema4D display module")
  170. (set #ask-MC4D "Do you wish to install the MaxonCinema4D display module?")
  171. (set #where-MC4D "Where do you wish to Install the MaxonCinema4D display module?\n(The default is \"libs:\")")
  172.  
  173. (set #YES-PHOTOW "Yes - Install PhotoworX display module")
  174. (set #NO-PHOTOW "No - Don't Install PhotoworX display module")
  175. (set #ask-PHOTOW "Do you wish to install the PhotoworX display module?")
  176. (set #where-PHOTOW "Where do you wish to Install the PhotoworX display module?\n(The default is \"work:\")")
  177.  
  178. (set #YES-PHOTOG "Yes - Install Photogenics saver module")
  179. (set #NO-PHOTOG "No - Don't Install Photogenics saver module")
  180. (set #ask-PHOTOG "Do you wish to install the Photogenics saver module?")
  181. (set #where-PHOTOG "Where do you wish to Install the Photogenics saver module?\n(The default is \"work:\")")
  182.  
  183. (set #YES-REAL "Yes - Install Real3D display module")
  184. (set #NO-REAL "No - Don't Install Real3D display module")
  185. (set #ask-REAL "Do you wish to install the Real3D display module?")
  186. (set #where-REAL "Where do you wish to Install the Real3D display module?\n(The default is \"libs:\")")
  187.  
  188. (set #YES-IFX "Yes - Install ImageFX Render module")
  189. (set #NO-IFX "No - Don't Install ImageFX Render module")
  190. (set #ask-IFX "Do you wish to install the ImageFX Render module?")
  191. (set #where-IFX "Where do you wish to Install the ImageFX Render module?\n(The default is \"ImageFX:Modules/Render\")")
  192.  
  193.  
  194. (set #ask-MODEFILE "Which modefile should be installed ?")
  195. (set #15KHZ "15khz maximum")
  196. (set #31KHZ "31khz maximum")
  197. (set #35KHZ "35khz maximum")
  198. (set #38KHZ "38khz maximum")
  199. (set #48KHZ "48khz maximum")
  200. (set #57KHZ "57khz maximum")
  201. (set #64KHZ "64khz maximum")
  202.  
  203.  
  204. (set #wishtoinstall "Do you wish to install any of the following?")
  205. (set #order "Order Form")
  206. (set #guide "AmigaGuide File")
  207. (set #devdocs  "Developer Documentation")
  208. (set #versions "Versions - Shows Vers of CyBERgraphics") 
  209. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyBERgraphics\" will be created there!)")
  210. (set #SetEnv "SetEnv - Sets/Changes Env Vars")
  211.  
  212.  
  213. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  214.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  215.                    "you can open 24bit screens as standard intuition screens and that you "
  216.                    "can use all graphics.library functions on them as before. (with some "
  217.                    "limitations of course because of the missing color lookup table)\n\n"
  218.                    "Application to adjust the monitor parameters"
  219.               )  
  220. )
  221.    
  222.  
  223.  
  224. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  225.                    "As a registered user, you will get the latest registered "
  226.                    "release of CyBERgraphics including a personalized graphics board driver.\n\n"
  227.                    "The first update of the graphics board driver is for free, any forthcoming "
  228.                    "update will cost DM 5 (US$ 5 outside EU) just to pay our posting&packaging "
  229.                    "costs. email updates will be charge free. This offer is valid for registered users only of course."
  230.               )
  231. )
  232.  
  233.  
  234.  
  235. (set #REGtext (cat "LAST INFO\n~~~~~~~~~~~~~\n"
  236.                "You can reach us at the following address:\n"
  237.                "          Frank Mariak       Thomas Sontowski        \n"
  238.                "        Klosterstr. 7      Bensberger Marktweg 15\n"
  239.                "        44135 Dortmund     51069 Köln            \n\n\n"
  240.                "Feel free to contact us by email or smail if you have any questions."
  241.           )
  242. )
  243.  
  244. (set #REGtext1 (cat "You can now register CyBERgraphics from\n"
  245.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  246.                     "Europe/Africa/Aisa/Australia/Antarctia\n\n"
  247.                     "Frank Mariak\n"
  248.                     "Klosterstr. 7\n"
  249.                     "44135 Dortmund\n"
  250.                     "Germany\n\n"
  251.                     "Thomas Sontowski\n"
  252.                     "Bensberger Marktweg 15\n"
  253.                     "51069 Koeln\n"
  254.                     "Germany\n"               
  255.                )
  256. )
  257.  
  258. (set #REGtext2 (cat "You can now register CyBERgraphics from\n"
  259.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  260.                     "North-America & South-America\n\n"
  261.                     "Robert Reiswig\n"
  262.                     "5396 Norma Way\n"
  263.                     "Livermore, California 94550-3802\n"
  264.                     "United States of America\n\n\n"
  265.                     "Please read the Orderform!"
  266.                                  
  267.                )
  268. )
  269.  
  270. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  271.                         "* In the Shareware release there are no custom modes available. "
  272.                         "In the registered version there are no limitations of this kind "
  273.                         "of course. You may define higher colordepth and refresh frequencies.\n\n"
  274.                         "* If you are registered we grant support if you have any problems "
  275.                         "or questions by email and/or smail. We can't do this for any person who "
  276.                         "has problems with the unregistered release !\n"
  277.                    )
  278. )
  279.  
  280.  
  281.  
  282. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  283.                   "By setting this variable, the planar-to-chunky conversion "
  284.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  285.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  286.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  287.              )
  288. )
  289.   
  290.  
  291. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  292.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  293.                      "become Hires-sprites (they are no longer doubled by "
  294.                      "the CyBERgraphics-Software). "
  295.                      "This variable is identical to the tooltype HIRESSPRITE "
  296.                      "of older Picasso-monitor files."
  297.                 )
  298. )
  299.  
  300.  
  301. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  302.                      "By setting this variable, you can switch off 15bit modes to reduce "
  303.                      "screenmode list length. The Modes are still available but hidden."
  304.                 )
  305. )
  306.  
  307.  
  308. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  309.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) " 
  310.                      "will be placed on an CyBERgraphics screens."
  311.                 )
  312. )
  313.  
  314.  
  315.  
  316.  
  317. (set #ask-driver (cat "Select The Driver(s) you wish to install."))
  318.  
  319.  
  320.  
  321. (set #board (cat "\nPlease Select the Graphics Board you wish to install CyBERgraphics for:\n"))
  322.  
  323.  
  324. (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!"))
  325. (set #firstTime "First time install")
  326. (set #PDInstalled "PD version Installed")
  327. (set #REGInstalled "Registered version Installed")
  328. (set #quickupdate "Quick Update (New Libs & Drivers only)")
  329. (set #cvmode "CVMode (Screen Mode Creator)")
  330.  
  331.  
  332. (set #WhereReadME "Please select where you wish to put the ReadMe.")
  333.  
  334. (set #AboutQuickie (cat "\n\nThis will ONLY UPDATE the CyberGraphic libraries.\n\n"
  335.                         "It is ment for Registered and Non-Registered CyberGraphics users!\n\n"
  336.                         "It will update you system to version " #CyberVer
  337.                         " of the CyBERgraphics libraries." 
  338.                    )
  339. )
  340.  
  341.  
  342. (set #NoUp    "No, Don't update") 
  343. (set #OnlyNew "Yes, Only if newer")
  344. (set #YesAll  "Yes, No matter what")
  345.  
  346.  
  347. ;******************************************************************************** 
  348. ;
  349. ;German Information
  350. ;
  351. ;********************************************************************************
  352.  
  353. (if (= LAN 0)
  354. (
  355.  
  356. (set #By (cat "CyBERgraphics Software von:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  357.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  358.               "\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  359.          )
  360. )
  361.  
  362. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  363.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  364.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  365.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  366.                   "68020 oder höher\n\n"
  367.                   "2 MB FAST Ram"
  368.              )
  369. )
  370.  
  371. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  372.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  373.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  374.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  375.                    "Kickstart 3.x\n\n"
  376.                    "2 MB FAST Ram"
  377.               )
  378. )
  379.  
  380.  
  381. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  382.                    " Version \"" Workbench "\" des OS\n\n"
  383.                    " \"" cpu "\" Prozessor\n\n "
  384.                    " \"" blank "\" Gerät\n\n"
  385.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  386.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  387.               )
  388. )
  389.  
  390.  
  391. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  392.  
  393.  
  394. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  395.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  396.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  397.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  398.                           "YOU MUST DO THIS NOW!"
  399.                      )
  400. )
  401.  
  402.  
  403. (set #BackUpFiles "Sichern der alten Dateien")
  404. (set #DeleteFiles "Löschen der alten Dateien")
  405. (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?")
  406.  
  407.  
  408. (set #YES-ADPRO "Ja - Installiere ADPro Saver")
  409. (set #NO-ADPRO "Nein - Installiere ADPro Saver nicht")
  410. (set #ask-ADPRO "Wollen Sie den CyBERgraphics ADPro saver installieren ?")
  411. (set #where-ADPRO "Wohin wollen Sie den ADPro Saver installieren ?\n(Default ist \"ADPRO:Savers2\")")
  412.  
  413.  
  414. (set #YES-MC4D "Ja - Installiere MaxonCinema4D Treiber")
  415. (set #NO-MC4D "Nein - Installiere MaxonCinema4D Treiber nicht")
  416. (set #ask-MC4D "Wollen Sie den MaxonCinema4D Treiber installieren ?")
  417. (set #where-MC4D "Wohin wollen Sie den MaxonCinema4D Treiber installieren ?\n(Default ist \"libs:\")")
  418.  
  419. (set #YES-PHOTOW "Ja - Installiere PhotoworX Treiber")
  420. (set #NO-PHOTOW "Nein - Installiere PhotoworX Treiber nicht")
  421. (set #ask-PHOTOW "Wollen Sie den PhotoworX Treiber installieren ?")
  422. (set #where-PHOTOW "Wohin wollen Sie den PhotoworX Treiber installieren ?\n(Default ist \"work:\")")
  423.  
  424. (set #YES-PHOTOG "Ja - Installiere Photogenics Saver")
  425. (set #NO-PHOTOG "Nein - Installiere Photogenics Saver nicht")
  426. (set #ask-PHOTOG "Wollen Sie den Photogenics Saver installieren ?")
  427. (set #where-PHOTOG "Wohin wollen Sie den Photogenics Treiber installieren ?\n(Default ist \"work:\")")
  428.  
  429.  
  430. (set #YES-REAL "Ja - Installiere Real3D Treiber")
  431. (set #NO-REAL "Nein - Installiere Real3D Treiber nicht")
  432. (set #ask-REAL "Wollen Sie den Real3D Treiber installieren ?")
  433. (set #where-REAL "Wohin wollen Sie den Real3D Treiber installieren ?\n(Default ist \"libs:\")")
  434.  
  435. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  436. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  437. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  438. (set #35KHZ "Definition mit 35khz max. HFrequenz")
  439. (set #38KHZ "Definition mit 38khz max. HFrequenz")
  440. (set #48KHZ "Definition mit 48khz max. HFrequenz")
  441. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  442. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  443.  
  444. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  445. (set #order "Bestellformular")
  446. (set #guide "AmigaGuide Datei")
  447. (set #devdocs  "Entwickler Dokumentation")
  448. (set #versions "Versions - Zeigt die CyberGFX Versionen") 
  449. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyBERgraphics\" wird automatisch erstellt!)")
  450.  
  451. (set #Comming (cat "\nCOMING! (Geplante Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  452.                    "* 15/16/24 bit Erweiterung der "normalen" graphics.library, das bedeutet, daß "
  453.                    "man 24bit Bildschirme als Standard Intuition Bildschirme öffnen kann und "
  454.                    "das alle graphics.library Funktionen wie zuvor darauf benutzt werden können "
  455.                    "(mit Einschränkungen wegen der fehlenden Farbtabelle)\n\n"
  456.                    "* Ein Monitor Modes Edit Tool"
  457.               )  
  458. )
  459.    
  460.  
  461. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  462.             "Als registrierter Anwender erhalten Sie die neueste Version von "
  463.             "CyBERgraphics mit einem auf sie persönlich registrierten Grafikkarten "
  464.             "Treiber. Neu erscheinende Versionen der CyBERgraphics libraries "
  465.             "und tools werden weiterhin über elektronische Netze veröffentlicht "
  466.             "und können dann auch direkt von Ihnen ohne Einschränkungen genutzt "
  467.             "werden. Neue Versionen des Grafikkarten Treibers werden Ihnen "
  468.             "persönlich zugestellt (per smail bzw. email)\n"
  469.             "Dieses Angebot gilt selbstverständlich nur für registrierte Benutzer.\n"
  470.               )
  471. )
  472.  
  473.  
  474. (set #REGtext   (cat"Letzte Info\n~~~~~~~~~~~~~\n"
  475.                      " Bei Fragen wenden Sie sich an:\n\n"
  476.                      "     Frank Mariak       Thomas Sontowski        \n"
  477.                      "      Klosterstr. 7      Bensberger Marktweg 15\n"
  478.                      "      44135 Dortmund     51069 Köln            \n\n\n"
  479.                      "Bei Anregungen & Verbesserungsvorschläge können Sie uns gerne per Post oder email kontaktieren."
  480.                  )
  481.  
  482. )
  483.  
  484.  
  485.  
  486. (set #REGtext1 (cat "Registrierungs Adressen für\n"
  487.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  488.                     "Europa/Afrika/Asien/Australien\n\n"
  489.                     "Frank Mariak\n"
  490.                     "Klosterstr. 7\n"
  491.                     "44135 Dortmund\n"
  492.                     "Germany\n\n"
  493.                     "Thomas Sontowski\n"
  494.                     "Bensberger Marktweg 15\n"
  495.                     "51069 Koeln\n"
  496.                     "Germany\n"               
  497.                )
  498. )
  499.  
  500. (set #REGtext2 (cat "Registrierungsaddressen für\n"
  501.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  502.                     "North-America & South-America\n\n"
  503.                     "Robert Reiswig\n"
  504.                     "5396 Norma Way\n"
  505.                     "Livermore, California 94550-3802\n"
  506.                     "United States of America\n\n\n"
  507.                     "Please read the Orderform!"
  508.                                  
  509.                )
  510. )
  511.  
  512.  
  513.  
  514. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  515.                         "* Im Shareware release sind keine Custom Modes verfügbar. "
  516.                         "In der registrierten Version sind diese Beschränkungen natürlich nicht. "
  517.                         "Dort können höhere Farbtiefen und Refreshfrequenzen verwendet werden..\n"
  518.                         "* Nur der ADPro 2.5 Treiber ist im Shareware release verfügbar. "
  519.                         "In der Vollversion gibt es auch Treiber für Maxon Cinema 4D, Real3D, Photogenics, "
  520.                         "PhotoWorx, AmaxIV ... mehr werden folgen.\n"
  521.                    )
  522. )
  523.  
  524.  
  525.  
  526. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  527.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  528.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  529.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  530.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  531.              )
  532. )
  533.   
  534.  
  535. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  536.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  537.                      "zu Hires-sprites (Sie werden nicht mehr von der CyBERgraphics Software "
  538.                      "verdoppelt). "
  539.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  540.                      "in der alten Picasso software)."
  541.                 )
  542. )
  543.  
  544.  
  545.  
  546. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  547.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  548.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  549.                 )
  550. )
  551.  
  552. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  553.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) " 
  554.                      "auf einen CyBERgraphics Bildschirm umgeleitet."
  555.                 )
  556. )
  557.  
  558.  
  559.  
  560. (set #ask-driver (cat "Bitte wählen Sie die Treiber, die installiert werden sollen."))
  561.  
  562.  
  563.  
  564. (set #board (cat "\nBitte wählen Sie die Grafikkarte, fuer die Sie CyBERgraphics installieren wollen:\n"))
  565.  
  566.  
  567. (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!"))
  568. (set #firstTime "Erstinstallation")
  569. (set #PDInstalled "PD version installiert")
  570. (set #REGInstalled "Registrierte Version installiert")
  571. (set #quickupdate "Schnelles Update (Nur neue Libraries & Treiber)")
  572. (set #cvmode "CVMode (Screen Mode Programm)")
  573.  
  574.  
  575. (set #WhereReadME "Bitte waehlen Sie den Pfad, wo die LiesMich Datei hinkopiert werden soll.")
  576.  
  577. (set #AboutQuickie (cat "\n\nBeim schnellen Update werden nur die libraries erneuert.\n\n"
  578.                         "Es ist sowohl fuer registrierte als auch nichtregistrierte Benutzer gedacht!\n\n"
  579.                         "Es erneuert CyBERgraphics auf Version " #CyberVer
  580.                         " der CyBERgraphics libraries." 
  581.                    )
  582. )
  583.  
  584.  
  585.  
  586.  
  587. )
  588.  
  589. )
  590.  
  591. ;******************************************************************************** 
  592. ;
  593. ; Quick Update! *********************
  594. ;
  595. ;********************************************************************************
  596. (procedure QUICKIE 
  597.  
  598. (message #AboutQuickie)
  599.  
  600. ;*******************************************************************
  601. ;  CyBERgraphics.library
  602. ;*******************************************************************
  603.  
  604.  
  605. (set vernum1 (getversion "libs:cybergraphics.library"))
  606. (set ver1 (/ vernum1 65536))
  607. (set rev1 (- vernum1 (* ver1 65536) ) )
  608.  
  609.  
  610. (set vernum2 (getversion "libs/cybergraphics.library"))
  611. (set ver2 (/ vernum2 65536))
  612. (set rev2 (- vernum2 (* ver2 65536) ) )
  613.  
  614.  
  615.  
  616. (set pick 0)
  617.  
  618. (set pick (askchoice
  619.         (choices #NoUp #OnlyNew #YesAll)
  620.         (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))
  621.         (help " ")        
  622.               (default 1)
  623.       )
  624. )
  625.  
  626.  
  627.  
  628. (if (= pick 1)
  629.  
  630.         (copylib (source "libs/cybergraphics.library") (dest "SYS:Libs"))
  631.  
  632. )
  633.  
  634.  
  635. (if (= pick 2)
  636.  
  637.         (copyfiles
  638.             (prompt "Copying 'cybergraphics.library' to Libs:")
  639.         (source "libs/cybergraphics.library")
  640.             (dest "SYS:Libs")
  641.             (confirm)
  642.             (infos) (help " ")
  643.          )
  644.  
  645. )
  646.  
  647.  
  648.  
  649. ;*******************************************************************
  650. ;  cyberintuition.library
  651. ;*******************************************************************
  652.  
  653.  
  654. (set vernum1 (getversion "libs:cyberintuition.library"))
  655. (set ver1 (/ vernum1 65536))
  656. (set rev1 (- vernum1 (* ver1 65536) ) )
  657.  
  658.  
  659. (set vernum2 (getversion "libs/cyberintuition.library"))
  660. (set ver2 (/ vernum2 65536))
  661. (set rev2 (- vernum2 (* ver2 65536) ) )
  662.  
  663.  
  664.  
  665. (set pick 0)
  666.  
  667. (set pick (askchoice
  668.         (choices #NoUp #OnlyNew #YesAll)
  669.         (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))
  670.         (help " ")        
  671.               (default 1)
  672.       )
  673. )
  674.  
  675.  
  676.  
  677. (if (= pick 1)
  678.  
  679.         (copylib (source "libs/cyberintuition.library")    (dest "SYS:Libs"))
  680.  
  681. )
  682.  
  683.  
  684. (if (= pick 2)
  685.  
  686.         (copyfiles
  687.             (prompt "Copying 'cyberintuition.library' to Libs:")
  688.         (source "libs/cyberintuition.library")
  689.             (dest "SYS:Libs")
  690.             (confirm)
  691.             (infos) (help " ")
  692.          ) 
  693.  
  694. )
  695.  
  696.  
  697.  
  698.  
  699. ;*******************************************************************
  700. ;  cyberlayers.library
  701. ;*******************************************************************
  702.  
  703.  
  704. (set vernum1 (getversion "libs:cyberlayers.library"))
  705. (set ver1 (/ vernum1 65536))
  706. (set rev1 (- vernum1 (* ver1 65536) ) )
  707.  
  708.  
  709. (set vernum2 (getversion "libs/cyberlayers.library"))
  710. (set ver2 (/ vernum2 65536))
  711. (set rev2 (- vernum2 (* ver2 65536) ) )
  712.  
  713.  
  714.  
  715. (set pick 0)
  716.  
  717. (set pick (askchoice
  718.         (choices #NoUp #OnlyNew #YesAll)
  719.         (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))
  720.         (help " ")        
  721.               (default 1)
  722.       )
  723. )
  724.  
  725.  
  726.  
  727. (if (= pick 1)
  728.  
  729.         (copylib (source "libs/cyberlayers.library") (dest "SYS:Libs"))
  730.  
  731. )
  732.  
  733.  
  734. (if (= pick 2)
  735.  
  736.         (copyfiles
  737.             (prompt "Copying 'cyberlayers.library' to Libs:")
  738.         (source "libs/cyberlayers.library")
  739.             (dest "SYS:Libs")
  740.             (confirm)
  741.             (infos) (help " ")
  742.          ) 
  743.  
  744. )
  745.  
  746.  
  747.  
  748.  
  749.  
  750. ;*******************************************************************
  751. ;  vilintuisup.library
  752. ;*******************************************************************
  753.  
  754.  
  755. (set vernum1 (getversion "libs:vilintuisup.library"))
  756. (set ver1 (/ vernum1 65536))
  757. (set rev1 (- vernum1 (* ver1 65536) ) )
  758.  
  759.  
  760. (set vernum2 (getversion "libs/vilintuisup.library"))
  761. (set ver2 (/ vernum2 65536))
  762. (set rev2 (- vernum2 (* ver2 65536) ) )
  763.  
  764.  
  765.  
  766. (set pick 0)
  767.  
  768. (set pick (askchoice
  769.         (choices #NoUp #OnlyNew #YesAll)
  770.         (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))
  771.         (help " ")        
  772.               (default 1)
  773.       )
  774. )
  775.  
  776.  
  777. (if (= pick 1)
  778.  
  779.         (copylib (source "libs/vilintuisup.library") (dest "SYS:Libs"))
  780.  
  781. )
  782.  
  783.  
  784. (if (= pick 2)
  785.  
  786.         (copyfiles
  787.             (prompt "Copying 'vilintuisup.library' to Libs:")
  788.         (source "libs/vilintuisup.library")
  789.             (dest "SYS:Libs")
  790.             (confirm)
  791.             (infos) (help " ")
  792.          ) 
  793.  
  794. )
  795.  
  796. ;*******************************************************************
  797. ;  New 3rd Party Program Drivers
  798. ;*******************************************************************
  799.  
  800. ;***********************************
  801. (if (= #ADPro 1)
  802.   (
  803.  
  804.    (set RegDriver (askoptions (choices "ADPro 2.5.0")
  805.                     (prompt #ask-ADPRO)
  806.                   (help   #ask-ADPRO)
  807.                   (default 0)
  808.           )
  809.    )
  810.  
  811.  
  812.   
  813.    (if (IN RegDriver 0)
  814.       (
  815.        (copylib   (prompt #where-ADPRO)
  816.               (source "drivers/adpro/CyBERgraphics")
  817.               (dest   (askdir (prompt #where-ADPRO)
  818.                       (help   #where-ADPRO)
  819.                       (default "ADPRO:Savers2")
  820.                   )
  821.               )
  822.               (optional) 
  823.        )
  824.       )
  825.    )
  826.  
  827.   )
  828. )
  829.  
  830. ;***********************************
  831. (if (= #Cinema4D 1)
  832.   (
  833.  
  834.    (set RegDriver (askoptions (choices "Maxon Cinema 4D")
  835.                     (prompt #ask-MC4D)
  836.                   (help   #ask-MC4D)
  837.                   (default 0)
  838.           )
  839.    )
  840.  
  841.  
  842.   
  843.    (if (IN RegDriver 0)
  844.       (
  845.        (copylib   (prompt #where-MC4D)
  846.               (source "drivers/cinema4d/cinemaausgabe.library")
  847.               (dest   (askdir (prompt #where-MC4D)
  848.                       (help   #where-MC4D)
  849.                       (default "libs:")
  850.                   )
  851.               )
  852.               (optional) 
  853.        )
  854.       )
  855.    )
  856.  
  857.   )
  858. )
  859.  
  860. ;***********************************
  861. (if (= #PhotoWorx 1)
  862.   (
  863.  
  864.    (set RegDriver (askoptions (choices "PhotoWorx")
  865.                     (prompt #ask-PHOTOW)
  866.                   (help   #ask-PHOTOW)
  867.                   (default 0)
  868.           )
  869.    )
  870.  
  871.  
  872.   
  873.    (if (IN RegDriver 0)
  874.       (
  875.        (copylib   (prompt #where-PHOTOW)
  876.               (source "drivers/photoworx/cyber.viewer")
  877.               (dest   (askdir (prompt #where-PHOTOW)
  878.                       (help   #where-PHOTOW)
  879.                       (default "Work:")
  880.                   )
  881.               )
  882.               (optional) 
  883.        )
  884.       )
  885.    )
  886.  
  887.   )
  888. )
  889.  
  890. ;***********************************
  891. (if (= #Photogenics 1)
  892.   (
  893.  
  894.    (set RegDriver (askoptions (choices "Photogenics")
  895.                     (prompt #ask-PHOTOG)
  896.                   (help   #ask-PHOTOG)
  897.                   (default 0)
  898.           )
  899.    )
  900.  
  901.  
  902.   
  903.    (if (IN RegDriver 0)
  904.       (
  905.        (copylib   (prompt #where-PHOTOG)
  906.               (source "drivers/photogenics/cybergraphics.gio")
  907.                   (newname "CyBERgraphics.gio")
  908.               (dest   (askdir (prompt #where-PHOTOG)
  909.                       (help   #where-PHOTOG)
  910.                       (default "Work:")
  911.                   )
  912.               )
  913.               (optional) 
  914.        )
  915.       )
  916.    )
  917.  
  918.   )
  919. )
  920.  
  921. ;***********************************
  922. (if (= #Real3D 1)
  923.   (
  924.  
  925.    (set RegDriver (askoptions (choices "Real3D Library")
  926.                     (prompt #ask-REAL)
  927.                   (help   #ask-REAL)
  928.                   (default 0)
  929.           )
  930.    )
  931.  
  932.  
  933.   
  934.    (if (IN RegDriver 0)
  935.       (
  936.        (copylib   (prompt #where-REAL)
  937.               (source "drivers/real3d/cybergfx_r3d.library")
  938.               (dest   (askdir (prompt #where-REAL)
  939.                       (help   #where-REAL)
  940.                       (default "libs:")
  941.                   )
  942.               )
  943.               (optional) 
  944.        )
  945.       )
  946.    )
  947.  
  948.   )
  949. )
  950.  
  951. ;***********************************
  952. (if (= #ImageFX 1)
  953.   (
  954.  
  955.    (set RegDriver (askoptions (choices "ImageFX")
  956.                     (prompt #ask-IFX)
  957.                   (help   #ask-IFX)
  958.                   (default 0)
  959.           )
  960.    )
  961.  
  962.  
  963.   
  964.    (if (IN RegDriver 0)
  965.       (
  966.        (if (< cpu 68030) (set IFXVer "CyberGraphics.000")) 
  967.        (if (> cpu 68020) (set IFXVer "CyberGraphics.030")) 
  968.        (copylib   (prompt #where-IFX)
  969.               (source (cat "drivers/ImageFX/" IFXVer))
  970.               (dest   (askdir (prompt #where-IFX)
  971.                       (help   #where-IFX)
  972.                       (default "ImageFX:Modules/Render")
  973.                   )
  974.               )
  975.               (optional) 
  976.        )
  977.       )
  978.    )
  979.  
  980.   )
  981. )
  982.  
  983.  
  984. ;*******************************************************************
  985. ;  EEENNNDDD
  986. ;*******************************************************************
  987. (message #Updates)
  988. (message #REGtext1)
  989. (message #REGtext2)
  990. (exit "Quick Update Complete!")
  991.  
  992.  
  993.  
  994. )
  995.  
  996.  
  997.  
  998. ;******************************************************************************** 
  999. ;
  1000. ; Main Part of the Installer (Main Loop) 
  1001. ;
  1002. ;********************************************************************************
  1003.  
  1004.  
  1005. (if (= #PAY 1)
  1006.    (message #ThankYou)
  1007. )
  1008.  
  1009. (message #by)
  1010. (message #SysInfo)
  1011.  
  1012. ;******************************************************************************** 
  1013. ; Check CPU & OS for Right versions 
  1014. ;********************************************************************************
  1015. (if (< osver 39)  (abort #MinReqOS) )
  1016. (if (< cpu 68020) (abort #MinReqCP) )
  1017.  
  1018. ;******************************************************************************** 
  1019. ;
  1020. ;ASK DEFAULT GFX board
  1021. ;
  1022. ;********************************************************************************
  1023. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino" "Retina Z3 BLT" "Piccolo Z3 SD64"
  1024.              (prompt #board)
  1025.                      (help "Select a Gfx Board")
  1026.                    (default 0)
  1027.                  )
  1028.           )
  1029. )
  1030.  
  1031.  
  1032. ;******************************************************************************** 
  1033. ;
  1034. ;ASK if user has REG version of CyBERgraphics
  1035. ;
  1036. ;********************************************************************************
  1037. (set #REG  (askchoice (choices #firstTime #PDInstalled  #REGInstalled #quickupdate
  1038.                          (prompt #CyberREG)
  1039.                      (help "Select a Gfx Board")
  1040.                    (default 3)
  1041.                   )
  1042.            )
  1043. )
  1044.  
  1045.  
  1046. (if (= #REG 3) (QUICKIE) )
  1047.  
  1048. ;******************************************************************************** 
  1049. ; Warning Messages 
  1050. ;********************************************************************************
  1051. (message #WillInstall)
  1052.  
  1053. ;******************************************************************************** 
  1054. ; Makesure the Monitor type is set to Custom fer Picasso
  1055. ;********************************************************************************
  1056. (if (< MonitorIS 99)
  1057.  (
  1058.  
  1059.   (set PicassoMonSize (getsize "Devs:Monitors/Picasso"))
  1060.  
  1061.   (if (> PicassoMonSize 25000)
  1062.      (       
  1063.  
  1064.        (if (= board 0) 
  1065.          (message #NeedChangeTool) 
  1066.        )
  1067.  
  1068.      )
  1069.   )
  1070.  
  1071.  )
  1072. )
  1073. ;******************************************************************************** 
  1074. ; Ask if to backup the Current OLDER libraries 
  1075. ;********************************************************************************
  1076.  
  1077. (if (= board 0) (set BackDirText "(SYS:Storage/Village)"))
  1078. (if (= board 1) (set BackDirText "(SYS:Storage/EGS)"))
  1079. (if (= board 2) (set BackDirText "(SYS:Storage/EGS)"))
  1080. (if (= board 3) (set BackDirText "(SYS:Storage/Domino)"))
  1081. (if (= board 4) (set BackDirText "(SYS:Storage/MacroSystemZ3)"))
  1082. (if (= board 5) (set BackDirText "(SYS:Storage/EGS)"))
  1083.  
  1084.  
  1085. (set keep (askchoice (choices #BackUpFiles #DeleteFiles)
  1086.              (prompt (cat #ask-BackOrDelete "\n" BackDirText))
  1087.                      (help   #ask-BackOrDelete)
  1088.                    (default 0)
  1089.       )
  1090. )
  1091.  
  1092. ;******************************************************************************** 
  1093. ; If backup TRUE then move all old files to
  1094. ;         "SYS:Storage/Village" or "SYS:Storage/EGS"
  1095. ;********************************************************************************
  1096. (if (= keep 0)
  1097.  (
  1098.  
  1099.  
  1100.  
  1101.  
  1102.  (if (= board 0) ; PICASSO 
  1103.  
  1104.   (
  1105.    (if (< (exists ("SYS:Storage/Village")) 2)
  1106.        (makedir ("SYS:Storage/Village") (infos)))  
  1107.  
  1108.    
  1109.    (complete 10)
  1110.    (set VillSize (getsize "Libs:vilintuisup.library"))
  1111.      (if (> VillSize 14000) 
  1112.         (
  1113.          (if (> (exists ("libs:vilintuisup.library")) 0)
  1114.             (copylib (source "libs:vilintuisup.library") (dest "SYS:Storage/Village"))
  1115.          )
  1116.         )
  1117.      )
  1118.  
  1119.    (complete 20)
  1120.    (if (> (exists ("sys:Expansion/village.library")) 0)
  1121.        (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Village") (infos))
  1122.    )       
  1123.  
  1124.    (set PicassoMonSize (getsize "Devs:Monitors/Picasso"))
  1125.       
  1126.    (if (< #REG 2) 
  1127.      (
  1128.        (complete 30) 
  1129.         (if (> PicassoMonSize 25000)
  1130.            ( 
  1131.               (if (> (exists ("Devs:Monitors/Picasso")) 0)
  1132.                   (copyfiles (source "Devs:Monitors/Picasso") (dest "SYS:Storage/Village") (infos))
  1133.               ) 
  1134.            )
  1135.         )
  1136.      )
  1137.    )
  1138.   )
  1139.  )
  1140.  
  1141. ;******************************************************************************** 
  1142. (if (= board 1) ; SPECTRUM 
  1143.   (
  1144.  
  1145.    (if (< (exists ("SYS:Storage/EGS")) 2)
  1146.        (makedir ("SYS:Storage/EGS") (infos)))  
  1147.  
  1148.    (complete 5)
  1149.  
  1150.    (if (> (exists ("SYS:WBStartup/E.S.P.")) 0)
  1151.        (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos))
  1152.    )
  1153.  
  1154.    (complete 10)
  1155.    (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0)
  1156.        (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos))
  1157.    )       
  1158.     
  1159.    (complete 15)
  1160.    (if (> (exists ("SYS:WBStartup/EGSStartup")) 0)
  1161.        (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos))
  1162.    )       
  1163.   
  1164.    (if (> (exists ("Devs:Monitors/EGS")) 0)
  1165.            (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos))
  1166.    ) 
  1167.  
  1168.  
  1169.    (if (< #REG 2) 
  1170.      (
  1171.   
  1172.        (complete 25) 
  1173.        (if (> (exists ("Devs:Monitors/Spectrum")) 0)
  1174.            (copyfiles (source "Devs:Monitors/Spectrum") (dest "SYS:Storage/EGS") (infos))
  1175.        ) 
  1176.      )
  1177.    )
  1178.  
  1179.   )
  1180. )
  1181.   
  1182.  
  1183. ;******************************************************************************** 
  1184. (if (= board 2) ; PICCOLO 
  1185.   (
  1186.  
  1187.    (if (< (exists ("SYS:Storage/EGS")) 2)
  1188.        (makedir ("SYS:Storage/EGS") (infos)))  
  1189.  
  1190.    (complete 5)
  1191.  
  1192.    (if (> (exists ("SYS:WBStartup/E.S.P.")) 0)
  1193.        (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos))
  1194.    )
  1195.  
  1196.    (complete 10)
  1197.    (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0)
  1198.        (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos))
  1199.    )       
  1200.     
  1201.    (complete 15)
  1202.    (if (> (exists ("SYS:WBStartup/EGSStartup")) 0)
  1203.        (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos))
  1204.    )       
  1205.   
  1206.    (if (> (exists ("SYS:WBStartup/PicoRetarget")) 0)
  1207.        (copyfiles (source "SYS:WBStartup/PicoRetarget") (dest "SYS:Storage/EGS") (infos))
  1208.    )
  1209.  
  1210.    (if (> (exists ("Devs:Monitors/EGS")) 0)
  1211.            (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos))
  1212.    ) 
  1213.  
  1214.  
  1215.    (if (< #REG 2) 
  1216.      (
  1217.        (complete 25)
  1218.        (if (> (exists ("devs:monitors/piccolo")) 0)
  1219.            (copyfiles (source "devs:monitors/piccolo") (dest "SYS:Storage/EGS") (infos))
  1220.        )  
  1221.       
  1222.      )
  1223.    )
  1224.  
  1225.   )
  1226. )
  1227.   
  1228.  
  1229. ;******************************************************************************** 
  1230. (if (= board 3) ; DOMINO 
  1231.   (
  1232.  
  1233.    (if (< (exists ("SYS:Storage/Domino")) 2)
  1234.        (makedir ("SYS:Storage/Domino") (infos)))  
  1235.  
  1236.    
  1237.   (if (> (exists ("SYS:Expansion/village.library")) 0)
  1238.        (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Domino") (infos))
  1239.   )   
  1240.  
  1241.  
  1242.  
  1243.    (if (< #REG 2) 
  1244.      (
  1245.        (complete 25)
  1246.        (if (> (exists ("devs:monitors/Domino")) 0)
  1247.            (copyfiles (source "devs:monitors/Domino") (dest "SYS:Storage/Domino") (infos))
  1248.        )  
  1249.       
  1250.      )
  1251.    )
  1252.  
  1253.   )
  1254. )
  1255.  
  1256.  
  1257. ;******************************************************************************** 
  1258. (if (= board 4) ; RetinaZ3 
  1259.   (
  1260.  
  1261.    (if (< (exists ("SYS:Storage/MacroSystemZ3")) 2)
  1262.        (makedir ("SYS:Storage/MacroSystemZ3") (infos)))  
  1263.  
  1264.    
  1265.   (if (> (exists ("Libs:retina.library")) 0)
  1266.        (copyfiles (source "Libs:retina.library") (dest "SYS:Storage/MacroSystemZ3") (infos))
  1267.   )
  1268.  
  1269.   (if (> (exists ("SYS:WBStartup/retinaemu")) 0)
  1270.        (copyfiles (source "SYS:WBStartup/retinaemu") (dest "SYS:Storage/MacroSystemZ3") (infos))
  1271.   )   
  1272.  
  1273.  
  1274.  
  1275.    (if (< #REG 2) 
  1276.      (
  1277.        (complete 25)
  1278.        (if (> (exists ("devs:monitors/RetinaZ3")) 0)
  1279.            (copyfiles (source "devs:monitors/RetinaZ3") (dest "SYS:Storage/MacroSystemZ3") (infos))
  1280.        )  
  1281.       
  1282.      )
  1283.    )
  1284.  
  1285.   )
  1286. )
  1287.   
  1288. ;******************************************************************************** 
  1289. (if (= board 5) ; PiccoloSD64 
  1290.   (
  1291.  
  1292.    (if (< (exists ("SYS:Storage/EGS")) 2)
  1293.        (makedir ("SYS:Storage/EGS") (infos)))  
  1294.  
  1295.    (complete 5)
  1296.  
  1297.    (if (> (exists ("SYS:WBStartup/E.S.P.")) 0)
  1298.        (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos))
  1299.    )
  1300.  
  1301.    (complete 10)
  1302.    (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0)
  1303.        (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos))
  1304.    )       
  1305.     
  1306.    (complete 15)
  1307.    (if (> (exists ("SYS:WBStartup/EGSStartup")) 0)
  1308.        (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos))
  1309.    )       
  1310.   
  1311.    (if (> (exists ("SYS:WBStartup/PicoRetarget")) 0)
  1312.        (copyfiles (source "SYS:WBStartup/PicoRetarget") (dest "SYS:Storage/EGS") (infos))
  1313.    )
  1314.  
  1315.    (if (> (exists ("Devs:Monitors/EGS")) 0)
  1316.            (copyfiles (source "Devs:Monitors/EGS") (dest "SYS:Storage/EGS") (infos))
  1317.    ) 
  1318.  
  1319.  
  1320.    (if (< #REG 2) 
  1321.      (
  1322.   
  1323.        (complete 25) 
  1324.        (if (> (exists ("Devs:Monitors/PiccoSD64")) 0)
  1325.            (copyfiles (source "Devs:Monitors/PiccoSD64") (dest "SYS:Storage/EGS") (infos))
  1326.        ) 
  1327.      )
  1328.    )
  1329.  
  1330.   )
  1331. )
  1332.  
  1333.  
  1334. ;**
  1335.  
  1336.  
  1337.  )
  1338. )
  1339.  
  1340. ;******************************************************************************** 
  1341. ; Delete Old files from system
  1342. ;********************************************************************************
  1343. (complete 50)
  1344. (if (= board 0) ;PICASSO
  1345.  (
  1346.   (delete "sys:Expansion/village.library")
  1347.   (delete "sys:Expansion/village.library.info")
  1348.   (if (< #REG 2)
  1349.      (
  1350.        (delete "Devs:Monitors/Picasso")
  1351.        (delete "Devs:Monitors/Picasso.info")
  1352.      )
  1353.   )
  1354.  
  1355.  )
  1356. )
  1357.  
  1358.  
  1359. (if (= board 1) ;SPECTRUM
  1360.  (
  1361.   (delete "SYS:WBStartup/EGSAmigaDriver")
  1362.   (delete "SYS:WBStartup/EGSAmigaDriver.info")
  1363.   (delete "SYS:WBStartup/E.S.P.")
  1364.   (delete "SYS:WBStartup/E.S.P..info")
  1365.   (delete "DEVS:Monitors/EGS")
  1366.   (delete "DEVS:Monitors/EGS.info")
  1367.   (if (< #REG 2) 
  1368.      (
  1369.        (delete "Devs:Monitors/Spectrum")
  1370.        (delete "Devs:Monitors/Spectrum.info")
  1371.      )
  1372.   )     
  1373.  )
  1374. )
  1375.  
  1376.  
  1377. (if (= board 2) ; PICCOLO
  1378.  (
  1379.   (delete "SYS:WBStartup/EGSAmigaDriver")
  1380.   (delete "SYS:WBStartup/EGSAmigaDriver.info")
  1381.   (delete "SYS:WBStartup/E.S.P.")
  1382.   (delete "SYS:WBStartup/E.S.P..info")
  1383.   (delete "DEVS:Monitors/EGS")
  1384.   (delete "DEVS:Monitors/EGS.info")
  1385.   (delete "SYS:WBStartup/PicoRetarget")
  1386.   (delete "SYS:WBStartup/PicoRetarget.info")
  1387.   (if (< #REG 2) 
  1388.      (
  1389.       (delete "Devs:Monitors/Piccolo")
  1390.       (delete "Devs:Monitors/Piccolo.info") 
  1391.      )
  1392.   )     
  1393.  )
  1394. )
  1395.  
  1396.  
  1397. (if (= board 3) ;DOMINO
  1398.  (
  1399.   (if (< #REG 2) 
  1400.      (
  1401.        (delete "DEVS:Monitors/Domino")
  1402.        (delete "DEVS:Monitors/Domino.info")
  1403.      )
  1404.   ) 
  1405.  )
  1406. )
  1407.  
  1408.  
  1409.  
  1410. (if (= board 4) ;RetinaZ3
  1411.  (
  1412.   (delete "Libs:retina.library")
  1413.   (delete "SYS:WBStartup/retinaemu")
  1414.   (delete "SYS:WBStartup/retinaemu.info")
  1415.  
  1416.   (if (< #REG 2) 
  1417.      (
  1418.        (delete "DEVS:Monitors/RetinaZ3")
  1419.        (delete "DEVS:Monitors/RetinaZ3.info")
  1420.      )
  1421.   ) 
  1422.  )
  1423. )
  1424.  
  1425.  
  1426.  
  1427. (if (= board 5) ;PiccoloSD64
  1428.  (
  1429.   (delete "SYS:WBStartup/EGSAmigaDriver")
  1430.   (delete "SYS:WBStartup/EGSAmigaDriver.info")
  1431.   (delete "SYS:WBStartup/E.S.P.")
  1432.   (delete "SYS:WBStartup/E.S.P..info")
  1433.   (delete "DEVS:Monitors/EGS")
  1434.   (delete "DEVS:Monitors/EGS.info")
  1435.   (delete "SYS:WBStartup/PicoRetarget")
  1436.   (delete "SYS:WBStartup/PicoRetarget.info")
  1437.   (if (< #REG 2) 
  1438.      (
  1439.        (delete "Devs:Monitors/PiccoSD64")
  1440.        (delete "Devs:Monitors/PiccoSD64.info")
  1441.      )
  1442.   )     
  1443.  )
  1444. )
  1445.  
  1446.  
  1447. ;******************************************************************************** 
  1448. ; Make ENVARC: for boards and copy files
  1449. ;********************************************************************************
  1450. (if (= #PAY 1)
  1451. (
  1452.  
  1453.  
  1454. (if (= board 0)
  1455.  (
  1456.   (run "makedir envarc:cybergraphics")
  1457.   (run "makedir envarc:cybergraphics/Picasso")
  1458.   (run "ConvPicassoModes")
  1459.  )
  1460. )
  1461.  
  1462.  
  1463.  
  1464. (if (= board 1)
  1465.  (
  1466.   (run "makedir envarc:cybergraphics")
  1467.   (run "makedir envarc:cybergraphics/Spectrum")
  1468.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Spectrum") (all) ) 
  1469.  )
  1470. )
  1471.  
  1472.  
  1473. (if (= board 2)
  1474.  (
  1475.   (run "makedir envarc:cybergraphics")
  1476.   (run "makedir envarc:cybergraphics/Piccolo")
  1477.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Piccolo") (all) ) 
  1478.  )
  1479. )
  1480.  
  1481.  
  1482. (if (= board 3)
  1483.  (
  1484.   (run "makedir envarc:cybergraphics")
  1485.   (run "makedir envarc:cybergraphics/Domino")
  1486.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Domino") (all) ) 
  1487.  )
  1488. )
  1489.  
  1490.  
  1491. (if (= board 4)
  1492.  (
  1493.   (run "makedir envarc:cybergraphics")
  1494.   (run "makedir envarc:cybergraphics/RetinaZ3")
  1495.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/RetinaZ3") (all) ) 
  1496.  )
  1497. )
  1498.  
  1499.  
  1500. (if (= board 5)
  1501.  (
  1502.   (run "makedir envarc:cybergraphics")
  1503.   (run "makedir envarc:cybergraphics/PiccoSD64")
  1504.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/PiccoSD64") (all) ) 
  1505.  )
  1506. )
  1507.  
  1508.  
  1509.  
  1510. )
  1511. )
  1512.  
  1513. ;******************************************************************************** 
  1514. ; Copy over new Cyber files to system
  1515. ;********************************************************************************
  1516. (copylib (source "libs/cybergraphics.library")  (dest "libs:"))
  1517. (copylib (source "libs/cyberintuition.library")  (dest "libs:"))
  1518. (copylib (source "libs/cyberlayers.library")  (dest "libs:"))
  1519. (copylib (source "libs/vilintuisup.library")  (dest "libs:")) 
  1520.  
  1521.  
  1522. (if (< #REG 2) 
  1523.      (
  1524.        
  1525.        (if (= board 0)
  1526.           (copyfiles (source "devs/monitors/Picasso")  (dest "devs:monitors") (infos) )    
  1527.        )
  1528.  
  1529.        (if (= board 1)
  1530.           (copyfiles (source "devs/monitors/Spectrum")  (dest "devs:monitors") (infos) )    
  1531.        )
  1532.  
  1533.        (if (= board 2)
  1534.           (copyfiles (source "devs/monitors/Piccolo")  (dest "devs:monitors") (infos) )    
  1535.        )
  1536.  
  1537.        (if (= board 3)
  1538.           (copyfiles (source "devs/monitors/Domino")  (dest "devs:monitors") (infos) )    
  1539.        )
  1540.  
  1541.        (if (= board 4)
  1542.           (copyfiles (source "devs/monitors/RetinaZ3")  (dest "devs:monitors") (infos) )    
  1543.        )
  1544.  
  1545.        (if (= board 5)
  1546.           (copyfiles (source "devs/monitors/PiccoSD64")  (dest "devs:monitors") (infos) )    
  1547.        )
  1548.  
  1549.  
  1550.       
  1551.      )
  1552. )
  1553.  
  1554. ;******************************************************************************** 
  1555. ; Ask which modefile to install (in case of piccolo or spectrum)
  1556. ;********************************************************************************
  1557. (if (= #PAY 1)
  1558. (
  1559.  
  1560. (if (> board 0)
  1561.  (
  1562.  
  1563.    (set modefile (askchoice    (choices #15KHZ #31KHZ #35KHZ #38KHZ #48KHZ #57KHZ #64KHZ)
  1564.                            (prompt #ask-MODEFILE)
  1565.                            (help   #ask-MODEFILE)
  1566.                          (default 0)
  1567.              )
  1568.    )
  1569.  
  1570.    (if (= board 1)
  1571.       (
  1572.         (if (= modefile 0) (run "setenv Cybergraphics/SpectrumMonitor Monitor-15khz") )
  1573.         (if (= modefile 1) (run "setenv Cybergraphics/SpectrumMonitor Monitor-31khz") )
  1574.         (if (= modefile 2) (run "setenv Cybergraphics/SpectrumMonitor Monitor-35khz") )
  1575.         (if (= modefile 3) (run "setenv Cybergraphics/SpectrumMonitor Monitor-38khz") )
  1576.         (if (= modefile 4) (run "setenv Cybergraphics/SpectrumMonitor Monitor-48khz") ) 
  1577.         (if (= modefile 5) (run "setenv Cybergraphics/SpectrumMonitor Monitor-57khz") )
  1578.         (if (= modefile 6) (run "setenv Cybergraphics/SpectrumMonitor Monitor-64khz") )
  1579.         (copyfiles (source "env:Cybergraphics/SpectrumMonitor")  (dest "envarc:Cybergraphics") )    
  1580.       )
  1581.    )
  1582.  
  1583.    (if (= board 2)
  1584.       (
  1585.         (if (= modefile 0) (run "setenv Cybergraphics/PiccoloMonitor Monitor-15khz") )
  1586.         (if (= modefile 1) (run "setenv Cybergraphics/PiccoloMonitor Monitor-31khz") )
  1587.         (if (= modefile 2) (run "setenv Cybergraphics/PiccoloMonitor Monitor-35khz") )
  1588.         (if (= modefile 3) (run "setenv Cybergraphics/PiccoloMonitor Monitor-38khz") )
  1589.         (if (= modefile 4) (run "setenv Cybergraphics/PiccoloMonitor Monitor-48khz") )
  1590.         (if (= modefile 5) (run "setenv Cybergraphics/PiccoloMonitor Monitor-57khz") )
  1591.         (if (= modefile 6) (run "setenv Cybergraphics/PiccoloMonitor Monitor-64khz") )
  1592.         (copyfiles (source "env:Cybergraphics/PiccoloMonitor")  (dest "envarc:Cybergraphics") )
  1593.       )
  1594.    )
  1595.  
  1596.    (if (= board 3)
  1597.       (
  1598.         (if (= modefile 0) (run "setenv Cybergraphics/DominoMonitor Monitor-15khz") )
  1599.         (if (= modefile 1) (run "setenv Cybergraphics/DominoMonitor Monitor-31khz") )
  1600.         (if (= modefile 2) (run "setenv Cybergraphics/DominoMonitor Monitor-35khz") )
  1601.         (if (= modefile 3) (run "setenv Cybergraphics/DominoMonitor Monitor-38khz") )
  1602.         (if (= modefile 4) (run "setenv Cybergraphics/DominoMonitor Monitor-48khz") )
  1603.         (if (= modefile 5) (run "setenv Cybergraphics/DominoMonitor Monitor-57khz") )
  1604.         (if (= modefile 6) (run "setenv Cybergraphics/DominoMonitor Monitor-64khz") )
  1605.         (copyfiles (source "env:Cybergraphics/DominoMonitor")  (dest "envarc:Cybergraphics") )
  1606.       )
  1607.    )
  1608.  
  1609.  
  1610.    (if (= board 4)
  1611.       (
  1612.         (if (= modefile 0) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-15khz") )
  1613.         (if (= modefile 1) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-31khz") )
  1614.         (if (= modefile 2) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-35khz") )
  1615.         (if (= modefile 3) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-38khz") )
  1616.         (if (= modefile 4) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-48khz") )
  1617.         (if (= modefile 5) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-57khz") )
  1618.         (if (= modefile 6) (run "setenv Cybergraphics/RetinaZ3Monitor Monitor-64khz") )
  1619.         (copyfiles (source "env:Cybergraphics/RetinaZ3Monitor")  (dest "envarc:Cybergraphics") )
  1620.       )
  1621.    )
  1622.  
  1623.   
  1624.    (if (= board 5)
  1625.       (
  1626.         (if (= modefile 0) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-15khz") )
  1627.         (if (= modefile 1) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-31khz") )
  1628.         (if (= modefile 2) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-35khz") )
  1629.         (if (= modefile 3) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-38khz") )
  1630.         (if (= modefile 4) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-48khz") )
  1631.         (if (= modefile 5) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-57khz") )
  1632.         (if (= modefile 6) (run "setenv Cybergraphics/PiccoSD64Monitor Monitor-64khz") )
  1633.         (copyfiles (source "env:Cybergraphics/PiccoSD64Monitor")  (dest "envarc:Cybergraphics") )
  1634.       )
  1635.    )
  1636.  
  1637.  
  1638.  )
  1639. )
  1640.  
  1641.  
  1642. )
  1643. )
  1644.  
  1645.  
  1646. ;******************************************************************************** 
  1647. ;
  1648. ;Move #?monitor file from envarc: to envarc:CyberGraphics for newer Libraries
  1649. ;
  1650. ;********************************************************************************
  1651. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor"))  1)
  1652.       (if (> (exists ("EnvArc:PicassoMonitor")) 0)
  1653.          (copyfiles (source "EnvArc:PicassoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1654.       )
  1655. )
  1656.  
  1657. (if (< (exists ("EnvArc:CyberGraphics/PicassoSpectrum")) 1)
  1658.       (if (> (exists ("EnvArc:SpectrumMonitor")) 0)
  1659.          (copyfiles (source "EnvArc:SpectrumMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1660.       )
  1661. )
  1662.  
  1663. (if (< (exists ("EnvArc:CyberGraphics/PiccoloMonitor")) 1)
  1664.       (if (> (exists ("EnvArc:PiccoloMonitor")) 0)
  1665.          (copyfiles (source "EnvArc:PiccoloMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1666.       )
  1667. )
  1668.  
  1669. (if (< (exists ("EnvArc:CyberGraphics/DominoMonitor")) 1)
  1670.       (if (> (exists ("EnvArc:DominoMonitor")) 0)
  1671.          (copyfiles (source "EnvArc:DominoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1672.       )
  1673. )
  1674.  
  1675.  
  1676. (if (< (exists ("EnvArc:CyberGraphics/RetinaZ3Monitor")) 1)
  1677.       (if (> (exists ("EnvArc:RetinaZ3Monitor")) 0) 
  1678.          (copyfiles (source "EnvArc:RetinaZ3Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1679.       )
  1680. )
  1681.  
  1682. (if (< (exists ("EnvArc:CyberGraphics/PiccoSD64Monitor")) 1)
  1683.       (if (> (exists ("EnvArc:PiccoSD64Monitor")) 0) 
  1684.          (copyfiles (source "EnvArc:PiccoSD64Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1685.       )
  1686. )
  1687.  
  1688. ;******************************************************************************** 
  1689. ; ASK to set the 4 ENV modes!
  1690. ;********************************************************************************
  1691. ;(if (= #PAY 1)
  1692. ;(
  1693.  
  1694.  
  1695. (set cpup2c   (askchoice    (choices "Yes" "No")
  1696.                            (prompt #cpup2c)
  1697.                            (help   #cpup2c)
  1698.                          (default 0)
  1699.           )
  1700. )
  1701.  
  1702.  
  1703. (if (= cpup2c 0)
  1704.    (
  1705.      (run "setenv cybergraphics/CPUP2C 1")
  1706.      (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )
  1707.    )
  1708. )
  1709.  
  1710.  
  1711. (set HIRESCRSR (askchoice    (choices "Yes" "No")
  1712.                            (prompt #hirescrsr)
  1713.                            (help   #hirescrsr)
  1714.                          (default 0)
  1715.            )
  1716. )
  1717.  
  1718.  
  1719. (if (= HIRESCRSR 0)
  1720.    (
  1721.      (run "setenv cybergraphics/HIRESCRSR 1")
  1722.      (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") )
  1723.    )
  1724. )
  1725.  
  1726.  
  1727. (set HIDE15BIT (askchoice    (choices "Yes" "No")
  1728.                            (prompt #hide15bit)
  1729.                            (help   #hide15bit)
  1730.                          (default 0)
  1731.            )
  1732. )
  1733.  
  1734.  
  1735. (if (= HIDE15BIT 0)
  1736.    (
  1737.      (run "setenv cybergraphics/HIDE15BIT 1")
  1738.      (copyfiles (source "ENV:cybergraphics/HIDE15BIT") (dest "ENVARC:cybergraphics") )
  1739.    )
  1740. )
  1741.  
  1742.  
  1743.  
  1744. (set ALERTEMU  (askchoice    (choices "Yes" "No")
  1745.                            (prompt #alertemu)
  1746.                            (help   #alertemu)
  1747.                          (default 0)
  1748.            )
  1749. )
  1750.  
  1751.  
  1752. (if (= ALERTEMU 0)
  1753.    (
  1754.      (run "setenv cybergraphics/ALERTEMU 1")
  1755.      (copyfiles (source "ENV:cybergraphics/ALERTEMU") (dest "ENVARC:cybergraphics") )
  1756.    )
  1757. )
  1758.  
  1759.  
  1760.  
  1761.  
  1762. ;)
  1763. ;)
  1764.  
  1765.  
  1766. ;******************************************************************************** 
  1767. ; ReG version with all the drivers!
  1768. ;********************************************************************************
  1769.    
  1770.    (set RegDriver (askoptions (choices "Maxon Cinema 4D" "PhotoWorx" "Photogenics"
  1771.                                        "Real3D Library" "ADPro 2.5.0" "ImageFX" )
  1772.                     (prompt #ask-driver)
  1773.                   (help   #ask-driver)
  1774.                   (default 0)
  1775.           )
  1776.    )
  1777.  
  1778.  
  1779.   
  1780.    (if (IN RegDriver 0)
  1781.       (
  1782.        (copyfiles (prompt #where-MC4D)
  1783.               (source "drivers/cinema4d/cinemaausgabe.library")
  1784.               (dest   (askdir (prompt #where-MC4D)
  1785.                       (help   #where-MC4D)
  1786.                       (default "libs:")
  1787.                   )
  1788.               )
  1789.               (optional) 
  1790.        )
  1791.       )
  1792.    )
  1793.  
  1794.  
  1795.    (if (IN RegDriver 1)
  1796.       (
  1797.        (copyfiles (prompt #where-PHOTOW)
  1798.               (source "drivers/photoworx/cyber.viewer")
  1799.               (dest   (askdir (prompt #where-PHOTOW)
  1800.                       (help   #where-PHOTOW)
  1801.                       (default "Work:")
  1802.                   )
  1803.               )
  1804.               (optional) 
  1805.        )
  1806.       )
  1807.    )
  1808.  
  1809.  
  1810.    (if (IN RegDriver 2)
  1811.       (
  1812.        (copyfiles (prompt #where-PHOTOG)
  1813.               (source "drivers/photogenics/cybergraphics.gio")
  1814.               (newname "CyBERgraphics.gio")
  1815.                   (dest   (askdir (prompt #where-PHOTOG)
  1816.                       (help   #where-PHOTOG)
  1817.                       (default "Work:")
  1818.                   )
  1819.               )
  1820.               (optional) 
  1821.        )
  1822.       )
  1823.    )
  1824.  
  1825.  
  1826.    (if (IN RegDriver 3)
  1827.       (
  1828.        (copyfiles (prompt #where-REAL)
  1829.               (source "drivers/real3d/cybergfx_r3d.library")
  1830.               (dest   (askdir (prompt #where-REAL)
  1831.                       (help   #where-REAL)
  1832.                       (default "libs:")
  1833.                   )
  1834.               )
  1835.               (optional) 
  1836.        )
  1837.       )
  1838.    )
  1839.  
  1840.  
  1841.    (if (IN RegDriver 4)
  1842.       (
  1843.        (copyfiles (prompt #where-ADPRO)
  1844.               (source "drivers/adpro/CyBERgraphics")
  1845.               (dest   (askdir (prompt #where-ADPRO)
  1846.                       (help   #where-ADPRO)
  1847.                       (default "ADPRO:Savers2")
  1848.                   )
  1849.               )
  1850.               (optional) 
  1851.        )
  1852.       )
  1853.    )
  1854.  
  1855.    
  1856.    (if (IN RegDriver 5)
  1857.       (
  1858.        (if (< cpu 68030) (set IFXVer "CyberGraphics.000")) 
  1859.        (if (> cpu 68020) (set IFXVer "CyberGraphics.030")) 
  1860.        (copyfiles (prompt #where-IFX)
  1861.               (source (cat "drivers/ImageFX/" IFXVer))
  1862.               (dest   (askdir (prompt #where-IFX)
  1863.                       (help   #where-IFX)
  1864.                       (default "ImageFX:Modules/Render")
  1865.                   )
  1866.               )
  1867.               (optional) 
  1868.        )
  1869.       )
  1870.    )
  1871.  
  1872.  
  1873.  
  1874. ;******************************************************************************** 
  1875. ; Ask to install DEVDOCS, Versions, Order, guide
  1876. ;********************************************************************************
  1877. (set ToDo       (askoptions (choices #order #guide #devdocs #versions #SetEnv)
  1878.                 (prompt #wishtoinstall)
  1879.                 (help #wishtoinstall)
  1880.                 (default 63)
  1881.         )
  1882. )
  1883.  
  1884. ;******************************************************************************** 
  1885. ; Ask WHERE to install DEVDOCS, Versions, Order, guide
  1886. ;********************************************************************************
  1887. (if (<> ToDo 0)
  1888.  (
  1889.  
  1890.   (set CyberDrawer (askdir (prompt #WhereStuffDir)
  1891.                (help   #WhereStuffDir)
  1892.                (default "Work:")
  1893.            )  
  1894.   )
  1895.  
  1896.  
  1897.   (if (< (exists (tackon CyberDrawer "CyberGraphics")) 2)
  1898.       (makedir (tackon CyberDrawer "CyberGraphics") (infos))
  1899.         
  1900.   )
  1901.     
  1902.  
  1903.   (set where (tackon CyberDrawer "CyberGraphics"))
  1904.   (set @default-dest CyberDrawer)
  1905.  
  1906. ;******************************************************************************** 
  1907. ; COPY selected stuff!
  1908. ;********************************************************************************
  1909.   (if (IN ToDo 0)
  1910.      (
  1911.       (if (= #PAY 0)
  1912.          (
  1913.           (set StarTrek 1)
  1914.           ;(if (= LAN 0) (copyfiles (source "Bestellformular")  (dest where) (infos) ) )
  1915.           ;(if (= LAN 1) (copyfiles (source "Orderform")  (dest where) (infos) ) )  
  1916.          )
  1917.       )
  1918.   
  1919.      )
  1920.   )
  1921.  
  1922.   (if (IN ToDo 1) 
  1923.    (  
  1924.  
  1925.     (if (= LAN 0) (copyfiles (source "CyBERgfx_D.guide")  (dest where) (infos) (newname "CyberGfx.guide")) )
  1926.     (if (= LAN 1) (copyfiles (source "CyBERgfx_E.guide")  (dest where) (infos) (newname "CyberGfx.guide")) )        
  1927.  
  1928.    )
  1929.   )
  1930.  
  1931.  
  1932.  
  1933.   (if (IN ToDo 2) 
  1934.    (  
  1935.      (if (< (exists (tackon where "DevDocs")) 2)
  1936.           (makedir (tackon where "DevDocs") (infos))
  1937.      )
  1938.      (copyfiles (source "devdocs")  (dest (tackon where "DevDocs")) (all) ) 
  1939.    )
  1940.   )
  1941.  
  1942.  
  1943.  
  1944.   (if (IN ToDo 3) 
  1945.    (  
  1946.      (copyfiles (source "Versions")  (dest where) (infos) )    
  1947.    )
  1948.   )
  1949.  
  1950.   (if (IN ToDo 4) 
  1951.    (  
  1952.      (copyfiles (source "CyberGfx_SetEnv")  (dest where) (infos) )
  1953.      ;(if (= #PAY 0) (message "\n\n\nNote:\n\nCyberGfx_SetEnv\n\nis only for Registered Users.") )
  1954.    )
  1955.   )
  1956.  
  1957.  
  1958.   (set CyberDrawer where)
  1959.  
  1960.  
  1961.  )
  1962. )
  1963.  
  1964. ;******************************************************************************** 
  1965. ; Move over PAY things
  1966. ;********************************************************************************
  1967.  
  1968. (if (= #PAY 1) 
  1969. (
  1970.  
  1971.  (set ToDo1      (askoptions (choices #cvmode)
  1972.                  (prompt #wishtoinstall)
  1973.                  (help #wishtoinstall)
  1974.                   (default 63)
  1975.          ) 
  1976.  )
  1977.  
  1978.  (if (<> ToDo1 0)
  1979.   (
  1980.     (set CyberDrawer (askdir (prompt #WhereStuffDir)
  1981.                   (help   #WhereStuffDir)
  1982.                 (default CyberDrawer)
  1983.              )  
  1984.     )
  1985.   )
  1986.  )
  1987.  
  1988.  
  1989.  
  1990.  (if (IN ToDo1 0)
  1991.    (
  1992.     
  1993.  
  1994.     (copylib (source "libs/gtlayout.library") (dest "Libs:"))
  1995.     (copylib (source "CVMode")  (dest CyberDrawer) (infos) )
  1996.  
  1997.     ;** "Picasso II" "Spectrum" "Piccolo"
  1998.     ;** "Domino" "Retina Z3 BLT" "Piccolo SD64"
  1999.  
  2000.     (tooltype    (dest (tackon CyberDrawer "CVMode"))
  2001.                   (if (= board 0) (settooltype "BOARD" "Picasso") )
  2002.                         (if (= board 1) (settooltype "BOARD" "Spectrum") )
  2003.                         (if (= board 2) (settooltype "BOARD" "Piccolo") ) 
  2004.                         (if (= board 3) (settooltype "BOARD" "Domino") )
  2005.                         (if (= board 4) (settooltype "BOARD" "RetinaZ3") )
  2006.                         (if (= board 5) (settooltype "BOARD" "PiccoSD64") )
  2007.     ) 
  2008.    
  2009.    )
  2010.  )
  2011.  
  2012.  
  2013.   (if (= LAN 0) (copyfiles (source "LiesMich")  (dest CyberDrawer) (infos) ) )
  2014.   (if (= LAN 1) (copyfiles (source "Readme")  (dest CyberDrawer) (infos) ) )  
  2015.   
  2016.   (set @default-dest CyberDrawer)      
  2017.  
  2018. )
  2019. )
  2020. ;******************************************************************************** 
  2021. ; How to get the REAL version and what coming!
  2022. ;********************************************************************************
  2023.  
  2024. (if (= #PAY 0)
  2025.   (message #Restrictions)
  2026. )
  2027. (message #Comming)
  2028. (message #Updates)
  2029.  
  2030. (message #REGtext1)
  2031. (message #REGtext2)
  2032.  
  2033. ;******************************************************************************** 
  2034. ; 
  2035. ; END OF NORMAL INSTALL
  2036. ;
  2037. ;********************************************************************************
  2038.  
  2039.  
  2040.  
  2041.