home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GrafikenKartenSoft / CGraphX215.LHA / CyberUpdate2.15 / Tools / CyberPrefsX < prev   
Encoding:
Text File  |  1996-01-11  |  28.3 KB  |  794 lines
  1. ;$VER: 3.5 (Jan-10-96)
  2. ;********************************************************************************
  3. ;    ______        __                  ______                     __  __   __
  4. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  5. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  6. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  7. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  8. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  9. ;         /_/                                        / /
  10. ;                                                   /_/
  11. ; CyberPrefsX  ©1994,1995,1996 by Robert C. Reiswig
  12. ; [was: CGraphXPrefs & EnvSettings & ChangeSettings]
  13. ;
  14. ;
  15. ; This was done for Frank Mariak for use with the
  16. ; Commercial release of CyberGraphX from Phase5, Germany
  17. ;
  18. ; Suggestions or problems: rcr@netcom.com
  19. ;--------------------------------------------------------------------------------
  20. ;
  21. ;********************************************************************************
  22.  
  23.  
  24.  
  25. ;********************************************************************************
  26. ;
  27. ; Read All System information
  28. ;
  29. ;********************************************************************************
  30. (set lan 1)
  31. (if (> (exists ("env:Language")) 0)
  32.   (if (= "deutsch" (getenv "Language")) (set lan 0) )
  33. )
  34.  
  35. (set CyberDrawer "CyberVision:") (set were "sys")
  36.  
  37. (if (> (exists ("sys:devs/monitors/Spectrum")) 0)    (set #BGuess 1)  )
  38. (if (> (exists ("sys:devs/monitors/Piccolo")) 0)     (set #BGuess 2)  )
  39. (if (> (exists ("sys:devs/monitors/Domino")) 0)      (set #BGuess 3)  )
  40. (if (> (exists ("sys:devs/monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
  41. (if (> (exists ("sys:devs/monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
  42. (if (> (exists ("sys:devs/monitors/A2410")) 0)       (set #BGuess 7)  )
  43. (if (> (exists ("sys:devs/monitors/Picasso")) 0)     (set #BGuess 0)  )
  44. (if (> (exists ("sys:devs/monitors/CyberVision")) 0) (set #BGuess 6)  )
  45. (if (> (exists ("sys:devs/monitors/A2410")) 0)       (set #BGuess 7)  )
  46. (if (> (exists ("sys:devs/monitors/DraCoAltais")) 0) (set #BGuess 8)  )
  47. (if (> (exists ("sys:devs/monitors/Merlin")) 0)      (set #BGuess 9)  )
  48.  
  49. ;********************************************************************************
  50. ;
  51. ; For some reason people seem to loose this directory
  52. ;
  53. ;********************************************************************************
  54. ;(if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") )
  55. ;(if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") )
  56.  
  57. (if (= FrankIsTheKingOfSwing 46) (welcome) )
  58. ;********************************************************************************
  59. ;
  60. ;English Information
  61. ;
  62. ;********************************************************************************
  63. (set #currset "\n\nShould this option be enabled ?")
  64.  
  65. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  66.                   "By setting this variable, the planar-to-chunky conversion "
  67.                   "will be done by the CPU (in contrast to the blitter conversion) "
  68.                   "Therefore the ugly looking "planar" blitting effects are gone, "
  69.                   "but the software conversion is slower. Do you wish to Enable this feature?"
  70.              )
  71. )
  72.  
  73.  
  74. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  75.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  76.                      "become Hires-sprites (they are no longer doubled by "
  77.                      "the CyberGraphX-Software). "
  78.                      "This variable is identical to the tooltype HIRESSPRITE "
  79.                      "of older Picasso-monitor files."
  80.                 )
  81. )
  82.  
  83.  
  84.  
  85.  
  86. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  87.                      "By setting this variable, you can switch off 15bit modes to reduce "
  88.                      "screenmode list length. The Modes are still available but hidden."
  89.                 )
  90. )
  91.  
  92. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  93.                      "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) "
  94.                      "will be placed on an CyberGraphX screens."
  95.                 )
  96. )
  97.  
  98. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  99.                      "By setting this variable, 8 bit deep screens are always opened "
  100.                      "in Fast memory. Useful with 1MB chip systems but you should "
  101.                      "avoid it with 2MB chip, because the older method is more "
  102.                      "compatible (no taglist changes etc.) "
  103.                 )
  104. )
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111. ;****** NEW Text July 17, 1995 ********************************
  112. (set #changeenv "Set/Explain/Change Environment Varibles")
  113. (set #changemonitor "Set/Change Default Monitor Setting")
  114. (set #changecv "Set/Change ToolType for CVMode")
  115.  
  116. (set #askchange "Please Select what option you would like to change.")
  117.  
  118. (set #askwereisCVMode "Please Select the CVmode program. This way the installer can get the correct path to the 'CVMode' file")
  119. (set #noicon "\n\nThe installer could not find the '.info' file for CVMode.  Please re-copy or install the CVMode Program")
  120. (set #board (cat "\nPlease Select the Graphics Board you have.\n"))
  121.  
  122. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  123.                      "With this option on, non displayable planar bitmaps "
  124.                      "are allocated in fast memory. This options speeds up "
  125.                      "handling of planar bitmaps but could lead to problem s"
  126.                      "with amiga graphics which insist on planar graphics "
  127.                      "placed in chip memory. Take care when using this option."
  128.                 )
  129. )
  130.  
  131. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  132.                     "If this option is enabled, the monitor switch on every "
  133.                     "CyberGraphX supported board is deactivated. This option is "
  134.                     "required for multi monitor systems."
  135.                 )
  136. )
  137.  
  138. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  139.                      "If this option is disabled, everytime a CyberGraphX display "
  140.                      "becomes frontscreen, Amiga display DMA is switched off in order "
  141.                      "to increase chipmem access speed. You can avoid this by enabling "
  142.                      "this option. "
  143.                 )
  144. )
  145.  
  146. (set #board (cat "\nPlease Select the Graphics Board you are using CyberGraphX on:\n"))
  147.  
  148. (set MonitorIS "A Custom Setting File")
  149.  
  150. (set #lookslikemonitor (cat "Select the Monitor Setting File You wish to use. "
  151.                             "If you are not sure on what the Max your monitor can handle is, "
  152.                             "quit and look it up in the monitor manual! It looks like it is set to: "
  153.                        )
  154. )
  155.  
  156. (set #yes "Yes - On")
  157. (set #no "No - Off")
  158. (set #youwantto "You want to set:")
  159. (set #to "To:")
  160.  
  161. ;****** NEW Text Oct 03, 1995 ********************************
  162. (set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  163.                      "If this option is disabled (set to 'No - Off'), the CyberGraphX Bootlogo "
  164.                      "will not be shown at boot time."
  165.                 )
  166. )
  167.  
  168. ;****** NEW Text Jan 10, 1996 ********************************
  169.  
  170. (set #quickchangeenv "Quick Set/Change Environment Variables ")
  171. (set #currenv "\nCurrent Settings for Environment Variables\n")
  172.  
  173. ;********************************************************************************
  174. ;
  175. ;German Information
  176. ;
  177. ;********************************************************************************
  178. (if (= LAN 0)
  179. (
  180.  
  181.  
  182. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  183.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  184.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  185.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  186.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  187.              )
  188. )
  189.  
  190.  
  191. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  192.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  193.                      "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
  194.                      "verdoppelt). "
  195.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  196.                      "in der alten Picasso software)."
  197.                 )
  198. )
  199.  
  200.  
  201. (set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  202.                      "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
  203.                      "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
  204.                 )
  205. )
  206.  
  207. (set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  208.                      "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) "
  209.                      "auf einen CyberGraphX Bildschirm umgeleitet."
  210.                 )
  211. )
  212.  
  213.  
  214.  
  215. (set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  216.                      "Wird diese Option aktiviert, werden CyberGraphX 256-Farben Bildschirme "
  217.                      "immer direkt im FastRAM geöffnet. Das ist sinnvoll bei Rechnern mit 1MB "
  218.                      "ChipRAM, sollte aber mit 2MB ChipRAM Systemen vermieden werden, da die "
  219.                      "alte Methode in einigen Punkten kompatibler ist."
  220.                 )
  221. )
  222.  
  223.  
  224. (set #EnvAbort (cat "\n\nEnvSettings konnte keine der Einstellungen finden."
  225.                     "\n\nSind Sie ein registrierter User?  Insofern Sie es sind, müssen "
  226.                     "Sie \"CyberGfx_Install\" aufrufen um die Variablen richtig zu setzen."
  227.                )
  228. )
  229.  
  230. (set #currset "\n\nSoll diese Option aktiv sein ?")
  231.  
  232.  
  233. ;****** NEW Text July 17, 1995 ********************************
  234. (set #changeenv "Setzen/Ändern von Umgebungsvariablen")
  235. (set #changemonitor "Setzen/Ändern der Standard Monitor Einstellungen")
  236. (set #changecv "Setzen/Ändern des ToolTypes für CVMode")
  237.  
  238. (set #askchange "Bitte wählen Sie, welche Einstellungen Sie ändern möchten.")
  239.  
  240. (set #askwereisCVMode "Bitte wählen Sie das CVmode Programm aus, damit das Installationsprogramm den korrekten Pfad von CVMode herausfinden kann.")
  241. (set #noicon "\n\nDas Installationsprogramm konnte die '.info' Datei für CVMode nicht finden.  Bitte kopieren oder installieren Sie CVMode erneut.")
  242. (set #board (cat "\nBitte wählen Sie Ihre Grafikkarte aus.\n"))
  243.  
  244. (set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  245.                      "Ist diese Option aktiv, werden nicht darzustellende "
  246.                      "planare BitMaps im FastRAM angelegt. Diese Option "
  247.                      "beschleunigt die Bearbeitung von planaren BitMaps aber "
  248.                      "kann zu Problemen mit Amiga Originalgrafik führen, wenn "
  249.                      "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
  250.                      "Seien Sie vorsichtig mit der Aktivierung dieser Option."
  251.                 )
  252. )
  253.  
  254. (set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  255.                     "Wenn diese Option aktiviert ist, wird der Monitorumschalter "
  256.                     "auf jeder von CyberGraphX unterstützten Karte deaktiviert. "
  257.                     "Diese Option ist für Mehr-Monitor Systeme erforderlich. "
  258.                 )
  259. )
  260.  
  261. (set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  262.                      "Ist diese Option nicht aktiv, wird jedesmal, wenn "
  263.                      "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
  264.                      "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
  265.                      "Dies kann durch Aktivierung der Option vermieden werden. "
  266.                 )
  267. )
  268.  
  269. (set #board (cat "\nBitte wählen Sie die Grafikkarte aus, die Sie mit CyberGraphX benutzen:\n"))
  270.  
  271. (set MonitorIS "Eine selbst definierte Einstellungsdatei")
  272.  
  273. (set #lookslikemonitor (cat "Bitte wählen Sie die Datei aus, die Sie benutzen wollen. "
  274.                             "Wenn Sie sich nicht sicher sind, welche Werte Ihr Monitor verarbeiten kann, "
  275.                             "schauen Sie bitte unverzüglich im Handbuch nach! Es sieht so aus, als wenn es eingestellt ist auf: "
  276.                        )
  277. )
  278.  
  279. (set #yes "Ja")
  280. (set #no "Nein")
  281. (set #youwantto "Sie wollen die Änderung von:")
  282. (set #to "auf:")
  283.  
  284. ;****** NEW Text Oct 03, 1995 ********************************
  285. (set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  286.                      "Ist diese Option inaktiv (auf 'Nein' gesetzt), wird das CyberGraphX Startlogo "
  287.                      "nicht angezeigt während eines Neustarts des Rechners."
  288.                 )
  289. )
  290.  
  291.  
  292. ;****** NEW Text Jan 10, 1996 ********************************
  293.  
  294. (set #quickchangeenv "Schnelles Setzen/Ändern der Umgebungsvariablen")
  295. (set #currenv "\nMomentane Einstellungen der Umgebungsvariablen\n")
  296.  
  297.  
  298.  
  299.  
  300. )
  301.  
  302. )
  303.  
  304.  
  305.  
  306. ;********************************************************************************
  307. ;
  308. ; Main Part of the Installer
  309. ;
  310. ;********************************************************************************
  311.  
  312.  
  313. ;********************************************************************************
  314. ; Ask to change the ENvars, Change monitor setting , or change tool type for CV
  315. ;********************************************************************************
  316.  
  317. (set ja (askchoice (choices #quickchangeenv #changeenv #changemonitor #changecv)
  318.                       (prompt (cat "\n" #askchange "\n"))
  319.                          (help   #askchange)
  320.                          (default 0)
  321.     )
  322. )
  323.  
  324.  
  325. ;********************************************************************************
  326. ; Find out whats in the env vars...
  327. ;********************************************************************************
  328. (procedure Read_Env
  329.  
  330. (set hires 0)  (set cpup2c 0)  (set hide15bit 0) (set alertemu 0)
  331. (set nochip 0) (set nopass 0) (set keepamiga 0) (set planes2 0)
  332. (set bootlogo 0)
  333.  
  334.  
  335. (if (> (exists ("env:cybergraphics/HIRESCRSR")) 0)
  336.   (if (= 1 (getenv "cybergraphics/HIRESCRSR")) (set hires 1) )
  337. )
  338.  
  339.  
  340. (if (> (exists ("env:cybergraphics/CPUP2C")) 0)
  341.   (if (= 1 (getenv "cybergraphics/CPUP2C")) (set cpup2c 1) )
  342. )
  343.  
  344.  
  345. (if (> (exists ("env:cybergraphics/HIDE15BIT")) 0)
  346.   (if (= 1 (getenv "cybergraphics/HIDE15BIT")) (set hide15bit 1) )
  347. )
  348.  
  349.  
  350. (if (> (exists ("env:cybergraphics/ALERTEMU")) 0)
  351.   (if (= 1 (getenv "cybergraphics/ALERTEMU")) (set alertemu 1) )
  352. )
  353.  
  354.  
  355. (if (> (exists ("env:cybergraphics/NOCHIPSCREEN")) 0)
  356.   (if (= 1 (getenv "cybergraphics/NOCHIPSCREEN")) (set nochip 1) )
  357. )
  358.  
  359.  
  360. (if (> (exists ("env:cybergraphics/NOPASSTHROUGH")) 0)
  361.   (if (= 1 (getenv "cybergraphics/NOPASSTHROUGH")) (set nopass 1) )
  362. )
  363.  
  364.  
  365. (if (> (exists ("env:cybergraphics/KEEPAMIGAVIDEO")) 0)
  366.   (if (= 1 (getenv "cybergraphics/KEEPAMIGAVIDEO")) (set keepamiga 1) )
  367. )
  368.  
  369.  
  370. (if (> (exists ("env:cybergraphics/PLANES2FAST")) 0)
  371.   (if (= 1 (getenv "cybergraphics/PLANES2FAST")) (set planes2 1) )
  372. )
  373.  
  374.  
  375. (if (> (exists ("env:cybergraphics/BOOTLOGO")) 0)
  376.   (if (= 1 (getenv "cybergraphics/BOOTLOGO")) (set bootlogo 1) )
  377. )
  378.  
  379. )
  380.  
  381. ;********************************************************************************
  382. ; Save the env vars...
  383. ;********************************************************************************
  384. (procedure Save_Env
  385.  
  386.  
  387.  
  388. (if (= cpup2c 0) ( (run "setenv cybergraphics/CPUP2C 0")
  389.      (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )  )
  390. )
  391.  
  392. (if (= cpup2c 1) ( (run "setenv cybergraphics/CPUP2C 1")
  393.      (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )  )
  394. )
  395.  
  396. ;***
  397.  
  398. (if (= HIRESCRSR 0) ( (run "setenv cybergraphics/HIRESCRSR 0")
  399.      (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") ) )
  400. )
  401.  
  402. (if (= HIRESCRSR 1) ( (run "setenv cybergraphics/HIRESCRSR 1")
  403.      (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") ) )
  404. )
  405.  
  406. ;***
  407.  
  408. (if (= HIDE15BIT 0) ( (run "setenv cybergraphics/HIDE15BIT 0")
  409.      (copyfiles (source "ENV:cybergraphics/HIDE15BIT") (dest "ENVARC:cybergraphics") ) )
  410. )
  411.  
  412. (if (= HIDE15BIT 1) ( (run "setenv cybergraphics/HIDE15BIT 1")
  413.      (copyfiles (source "ENV:cybergraphics/HIDE15BIT") (dest "ENVARC:cybergraphics") ) )
  414. )
  415.  
  416. ;***
  417.  
  418.  
  419. (if (= ALERTEMU 0) ( (run "setenv cybergraphics/ALERTEMU 0")
  420.      (copyfiles (source "ENV:cybergraphics/ALERTEMU") (dest "ENVARC:cybergraphics") ) )
  421. )
  422.  
  423. (if (= ALERTEMU 1) ( (run "setenv cybergraphics/ALERTEMU 1")
  424.      (copyfiles (source "ENV:cybergraphics/ALERTEMU") (dest "ENVARC:cybergraphics") ) )
  425. )
  426.  
  427. ;***
  428.  
  429. (if (= NOCHIPSCREEN 0) ( (run "setenv cybergraphics/NOCHIPSCREEN 0")
  430.      (copyfiles (source "ENV:cybergraphics/NOCHIPSCREEN") (dest "ENVARC:cybergraphics") ) )
  431. )
  432.  
  433. (if (= NOCHIPSCREEN 1) ( (run "setenv cybergraphics/NOCHIPSCREEN 1")
  434.      (copyfiles (source "ENV:cybergraphics/NOCHIPSCREEN") (dest "ENVARC:cybergraphics") ) )
  435. )
  436.  
  437. ;***
  438.  
  439. (if (= PLANES2FAST 0) ( (run "setenv cybergraphics/PLANES2FAST 0")
  440.      (copyfiles (source "ENV:cybergraphics/PLANES2FAST") (dest "ENVARC:cybergraphics") ) )
  441. )
  442.  
  443. (if (= PLANES2FAST 1) ( (run "setenv cybergraphics/PLANES2FAST 1")
  444.      (copyfiles (source "ENV:cybergraphics/PLANES2FAST") (dest "ENVARC:cybergraphics") ) )
  445. )
  446.  
  447. ;***
  448.  
  449. (if (= NOPASSTHROUGH 0) ( (run "setenv cybergraphics/NOPASSTHROUGH 0")
  450.      (copyfiles (source "ENV:cybergraphics/NOPASSTHROUGH") (dest "ENVARC:cybergraphics") ) )
  451. )
  452.  
  453. (if (= NOPASSTHROUGH 1) ( (run "setenv cybergraphics/NOPASSTHROUGH 1")
  454.      (copyfiles (source "ENV:cybergraphics/NOPASSTHROUGH") (dest "ENVARC:cybergraphics") ) )
  455. )
  456.  
  457. ;***
  458.  
  459. (if (= KEEPAMIGAVIDEO 0) ( (run "setenv cybergraphics/KEEPAMIGAVIDEO 0")
  460.      (copyfiles (source "ENV:cybergraphics/KEEPAMIGAVIDEO") (dest "ENVARC:cybergraphics") ) )
  461. )
  462.  
  463. (if (= KEEPAMIGAVIDEO 1) ( (run "setenv cybergraphics/KEEPAMIGAVIDEO 1")
  464.      (copyfiles (source "ENV:cybergraphics/KEEPAMIGAVIDEO") (dest "ENVARC:cybergraphics") ) )
  465. )
  466.  
  467. ;***
  468.  
  469. (if (= BOOTLOGO 0) ( (run "setenv cybergraphics/BOOTLOGO 0")
  470.      (copyfiles (source "ENV:cybergraphics/BOOTLOGO") (dest "ENVARC:cybergraphics") ) )
  471. )
  472.  
  473. (if (= BOOTLOGO 1) ( (run "setenv cybergraphics/BOOTLOGO 1")
  474.      (copyfiles (source "ENV:cybergraphics/BOOTLOGO") (dest "ENVARC:cybergraphics") ) )
  475. )
  476.  
  477.  
  478. )
  479. ;****************************************
  480. ; Short Env Set
  481. ;****************************************
  482. (if (= ja 0)
  483. (
  484.  
  485. (Read_Env)
  486.  
  487. (set envmask 0)
  488.  
  489. (if (= alertemu  1) (set envmask (+ envmask 1)) )
  490. (if (= bootlogo  1) (set envmask (+ envmask 2)) )
  491. (if (= cpup2c    1) (set envmask (+ envmask 4)) )
  492. (if (= hide15bit 1) (set envmask (+ envmask 8)) )
  493. (if (= hires     1) (set envmask (+ envmask 16)) )
  494. (if (= keepamiga 1) (set envmask (+ envmask 32)) )
  495. (if (= nochip    1) (set envmask (+ envmask 64)) )
  496. (if (= nopass    1) (set envmask (+ envmask 128)) )
  497. (if (= planes2   1) (set envmask (+ envmask 256)) )
  498.  
  499.  
  500. (set envmask1 (askoptions (choices " ALERTEMU" " BOOTLOGO" " CPUP2C"
  501.                                    " HIDE15BIT" " HIRESCRSR"  " KEEPAMIGAVIDEO"
  502.                                    " NOCHIPSCREEN" " NOPASSTHROUGH" " PLANES2FAST")
  503.                (prompt #currenv)
  504.                        (help #currenv)
  505.                    (default envmask)
  506.        )
  507. )
  508.  
  509.  
  510. (if (IN envmask1 0) (set ALERTEMU  1)      (set ALERTEMU  0) )
  511. (if (IN envmask1 1) (set BOOTLOGO  1)      (set BOOTLOGO  0) )
  512. (if (IN envmask1 2) (set cpup2c    1)      (set cpup2c    0) )
  513. (if (IN envmask1 3) (set HIDE15BIT 1)      (set HIDE15BIT 0) )
  514. (if (IN envmask1 4) (set HIRESCRSR 1)      (set HIRESCRSR 0) )
  515. (if (IN envmask1 5) (set KEEPAMIGAVIDEO 1) (set KEEPAMIGAVIDEO 0) )
  516. (if (IN envmask1 6) (set NOCHIPSCREEN 1)   (set NOCHIPSCREEN 0) )
  517. (if (IN envmask1 7) (set NOPASSTHROUGH 1)  (set NOPASSTHROUGH 0) )
  518. (if (IN envmask1 8) (set PLANES2FAST 1)    (set PLANES2FAST 0) )
  519.  
  520.  
  521. (Save_Env)
  522.  
  523.  
  524. )
  525. )
  526.  
  527. ;****************************************
  528. ; Long Env Set
  529. ;****************************************
  530. (if (= ja 1)
  531. (
  532.  
  533. (Read_Env)
  534.  
  535. ;********************************************************************************
  536. ; CPUP2C
  537. ;********************************************************************************
  538. (set cpup2c   (askchoice    (choices #no #yes)
  539.                            (prompt (cat #cpup2c " " #currset))
  540.                            (help   (cat #cpup2c " " #currset))
  541.                          (default cpup2c)
  542.           )
  543. )
  544.  
  545. ;********************************************************************************
  546. ; HIRESCRSR
  547. ;********************************************************************************
  548. (set HIRESCRSR (askchoice    (choices #no #yes)
  549.                            (prompt (cat #hirescrsr " " #currset))
  550.                            (help   (cat #hirescrsr " " #currset))
  551.                          (default hires)
  552.            )
  553. )
  554.  
  555. ;********************************************************************************
  556. ; HIDE15BIT
  557. ;********************************************************************************
  558. (set HIDE15BIT (askchoice    (choices #no #yes)
  559.                            (prompt (cat #hide15bit " " #currset))
  560.                            (help   (cat #hide15bit " " #currset))
  561.                          (default hide15bit)
  562.            )
  563. )
  564.  
  565. ;********************************************************************************
  566. ; ALERTEMU
  567. ;********************************************************************************
  568. (set ALERTEMU  (askchoice    (choices #no #yes)
  569.                            (prompt (cat #alertemu " " #currset))
  570.                            (help   (cat #alertemu " " #currset))
  571.                          (default alertemu)
  572.            )
  573. )
  574.  
  575. ;********************************************************************************
  576. ; NOCHIPSCREEN
  577. ;********************************************************************************
  578. (set NOCHIPSCREEN (askchoice    (choices #no #yes)
  579.                            (prompt (cat #nochip " " #currset))
  580.                            (help   (cat #nochip " " #currset))
  581.                          (default nochip)
  582.               )
  583. )
  584.  
  585. ;********************************************************************************
  586. ; PLANES2FAST
  587. ;********************************************************************************
  588. (set PLANES2FAST (askchoice    (choices #no #yes)
  589.                            (prompt (cat #planes2 " " #currset))
  590.                            (help   (cat #planes2 " " #currset))
  591.                          (default planes2)
  592.               )
  593. )
  594.  
  595. ;********************************************************************************
  596. ; NOPASSTHROUGH
  597. ;********************************************************************************
  598. (set NOPASSTHROUGH (askchoice    (choices #no #yes)
  599.                            (prompt (cat #nopass " " #currset))
  600.                            (help   (cat #nopass " " #currset))
  601.                          (default nopass)
  602.               )
  603. )
  604.  
  605. ;********************************************************************************
  606. ; KEEPAMIGAVIDEO
  607. ;********************************************************************************
  608. (set KEEPAMIGAVIDEO (askchoice    (choices #no #yes)
  609.                            (prompt (cat #keepamiga " " #currset))
  610.                            (help   (cat #keepamiga " " #currset))
  611.                          (default keepamiga)
  612.               )
  613. )
  614.  
  615. ;********************************************************************************
  616. ; BOOTLOGO
  617. ;********************************************************************************
  618. (set BOOTLOGO     (askchoice    (choices #no #yes)
  619.                            (prompt (cat #bootlogo  " " #currset))
  620.                            (help   (cat #bootlogo  " " #currset))
  621.                          (default bootlogo)
  622.               )
  623. )
  624.  
  625.  
  626.  
  627. (Save_Env)
  628.  
  629. ;****
  630. )
  631. )
  632.  
  633.  
  634.  
  635.  
  636. ;********************************************************************************
  637. ;
  638. ; Change Set Monitor Defaults mode
  639. ;
  640. ;********************************************************************************
  641. (if (= ja 2)
  642. (
  643.  
  644.  
  645. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  646.                                "Retina Z3 BLT" "Piccolo Z3 SD64" "CyberVision64"
  647.                                "A2410" "DraCoAltais" "Merlin"
  648.              (prompt #board)
  649.                      (help "Select a Gfx Board")
  650.                    (default #BGuess)
  651.                  )
  652.           )
  653. )
  654.  
  655.  
  656. (if (= board 0) ((set DirText "PicassoMonitor")     (set Dir "Picasso")     ))
  657. (if (= board 1) ((set DirText "SpectrumMonitor")    (set Dir "Spectrum")    ))
  658. (if (= board 2) ((set DirText "PiccoloMonitor")     (set Dir "Piccolo")     ))
  659. (if (= board 3) ((set DirText "DominoMonitor")      (set Dir "Domino")      ))
  660. (if (= board 4) ((set DirText "RetinaZ3Monitor")    (set Dir "RetinaZ3")    ))
  661. (if (= board 5) ((set DirText "PiccoSD64Monitor")   (set Dir "PiccoSD64")   ))
  662. (if (= board 6) ((set DirText "CyberVisionMonitor") (set Dir "CyberVision") ))
  663. (if (= board 7) ((set DirText "A2410Monitor")       (set Dir "A2410")       ))
  664. (if (= board 8) ((set DirText "RetinaZ3Monitor")    (set Dir "DraCoAltais") ))
  665. (if (= board 9) ((set DirText "MerlinMonitor")      (set Dir "Merlin")      ))
  666.  
  667.  
  668. (set runstring (cat "search" " ENVARC:cybergraphics/" DirText))
  669.  
  670. (set runstring1 (cat runstring " 80"))  (if (= (run runstring1) 0) (set MonitorIS "80"))
  671. (set runstring1 (cat runstring " 64"))  (if (= (run runstring1) 0) (set MonitorIS "64"))
  672. (set runstring1 (cat runstring " 57"))  (if (= (run runstring1) 0) (set MonitorIS "57"))
  673. (set runstring1 (cat runstring " 48"))  (if (= (run runstring1) 0) (set MonitorIS "48"))
  674. (set runstring1 (cat runstring " 38"))  (if (= (run runstring1) 0) (set MonitorIS "38"))
  675. (set runstring1 (cat runstring " 35"))  (if (= (run runstring1) 0) (set MonitorIS "35"))
  676. (set runstring1 (cat runstring " 31"))  (if (= (run runstring1) 0) (set MonitorIS "31"))
  677. (set runstring1 (cat runstring " 15"))  (if (= (run runstring1) 0) (set MonitorIS "15"))
  678.  
  679. (set #envcyb  (cat "ENVARC:cybergraphics/" Dir))
  680. (set #envcyb1 (cat "ENVARC:cybergraphics/" DirText))
  681.  
  682. (set #looklike (cat "Monitor-" MonitorIS "khz"))
  683. (if (= MonitorIS "A Custom Setting File") (set #looklike ""))
  684.  
  685. (set    Name (askfile (prompt (cat #lookslikemonitor MonitorIS))
  686.                 (help   #lookslikemonitor)
  687.                         (default (tackon #envcyb #looklike))
  688.                )
  689. )
  690.  
  691.  
  692. (set #updatemonitor (cat #youwantto "\n\n" DirText "\n\n" #to "\n\n" Name "\n") )
  693.  
  694.  
  695. (if (<> (fileonly Name) "")
  696.  (
  697.  
  698.    (set todo  (askchoice (choices #yes #no)
  699.                  (prompt #updatemonitor)
  700.                   (help #updatemonitor)
  701.                     (default 0)
  702.  
  703.            )
  704.    )
  705.  
  706.  
  707.    (if (= todo 0)
  708.       (
  709.          (if (> (exists (#envcyb)) 0)
  710.            (
  711.             (copyfiles (source (cat #envcyb1 ) (dest "ENVARC:cybergraphics/") (newname (cat #envcyb1 ".backup")) ) )
  712.             (delete #envcyb1)
  713.             (textfile (append (fileonly Name)) (dest #envcyb1) )
  714.            )
  715.          )
  716.       )
  717.    )
  718.  
  719.  )
  720. )
  721.  
  722.  
  723. ;****
  724. )
  725. )
  726.  
  727.  
  728.  
  729.  
  730.  
  731. ;********************************************************************************
  732. ;
  733. ;ASK DEFAULT GFX board  for changing CVMode
  734. ;
  735. ;********************************************************************************
  736. (if (= ja 3)
  737. (
  738.  
  739.  
  740. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  741.                                "Retina Z3 BLT" "Piccolo Z3 SD64" "CyberVision64"
  742.                                "A2410" "DraCoAltais" "Merlin"
  743.              (prompt #board)
  744.                      (help "Select a Gfx Board")
  745.                    (default #BGuess)
  746.                  )
  747.           )
  748. )
  749.  
  750.  
  751.   (set    Name1 (askfile (prompt #askwereisCVMode)
  752.                 (help   #askwereisCVMode)
  753.                 (default "sys:CVMode")
  754.                 )
  755.   )
  756.  
  757.  
  758.   (set Name Name1)
  759.  
  760.   (if (= (fileonly Name1) "") (set Name (tackon Name1 "CVMode")) )
  761.  
  762.   (if (< (exists Name) 1) (abort #noicon) )
  763.   (if (< (exists (cat Name ".info")) 1) (abort #noicon) )
  764.  
  765.  
  766.  
  767.  
  768.  
  769.   (tooltype    (dest Name)
  770.                   (if (= board 0) (settooltype "BOARD" "Picasso") )
  771.                         (if (= board 1) (settooltype "BOARD" "Spectrum") )
  772.                         (if (= board 2) (settooltype "BOARD" "Piccolo") )
  773.                         (if (= board 3) (settooltype "BOARD" "Domino") )
  774.                         (if (= board 4) (settooltype "BOARD" "RetinaZ3") )
  775.                         (if (= board 5) (settooltype "BOARD" "PiccoSD64") )
  776.                         (if (= board 6) (settooltype "BOARD" "CyberVision") )
  777.                         (if (= board 7) (settooltype "BOARD" "A2410") )
  778.                         (if (= board 8) (settooltype "BOARD" "RetinaZ3") )
  779.                         (if (= board 9) (settooltype "BOARD" "Merlin") )
  780.   )
  781.  
  782.  
  783.  
  784. )
  785. )
  786. ;hammerd
  787. ;********************************************************************************
  788. ; Fool the installer to skip the welcome and set the defdest
  789. ;********************************************************************************
  790. (set @default-dest "ENVARC:cybergraphics")
  791.  
  792.  
  793. (exit "CyberPrefsX is Done.")
  794.