home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GrafikenKartenSoft / cgfx4056.lha / CyberUpdate2.06 / CyberGraphX_Update < prev    next >
Encoding:
Text File  |  1995-08-04  |  48.3 KB  |  1,308 lines
  1. ;******************************************************************************** 
  2. ;
  3. ;    ______        __                  ______                     __  __   __
  4. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  5. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  6. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  7. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  8. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  9. ;         /_/                                        / /           
  10. ;                                                   /_/           
  11. ; CyberGraphX Update Installer ©1994-1995 by Robert C. Reiswig  (August-04-95)
  12. ;
  13. ; For use with PD and Registered CyberGraphX Only, not for Commercial use.
  14. ; For Frank Mariak : CyberGraphX!
  15. ;
  16. ;--------------------------------------------------------------------------------
  17. ; Installer suggestions or problems: rcr@netcom.com
  18. ; Any changes or additions must be run by me.
  19. ; ©MCMXCV 
  20. ;********************************************************************************
  21.  
  22.  
  23. ;******************************************************************************** 
  24. ; Any new 3rd Party Program Drivers. Version of CyberGraphX & PAY 
  25. ;********************************************************************************
  26. ; 
  27. (set #cyberver "2.06")
  28.  
  29.  
  30. (message (cat "\nCyberGraphX V" #cyberver "\n~~~~~~~~~~~~~~~~~~\n"
  31.               "CyberVision64\n\nPicasso II\n\nSpectrum\n\nDomino\n\nRetina Z3 BLT\n\nPiccolo & Piccolo SD64"
  32.          )
  33. )
  34.  
  35. (welcome)
  36. ;******************************************************************************** 
  37. ;
  38. ; Read All System information 
  39. ;
  40. ;********************************************************************************
  41. (set cpu (database "cpu"))
  42. (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  43. (set vblank (database "vblank"))
  44. (set graphmem (database "graphics-mem"))
  45. (set totmem (database "total-mem"))
  46. (set osver (/ (getversion "LIBS:version.library") 65536))
  47. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  48. (set fastmem (- totmem graphmem))
  49.  
  50. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  51. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  52. ( if (= osver 41) ( (set workbench "4.0")) )))))
  53.  
  54.  
  55.  
  56. ;(run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
  57. ;(set runstring (cat "search" " RAM:lan "))
  58. (set runstring (cat "search" " env:Language "))
  59.  
  60. (set english "")  (set german  "")
  61.  
  62. (set runstring1 (cat runstring "deutschland"))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
  63. (set runstring1 (cat runstring "english"))   (if (= (run runstring1) 0) (set english1 "English"))      
  64. (set lang 0)
  65. (if (= english1 "English") (set lang 1))
  66.  
  67.  
  68. (set CyberDrawer "SYS:")
  69. (set were "sys")
  70.  
  71.  
  72. ;******************************************************************************** 
  73. ;
  74. ;ASK DEFAULT LANG
  75. ;
  76. ;********************************************************************************
  77.  
  78.  
  79. (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))
  80.  
  81. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  82.              (prompt #langQuestion)
  83.                      (help "Select a Language")
  84.                    (default lang)
  85.                  )
  86.           )
  87. )
  88.  
  89.  
  90.  
  91.  
  92. ;******************************************************************************** 
  93. ;
  94. ;English Information
  95. ;
  96. ;********************************************************************************
  97.  
  98.  
  99. (set #ThankYou (cat "\nWelcome to the Registered version of the CyberGraphX "
  100.                     "installer!\n\n\nTHANK\n\nYOU\n\nFrom the CyberGraphX Team."
  101.                )
  102. )
  103.  
  104. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  105.               "Software by:\n\nVision Factory Development"
  106.  
  107.               ;"\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com"
  108.          )
  109. )
  110.  
  111.  
  112.  
  113.  
  114.  
  115. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  116.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  117.                     "Kickstart 3.x, **You only have " workbench "**\n\n" 
  118.                     "PicassoII in linear mode *not segmented*\n\n"
  119.                     "68020 or higher\n\n"
  120.                     "2 MB of fast memory"                       
  121.                ) 
  122. )
  123.  
  124.  
  125. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  126.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  127.                     "68020 or higher, **You only have " cpu "**\n\n"
  128.                     "PicassoII in linear mode *not segmented*\n\n"
  129.                     "Kickstart 3.x\n\n"                     
  130.                     "2 MB of fast memory" 
  131.                )
  132. )  
  133.  
  134.  
  135. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  136.                    " \"" workbench "\" Version of OS\n\n"
  137.                    " \"" cpu "\" Processor\n\n "
  138.                    " \"" blank "\" Machine\n\n"
  139.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  140.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  141.               )
  142. )
  143.  
  144.  
  145. (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")
  146.  
  147.  
  148. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  149.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  150.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  151.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  152.                           "YOU MUST DO THIS NOW!"
  153.                      )
  154. )
  155.  
  156.  
  157. (set #BackUpFiles "BackUp the Files")
  158. (set #DeleteFiles "Delete the Files")
  159. (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software, if you select, to: ")
  160.  
  161.  
  162. (set #YES-ADPRO "Yes - Install ADPro Saver")
  163. (set #NO-ADPRO "No - Don't Install ADPro Saver")
  164. (set #ask-ADPRO "Do you wish to install the CyberGraphX ADPro saver?")
  165. (set #where-ADPRO "Where do you wish to Install the ADPro Saver?\n(The default is \"ADPRO:Savers2\")")
  166.  
  167. (set #YES-MC4D "Yes - Install MaxonCinema4D display module")
  168. (set #NO-MC4D "No - Don't Install MaxonCinema4D display module")
  169. (set #ask-MC4D "Do you wish to install the MaxonCinema4D display module?")
  170. (set #where-MC4D "Where do you wish to Install the MaxonCinema4D display module?\n(The default is \"libs:\")")
  171.  
  172. (set #YES-PHOTOW "Yes - Install PhotoworX display module")
  173. (set #NO-PHOTOW "No - Don't Install PhotoworX display module")
  174. (set #ask-PHOTOW "Do you wish to install the PhotoworX display module?")
  175. (set #where-PHOTOW "Where do you wish to Install the PhotoworX display module?\n(The default is \"work:\")")
  176.  
  177. (set #YES-PHOTOG "Yes - Install Photogenics saver module")
  178. (set #NO-PHOTOG "No - Don't Install Photogenics saver module")
  179. (set #ask-PHOTOG "Do you wish to install the Photogenics saver module?")
  180. (set #where-PHOTOG "Where do you wish to Install the Photogenics saver module?\n(The default is \"work:\")")
  181.  
  182. (set #YES-REAL "Yes - Install Real3D display module")
  183. (set #NO-REAL "No - Don't Install Real3D display module")
  184. (set #ask-REAL "Do you wish to install the Real3D display module?")
  185. (set #where-REAL "Where do you wish to Install the Real3D display module?\n(The default is \"libs:\")")
  186.  
  187. (set #YES-IFX "Yes - Install ImageFX Render module")
  188. (set #NO-IFX "No - Don't Install ImageFX Render module")
  189. (set #ask-IFX "Do you wish to install the ImageFX Render module?")
  190. (set #where-IFX "Where do you wish to Install the ImageFX Render module?\n(The default is \"ImageFX:Modules/Render\")")
  191.  
  192.  
  193. (set #ask-MODEFILE "Which modefile should be installed ?")
  194. (set #15KHZ "15khz maximum")
  195. (set #31KHZ "31khz maximum")
  196. (set #35KHZ "35khz maximum")
  197. (set #38KHZ "38khz maximum")
  198. (set #48KHZ "48khz maximum")
  199. (set #57KHZ "57khz maximum")
  200. (set #64KHZ "64khz maximum")
  201.  
  202.  
  203. (set #wishtoinstall "Do you wish to install any of the following?")
  204. (set #order "Order Form")
  205. (set #guide "AmigaGuide File")
  206. (set #devdocs  "Developer Documentation")
  207. (set #versions "Versions - Shows Vers of CyberGraphX") 
  208. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphX\" will be created there!)")
  209. (set #SetEnv "SetEnv - Sets/Changes Env Vars")
  210.  
  211.  
  212. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  213.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  214.                    "you can open 24bit screens as standard intuition screens and that you "
  215.                    "can use all graphics.library functions on them as before. (with some "
  216.                    "limitations of course because of the missing color lookup table)\n\n"
  217.                    "Application to adjust the monitor parameters"
  218.               )  
  219. )
  220.    
  221.  
  222.  
  223. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  224.                    "As a registered user, you will get the latest registered "
  225.                    "release of CyberGraphX including a personalized graphics board driver.\n\n"
  226.                    "The first update of the graphics board driver is for free, any forthcoming "
  227.                    "update will cost DM 5 (US$ 5 outside EU) just to pay our posting&packaging "
  228.                    "costs. email updates will be charge free. This offer is valid for registered users only of course."
  229.               )
  230. )
  231.  
  232.  
  233.  
  234. (set #REGtext (cat "LAST INFO\n~~~~~~~~~~~~~\n"
  235.                "You can reach us at the following address:\n"
  236.                "          Frank Mariak       Thomas Sontowski        \n"
  237.                "        Klosterstr. 7      Bensberger Marktweg 15\n"
  238.                "        44135 Dortmund     51069 Köln            \n\n\n"
  239.                "Feel free to contact us by email or smail if you have any questions."
  240.           )
  241. )
  242.  
  243. (set #REGtext1 (cat "You can now register CyberGraphX from\n"
  244.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  245.                     "Europe/Africa/Aisa/Australia/Antarctia\n\n"
  246.                     "Frank Mariak\n"
  247.                     "Klosterstr. 7\n"
  248.                     "44135 Dortmund\n"
  249.                     "Germany\n\n"
  250.                     "Thomas Sontowski\n"
  251.                     "Bensberger Marktweg 15\n"
  252.                     "51069 Koeln\n"
  253.                     "Germany\n"               
  254.                )
  255. )
  256.  
  257. (set #REGtext2 (cat "You can now register CyberGraphX from\n"
  258.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  259.                     "North-America & South-America\n\n"
  260.                     "Robert Reiswig\n"
  261.                     "5396 Norma Way\n"
  262.                     "Livermore, California 94550-3802\n"
  263.                     "United States of America\n\n\n"
  264.                     "Please read the Orderform!"
  265.                                  
  266.                )
  267. )
  268.  
  269. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  270.                         "* In the Shareware release there are no custom modes available. "
  271.                         "In the registered version there are no limitations of this kind "
  272.                         "of course. You may define higher colordepth and refresh frequencies.\n\n"
  273.                         "* If you are registered we grant support if you have any problems "
  274.                         "or questions by email and/or smail. We can't do this for any person who "
  275.                         "has problems with the unregistered release !\n"
  276.                    )
  277. )
  278.  
  279.  
  280.  
  281. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  282.                   "By setting this variable, the planar-to-chunky conversion "
  283.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  284.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  285.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  286.              )
  287. )
  288.   
  289.  
  290. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  291.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  292.                      "become Hires-sprites (they are no longer doubled by "
  293.                      "the CyberGraphX-Software). "
  294.                      "This variable is identical to the tooltype HIRESSPRITE "
  295.                      "of older Picasso-monitor files."
  296.                 )
  297. )
  298.  
  299.  
  300. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  301.                      "By setting this variable, you can switch off 15bit modes to reduce "
  302.                      "screenmode list length. The Modes are still available but hidden."
  303.                 )
  304. )
  305.  
  306.  
  307. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  308.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) " 
  309.                      "will be placed on an CyberGraphX screens."
  310.                 )
  311. )
  312.  
  313.  
  314.  
  315.  
  316. (set #ask-driver (cat "Select The Driver(s) you wish to install."))
  317.  
  318.  
  319.  
  320.  
  321.  
  322. (set #CyberREG (cat "If you have a Registered version of CyberGraphX installed or you are running a CyberVision board, "
  323.                     "please select 'Quick Update'. "
  324.                )
  325. )
  326. (set #firstTime "First time install")
  327. (set #PDInstalled "PD version Installed")
  328. (set #REGInstalled "Registered version Installed")
  329. (set #quickupdate "Quick Update (New Libs & Drivers only)")
  330. (set #cvmode "CVMode (Screen Mode Creator)")
  331.  
  332.  
  333. (set #WhereReadME "Please select where you wish to put the ReadMe.")
  334.  
  335.  
  336.  
  337. (set #NoUp    "No, Don't update") 
  338. (set #OnlyNew "Yes, Only if newer")
  339. (set #YesAll  "Yes, No matter what")
  340.  
  341.  
  342. ;******* New Text June 16, 1995
  343. (set #checkcustom (cat "\nThe installer will now check\n"
  344.                        "'SYS:Expansion/village.library.info'\n"
  345.                        "To see if the tool type MONITOR is set to CUSTOM.\n\n"
  346.                        "It would be best to set this to custom so that when you install "
  347.                        "the REG version 'ConvPicassoModes' can convert over all you Sceeen modes "
  348.                        "that you currently use correctly.  If you get an error message you can just skip it."
  349.                   )
  350. )
  351.  
  352.  
  353. (set #ask-Amax "Do you wish to install the CyberGraphX Amax Driver? (It only does 1024x768x256)")
  354. (set #where-Amax "Where do you wish to Install the Amax Driver?\n(The default is \"Work:\")")
  355.  
  356.  
  357. (set #changes (cat "\nStarting with this release, CyBERgraphics now has a new and better name:"
  358.                    "\n\n\nCyberGraphX\n\n\n"
  359.                    "Also starting with this release the Version Numbering has changed. This would "
  360.                    "have been 40.50 but will now be called 2.0 of CyberGraphX. This has been done "
  361.                    "to remove the link between the cybergraphics.library version and the CyberGraphX package version!"
  362.               )
  363. )
  364.  
  365. (set #AboutQuickie (cat "\n\nThis will ONLY UPDATE the CyberGraphic libraries and now the Monitor Drivers.\n\n"
  366.                         "It is ment for Registered and Non-Registered CyberGraphX users!\n\n"
  367.                         "It will update you system to version " #CyberVer
  368.                         " of the CyberGraphX libraries.\n\nIf this is you frist time Installing CyberGraphX " 
  369.                         "then you need to get the _complete_ archive off aminet!"
  370.                     )
  371. )
  372.  
  373. ;************************ New Text July 20, 1995 *********************
  374. (set #yes "Yes - On")
  375. (set #no "No - Off") 
  376. (set #youwantto "You want to set:")
  377. (set #to "To:")
  378.  
  379. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  380.                      "By setting this variable, 8 bit deep screens are always opened "
  381.                      "in Fast memory. Useful with 1MB chip systems but you should "
  382.                      "avoid it with 2MB chip, because the older method is more "
  383.                      "compatible (no taglist changes etc.) "
  384.                 )
  385. ) 
  386.  
  387. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  388.                      "With this option on, non displayable planar bitmaps "
  389.                      "are allocated in fast memory. This options speeds up "
  390.                      "handling of planar bitmaps but could lead to problems "
  391.                      "with amiga graphics which insist on planar graphics "
  392.                      "placed in chip memory. Take care when using this option."
  393.                 )
  394. ) 
  395.  
  396. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  397.                     "If this option is enabled, the monitor switch on every "
  398.                     "CyberGraphX supported board is deactivated. This option is "
  399.                     "required for multi monitor systems."
  400.                 )
  401. ) 
  402.  
  403. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  404.                      "If this option is disabled, everytime a CyberGraphX display "
  405.                      "becomes frontscreen, Amiga display DMA is switched off in order "
  406.                      "to increase chipmem access speed. You can avoid this by enabling "
  407.                      "this option. "
  408.                 )
  409. ) 
  410.  
  411.  
  412. (set #board (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  413.  
  414.  
  415. ;************************ New Text July 21, 1995 *********************
  416.  
  417.  
  418. (set #updatecorrect "\n\n\nThe Monitor file update correctly!\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  419. (set #updatePD "\n\n\nThe Monitor Updater is for Registered Users only.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  420. (set #updateBad "\n\n\nThere has been an error in the Monitor File update.\n\nThe Monitor File is corrupt, bad, renamed or it is missing. Please Check this!\n")
  421. (set #updateNoUpdate "\n\n\nCurrently there is no Updater for your Monitor File.\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  422.  
  423.  
  424.  
  425.  
  426.  
  427. ;******************************************************************************** 
  428. ;
  429. ;German Information
  430. ;
  431. ;********************************************************************************
  432.  
  433. (if (= LAN 0)
  434. (
  435.  
  436.  
  437. (set #By (cat "\n\nCyberGraphX Software\nVersion " #cyberver "\n\n\n\n"
  438.               "Software von:\n\nVision Factory Development"
  439.               ;"\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  440.          )
  441. )
  442.  
  443. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  444.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  445.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  446.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  447.                   "68020 oder höher\n\n"
  448.                   "2 MB FAST Ram"
  449.              )
  450. )
  451.  
  452. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  453.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  454.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  455.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  456.                    "Kickstart 3.x\n\n"
  457.                    "2 MB FAST Ram"
  458.               )
  459. )
  460.  
  461.  
  462. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  463.                    " Version \"" Workbench "\" des OS\n\n"
  464.                    " \"" cpu "\" Prozessor\n\n "
  465.                    " \"" blank "\" Gerät\n\n"
  466.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  467.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  468.               )
  469. )
  470.  
  471.  
  472. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  473.  
  474.  
  475. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  476.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  477.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  478.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  479.                           "YOU MUST DO THIS NOW!"
  480.                      )
  481. )
  482.  
  483.  
  484. (set #BackUpFiles "Sichern der alten Dateien")
  485. (set #DeleteFiles "Löschen der alten Dateien")
  486. (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?")
  487.  
  488.  
  489. (set #YES-ADPRO "Ja - Installiere ADPro Saver")
  490. (set #NO-ADPRO "Nein - Installiere ADPro Saver nicht")
  491. (set #ask-ADPRO "Wollen Sie den CyberGraphX ADPro saver installieren ?")
  492. (set #where-ADPRO "Wohin wollen Sie den ADPro Saver installieren ?\n(Default ist \"ADPRO:Savers2\")")
  493.  
  494.  
  495. (set #YES-MC4D "Ja - Installiere MaxonCinema4D Treiber")
  496. (set #NO-MC4D "Nein - Installiere MaxonCinema4D Treiber nicht")
  497. (set #ask-MC4D "Wollen Sie den MaxonCinema4D Treiber installieren ?")
  498. (set #where-MC4D "Wohin wollen Sie den MaxonCinema4D Treiber installieren ?\n(Default ist \"libs:\")")
  499.  
  500. (set #YES-PHOTOW "Ja - Installiere PhotoworX Treiber")
  501. (set #NO-PHOTOW "Nein - Installiere PhotoworX Treiber nicht")
  502. (set #ask-PHOTOW "Wollen Sie den PhotoworX Treiber installieren ?")
  503. (set #where-PHOTOW "Wohin wollen Sie den PhotoworX Treiber installieren ?\n(Default ist \"work:\")")
  504.  
  505. (set #YES-PHOTOG "Ja - Installiere Photogenics Saver")
  506. (set #NO-PHOTOG "Nein - Installiere Photogenics Saver nicht")
  507. (set #ask-PHOTOG "Wollen Sie den Photogenics Saver installieren ?")
  508. (set #where-PHOTOG "Wohin wollen Sie den Photogenics Treiber installieren ?\n(Default ist \"work:\")")
  509.  
  510.  
  511. (set #YES-REAL "Ja - Installiere Real3D Treiber")
  512. (set #NO-REAL "Nein - Installiere Real3D Treiber nicht")
  513. (set #ask-REAL "Wollen Sie den Real3D Treiber installieren ?")
  514. (set #where-REAL "Wohin wollen Sie den Real3D Treiber installieren ?\n(Default ist \"libs:\")")
  515.  
  516. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  517. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  518. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  519. (set #35KHZ "Definition mit 35khz max. HFrequenz")
  520. (set #38KHZ "Definition mit 38khz max. HFrequenz")
  521. (set #48KHZ "Definition mit 48khz max. HFrequenz")
  522. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  523. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  524.  
  525. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  526. (set #order "Bestellformular")
  527. (set #guide "AmigaGuide Datei")
  528. (set #devdocs  "Entwickler Dokumentation")
  529. (set #versions "Versions - Zeigt die CyberGFX Versionen") 
  530. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphX\" wird automatisch erstellt!)")
  531.  
  532. (set #Comming (cat "\nCOMING! (Geplante Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  533.                    "* 15/16/24 bit Erweiterung der "normalen" graphics.library, das bedeutet, daß "
  534.                    "man 24bit Bildschirme als Standard Intuition Bildschirme öffnen kann und "
  535.                    "das alle graphics.library Funktionen wie zuvor darauf benutzt werden können "
  536.                    "(mit Einschränkungen wegen der fehlenden Farbtabelle)\n\n"
  537.                    "* Ein Monitor Modes Edit Tool"
  538.               )  
  539. )
  540.    
  541.  
  542. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  543.             "Als registrierter Anwender erhalten Sie die neueste Version von "
  544.             "CyberGraphX mit einem auf sie persönlich registrierten Grafikkarten "
  545.             "Treiber. Neu erscheinende Versionen der CyberGraphX libraries "
  546.             "und tools werden weiterhin über elektronische Netze veröffentlicht "
  547.             "und können dann auch direkt von Ihnen ohne Einschränkungen genutzt "
  548.             "werden. Neue Versionen des Grafikkarten Treibers werden Ihnen "
  549.             "persönlich zugestellt (per smail bzw. email)\n"
  550.             "Dieses Angebot gilt selbstverständlich nur für registrierte Benutzer.\n"
  551.               )
  552. )
  553.  
  554.  
  555. (set #REGtext   (cat"Letzte Info\n~~~~~~~~~~~~~\n"
  556.                      " Bei Fragen wenden Sie sich an:\n\n"
  557.                      "     Frank Mariak       Thomas Sontowski        \n"
  558.                      "      Klosterstr. 7      Bensberger Marktweg 15\n"
  559.                      "      44135 Dortmund     51069 Köln            \n\n\n"
  560.                      "Bei Anregungen & Verbesserungsvorschläge können Sie uns gerne per Post oder email kontaktieren."
  561.                  )
  562.  
  563. )
  564.  
  565.  
  566.  
  567. (set #REGtext1 (cat "Registrierungs Adressen für\n"
  568.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  569.                     "Europa/Afrika/Asien/Australien\n\n"
  570.                     "Frank Mariak\n"
  571.                     "Klosterstr. 7\n"
  572.                     "44135 Dortmund\n"
  573.                     "Germany\n\n"
  574.                     "Thomas Sontowski\n"
  575.                     "Bensberger Marktweg 15\n"
  576.                     "51069 Koeln\n"
  577.                     "Germany\n"               
  578.                )
  579. )
  580.  
  581. (set #REGtext2 (cat "Registrierungsaddressen für\n"
  582.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  583.                     "North-America & South-America\n\n"
  584.                     "Robert Reiswig\n"
  585.                     "5396 Norma Way\n"
  586.                     "Livermore, California 94550-3802\n"
  587.                     "United States of America\n\n\n"
  588.                     "Please read the Orderform!"
  589.                                  
  590.                )
  591. )
  592.  
  593.  
  594.  
  595. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  596.                         "* Im Shareware release sind keine Custom Modes verfügbar. "
  597.                         "In der registrierten Version sind diese Beschränkungen natürlich nicht. "
  598.                         "Dort können höhere Farbtiefen und Refreshfrequenzen verwendet werden..\n"
  599.                         "* Nur der ADPro 2.5 Treiber ist im Shareware release verfügbar. "
  600.                         "In der Vollversion gibt es auch Treiber für Maxon Cinema 4D, Real3D, Photogenics, "
  601.                         "PhotoWorx, AmaxIV ... mehr werden folgen.\n"
  602.                    )
  603. )
  604.  
  605.  
  606.  
  607. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  608.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  609.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  610.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  611.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  612.              )
  613. )
  614.   
  615.  
  616. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  617.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  618.                      "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
  619.                      "verdoppelt). "
  620.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  621.                      "in der alten Picasso software)."
  622.                 )
  623. )
  624.  
  625.  
  626.  
  627. (set #NoUp    "Nein, nicht erneuern") 
  628. (set #OnlyNew "Ja, nur wenn neuer")
  629. (set #YesAll  "Ja, egal was installiert ist")
  630.  
  631.  
  632. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  633.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  634.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  635.                 )
  636. )
  637.  
  638. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  639.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) " 
  640.                      "auf einen CyberGraphX Bildschirm umgeleitet."
  641.                 )
  642. )
  643.  
  644.  
  645.  
  646. (set #ask-driver (cat "Bitte wählen Sie die Treiber, die installiert werden sollen."))
  647.  
  648.  
  649. (set #CyberREG (cat "Haben Sie bereits eine Version von CyberGraphX installiert? Wenn das so ist, ueberschreibt die Installation die Monitordatei nicht ! Sie muessen diese Frage richtig beantworten!"))
  650. (set #firstTime "Erstinstallation")
  651. (set #PDInstalled "PD version installiert")
  652. (set #REGInstalled "Registrierte Version installiert")
  653. (set #quickupdate "Schnelles Update (Nur neue Libraries & Treiber)")
  654. (set #cvmode "CVMode (Screen Mode Programm)")
  655.  
  656.  
  657. (set #WhereReadME "Bitte waehlen Sie den Pfad, wo die LiesMich Datei hinkopiert werden soll.")
  658.  
  659. (set #changes (cat "\nBeginnend mit dieser Veröffentlichung heißt das CyBERgraphics System nun anders:"
  660.                    "\n\n\nCyberGraphX\n\n\n"
  661.                    "Ebenso hat sich die Versionsnummernvergabe geändert. Es hätte wie bisher eigentlich "
  662.                    "40.50 sein müssen. Ab sofort ist es aber die Version 2.0 von CyberGraphX. Damit ist endlich der "
  663.                    "Zusammenhang zwischen der Version der cybergraphics.library und dem CyberGraphX Paket aufgehoben"
  664.               )
  665. )
  666.  
  667.  
  668. (set #AboutQuickie (cat "\n\nDieses Paket erneuert NUR die CyberGraphX libraries.\n\n"
  669.                         "Es ist sowohl für registrierte als auch unregistrierte CyberGraphX Benutzer gedacht!\n\n"
  670.                         "Es updated Ihr System auf Version " #CyberVer
  671.                         " der CyberGraphX libraries.\n\nWenn Sie CyberGraphX zum ersten Mal installieren, " 
  672.                         "brauchen Sie das _komplette_ Archiv vom Aminet!"
  673.                     )
  674. )
  675.  
  676.  
  677. ;********************** New Text July 20, 1995 *******************
  678. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  679.                      "Wird diese Option aktiviert, werden CyberGraphX 256-Farben Bildschirme "
  680.                      "immer direkt im FastRAM geöffnet. Das ist sinnvoll bei Rechnern mit 1MB "
  681.                      "ChipRAM, sollte aber mit 2MB ChipRAM Systemen vermieden werden, da die "
  682.                      "alte Methode in einigen Punkten kompatibler ist."
  683.                 )
  684. ) 
  685.  
  686.  
  687. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  688.                      "Ist diese Option aktiv, werden nicht darzustellende "
  689.                      "planare BitMaps im FastRAM angelegt. Diese Option "
  690.                      "beschleunigt die Bearbeitung von planaren BitMaps aber "
  691.                      "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
  692.                      "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
  693.                      "Seien Sie vorsichtig mit der Aktivierung dieser Option."
  694.                 )
  695. ) 
  696.  
  697. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  698.                     "Wenn diese Option aktiviert ist, wird der Monitorumschalter "
  699.                     "auf jeder von CyberGraphX unterstützten Karte deaktiviert. "
  700.                     "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
  701.                 )
  702. ) 
  703.  
  704. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  705.                      "Ist diese Option nicht aktiv, wird jedesmal, wenn "
  706.                      "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
  707.                      "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
  708.                      "Dies kann durch Aktivierung der Option vermieden werden. "
  709.                 )
  710. ) 
  711.  
  712. (set #board (cat "\nBitte wählen Sie die Grafikkarte, deren Monitordatei Sie erneuern möchten:\n"))
  713.  
  714.  
  715. ;************************ New Text July 21, 1995 *********************
  716.  
  717.  
  718. (set #updatecorrect "\n\n\nDie Monitordatei wurde erneuert!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  719. (set #updatePD "\n\n\nDas Erneuern der Monitor funktioniert nur mit registrierten Monitordateien!!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  720. (set #updateBad "\n\n\nEs ist ein Fehler aufgetreten beim Erneuern.\n\nDie Monitordatei ist entweder defekt, umbenannt oder fehlt. Bitte überprüfen Sie das!\n")
  721. (set #updateNoUpdate "\n\n\nEs existiert kein Updater für diesen Monitortreiber in diesem Archiv.\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  722.  
  723.  
  724. (set #yes "Ja")
  725. (set #no "Nein")
  726. (set #youwantto "Sie wollen die Änderung von:")
  727. (set #to "auf:")
  728.  
  729.  
  730.  
  731.  
  732. ;****
  733.  
  734. )
  735.  
  736. )
  737.  
  738. ;******************************************************************************** 
  739. ;
  740. ; Quick Update! *********************
  741. ;
  742. ;********************************************************************************
  743. (message #by)
  744. ;(message #Changes)
  745. (message #AboutQuickie)
  746.  
  747. ;*******************************************************************
  748. ;  cybergraphics.library
  749. ;*******************************************************************
  750.  
  751.  
  752. (set vernum1 (getversion "sys:libs/cybergraphics.library"))
  753. (set ver1 (/ vernum1 65536))
  754. (set rev1 (- vernum1 (* ver1 65536) ) )
  755.  
  756.  
  757. (set vernum2 (getversion "libs/cybergraphics.library"))
  758. (set ver2 (/ vernum2 65536))
  759. (set rev2 (- vernum2 (* ver2 65536) ) )
  760.  
  761.  
  762.  
  763. (set pick 0)
  764.  
  765. (set pick (askchoice
  766.         (choices #NoUp #OnlyNew #YesAll)
  767.         (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))
  768.         (help " ")        
  769.               (default 1)
  770.       )
  771. )
  772.  
  773.  
  774.  
  775. (if (= pick 1)
  776.  
  777.         (copylib (source "libs/cybergraphics.library") (dest "SYS:Libs"))
  778.  
  779. )
  780.  
  781.  
  782. (if (= pick 2)
  783.  
  784.         (copyfiles
  785.             (prompt "Copying 'cybergraphics.library' to Libs:")
  786.         (source "libs/cybergraphics.library")
  787.             (dest "SYS:Libs")
  788.             (confirm)
  789.             (infos) (help " ")
  790.          )
  791.  
  792. )
  793.  
  794.  
  795.  
  796. ;*******************************************************************
  797. ;  cyberintuition.library
  798. ;*******************************************************************
  799.  
  800.  
  801. (set vernum1 (getversion "sys:libs/cyberintuition.library"))
  802. (set ver1 (/ vernum1 65536))
  803. (set rev1 (- vernum1 (* ver1 65536) ) )
  804.  
  805.  
  806. (set vernum2 (getversion "libs/cyberintuition.library"))
  807. (set ver2 (/ vernum2 65536))
  808. (set rev2 (- vernum2 (* ver2 65536) ) )
  809.  
  810.  
  811.  
  812. (set pick 0)
  813.  
  814. (set pick (askchoice
  815.         (choices #NoUp #OnlyNew #YesAll)
  816.         (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))
  817.         (help " ")        
  818.               (default 1)
  819.       )
  820. )
  821.  
  822.  
  823.  
  824. (if (= pick 1)
  825.  
  826.         (copylib (source "libs/cyberintuition.library")    (dest "SYS:Libs"))
  827.  
  828. )
  829.  
  830.  
  831. (if (= pick 2)
  832.  
  833.         (copyfiles
  834.             (prompt "Copying 'cyberintuition.library' to Libs:")
  835.         (source "libs/cyberintuition.library")
  836.             (dest "SYS:Libs")
  837.             (confirm)
  838.             (infos) (help " ")
  839.          ) 
  840.  
  841. )
  842.  
  843.  
  844.  
  845.  
  846. ;*******************************************************************
  847. ;  cyberlayers.library
  848. ;*******************************************************************
  849.  
  850.  
  851. (set vernum1 (getversion "sys:libs/cyberlayers.library"))
  852. (set ver1 (/ vernum1 65536))
  853. (set rev1 (- vernum1 (* ver1 65536) ) )
  854.  
  855.  
  856. (set vernum2 (getversion "libs/cyberlayers.library"))
  857. (set ver2 (/ vernum2 65536))
  858. (set rev2 (- vernum2 (* ver2 65536) ) )
  859.  
  860.  
  861.  
  862. (set pick 0)
  863.  
  864. (set pick (askchoice
  865.         (choices #NoUp #OnlyNew #YesAll)
  866.         (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))
  867.         (help " ")        
  868.               (default 1)
  869.       )
  870. )
  871.  
  872.  
  873.  
  874. (if (= pick 1)
  875.  
  876.         (copylib (source "libs/cyberlayers.library") (dest "SYS:Libs"))
  877.  
  878. )
  879.  
  880.  
  881. (if (= pick 2)
  882.  
  883.         (copyfiles
  884.             (prompt "Copying 'cyberlayers.library' to Libs:")
  885.         (source "libs/cyberlayers.library")
  886.             (dest "SYS:Libs")
  887.             (confirm)
  888.             (infos) (help " ")
  889.          ) 
  890.  
  891. )
  892.  
  893.  
  894.  
  895.  
  896.  
  897. ;*******************************************************************
  898. ;  vilintuisup.library
  899. ;*******************************************************************
  900.  
  901.  
  902. (set vernum1 (getversion "sys:libs/vilintuisup.library"))
  903. (set ver1 (/ vernum1 65536))
  904. (set rev1 (- vernum1 (* ver1 65536) ) )
  905.  
  906.  
  907. (set vernum2 (getversion "libs/vilintuisup.library"))
  908. (set ver2 (/ vernum2 65536))
  909. (set rev2 (- vernum2 (* ver2 65536) ) )
  910.  
  911.  
  912.  
  913. (set pick 0)
  914.  
  915. (set pick (askchoice
  916.         (choices #NoUp #OnlyNew #YesAll)
  917.         (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))
  918.         (help " ")        
  919.               (default 1)
  920.       )
  921. )
  922.  
  923.  
  924. (if (= pick 1)
  925.  
  926.         (copylib (source "libs/vilintuisup.library") (dest "SYS:Libs"))
  927.  
  928. )
  929.  
  930.  
  931. (if (= pick 2)
  932.  
  933.         (copyfiles
  934.             (prompt "Copying 'vilintuisup.library' to Libs:")
  935.         (source "libs/vilintuisup.library")
  936.             (dest "SYS:Libs")
  937.             (confirm)
  938.             (infos) (help " ")
  939.          ) 
  940.  
  941. )
  942.  
  943.  
  944. ;*******************************************************************
  945. ;  gtlayout.library
  946. ;*******************************************************************
  947.  
  948.  
  949. (set vernum1 (getversion "sys:libs/gtlayout.library"))
  950. (set ver1 (/ vernum1 65536))
  951. (set rev1 (- vernum1 (* ver1 65536) ) )
  952.  
  953.  
  954. (set vernum2 (getversion "libs/gtlayout.library"))
  955. (set ver2 (/ vernum2 65536))
  956. (set rev2 (- vernum2 (* ver2 65536) ) )
  957.  
  958.  
  959.  
  960. (set pick 0)
  961.  
  962. (set pick (askchoice
  963.         (choices #NoUp #OnlyNew #YesAll)
  964.         (prompt ("'gtlayout.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 'gtlayout.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
  965.         (help " ")        
  966.               (default 1)
  967.       )
  968. )
  969.  
  970.  
  971. (if (= pick 1)
  972.  
  973.         (copylib (source "libs/gtlayout.library") (dest "SYS:Libs"))
  974.  
  975. )
  976.  
  977.  
  978. (if (= pick 2)
  979.  
  980.         (copyfiles
  981.             (prompt "Copying 'vilintuisup.library' to Libs:")
  982.         (source "libs/gtlayout.library")
  983.             (dest "SYS:Libs")
  984.             (confirm)
  985.             (infos) (help " ")
  986.          ) 
  987.  
  988. )
  989.  
  990.  
  991. ;******************************************************************************** 
  992. ;
  993. ; Move #?monitor file from envarc: to envarc:CyberGraphics for newer Libraries
  994. ; This is here just for backup!
  995. ;
  996. ;********************************************************************************
  997.  
  998. (if (< (exists "env:cybergraphics") 2)
  999.    (makedir "env:cybergraphics") 
  1000. )
  1001.  
  1002. (if (< (exists "envarc:cybergraphics") 2)
  1003.    (makedir "envarc:cybergraphics")
  1004. )
  1005.  
  1006.  
  1007. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor"))  1)
  1008.       (if (> (exists ("EnvArc:PicassoMonitor")) 0)
  1009.          (copyfiles (source "EnvArc:PicassoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1010.       )
  1011. )
  1012.  
  1013. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor")) 1)
  1014.       (if (> (exists ("EnvArc:SpectrumMonitor")) 0)
  1015.          (copyfiles (source "EnvArc:SpectrumMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1016.       )
  1017. )
  1018.  
  1019. (if (< (exists ("EnvArc:CyberGraphics/PiccoloMonitor")) 1)
  1020.       (if (> (exists ("EnvArc:PiccoloMonitor")) 0)
  1021.          (copyfiles (source "EnvArc:PiccoloMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1022.       )
  1023. )
  1024.  
  1025. (if (< (exists ("EnvArc:CyberGraphics/DominoMonitor")) 1)
  1026.       (if (> (exists ("EnvArc:DominoMonitor")) 0)
  1027.          (copyfiles (source "EnvArc:DominoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1028.       )
  1029. )
  1030.  
  1031.  
  1032. (if (< (exists ("EnvArc:CyberGraphics/RetinaZ3Monitor")) 1)
  1033.       (if (> (exists ("EnvArc:RetinaZ3Monitor")) 0) 
  1034.          (copyfiles (source "EnvArc:RetinaZ3Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1035.       )
  1036. )
  1037.  
  1038. (if (< (exists ("EnvArc:CyberGraphics/PiccoSD64Monitor")) 1)
  1039.       (if (> (exists ("EnvArc:PiccoSD64Monitor")) 0) 
  1040.          (copyfiles (source "EnvArc:PiccoSD64Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1041.       )
  1042. )
  1043.  
  1044. (if (< (exists ("EnvArc:CyberGraphics/CyberVisionMonitor")) 1)
  1045.       (if (> (exists ("EnvArc:CyberVisionMonitor")) 0) 
  1046.          (copyfiles (source "EnvArc:CyberVisionMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1047.       )
  1048. )
  1049.  
  1050. (if (< (exists ("EnvArc:CyberGraphics/A2410Monitor")) 1)
  1051.       (if (> (exists ("EnvArc:A2410Monitor")) 0) 
  1052.          (copyfiles (source "EnvArc:A2410Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1053.       )
  1054. )
  1055.  
  1056.  
  1057. ;******************************************************************************** 
  1058. ; Find out whats in the env vars...
  1059. ;********************************************************************************
  1060. (set nochip 0) (set nopass 0) (set keepamiga 0) (set planes2 0)
  1061.  
  1062. (set runstring  (cat "search" " ENV:cybergraphics/NOCHIPSCREEN"))
  1063. (set runstring1 (cat runstring " 0"))   (if (= (run runstring1) 0) (set nochip 0))
  1064. (set runstring1 (cat runstring " 1"))   (if (= (run runstring1) 0) (set nochip 1))      
  1065.  
  1066.  
  1067. (set runstring  (cat "search" " ENV:cybergraphics/NOPASSTHROUGH"))
  1068. (set runstring1 (cat runstring " 0"))   (if (= (run runstring1) 0) (set nopass 0))
  1069. (set runstring1 (cat runstring " 1"))   (if (= (run runstring1) 0) (set nopass 1))      
  1070.  
  1071.  
  1072. (set runstring  (cat "search" " ENV:cybergraphics/KEEPAMIGAVIDEO"))
  1073. (set runstring1 (cat runstring " 0"))   (if (= (run runstring1) 0) (set keepamiga 0))
  1074. (set runstring1 (cat runstring " 1"))   (if (= (run runstring1) 0) (set keepamiga 1))      
  1075.  
  1076.  
  1077. (set runstring  (cat "search" " ENV:cybergraphics/PLANES2FAST"))
  1078. (set runstring1 (cat runstring " 0"))   (if (= (run runstring1) 0) (set planes2 0))
  1079. (set runstring1 (cat runstring " 1"))   (if (= (run runstring1) 0) (set planes2 1))      
  1080.  
  1081.  
  1082.  
  1083. ;******************************************************************************** 
  1084. ; NOCHIPSCREEN
  1085. ;********************************************************************************
  1086. (set NOCHIPSCREEN (askchoice    (choices #no #yes)
  1087.                            (prompt (cat #nochip " " #currset))
  1088.                            (help   (cat #nochip " " #currset))
  1089.                          (default nochip)
  1090.               )
  1091. )
  1092.  
  1093. (if (= NOCHIPSCREEN 0) ( (run "setenv cybergraphics/NOCHIPSCREEN 0")
  1094.      (copyfiles (source "ENV:cybergraphics/NOCHIPSCREEN") (dest "ENVARC:cybergraphics") ) )
  1095. )
  1096.  
  1097. (if (= NOCHIPSCREEN 1) ( (run "setenv cybergraphics/NOCHIPSCREEN 1")
  1098.      (copyfiles (source "ENV:cybergraphics/NOCHIPSCREEN") (dest "ENVARC:cybergraphics") ) )
  1099. )
  1100.  
  1101.  
  1102.  
  1103. ;******************************************************************************** 
  1104. ; PLANES2FAST
  1105. ;********************************************************************************
  1106. (set PLANES2FAST (askchoice    (choices #no #yes)
  1107.                            (prompt (cat #planes2 " " #currset))
  1108.                            (help   (cat #planes2 " " #currset))
  1109.                          (default planes2)
  1110.               )
  1111. )
  1112.  
  1113. (if (= PLANES2FAST 0) ( (run "setenv cybergraphics/PLANES2FAST 0")
  1114.      (copyfiles (source "ENV:cybergraphics/PLANES2FAST") (dest "ENVARC:cybergraphics") ) )
  1115. )
  1116.  
  1117. (if (= PLANES2FAST 1) ( (run "setenv cybergraphics/PLANES2FAST 1")
  1118.      (copyfiles (source "ENV:cybergraphics/PLANES2FAST") (dest "ENVARC:cybergraphics") ) )
  1119. )
  1120.  
  1121.  
  1122. ;******************************************************************************** 
  1123. ; NOPASSTHROUGH
  1124. ;********************************************************************************
  1125. (set NOPASSTHROUGH (askchoice    (choices #no #yes)
  1126.                            (prompt (cat #nopass " " #currset))
  1127.                            (help   (cat #nopass " " #currset))
  1128.                          (default nopass)
  1129.               )
  1130. )
  1131.  
  1132. (if (= NOPASSTHROUGH 0) ( (run "setenv cybergraphics/NOPASSTHROUGH 0")
  1133.      (copyfiles (source "ENV:cybergraphics/NOPASSTHROUGH") (dest "ENVARC:cybergraphics") ) )
  1134. )
  1135.  
  1136. (if (= NOPASSTHROUGH 1) ( (run "setenv cybergraphics/NOPASSTHROUGH 1")
  1137.      (copyfiles (source "ENV:cybergraphics/NOPASSTHROUGH") (dest "ENVARC:cybergraphics") ) )
  1138. )
  1139.  
  1140.  
  1141. ;******************************************************************************** 
  1142. ; KEEPAMIGAVIDEO
  1143. ;********************************************************************************
  1144. (set KEEPAMIGAVIDEO (askchoice    (choices #no #yes)
  1145.                            (prompt (cat #keepamiga " " #currset))
  1146.                            (help   (cat #keepamiga " " #currset))
  1147.                          (default keepamiga)
  1148.               )
  1149. )
  1150.  
  1151. (if (= KEEPAMIGAVIDEO 0) ( (run "setenv cybergraphics/KEEPAMIGAVIDEO 0")
  1152.      (copyfiles (source "ENV:cybergraphics/KEEPAMIGAVIDEO") (dest "ENVARC:cybergraphics") ) )
  1153. )
  1154.  
  1155. (if (= KEEPAMIGAVIDEO 1) ( (run "setenv cybergraphics/KEEPAMIGAVIDEO 1")
  1156.      (copyfiles (source "ENV:cybergraphics/KEEPAMIGAVIDEO") (dest "ENVARC:cybergraphics") ) )
  1157. )
  1158.  
  1159.  
  1160. ;******************************************************************************** 
  1161. ;
  1162. ;  Update the Monitor file ..
  1163. ;
  1164. ;
  1165. ;********************************************************************************
  1166.  
  1167.  
  1168.  
  1169. (if (> (exists ("sys:devs/monitors/Picasso")) 0)     (set #BGuess 0)  )
  1170. (if (> (exists ("sys:devs/monitors/Spectrum")) 0)    (set #BGuess 1)  )
  1171. (if (> (exists ("sys:devs/monitors/Piccolo")) 0)     (set #BGuess 2)  )
  1172. (if (> (exists ("sys:devs/monitors/Domino")) 0)      (set #BGuess 3)  )
  1173. (if (> (exists ("sys:devs/monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
  1174. (if (> (exists ("sys:devs/monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
  1175. (if (> (exists ("sys:devs/monitors/CyberVision")) 0) (set #BGuess 6)  )
  1176.  
  1177. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  1178.                                "Retina Z3 BLT" "Piccolo Z3 SD64" "CyberVision64"
  1179.              (prompt #board)
  1180.                      (help "Select a Gfx Board")
  1181.                    (default #BGuess)
  1182.                  )
  1183.           )
  1184. )
  1185.  
  1186.  
  1187. (if (= board 0) (set #BOARD "Picasso") )
  1188. (if (= board 1) (set #BOARD "Spectrum") )
  1189. (if (= board 2) (set #BOARD "Piccolo") ) 
  1190. (if (= board 3) (set #BOARD "Domino") )
  1191. (if (= board 4) (set #BOARD "RetinaZ3") )
  1192. (if (= board 5) (set #BOARD "PiccoSD64") )
  1193. (if (= board 6) (set #BOARD "CyberVision") )
  1194.  
  1195.  
  1196. (set BackDirText "SYS:Storage/CyberGraphX")
  1197.  
  1198. (if (< (exists (BackDirText)) 2)  (makedir (BackDirText) (infos))  )
  1199.  
  1200. (if (< (exists (tackon BackDirText "devs")) 2)
  1201.           (makedir (tackon BackDirText "devs") (infos))
  1202. )
  1203.  
  1204. (if (< (exists (tackon BackDirText "devs/monitors")) 2)
  1205.         (makedir (tackon BackDirText "devs/monitors") (infos))
  1206. )
  1207.  
  1208.  
  1209. (if (> (exists (cat "Devs:Monitors/" #BOARD)) 0)
  1210.                   (copyfiles (source (cat "Devs:Monitors/" #BOARD)) (dest (tackon BackDirText "devs/monitors"))
  1211.                     (infos)
  1212.                     (newname (cat (tackon BackDirText "devs/monitors/") #BOARD ".backup"))
  1213.                   )
  1214. ) 
  1215.  
  1216.  
  1217. (set #updated 0)
  1218.  
  1219.  
  1220. (if (= board 0)
  1221.   (
  1222.     (set #Update (run "Updaters/UpdatePicassoII devs:monitors/Picasso") ) 
  1223.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1224.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1225.     (if (= #update 10) (message #updateBad) )       
  1226.     (set #updated 1)
  1227.   )
  1228. )
  1229.  
  1230. (if (= board 1)
  1231.   (
  1232.     (set #Update (run "Updaters/UpdateSpectrum devs:monitors/Spectrum") ) 
  1233.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1234.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1235.     (if (= #update 10) (message #updateBad) )       
  1236.     (set #updated 1)
  1237.   )
  1238. )
  1239.  
  1240. (if (= board 2)
  1241.   (
  1242.     (set #Update (run "Updaters/UpdatePiccolo devs:monitors/Piccolo") ) 
  1243.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1244.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1245.     (if (= #update 10) (message #updateBad) )       
  1246.     (set #updated 1)
  1247.   )
  1248. )
  1249.  
  1250. (if (= board 3)
  1251.   (
  1252.     
  1253.    (message (cat #updateNoUpdate (tackon BackDirText "devs/monitors/") #BOARD ".backup"))    
  1254.  
  1255.   )
  1256. )
  1257.  
  1258. (if (= board 4)
  1259.   (
  1260.     (set #Update (run "Updaters/UpdateRetinaZ3 devs:monitors/RetinaZ3") ) 
  1261.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1262.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1263.     (if (= #update 10) (message #updateBad) )       
  1264.     (set #updated 1)
  1265.   )
  1266. )
  1267.  
  1268. (if (= board 5)
  1269.   (
  1270.     (set #Update (run "Updaters/UpdatePiccoSD64 devs:monitors/PiccoSD64") ) 
  1271.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1272.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1273.     (if (= #update 10) (message #updateBad) )       
  1274.     (set #updated 1)
  1275.   )
  1276. )
  1277.  
  1278. (if (= board 6)
  1279.   (
  1280.  
  1281.     (message (cat #updateNoUpdate (tackon BackDirText "devs/monitors/") #BOARD ".backup"))    
  1282.    
  1283.   )
  1284. )
  1285.  
  1286.  
  1287.  
  1288.  
  1289.  
  1290. ;*******************************************************************
  1291. ;  EEENNNDDD
  1292. ;*******************************************************************
  1293.  
  1294. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  1295. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  1296.  
  1297. (run (cat "run " #mpath "/multiview docs/Changes.txt") )
  1298. (delete "ram:lan")
  1299. (set @default-dest "sys:")
  1300. (exit "Quick Update Complete!")
  1301.  
  1302.  
  1303.  
  1304.  
  1305.  
  1306.  
  1307.  
  1308.