home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GrafikenKartenSoft / CGX214U.LHA / CyberUpdate2.14 / CyberGraphX_Update < prev    next >
Encoding:
Text File  |  1995-11-19  |  51.5 KB  |  1,613 lines
  1. ;******************************************************************************** 
  2. ;
  3. ;    ______        __                  ______                     __  __   __
  4. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  5. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  6. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  7. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  8. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  9. ;         /_/                                        / /           
  10. ;                                                   /_/  
  11. ; Domino PicassoII Spectrum Piccolo Z2/3 RetinaZ3 Cybervision PiccoloSD64 A2410 
  12. ; DraCoAltais
  13. ;                                                           
  14. ; CyberGraphX Update Installer ©1994-1995 by Robert C. Reiswig  (October-15-95)
  15. ;
  16. ; For use with PD and Registered CyberGraphX Only, not for Commercial use.
  17. ; For Frank Mariak : CyberGraphX!
  18. ;
  19. ;
  20. ;--------------------------------------------------------------------------------
  21. ; Installer suggestions or problems: rcr@netcom.com
  22. ; Any changes or additions must be run by me.
  23. ; © MCMXCV 
  24. ;********************************************************************************
  25.  
  26.  
  27.  
  28.  
  29. ;******************************************************************************** 
  30. ; Any new 3rd Party Program Drivers. Version of CyberGraphX & PAY 
  31. ;********************************************************************************
  32. ; 
  33. (set #cyberver "2.14")
  34.  
  35.  
  36. (message (cat "\nCyberGraphX V" #cyberver "\n~~~~~~~~~~~~~~~~~~\n"
  37.               "CyberVision64\n\nPicasso II & Spectrum\n\nDomino\n\n"
  38.               "DraCoAltais & Retina Z3 BLT\n\nPiccolo & Piccolo SD64\n\nA2410"
  39.          )
  40. )
  41.  
  42. (welcome)
  43. ;******************************************************************************** 
  44. ;
  45. ; Read All System information 
  46. ;
  47. ;********************************************************************************
  48. (set cpu (database "cpu"))
  49. (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  50. (set vblank (database "vblank"))
  51. (set graphmem (database "graphics-mem"))
  52. (set totmem (database "total-mem"))
  53. (set osver (/ (getversion "LIBS:version.library") 65536))
  54. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  55. (set fastmem (- totmem graphmem))
  56. (set JUST_DO_IT 42.42)
  57.  
  58. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  59. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  60. ( if (= osver 41) ( (set workbench "4.0")) )))))
  61.  
  62.  
  63.  
  64. ;(run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
  65. ;(set runstring (cat "search" " RAM:lan "))
  66. (set runstring (cat "search" " env:Language "))
  67.  
  68. (set english "")  (set german  "")
  69.  
  70. (set runstring1 (cat runstring "deutschland"))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
  71. (set runstring1 (cat runstring "english"))   (if (= (run runstring1) 0) (set english1 "English"))      
  72. (set lang 0)
  73. (if (= english1 "English") (set lang 1))
  74.  
  75.  
  76. (set CyberDrawer "SYS:")
  77. (set were "sys")
  78.  
  79. ;******************************************************************************** 
  80. ;
  81. ; For some reason people seem to loose this directory
  82. ;
  83. ;********************************************************************************
  84. (if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") ) 
  85. (if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") ) 
  86.  
  87. (if (> (exists ("sys:devs/monitors/Spectrum")) 0)    (set #BGuess 1)  )
  88. (if (> (exists ("sys:devs/monitors/Piccolo")) 0)     (set #BGuess 2)  )
  89. (if (> (exists ("sys:devs/monitors/Domino")) 0)      (set #BGuess 3)  )
  90. (if (> (exists ("sys:devs/monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
  91. (if (> (exists ("sys:devs/monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
  92. (if (> (exists ("sys:devs/monitors/A2410")) 0)       (set #BGuess 7)  )
  93. (if (> (exists ("sys:devs/monitors/Picasso")) 0)     (set #BGuess 0)  )
  94. (if (> (exists ("sys:devs/monitors/CyberVision")) 0) (set #BGuess 6)  )
  95. (if (> (exists ("sys:devs/monitors/A2410")) 0)       (set #BGuess 7)  )
  96. (if (> (exists ("sys:devs/monitors/DraCoAltais")) 0) (set #BGuess 8)  )
  97. (if (> (exists ("sys:devs/monitors/Merlin")) 0)      (set #BGuess 9)  )
  98.  
  99. ;******************************************************************************** 
  100. ;
  101. ;ASK DEFAULT LANG
  102. ;
  103. ;********************************************************************************
  104.  
  105.  
  106. (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))
  107.  
  108. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  109.              (prompt #langQuestion)
  110.                      (help "Select a Language")
  111.                    (default lang)
  112.                  )
  113.           )
  114. )
  115.  
  116.  
  117.  
  118.  
  119. ;******************************************************************************** 
  120. ;
  121. ;English Information
  122. ;
  123. ;********************************************************************************
  124.  
  125. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  126.               "by:\n\nVision Factory Development"
  127.  
  128.               ;"\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com"
  129.          )
  130. )
  131.  
  132.  
  133.  
  134.  
  135.  
  136. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  137.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  138.                     "Kickstart 3.x, **You only have " workbench "**\n\n" 
  139.                     "PicassoII in linear mode *not segmented*\n\n"
  140.                     "68020 or higher\n\n"
  141.                     "2 MB of fast memory"                       
  142.                ) 
  143. )
  144.  
  145.  
  146. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  147.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  148.                     "68020 or higher, **You only have " cpu "**\n\n"
  149.                     "PicassoII in linear mode *not segmented*\n\n"
  150.                     "Kickstart 3.x\n\n"                     
  151.                     "2 MB of fast memory" 
  152.                )
  153. )  
  154.  
  155.  
  156. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  157.                    " \"" workbench "\" Version of OS\n\n"
  158.                    " \"" cpu "\" Processor\n\n "
  159.                    " \"" blank "\" Machine\n\n"
  160.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  161.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  162.               )
  163. )
  164.  
  165.  
  166. (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")
  167.  
  168.  
  169. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  170.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  171.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  172.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  173.                           "YOU MUST DO THIS NOW!"
  174.                      )
  175. )
  176.  
  177.  
  178. (set #BackUpFiles "BackUp the Files")
  179. (set #DeleteFiles "Delete the Files")
  180. (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software, if you select, to: ")
  181.  
  182.  
  183.  
  184.  
  185. (set #ask-MODEFILE "Which modefile should be installed ?")
  186. (set #15KHZ "15khz maximum")
  187. (set #31KHZ "31khz maximum")
  188. (set #35KHZ "35khz maximum")
  189. (set #38KHZ "38khz maximum")
  190. (set #48KHZ "48khz maximum")
  191. (set #57KHZ "57khz maximum")
  192. (set #64KHZ "64khz maximum")
  193.  
  194.  
  195. (set #wishtoinstall "Do you wish to install any of the following?")
  196. (set #order "Order Form")
  197. (set #guide "AmigaGuide File")
  198. (set #devdocs  "Developer Documentation")
  199. (set #versions "Versions - Shows Vers of CyberGraphX") 
  200. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphX\" will be created there!)")
  201. (set #SetEnv "SetEnv - Sets/Changes Env Vars")
  202.  
  203.  
  204. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  205.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  206.                    "you can open 24bit screens as standard intuition screens and that you "
  207.                    "can use all graphics.library functions on them as before. (with some "
  208.                    "limitations of course because of the missing color lookup table)\n\n"
  209.                    "Application to adjust the monitor parameters"
  210.               )  
  211. )
  212.    
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  220.                   "By setting this variable, the planar-to-chunky conversion "
  221.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  222.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  223.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  224.              )
  225. )
  226.   
  227.  
  228. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  229.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  230.                      "become Hires-sprites (they are no longer doubled by "
  231.                      "the CyberGraphX-Software). "
  232.                      "This variable is identical to the tooltype HIRESSPRITE "
  233.                      "of older Picasso-monitor files."
  234.                 )
  235. )
  236.  
  237.  
  238. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  239.                      "By setting this variable, you can switch off 15bit modes to reduce "
  240.                      "screenmode list length. The Modes are still available but hidden."
  241.                 )
  242. )
  243.  
  244.  
  245. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  246.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) " 
  247.                      "will be placed on an CyberGraphX screens."
  248.                 )
  249. )
  250.  
  251.  
  252.  
  253.  
  254. (set #ask-driver (cat "Select The Driver(s) you wish to install."))
  255.  
  256.  
  257.  
  258.  
  259.  
  260. (set #CyberREG (cat "If you have a Registered version of CyberGraphX installed or you are running a CyberVision board, "
  261.                     "please select 'Quick Update'. "
  262.                )
  263. )
  264. (set #firstTime "First time install")
  265. (set #PDInstalled "PD version Installed")
  266. (set #REGInstalled "Registered version Installed")
  267. (set #quickupdate "Quick Update (New Libs & Drivers only)")
  268. (set #cvmode "CVMode (Screen Mode Creator)")
  269.  
  270.  
  271. (set #WhereReadME "Please select where you wish to put the ReadMe.")
  272.  
  273.  
  274.  
  275. (set #NoUp    "No, Don't update") 
  276. (set #OnlyNew "Yes, Only if newer")
  277. (set #YesAll  "Yes, No matter what")
  278.  
  279.  
  280. ;******* New Text June 16, 1995
  281. (set #checkcustom (cat "\nThe installer will now check\n"
  282.                        "'SYS:Expansion/village.library.info'\n"
  283.                        "To see if the tool type MONITOR is set to CUSTOM.\n\n"
  284.                        "It would be best to set this to custom so that when you install "
  285.                        "the REG version 'ConvPicassoModes' can convert over all you Sceeen modes "
  286.                        "that you currently use correctly.  If you get an error message you can just skip it."
  287.                   )
  288. )
  289.  
  290.  
  291. (set #ask-Amax "Do you wish to install the CyberGraphX Amax Driver? (It only does 1024x768x256)")
  292. (set #where-Amax "Where do you wish to Install the Amax Driver?\n(The default is \"Work:\")")
  293.  
  294.  
  295. (set #changes (cat "\nStarting with this release, CyBERgraphics now has a new and better name:"
  296.                    "\n\n\nCyberGraphX\n\n\n"
  297.                    "Also starting with this release the Version Numbering has changed. This would "
  298.                    "have been 40.50 but will now be called 2.0 of CyberGraphX. This has been done "
  299.                    "to remove the link between the cybergraphics.library version and the CyberGraphX package version!"
  300.               )
  301. )
  302.  
  303. (set #AboutQuickie (cat "\nThis will ONLY UPDATE the CyberGraphX libraries and Monitor Driver(s).\n\n"
  304.                         "It is meant for CyberGraphX users. This includes Registered, Non-Registered CyberGraphX users along with CyberVision owners!\n\n"
  305.                         "It will update your system to version " #CyberVer
  306.                         " of the CyberGraphX package.\n\nIf this is your first time Installing CyberGraphX " 
  307.                         "then you will need to get the _complete_ Archive off Aminet first!"
  308.                     )
  309. )
  310.  
  311. ;************************ New Text July 20, 1995 *********************
  312. (set #yes "Yes - On")
  313. (set #no "No - Off") 
  314. (set #youwantto "You want to set:")
  315. (set #to "To:")
  316.  
  317. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  318.                      "By setting this variable, 8 bit deep screens are always opened "
  319.                      "in Fast memory. Useful with 1MB chip systems but you should "
  320.                      "avoid it with 2MB chip, because the older method is more "
  321.                      "compatible (no taglist changes etc.) "
  322.                 )
  323. ) 
  324.  
  325. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  326.                      "With this option on, non displayable planar bitmaps "
  327.                      "are allocated in fast memory. This options speeds up "
  328.                      "handling of planar bitmaps but could lead to problems "
  329.                      "with amiga graphics which insist on planar graphics "
  330.                      "placed in chip memory. Take care when using this option."
  331.                 )
  332. ) 
  333.  
  334. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  335.                     "If this option is enabled, the monitor switch on every "
  336.                     "CyberGraphX supported board is deactivated. This option is "
  337.                     "required for multi monitor systems."
  338.                 )
  339. ) 
  340.  
  341. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  342.                      "If this option is disabled, everytime a CyberGraphX display "
  343.                      "becomes frontscreen, Amiga display DMA is switched off in order "
  344.                      "to increase chipmem access speed. You can avoid this by enabling "
  345.                      "this option. "
  346.                 )
  347. ) 
  348.  
  349.  
  350. (set #board (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  351.  
  352.  
  353. ;************************ New Text July 21, 1995 *********************
  354.  
  355. (set #updatecorrect "\n\n\nThe Monitor file updated correctly!\n\nThe installer created a backup of the old\n Monitor File in:\n\n")
  356. (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")
  357. (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")
  358. (set #updateNoUpdate "\n\n\nCurrently there is no Updater for your Monitor File.")
  359. (set #updateNoUpdate1 "\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")
  360.  
  361.  
  362.  
  363. ;************************ New Text August 12, 1995 *********************
  364.  
  365. (set #NoUp     "No, Don't update") 
  366. (set #OnlyNew  "Yes, Only if newer")
  367. (set #OnlyNewB "Yes, Only if newer with backup")
  368. (set #YesAll   "Yes, No matter what with no backup")
  369.  
  370.  
  371. (set #thefollowing "The following have been backed up to\n\n\"SYS:Storage/CyberGraphX/libs\"")
  372.  
  373.  
  374. (set #cybergfx "\n\nNot backed up - cybergraphics.library")
  375. (set #cyberint "\n\nNot backed up - cyberintuition.library")
  376. (set #cyberlayers "\n\nNot backed up - cyberlayers.library")
  377. (set #cybervil "\n\nNot backed up - vilintuisup.library") 
  378. (set #gtlay "\n\nNot backed up - gtlayout.library")
  379.  
  380.  
  381. ;************************ New Text October 03, 1995 *********************
  382. (set #cvmode "CVMode - Screen Creator V1.4")
  383. (set #cyberprefsx "CyberPrefsX - Set/Explain/Change Settings")
  384. (set #tools "\nWhat CyberGraphX Tools do you with to install?\n")
  385. (set #Where "Where do you wish to install ")
  386. (set #wherecvm "CVMode? If there is a copy already there a backup of it will be created!")
  387. (set #wherecpx "CyberPrefsX? If there is a copy already there a backup of it will be created!")
  388. (set #board (cat "\nPlease Select the Graphics Board you are using CyberGraphX on:\n"))
  389. (set #AltaisMon (cat "\n\nIn order to get the latest CyberGraphX Monitor driver "
  390.                     "for the Altais you must contact:\n\n MacroSystem Computer GmbH\n"
  391.                     "Friedrich-Ebert-Str. 85\n58454 Witten\nTel: +49 (2302) 80391\n"
  392.                     "Fax: +49 (2302) 80884"
  393.                 )          
  394. )
  395.  
  396. (set #YesBackup "Back up Monitor file")
  397. (set #NoBackup "Do Not Back up Monitor file")
  398. (set #hasbeen "Has been Backed Up to")
  399.  
  400.  
  401. ;******************************************************************************** 
  402. ;
  403. ;German Information
  404. ;
  405. ;********************************************************************************
  406.  
  407. (if (= LAN 0)
  408. (
  409.  
  410.  
  411. (set #By (cat "\n\nCyberGraphX Software\nVersion " #cyberver "\n\n\n\n"
  412.               "Software von:\n\nVision Factory Development"
  413.               ;"\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  414.          )
  415. )
  416.  
  417. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  418.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  419.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  420.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  421.                   "68020 oder höher\n\n"
  422.                   "2 MB FAST Ram"
  423.              )
  424. )
  425.  
  426. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  427.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  428.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  429.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  430.                    "Kickstart 3.x\n\n"
  431.                    "2 MB FAST Ram"
  432.               )
  433. )
  434.  
  435.  
  436. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  437.                    " Version \"" Workbench "\" des OS\n\n"
  438.                    " \"" cpu "\" Prozessor\n\n "
  439.                    " \"" blank "\" Gerät\n\n"
  440.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  441.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  442.               )
  443. )
  444.  
  445.  
  446. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  447.  
  448.  
  449. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  450.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  451.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  452.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  453.                           "YOU MUST DO THIS NOW!"
  454.                      )
  455. )
  456.  
  457.  
  458.  
  459. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  460. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  461. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  462. (set #35KHZ "Definition mit 35khz max. HFrequenz")
  463. (set #38KHZ "Definition mit 38khz max. HFrequenz")
  464. (set #48KHZ "Definition mit 48khz max. HFrequenz")
  465. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  466. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  467.  
  468. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  469. (set #order "Bestellformular")
  470. (set #guide "AmigaGuide Datei")
  471. (set #devdocs  "Entwickler Dokumentation")
  472. (set #versions "Versions - Zeigt die CyberGFX Versionen") 
  473. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphX\" wird automatisch erstellt!)")
  474.  
  475.  
  476.  
  477.  
  478. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  479.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  480.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  481.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  482.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  483.              )
  484. )
  485.   
  486.  
  487. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  488.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  489.                      "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
  490.                      "verdoppelt). "
  491.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  492.                      "in der alten Picasso software)."
  493.                 )
  494. )
  495.  
  496.  
  497.  
  498. (set #NoUp    "Nein, nicht erneuern") 
  499. (set #OnlyNew "Ja, nur wenn neuer")
  500. (set #YesAll  "Ja, egal was installiert ist")
  501.  
  502.  
  503. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  504.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  505.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  506.                 )
  507. )
  508.  
  509. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  510.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) " 
  511.                      "auf einen CyberGraphX Bildschirm umgeleitet."
  512.                 )
  513. )
  514.  
  515.  
  516.  
  517. (set #ask-driver (cat "Bitte wählen Sie die Treiber, die installiert werden sollen."))
  518.  
  519.  
  520. (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!"))
  521. (set #firstTime "Erstinstallation")
  522. (set #PDInstalled "PD version installiert")
  523. (set #REGInstalled "Registrierte Version installiert")
  524. (set #quickupdate "Schnelles Update (Nur neue Libraries & Treiber)")
  525. (set #cvmode "CVMode (Screen Mode Programm)")
  526.  
  527.  
  528. (set #WhereReadME "Bitte waehlen Sie den Pfad, wo die LiesMich Datei hinkopiert werden soll.")
  529.  
  530. (set #changes (cat "\nBeginnend mit dieser Veröffentlichung heißt das CyBERgraphics System nun anders:"
  531.                    "\n\n\nCyberGraphX\n\n\n"
  532.                    "Ebenso hat sich die Versionsnummernvergabe geändert. Es hätte wie bisher eigentlich "
  533.                    "40.50 sein müssen. Ab sofort ist es aber die Version 2.0 von CyberGraphX. Damit ist endlich der "
  534.                    "Zusammenhang zwischen der Version der cybergraphics.library und dem CyberGraphX Paket aufgehoben"
  535.               )
  536. )
  537.  
  538.  
  539. (set #AboutQuickie (cat "\n\nDieses Paket erneuert NUR die CyberGraphX libraries.\n\n"
  540.                         "Es ist sowohl für registrierte als auch unregistrierte CyberGraphX Benutzer gedacht!\n\n"
  541.                         "Es updated Ihr System auf Version " #CyberVer
  542.                         " der CyberGraphX libraries.\n\nWenn Sie CyberGraphX zum ersten Mal installieren, " 
  543.                         "brauchen Sie das _komplette_ Archiv vom Aminet!"
  544.                     )
  545. )
  546.  
  547.  
  548. ;********************** New Text July 20, 1995 *******************
  549. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  550.                      "Wird diese Option aktiviert, werden CyberGraphX 256-Farben Bildschirme "
  551.                      "immer direkt im FastRAM geöffnet. Das ist sinnvoll bei Rechnern mit 1MB "
  552.                      "ChipRAM, sollte aber mit 2MB ChipRAM Systemen vermieden werden, da die "
  553.                      "alte Methode in einigen Punkten kompatibler ist."
  554.                 )
  555. ) 
  556.  
  557.  
  558. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  559.                      "Ist diese Option aktiv, werden nicht darzustellende "
  560.                      "planare BitMaps im FastRAM angelegt. Diese Option "
  561.                      "beschleunigt die Bearbeitung von planaren BitMaps aber "
  562.                      "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
  563.                      "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
  564.                      "Seien Sie vorsichtig mit der Aktivierung dieser Option."
  565.                 )
  566. ) 
  567.  
  568. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  569.                     "Wenn diese Option aktiviert ist, wird der Monitorumschalter "
  570.                     "auf jeder von CyberGraphX unterstützten Karte deaktiviert. "
  571.                     "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
  572.                 )
  573. ) 
  574.  
  575. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  576.                      "Ist diese Option nicht aktiv, wird jedesmal, wenn "
  577.                      "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
  578.                      "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
  579.                      "Dies kann durch Aktivierung der Option vermieden werden. "
  580.                 )
  581. ) 
  582.  
  583. (set #board (cat "\nBitte wählen Sie die Grafikkarte, deren Monitordatei Sie erneuern möchten:\n"))
  584.  
  585.  
  586. ;************************ New Text July 21, 1995 *********************
  587.  
  588.  
  589. (set #updatecorrect "\n\n\nDie Monitordatei wurde erneuert!\n\nDas Installskript kopierte eine Sicherheitskopie der alten Datei nach:\n\n")
  590. (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")
  591. (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")
  592. (set #updateNoUpdate "\n\n\nEs existiert kein Updater für diesen Monitortreiber in diesem Archiv.")
  593. (set #updateNoUpdate1 "\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")
  594.  
  595.  
  596. (set #yes "Ja")
  597. (set #no "Nein")
  598. (set #youwantto "Sie wollen die Änderung von:")
  599. (set #to "auf:")
  600.  
  601.  
  602.  
  603. ;************************ New Text August 12, 1995 *********************
  604.  
  605. (set #NoUp     "Nein, nicht erneuern") 
  606. (set #OnlyNew  "Ja, nur wenn neuer")
  607. (set #OnlyNewB "Ja, nur wenn neuer + Backup")
  608. (set #YesAll   "Ja, egal welche Version")
  609.  
  610.  
  611.  
  612. ;****
  613.  
  614.  
  615. (set #thefollowing "Folgende Dateien wurden gesichert in\n\n\"SYS:Storage/CyberGraphX/libs\"")
  616.  
  617.  
  618. (set #cybergfx "\n\nNicht gesichert - cybergraphics.library")
  619. (set #cyberint "\n\nNicht gesichert - cyberintuition.library")
  620. (set #cyberlayers "\n\nNicht gesichert - cyberlayers.library")
  621. (set #cybervil "\n\nNicht gesichert - vilintuisup.library") 
  622. (set #gtlay "\n\nNicht gesichert - gtlayout.library")
  623.  
  624. ;************************ New Text October 03, 1995 *********************
  625. (set #cvmode "CVMode - Screenedit Tool V1.4")
  626. (set #cyberprefsx "CyberPrefsX - Setze/Erkläre/Ändere Werte")
  627. (set #tools "\nWelche CyberGraphX Tools möchten Sie installieren?\n")
  628. (set #Where "Wo möchten Sie es hininstallieren ")
  629. (set #wherecvm "CVMode? Wenn es bereits existiert, wird ein Backup erstellt!")
  630. (set #wherecpx "CyberPrefsX? Wenn es bereits existiert, wird ein Backup erstellt!")
  631. (set #board (cat "\nBitte wählen Sie die Grafikkarte, mit dem Sie CyberGraphX benutzen wollen:\n"))
  632. (set #AltaisMon (cat "\n\nUm den aktuellsten CyberGraphX Monitor Treiber für DraCoAltais "
  633.                     "zu bekommen, wenden Sie sich bitte an:\n\n MacroSystem Computer GmbH\n"
  634.                     "Friedrich-Ebert-Str. 85\n58454 Witten\nTel: +49 (2302) 80391\n"
  635.                     "Fax: +49 (2302) 80884"
  636.                 )
  637. )
  638.  
  639. (set #YesBackup "Sicherung der Monitordateien")
  640. (set #NoBackup "Keine Sicherung der Monitordateien")
  641. (set #hasbeen "wurde gesichert nach")
  642.  
  643.  
  644.  
  645.  
  646. )
  647.  
  648. )
  649.  
  650. ;******************************************************************************** 
  651. ;
  652. ; Quick Update! *********************
  653. ;
  654. ;********************************************************************************
  655. (message #by)
  656. ;(message #Changes)
  657. (message #AboutQuickie)
  658.  
  659. ;*******************************************************************
  660. ;  Make dirs for backup
  661. ;*******************************************************************
  662.  
  663. (if (< (exists ("sys:Storage")) 2)  (makedir ("sys:Storage") (infos))  )
  664. (if (< (exists ("sys:Storage/CyberGraphX")) 2)  (makedir ("sys:Storage/CyberGraphX") (infos))  )
  665. (if (< (exists ("sys:Storage/CyberGraphX/libs")) 2)  (makedir ("sys:Storage/CyberGraphX/libs") (infos))  )
  666.  
  667.  
  668.  
  669. ;*******************************************************************
  670. ;  cybergraphics.library
  671. ;*******************************************************************
  672. (set vernum1 (getversion "sys:libs/cybergraphics.library"))
  673. (set ver1 (/ vernum1 65536))
  674. (set rev1 (- vernum1 (* ver1 65536) ) )
  675.  
  676.  
  677. (set vernum2 (getversion "libs/cybergraphics.library"))
  678. (set ver2 (/ vernum2 65536))
  679. (set rev2 (- vernum2 (* ver2 65536) ) )
  680.  
  681.  
  682.  
  683. (set pick 2)
  684.  
  685. (set pick (askchoice
  686.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  687.         (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" ver1 rev1 ver2 rev2 ver2 rev2))
  688.         (help " ")        
  689.               (default 2)
  690.       )
  691. )
  692.  
  693. (set nextpick pick)
  694. ;(message nextpick)
  695.  
  696.  
  697. (if (= pick 1)
  698.  
  699.         (copylib (source "libs/cybergraphics.library") (dest "SYS:Libs"))
  700.  
  701. )
  702.  
  703.  
  704.  
  705. (if (= pick 2)
  706.    (
  707.  
  708.      (set sizeneed (getsize "libs/cybergraphics.library"))
  709.      (set space    (getdiskspace "sys:"))
  710.  
  711.  
  712.      (set ok 0)
  713.      (set ##ver (cat ver1 "." rev1) ) 
  714.      (set #cybergfx (cat "\n\nNo room on SYS: for cybergraphics.library" ##ver))
  715.  
  716.   
  717.       
  718.      (if (> space sizeneed)
  719.         (
  720.      
  721.         (if (> (exists ("sys:libs/cybergraphics.library")) 0) 
  722.           (copyfiles (source "sys:libs/cybergraphics.library")
  723.                       (dest "SYS:Storage/CyberGraphX/libs")
  724.                       (newname (cat "cybergraphics.library" ver1 "." rev1))
  725.            )  
  726.         ) 
  727.  
  728.  
  729.         (copylib (source "libs/cybergraphics.library") (dest "SYS:Libs"))
  730.      
  731.         (set #cybergfx (cat "\n\ncybergraphics.library" ##ver))
  732.         (set ok 1)
  733.       
  734.         )
  735.      )
  736.       
  737.           
  738.  
  739.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  740.      (if (= ok 0) (message (cat #noroom "cybergraphics.library" ##ver  
  741.                             "\n\nThe newer\n\ncybergraphics.library " ver2 "." rev2
  742.                             "\n\nwas not copied over/updated to SYS:Libs"
  743.                             )
  744.                   ) 
  745.      )
  746.  
  747.  
  748.    )
  749.  
  750. )
  751.  
  752.  
  753.  
  754.  
  755.  
  756.  
  757. (if (= pick 3)
  758.  
  759.         (copyfiles
  760.             (prompt "Copying 'cybergraphics.library' to Libs:")
  761.         (source "libs/cybergraphics.library")
  762.             (dest "SYS:Libs")
  763.             (confirm)
  764.             (infos) (help " ")
  765.          )
  766.  
  767. )
  768.  
  769.  
  770.  
  771. ;*******************************************************************
  772. ;  cyberintuition.library
  773. ;*******************************************************************
  774.  
  775.  
  776. (set vernum1 (getversion "sys:libs/cyberintuition.library"))
  777. (set ver1 (/ vernum1 65536))
  778. (set rev1 (- vernum1 (* ver1 65536) ) )
  779.  
  780.  
  781. (set vernum2 (getversion "libs/cyberintuition.library"))
  782. (set ver2 (/ vernum2 65536))
  783. (set rev2 (- vernum2 (* ver2 65536) ) )
  784.  
  785.  
  786.  
  787. (set pick 0)
  788.  
  789. (set pick (askchoice
  790.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  791.         (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" ver1 rev1 ver2 rev2 ver2 rev2))
  792.         (help " ")        
  793.               (default nextpick)
  794.       )
  795. )
  796.  
  797. (set nextpick pick)
  798.  
  799.  
  800. (if (= pick 1)
  801.  
  802.         (copylib (source "libs/cyberintuition.library")    (dest "SYS:Libs"))
  803.  
  804. )
  805.  
  806.  
  807.  
  808. (if (= pick 2)
  809.    (
  810.  
  811.     (set sizeneed (getsize "libs/cyberintuition.library"))
  812.      (set space    (getdiskspace "sys:"))
  813.  
  814.  
  815.      (set ok 0)
  816.      (set ##ver (cat ver1 "." rev1) ) 
  817.      (set #cyberint (cat "\n\nNo room on SYS: for cyberintuition.library" ##ver))
  818.  
  819.      
  820.      (if (> space sizeneed)
  821.         (
  822.      
  823.  
  824.         (if (> (exists ("sys:libs/cyberintuition.library")) 0)
  825.             (copyfiles (source "sys:libs/cyberintuition.library")
  826.                        (dest "SYS:Storage/CyberGraphX/libs")
  827.                        (newname (cat "cyberintuition.library" ver1 "." rev1))
  828.             )  
  829.         )
  830.  
  831.  
  832.         (copylib (source "libs/cyberintuition.library") (dest "SYS:Libs"))
  833.      
  834.         (set #cyberint (cat "\n\ncyberintuition.library" ##ver))
  835.         (set ok 1)
  836.       
  837.         )
  838.      
  839.      )     
  840.  
  841.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  842.      (if (= ok 0) (message (cat #noroom "cyberintuition.library" ##ver  
  843.                             "\n\nThe newer\n\ncyberintuition.library " ver2 "." rev2
  844.                             "\n\nwas not copied over/updated to SYS:Libs"
  845.                             )
  846.                   ) 
  847.      )
  848.  
  849.  
  850.  
  851.    )
  852.  
  853. )
  854.  
  855.  
  856.  
  857.  
  858.  
  859. (if (= pick 3)
  860.  
  861.         (copyfiles
  862.             (prompt "Copying 'cyberintuition.library' to Libs:")
  863.         (source "libs/cyberintuition.library")
  864.             (dest "SYS:Libs")
  865.             (confirm)
  866.             (infos) (help " ")
  867.          ) 
  868.  
  869. )
  870.  
  871.  
  872.  
  873.  
  874. ;*******************************************************************
  875. ;  cyberlayers.library
  876. ;*******************************************************************
  877.  
  878.  
  879. (set vernum1 (getversion "sys:libs/cyberlayers.library"))
  880. (set ver1 (/ vernum1 65536))
  881. (set rev1 (- vernum1 (* ver1 65536) ) )
  882.  
  883.  
  884. (set vernum2 (getversion "libs/cyberlayers.library"))
  885. (set ver2 (/ vernum2 65536))
  886. (set rev2 (- vernum2 (* ver2 65536) ) )
  887.  
  888.  
  889.  
  890. (set pick 0)
  891.  
  892. (set pick (askchoice
  893.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  894.         (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" ver1 rev1 ver2 rev2 ver2 rev2))
  895.         (help " ")        
  896.               (default nextpick)
  897.       )
  898. )
  899.  
  900. (set nextpick pick)
  901.  
  902.  
  903. (if (= pick 1)
  904.  
  905.         (copylib (source "libs/cyberlayers.library") (dest "SYS:Libs"))
  906.  
  907. )
  908.  
  909.  
  910.  
  911. (if (= pick 2)
  912.    (
  913.  
  914.      (set sizeneed (getsize "libs/cyberlayers.library"))
  915.      (set space    (getdiskspace "sys:"))
  916.  
  917.  
  918.      (set ok 0)
  919.      (set ##ver (cat ver1 "." rev1) ) 
  920.      (set #cyberlayers (cat "\n\nNo room on SYS: for cyberlayers.library" ##ver))
  921.      
  922.  
  923.      
  924.      (if (> space sizeneed)
  925.         (
  926.      
  927.          (if (> (exists ("sys:libs/cyberlayers.library")) 0) 
  928.             (copyfiles (source "sys:libs/cyberlayers.library")
  929.                        (dest "SYS:Storage/CyberGraphX/libs")
  930.                        (newname (cat "cyberlayers.library" ver1 "." rev1))
  931.             )  
  932.          )
  933.  
  934.  
  935.         (copylib (source "libs/cyberlayers.library") (dest "SYS:Libs"))
  936.      
  937.         (set #cyberlayers (cat "\n\ncyberlayers.library" ##ver))
  938.         (set ok 1)
  939.       
  940.         )
  941.      
  942.      )
  943.      
  944.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  945.      (if (= ok 0) (message (cat #noroom "cyberlayers.library" ##ver  
  946.                             "\n\nThe newer\n\ncyberlayers.library " ver2 "." rev2
  947.                             "\n\nwas not copied over/updated to SYS:Libs"
  948.                             )
  949.                   ) 
  950.      )
  951.  
  952.  
  953.  
  954.  
  955.    )
  956.  
  957. )
  958.  
  959.  
  960.  
  961.  
  962. (if (= pick 3)
  963.  
  964.         (copyfiles
  965.             (prompt "Copying 'cyberlayers.library' to Libs:")
  966.         (source "libs/cyberlayers.library")
  967.             (dest "SYS:Libs")
  968.             (confirm)
  969.             (infos) (help " ")
  970.          ) 
  971.  
  972. )
  973.  
  974.  
  975.  
  976.  
  977.  
  978. ;*******************************************************************
  979. ;  vilintuisup.library
  980. ;*******************************************************************
  981.  
  982.  
  983. (set vernum1 (getversion "sys:libs/vilintuisup.library"))
  984. (set ver1 (/ vernum1 65536))
  985. (set rev1 (- vernum1 (* ver1 65536) ) )
  986.  
  987.  
  988. (set vernum2 (getversion "libs/vilintuisup.library"))
  989. (set ver2 (/ vernum2 65536))
  990. (set rev2 (- vernum2 (* ver2 65536) ) )
  991.  
  992.  
  993.  
  994. (set pick 0)
  995.  
  996. (set pick (askchoice
  997.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  998.         (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" ver1 rev1 ver2 rev2 ver2 rev2))
  999.         (help " ")        
  1000.               (default nextpick)
  1001.       )
  1002. )
  1003.  
  1004. (set nextpick pick)
  1005.  
  1006.  
  1007. (if (= pick 1)
  1008.  
  1009.         (copylib (source "libs/vilintuisup.library") (dest "SYS:Libs"))
  1010.  
  1011. )
  1012.  
  1013.  
  1014.  
  1015. (if (= pick 2)
  1016.    (
  1017.  
  1018.      (set sizeneed (getsize "libs/vilintuisup.library"))
  1019.      (set space    (getdiskspace "sys:"))
  1020.  
  1021.  
  1022.      (set ok 0)
  1023.      (set ##ver (cat ver1 "." rev1) ) 
  1024.      (set #cybervil (cat "\n\nNo room on SYS: for vilintuisup.library" ##ver))
  1025.  
  1026.  
  1027.      
  1028.      (if (> space sizeneed)
  1029.         (
  1030.      
  1031.          (if (> (exists ("sys:libs/vilintuisup.library")) 0)
  1032.             (copyfiles (source "sys:libs/vilintuisup.library")
  1033.                        (dest "SYS:Storage/CyberGraphX/libs")
  1034.                        (newname (cat "vilintuisup.library" ver1 "." rev1))
  1035.             )  
  1036.          )
  1037.  
  1038.  
  1039.         (copylib (source "libs/vilintuisup.library") (dest "SYS:Libs"))
  1040.      
  1041.         (set #cybervil (cat "\n\nvilintuisup.library" ##ver))
  1042.         (set ok 1)
  1043.       
  1044.         )
  1045.      
  1046.      )
  1047.      
  1048.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  1049.      (if (= ok 0) (message (cat #noroom "vilintuisup.library" ##ver  
  1050.                             "\n\nThe newer\n\nvilintuisup.library " ver2 "." rev2
  1051.                             "\n\nwas not copied over to SYS:Libs"
  1052.                             )
  1053.                   ) 
  1054.      )
  1055.  
  1056.        
  1057.  
  1058.  
  1059.  
  1060.  
  1061.    )
  1062.  
  1063. )
  1064.  
  1065.  
  1066.  
  1067.  
  1068. (if (= pick 3)
  1069.  
  1070.         (copyfiles
  1071.             (prompt "Copying 'vilintuisup.library' to Libs:")
  1072.         (source "libs/vilintuisup.library")
  1073.             (dest "SYS:Libs")
  1074.             (confirm)
  1075.             (infos) (help " ")
  1076.          ) 
  1077.  
  1078. )
  1079.  
  1080.  
  1081. ;*******************************************************************
  1082. ;  gtlayout.library
  1083. ;*******************************************************************
  1084.  
  1085.  
  1086. (set vernum1 (getversion "sys:libs/gtlayout.library"))
  1087. (set ver1 (/ vernum1 65536))
  1088. (set rev1 (- vernum1 (* ver1 65536) ) )
  1089.  
  1090.  
  1091. (set vernum2 (getversion "libs/gtlayout.library"))
  1092. (set ver2 (/ vernum2 65536))
  1093. (set rev2 (- vernum2 (* ver2 65536) ) )
  1094.  
  1095.  
  1096.  
  1097. (set pick 0)
  1098.  
  1099. (set pick (askchoice
  1100.         (choices #NoUp #OnlyNew #OnlyNewB #YesAll)
  1101.         (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" ver1 rev1 ver2 rev2 ver2 rev2))
  1102.         (help " ")        
  1103.               (default nextpick)
  1104.       )
  1105. )
  1106.  
  1107. (set nextpick pick)
  1108.  
  1109. (if (= pick 1)
  1110.  
  1111.         (copylib (source "libs/gtlayout.library") (dest "SYS:Libs"))
  1112.  
  1113. )
  1114.  
  1115.  
  1116.  
  1117. (if (= pick 2)
  1118.    (
  1119.  
  1120.       (set sizeneed (getsize "libs/gtlayout.library"))
  1121.      (set space    (getdiskspace "sys:"))
  1122.  
  1123.  
  1124.      (set ok 0)
  1125.      (set ##ver (cat ver1 "." rev1) ) 
  1126.      (set #gtlay (cat "\n\nNo room on SYS: for gtlayout.library" ##ver))
  1127.  
  1128.         
  1129.      (if (> space sizeneed)
  1130.         (
  1131.         
  1132.         (if (> (exists ("sys:libs/gtlayout.library")) 0) 
  1133.          (copyfiles (source "sys:libs/gtlayout.library")
  1134.                     (dest "SYS:Storage/CyberGraphX/libs")
  1135.                     (newname (cat "gtlayout.library" ver1 "." rev1))
  1136.          )  
  1137.         )
  1138.  
  1139.  
  1140.         (copylib (source "libs/gtlayout.library") (dest "SYS:Libs"))
  1141.      
  1142.         (set #gtlay (cat "\n\ngtlayout.library" ##ver))
  1143.         (set ok 1)
  1144.       
  1145.         )
  1146.      )
  1147.       
  1148.      
  1149.      
  1150.      (set #noroom "\n\nThere was no room on SYS: for\n\n")
  1151.      (if (= ok 0) (message (cat #noroom "gtlayout.library" ##ver  
  1152.                             "\n\nThe newer\n\ngtlayout.library " ver2 "." rev2
  1153.                             "\n\nwas not copied over to SYS:Libs"
  1154.                             )
  1155.                   ) 
  1156.      )
  1157.  
  1158.         
  1159.  
  1160.  
  1161.  
  1162.  
  1163.    )
  1164.  
  1165. )
  1166.  
  1167.  
  1168.  
  1169.  
  1170. (if (= pick 3)
  1171.  
  1172.         (copyfiles
  1173.             (prompt "Copying 'vilintuisup.library' to Libs:")
  1174.         (source "libs/gtlayout.library")
  1175.             (dest "SYS:Libs")
  1176.             (confirm)
  1177.             (infos) (help " ")
  1178.          ) 
  1179.  
  1180. )
  1181.  
  1182.  
  1183.  
  1184.  
  1185. ;*******************************************************************
  1186. ;  Let then know that has been backed up!
  1187. ;*******************************************************************
  1188.  
  1189.  
  1190.  
  1191. (message (cat #thefollowing #cybergfx #cyberint #cyberlayers #cybervil #gtlay)) 
  1192.  
  1193.  
  1194.  
  1195. ;******************************************************************************** 
  1196. ;
  1197. ; Move #?monitor file from envarc: to envarc:CyberGraphics for newer Libraries
  1198. ; This is here just for backup!
  1199. ;
  1200. ;********************************************************************************
  1201.  
  1202. (if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") )
  1203. (if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") )
  1204.  
  1205.  
  1206. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor"))  1)
  1207.       (if (> (exists ("EnvArc:PicassoMonitor")) 0)
  1208.          (copyfiles (source "EnvArc:PicassoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1209.       )
  1210. )
  1211.  
  1212. (if (< (exists ("EnvArc:CyberGraphics/PicassoMonitor")) 1)
  1213.       (if (> (exists ("EnvArc:SpectrumMonitor")) 0)
  1214.          (copyfiles (source "EnvArc:SpectrumMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1215.       )
  1216. )
  1217.  
  1218. (if (< (exists ("EnvArc:CyberGraphics/PiccoloMonitor")) 1)
  1219.       (if (> (exists ("EnvArc:PiccoloMonitor")) 0)
  1220.          (copyfiles (source "EnvArc:PiccoloMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1221.       )
  1222. )
  1223.  
  1224. (if (< (exists ("EnvArc:CyberGraphics/DominoMonitor")) 1)
  1225.       (if (> (exists ("EnvArc:DominoMonitor")) 0)
  1226.          (copyfiles (source "EnvArc:DominoMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1227.       )
  1228. )
  1229.  
  1230.  
  1231. (if (< (exists ("EnvArc:CyberGraphics/RetinaZ3Monitor")) 1)
  1232.       (if (> (exists ("EnvArc:RetinaZ3Monitor")) 0) 
  1233.          (copyfiles (source "EnvArc:RetinaZ3Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1234.       )
  1235. )
  1236.  
  1237. (if (< (exists ("EnvArc:CyberGraphics/PiccoSD64Monitor")) 1)
  1238.       (if (> (exists ("EnvArc:PiccoSD64Monitor")) 0) 
  1239.          (copyfiles (source "EnvArc:PiccoSD64Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1240.       )
  1241. )
  1242.  
  1243. (if (< (exists ("EnvArc:CyberGraphics/CyberVisionMonitor")) 1)
  1244.       (if (> (exists ("EnvArc:CyberVisionMonitor")) 0) 
  1245.          (copyfiles (source "EnvArc:CyberVisionMonitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1246.       )
  1247. )
  1248.  
  1249. (if (< (exists ("EnvArc:CyberGraphics/A2410Monitor")) 1)
  1250.       (if (> (exists ("EnvArc:A2410Monitor")) 0) 
  1251.          (copyfiles (source "EnvArc:A2410Monitor") (dest "EnvArc:CyberGraphics") (infos) (optional nofail) )
  1252.       )
  1253. )
  1254.  
  1255.  
  1256.  
  1257.  
  1258. ;******************************************************************************** 
  1259. ;
  1260. ;  Update the Monitor file ..
  1261. ;
  1262. ;
  1263. ;********************************************************************************
  1264.  
  1265.  
  1266.  
  1267. (if (> (exists ("sys:devs/monitors/Picasso")) 0)     (set #BGuess 0)  )
  1268. (if (> (exists ("sys:devs/monitors/Spectrum")) 0)    (set #BGuess 1)  )
  1269. (if (> (exists ("sys:devs/monitors/Piccolo")) 0)     (set #BGuess 2)  )
  1270. (if (> (exists ("sys:devs/monitors/Domino")) 0)      (set #BGuess 3)  )
  1271. (if (> (exists ("sys:devs/monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
  1272. (if (> (exists ("sys:devs/monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
  1273. (if (> (exists ("sys:devs/monitors/CyberVision")) 0) (set #BGuess 6)  )
  1274. (if (> (exists ("sys:devs/monitors/A2410")) 0)       (set #BGuess 7)  )
  1275. (if (> (exists ("sys:devs/monitors/DraCoAltais")) 0) (set #BGuess 8)  )
  1276. (if (> (exists ("sys:devs/monitors/Merlin")) 0)      (set #BGuess 9)  )
  1277.  
  1278. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  1279.                                "Retina Z3 BLT" "Piccolo SD64" "CyberVision64"
  1280.                                "A2410" "DraCoAltais" "Merlin"
  1281.              (prompt #board)
  1282.                      (help "Select a Gfx Board")
  1283.                    (default #BGuess)
  1284.                  )
  1285.           )
  1286. )
  1287.  
  1288.  
  1289. (if (= board 0) (set #BOARD "Picasso") )
  1290. (if (= board 1) (set #BOARD "Spectrum") )
  1291. (if (= board 2) (set #BOARD "Piccolo") ) 
  1292. (if (= board 3) (set #BOARD "Domino") )
  1293. (if (= board 4) (set #BOARD "RetinaZ3") )
  1294. (if (= board 5) (set #BOARD "PiccoSD64") )
  1295. (if (= board 6) (set #BOARD "CyberVision") )
  1296. (if (= board 7) (set #BOARD "A2410") )
  1297. (if (= board 8) (set #BOARD "DraCoAltais") )
  1298. (if (= board 9) (set #BOARD "Merlin") )
  1299.  
  1300.  
  1301. (set BackDirText "SYS:Storage/CyberGraphX")
  1302.  
  1303. (if (< (exists (BackDirText)) 2)  (makedir (BackDirText) (infos))  )
  1304.  
  1305. (if (< (exists (tackon BackDirText "devs")) 2)
  1306.           (makedir (tackon BackDirText "devs") (infos))
  1307. )
  1308.  
  1309. (if (< (exists (tackon BackDirText "devs/monitors")) 2)
  1310.         (makedir (tackon BackDirText "devs/monitors") (infos))
  1311. )
  1312.  
  1313.  
  1314.  
  1315. (set #monbackup (cat "Do you wish to Backup\n\nDevs:Monitors/" #BOARD
  1316.                      "\n\nto\n\n" (tackon BackDirText "devs/monitors") 
  1317.                 )
  1318. )  
  1319.  
  1320. (if (= LAN 0) 
  1321. (
  1322.   (set #monbackup (cat "Wollen Sie die Sicherung von\n\nDevs:Monitors/" #BOARD
  1323.                      "\n\nto\n\n" (tackon BackDirText "devs/monitors")
  1324.                 )
  1325.   )
  1326.  
  1327. )
  1328. )
  1329.  
  1330.  
  1331. (set monbackup (askchoice (choices #YesBackup #NoBackup
  1332.                        (prompt #monbackup)
  1333.                            (help #monbackup)
  1334.                       (default 0)
  1335.                       )
  1336.                )
  1337. )
  1338.  
  1339.  
  1340. (if (= monbackup 0)
  1341.  (
  1342.  
  1343.    (if (> (exists (cat "Devs:Monitors/" #BOARD)) 0)
  1344.      (set sum (getsum (cat "Devs:Monitors/" #BOARD)) )
  1345.    )
  1346.  
  1347.    (if (< sum 0) (set sum (* sum -1)) )
  1348.  
  1349.    (if (> (exists (cat "Devs:Monitors/" #BOARD)) 0)
  1350.                      (copyfiles (source (cat "Devs:Monitors/" #BOARD)) (dest (tackon BackDirText "devs/monitors"))
  1351.                        (infos)
  1352.                        (newname (cat (tackon BackDirText "devs/monitors/") #BOARD "." sum))
  1353.                      )
  1354.    )
  1355.  
  1356.    (set #filesum "(Backup file = <MonitorFileName>.<CheckSum>)")
  1357.  
  1358.    (message (cat "\n" (tackon BackDirText "devs/monitors/") #BOARD "." sum
  1359.                  "\n\n" #hasbeen "\n\n" (tackon BackDirText "devs/monitors")
  1360.                  "\n\n" #filesum
  1361.             )
  1362.    ) 
  1363.  
  1364.  
  1365.  
  1366.  )
  1367. ) 
  1368.  
  1369.  
  1370.  
  1371.  
  1372.  
  1373. (set #updated 0)
  1374.  
  1375.  
  1376.  
  1377.  
  1378. (if (= board 0)
  1379.   (
  1380.     (set #Update (run "Updaters/UpdatePicassoII devs:monitors/Picasso") ) 
  1381.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1382.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1383.     (if (= #update 10) (message #updateBad) )       
  1384.     (set #updated 1)
  1385.   )
  1386. )
  1387.  
  1388. (if (= board 1)
  1389.   (
  1390.     (set #Update (run "Updaters/UpdateSpectrum devs:monitors/Spectrum") ) 
  1391.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1392.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1393.     (if (= #update 10) (message #updateBad) )       
  1394.     (set #updated 1)
  1395.   )
  1396. )
  1397.  
  1398. (if (= board 2)
  1399.   (
  1400.     (set #Update (run "Updaters/UpdatePiccolo devs:monitors/Piccolo") ) 
  1401.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1402.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1403.     (if (= #update 10) (message #updateBad) )       
  1404.     (set #updated 1)
  1405.   )
  1406. )
  1407.  
  1408. (if (= board 3)
  1409.   (
  1410.     (set #Update (run "Updaters/UpdateDomino devs:monitors/Domino") ) 
  1411.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1412.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1413.     (if (= #update 10) (message #updateBad) )       
  1414.     (set #updated 1)
  1415.   )
  1416. )
  1417.  
  1418. (if (= board 4)
  1419.   (
  1420.     (set #Update (run "Updaters/UpdateRetinaZ3 devs:monitors/RetinaZ3") ) 
  1421.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1422.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1423.     (if (= #update 10) (message #updateBad) )       
  1424.     (set #updated 1)
  1425.   )
  1426. )
  1427.  
  1428. (if (= board 5)
  1429.   (
  1430.     (set #Update (run "Updaters/UpdatePiccoSD64 devs:monitors/PiccoSD64") ) 
  1431.     (if (= #update 0) (message (cat #updatecorrect (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1432.     (if (= #update 5) (message (cat #updatePD (tackon BackDirText "devs/monitors/") #BOARD ".backup") ) )  
  1433.     (if (= #update 10) (message #updateBad) )       
  1434.     (set #updated 1)
  1435.   )
  1436. )
  1437.  
  1438. (if (= board 6)
  1439.   (
  1440.  
  1441.     (message (cat #updateNoUpdate (tackon BackDirText "devs/monitors/") #BOARD ".backup"))    
  1442.    
  1443.   )
  1444. )
  1445.  
  1446. (if (= board 7)
  1447.   (
  1448.  
  1449.    (message #updateNoUpdate)     
  1450.    
  1451.   )
  1452. )
  1453.  
  1454. (if (= board 8)  (message #AltaisMon))
  1455.  
  1456.  
  1457. (if (= board 9)
  1458.   (
  1459.  
  1460.    (message #updateNoUpdate)     
  1461.    
  1462.   )
  1463. )
  1464.    
  1465.  
  1466. ;******************************************************************************** 
  1467. ;
  1468. ;  Tools to install
  1469. ;
  1470. ;
  1471. ;********************************************************************************
  1472. (set ToDo1      (askoptions (choices #cvmode #cyberprefsx)
  1473.                 (prompt #tools)
  1474.                 (help #tools)
  1475.                 (default 7)
  1476.         )
  1477. )
  1478.  
  1479.  
  1480. (if (<> ToDo1 0)
  1481.  (
  1482.  
  1483.     (if (IN ToDo1 0) 
  1484.       (  
  1485.         (set CyberDrawer (askdir (prompt #Where #wherecvm)
  1486.                (help   #Where #wherecvm)
  1487.                (default "SYS:Prefs")
  1488.                  )  
  1489.         )
  1490.    
  1491.         (if (> (exists (tackon CyberDrawer "CVMode") ) 0)
  1492.            (
  1493.               (set vernum1 (getversion (tackon CyberDrawer "CVMode")))
  1494.               (set ver1 (/ vernum1 65536))
  1495.               (set rev1 (- vernum1 (* ver1 65536) ) )
  1496.  
  1497.           
  1498.               (copyfiles (source (tackon CyberDrawer "CVMode"))
  1499.                          (dest CyberDrawer) (infos)
  1500.                          (newname (cat "CVMode" ver1 "." rev1))
  1501.               )
  1502.  
  1503.               
  1504.  
  1505.            )
  1506.          )
  1507.  
  1508.        (if (= LAN 0)
  1509.         (
  1510.          (if (< (exists "sys:Catalogs") 2) (makedir "Sys:Catalogs") )
  1511.          (if (< (exists "sys:Catalogs/deutsch") 2) (makedir "Sys:Catalogs/deutsch") )
  1512.          (copyfiles (source "Catalogs/deutsch/cvmode.catalog")  (dest "sys:catalogs/deutsch") ) 
  1513.         ) 
  1514.        )
  1515.  
  1516.         (copyfiles (source "Tools/CVMode")  (dest CyberDrawer) (infos) )
  1517.         
  1518.  
  1519.         
  1520.         ;(set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  1521.         ;                               "Retina Z3 BLT" "Piccolo Z3 SD64" "CyberVision64"
  1522.         ;                               "A2410" "DraCoAltais" "Merlin"
  1523.     ;              (prompt #board)
  1524.         ;                      (help #board)
  1525.         ;                 (default #BGuess)
  1526.     ;                      )
  1527.         ;           )
  1528.         ;)
  1529.  
  1530.  
  1531.         (tooltype    (dest (tackon CyberDrawer "CVMode"))
  1532.                   (if (= board 0) (settooltype "BOARD" "Picasso") )
  1533.                         (if (= board 1) (settooltype "BOARD" "Spectrum") )
  1534.                         (if (= board 2) (settooltype "BOARD" "Piccolo") ) 
  1535.                         (if (= board 3) (settooltype "BOARD" "Domino") )
  1536.                         (if (= board 4) (settooltype "BOARD" "RetinaZ3") )
  1537.                         (if (= board 5) (settooltype "BOARD" "PiccoSD64") )
  1538.                         (if (= board 6) (settooltype "BOARD" "CyberVision") )
  1539.                         (if (= board 7) (settooltype "BOARD" "A2410") )
  1540.                         (if (= board 8) (settooltype "BOARD" "RetinaZ3") )
  1541.                         (if (= board 9) (settooltype "BOARD" "Merlin") )
  1542.         )                 
  1543.  
  1544.  
  1545.  
  1546.  
  1547.  
  1548.  
  1549.       )
  1550.     )
  1551.  
  1552.  
  1553.  
  1554. (if (IN ToDo1 1) 
  1555.       (  
  1556.         (set CyberDrawer (askdir (prompt #Where #wherecpx)
  1557.                (help   #Where #wherecpx)
  1558.                (default CyberDrawer)
  1559.                  )  
  1560.         )
  1561.    
  1562.         (if (> (exists (tackon CyberDrawer "CyberPrefsX") ) 0)
  1563.            (
  1564.               (set vernum1 (getversion (tackon CyberDrawer "CyberPrefsX")))
  1565.               (set ver1 (/ vernum1 65536))
  1566.               (set rev1 (- vernum1 (* ver1 65536) ) )
  1567.  
  1568.           
  1569.               (copyfiles (source (tackon CyberDrawer "CyberPrefsX"))
  1570.                          (dest CyberDrawer) (infos)
  1571.                          (newname (cat "CyberPrefsX" ver1 "." rev1))
  1572.               )
  1573.  
  1574.               
  1575.  
  1576.            )
  1577.          )
  1578.  
  1579.         (copyfiles (source "Tools/CyberPrefsX")  (dest CyberDrawer) (infos) ) 
  1580.  
  1581.       )
  1582.     )
  1583.  
  1584.   
  1585.  
  1586.  
  1587.   
  1588.  
  1589.  
  1590.  )
  1591. ); *** END of Tools
  1592.  
  1593.  
  1594.  
  1595. ;*******************************************************************
  1596. ;  EEENNNDDD
  1597. ;*******************************************************************
  1598.  
  1599. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  1600. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  1601.  
  1602. (run (cat "run " #mpath "/multiview docs/Changes.txt") )
  1603. (delete "ram:lan")
  1604. (set @default-dest "sys:")
  1605. (exit "Quick Update Complete!")
  1606.  
  1607.  
  1608.  
  1609.  
  1610.  
  1611.  
  1612.  
  1613.