home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1997 #4 / amigaacscoverdisc1997-041997.iso / utilities / patches / studiov2.13_part_iii / install-studioupdate < prev    next >
Text File  |  1996-10-07  |  22KB  |  759 lines
  1. ; $VER: StudioUpdate 2.13 (07.10.96)
  2. ; Copyright (C)1992-96 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. (set #waitmsg
  8. (cat "\n\n\n\nWorking. Please wait..."
  9. ))
  10. (set #bad-kick
  11. (cat    "\nYour system software is very old. "
  12.     "You must use at least Kickstart 2.04 for all Studio programs. "
  13. ))
  14. (set #bad-version
  15. (cat    "This update will only update Studio V2.12 and older. "
  16.     "Your Studio disks are version %ld.%ld. Running this update doesn't make sense. "
  17. ))
  18. (set #bad-version2
  19. (cat    "This update will only update Studio V2.13 and older. "
  20.     "Your installed Studio program has version %ld.%ld. "
  21.     "I will skip updating your Studio printing program. "
  22. ))
  23. (set #w-studio
  24. (cat "Select the action(s) to perform."
  25. ))
  26. (set #w-studio-help
  27. (cat "This disk comes with new and additional software for some printers.\n"
  28.     "You can update your current used software.\n"
  29.     "Or you can update the software and add the additional printer software.\n\n"
  30.     @askchoice-help
  31. ))
  32. (set #w-studio-choices1
  33. (cat "Update Studio printing program to V2.13"
  34. ))
  35. (set #w-studio-choices2
  36. (cat "And add new Stylus Color software"
  37. ))
  38. (set #w-studio-choices3
  39. (cat "And add new Stylus Color II software"
  40. ))
  41. (set #w-studio-choices4
  42. (cat "And add new Stylus Color IIS software"
  43. ))
  44. (set #w-studio-choices5
  45. (cat "And add new Stylus Pro software"
  46. ))
  47. (set #w-studio-choices6
  48. (cat "And add new Stylus Pro XL software"
  49. ))
  50. (set #w-studio-choices7
  51. (cat "And add new Stylus 820 software"
  52. ))
  53. (set #abortunpack
  54. (cat "\nError occured while running the installation decompression program. "
  55.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  56. ))
  57. (set #foundstudio
  58. (cat "\nI found your Studio printing program. Can I update the program in the drawer:\n\n%s\n\n"
  59. ))
  60. (set #foundstudiohelp
  61. (cat "When selecting yes, the Studio program will be updated in the location found.\n\n"
  62.     "When selecting no, you will be asked for a Studio filename you want to update\n\n"
  63. ))
  64. (set #ask-studiomod
  65. (cat "\nSelect the disk or drawer the 'Studio' application program is placed in. "
  66. ))
  67. (set #ask-studiomod-help
  68. (cat "You should now select the drawer the 'Studio' application program is placed in. "
  69.     "Usually the program is placed in the Studio drawer and thus the Studio drawer "
  70.     "should be selected.\n\n"
  71.     @askdir-help
  72. ))
  73. (set #nostudiopro
  74. (cat "\nSorry, I can't find the \"Studio\" program. I tried to access %s. "
  75.     "Please check the drawer and program name try installing again. "
  76. ))
  77. (set #ask-prefs
  78. (cat "\nIn which disk or drawer are the Studio printer preferences program(s) installed?"
  79. ))
  80. (set #ask-prefs-help
  81. (cat "\nThis section lets you choose in which drawer or on which disk the "
  82.     "Studio printer driver preferences programs (EpsonP2Pref, ...) are installed. "
  83.     "These are normally placed in the \"sys:prefs\" directory of your system "
  84.     "disk.\n\n"
  85.     @askdir-help
  86. ))
  87. (set #delenv
  88. (cat "Can I overwrite your old driver settings? I want to overwrite your settings in "
  89.     "order to setup the driver for your printer.\n\n"
  90.     "Note: you can keep your old driver settings if you like. Use the Preset "
  91.     "menu of the preferences program to change the settings to the default "
  92.     "settings anytime later."
  93. ))
  94. (set #delenvhelp
  95. (cat "The installation program wants to setup the default settings for your printer. "
  96.     "In order to do so, your old settings have to be deleted. You can skip overwriting the driver "
  97.     "settings and setup the driver later for your printer using the Preset menu "
  98.     "of the drivers prefences program."
  99. ))
  100. (set #sdelenv
  101. (cat "Can I delete the old settings of your Studio printing program? I want to overwrite your settings in "
  102.     "order to setup Studio for your printer.\n\n"
  103.     "Note: you can keep your old Studio printing program settings if you like. Use the \"Reset To Default\" "
  104.     "menu item of the printing program to change the settings anytime later if required. "
  105. ))
  106. (set #sdelenvhelp
  107. (cat "The installation program wants to setup the default settings for your printer. "
  108.     "In order to do so, your old settings have to be deleted. You can skip overwriting the Studio "
  109.     "settings and setup the printing program later for your printer using the \"Reset To Default\" menu item "
  110.     "of the Studio printing program."
  111. ))
  112. (set #setupmsg
  113. (cat "\nA new SetupStylus program was installed for you in:\n\n%s\n "
  114. ))
  115. (set #mydisk
  116. (cat "Please insert the disk named\n\n\"StudioDisk_%ld\"\n\nin any drive."
  117. ))
  118. (set #installed
  119. (cat "\n\nA new driver named \"%s\" has been installed for your printer. "
  120.     "The driver is controlled by the installed \"%s\" preferences "
  121.     "program.\n\n"
  122. ))
  123. (set #yesupdate
  124. (cat "Yes, update"
  125. ))
  126. (set #yesdelete
  127. (cat "Yes, delete"
  128. ))
  129. (set #nodrawer
  130. (cat "No, select new drawer"
  131. ))
  132. (set #nochange
  133. (cat "No, don't change"
  134. ))
  135. (set #updatescan 
  136. (cat "\nI can't find the CMSScan program in your Studio drawer.\n\n"
  137.     "Select YES, if you want to update the CMSScan and CMSEdit program. "
  138.     "You will be asked for a drawer containing the CMSScan program.\n\n"
  139.     "Select NO, if you want to continue the installation without updating "
  140.     "the CMSScan and CMSEdit utilties. "
  141. ))
  142. (set #ask-cmsmod
  143. (cat "\nSelect the disk or drawer the 'CMSScan' program is placed in. "
  144. ))
  145. (set #ask-cmsmod-help
  146. (cat "You should now select the drawer the 'CMSScan' and 'CMSEdit' application program is placed in. "
  147.     "Usually the program is placed in the Studio drawer and thus the Studio drawer "
  148.     "should be selected.\n\n"
  149.     "The programs can be found on the second floppy disk, if Studio was "
  150.     "originaly installed on a floppy disk.\n\n"
  151.     @askdir-help
  152. ))
  153. (set #nocmspro
  154. (cat "\nSorry, I can't find the \"CMSScan\" program. I tried to access %s. "
  155.     "Please check the drawer and program name try installing again. "
  156. ))
  157. ;--------------
  158. ;*** German
  159. (if (= @language "deutsch")
  160. (
  161.     (set #waitmsg
  162.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  163.     ))
  164.     (set #bad-kick
  165.     (cat    "\nIhre System-Software ist sehr alt. "
  166.         "Sie brauchen mindestens Kickstart 2.04 für alle Studio-Programme."
  167.     ))
  168.     (set #bad-version
  169.     (cat    "Dieses Update benötigt Studio Version 2.12 oder älter. "
  170.         "Ihre Studio Originaldisketten haben Version %ld.%ld. Es macht daher "
  171.         "keinen Sinn, ein Update durchzuführen. "
  172.     ))
  173.     (set #bad-version2
  174.     (cat    "Dieses Update funktioniert nur mit Studio V2.13 und älter. "
  175.         "Ihr installiertes Programm hat bereits Version %ld.%ld. "
  176.         "Ich werde daher nicht das Programm updaten. "
  177.     ))
  178.     (set #w-studio
  179.     (cat "Welche Studio-Software wollen Sie updaten?"
  180.     ))
  181.     (set #w-studio-help
  182.     (cat "\nDieses Studio Update enthält neben einem generellen Update der vorhandenen "
  183.         "Software auch zusätzliche neue Treiber Software. Bitte wählen Sie, ob "
  184.         "Sie einfach nur vorhandenes Updaten wollen, oder ob Sie zusätzlich noch "
  185.         "weitere Software installieren wollen.\n\n"
  186.         @askoptions-help
  187.     ))
  188.     (set #w-studio-choices1
  189.     (cat "Studio Druckprogramm updaten."
  190.     ))
  191.     (set #w-studio-choices2
  192.     (cat "Updaten und Stylus Color installieren"
  193.     ))
  194.     (set #w-studio-choices3
  195.     (cat "Updaten und Stylus Color II installieren"
  196.     ))
  197.     (set #w-studio-choices4
  198.     (cat "Updaten und Stylus Color IIS installieren"
  199.     ))
  200.     (set #w-studio-choices5
  201.     (cat "Updaten und Stylus Pro installieren"
  202.     ))
  203.     (set #w-studio-choices6
  204.     (cat "Updaten und Stylus Pro XL installieren"
  205.     ))
  206.     (set #w-studio-choices7
  207.     (cat "Updaten und Stylus 820 installieren"
  208.     ))
  209.     (set #abortunpack
  210.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  211.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  212.     ))
  213.     (set #foundstudio
  214.     (cat "\nIch habe Ihr installiertes Studio Druckprogramm gefunden. Kann ich das Studio Programm in der folgenden Schublade updaten:\n\n%s\n\n"
  215.     ))
  216.     (set #foundstudiohelp
  217.     (cat "Wählen Sie ja, dann wird das Studio Programm in der angegebenen Schublade erneuert.\n\n"
  218.         "Wählen Sie Nein, erscheint ein Dateiauswahlfenster und Sie können eine "
  219.         "andere Schublade mit dem Studio Programm angeben.\n\n"
  220.     ))
  221.     (set #ask-studiomod
  222.     (cat "\nBitte wählen Sie die Schublade, in dem sich das 'Studio'-Programm befindet."
  223.     ))
  224.     (set #ask-studiomod-help
  225.     (cat @askdir-help
  226.     ))
  227.     (set #nostudiopro
  228.     (cat "Ich kann das \"Studio\" Programm nicht unter\n\n'%s'\n\nfinden. "
  229.         "Bitte prüfen Sie die angegebenen Dateinamen und versuchen Sie die Installation erneut."
  230.     ))
  231.     (set #ask-cmsmod
  232.     (cat "\nBitte wählen Sie die Schublade, in dem sich das 'CMSScan'-Programm befindet."
  233.     ))
  234.     (set #ask-cmsmod-help
  235.     (cat "Bitte wählen Sie die Schublade, in dem sich das 'CMSScan'-Programm befindet. "
  236.         "Das Programm befindet sich normal in der Studio Schublade.\n"
  237.         "Wurde Studio auf Disketten installiert, finden Sie CMSScan "
  238.         "auf der zweiten installierten Studio Diskette.\n\n"
  239.         @askdir-help
  240.     ))
  241.     (set #ask-prefs
  242.     (cat "\nIn welcher Schublade wurden die Studio Treiber-Voreinsteller installiert?"
  243.     ))
  244.     (set #ask-prefs-help
  245.     (cat "\nNormal installiert Studio die Voreinsteller EpsonP2Pref usw. "
  246.         "in die SYS:Prefs Schublade. Sollten Sie diese Programme woanders installiert haben, "
  247.         "geben Sie bitte die entsprechende Schublade an, damit die Programme upgedated werden können.\n\n"
  248.         @askdir-help
  249.     ))
  250.     (set #delenv
  251.     (cat "Kann ich Ihre alten Treibereinstellungen löschen, damit ich den Treiber "
  252.         "für Ihren Drucker neu konfigurieren kann?\n\n"
  253.         "Sie können Ihre Einstellungen mit 'Nein' aber auch behalten und jederzeit "
  254.         "später mit dem Preset Menü von EpsonP2Pref den Treiber neu einstellen."
  255.     ))
  256.     (set #delenvhelp
  257.     (cat "Das Installationsprogramm muß Ihre alten Treibereinstellungen löschen, "
  258.         "um die neuen Standardeinstellungen für Ihren Drucker zu aktivieren. "
  259.         "Sie können darauf aber auch verzichten, und später das Preset-Menü "
  260.         "von EpsonP2Pref zum Einstellen benutzen."
  261.     ))
  262.     (set #sdelenv
  263.     (cat "Kann ich Ihre Einstellungen des Studio Druckprogramms löschen, damit ich das Programm "
  264.         "für Ihren Drucker neu konfigurieren kann?\n\n"
  265.         "Sie können Ihre Einstellungen mit 'Nein' aber auch behalten und jederzeit "
  266.         "später mit dem 'Reset To Default' Menüpunkt die Einstellungen vornehmen."
  267.     ))
  268.     (set #sdelenvhelp
  269.     (cat "Das Installationsprogramm muß Ihre alten Studio Einstellungen löschen, "
  270.         "um die neuen Standardeinstellungen für Ihren Drucker zu aktivieren. "
  271.         "Sie können darauf aber auch verzichten, und später das Menü "
  272.         "von Studio zum Einstellen benutzen."
  273.     ))
  274.     (set #setupmsg
  275.     (cat "\nEin neues SetupStylus Programm wurde für Sie installiert in der Schublade:\n\n%s\n "
  276.     ))
  277.     (set #mydisk
  278.     (cat "Bitte legen Sie die Diskette\n\n\"StudioDisk_%ld\"\n\nin ein beliebiges Laufwerk."
  279.     ))
  280.     (set #installed
  281.     (cat "\n\nEin neuer Workbench Treiber namens \"%s\" wurde für Ihren Drucker installiert. "
  282.         "Zusätzlich wurde das Voreinsteller-Programm \"%s\"  installiert.\n\n"
  283.     ))
  284.     (set #yesupdate
  285.     (cat "Ja, updaten"
  286.     ))
  287.     (set #yesdelete
  288.     (cat "Ja, löschen"
  289.     ))
  290.     (set #nodrawer
  291.     (cat "Nein, andere Schublade"
  292.     ))
  293.     (set #nochange
  294.     (cat "Nein, nicht ändern"
  295.     ))
  296.     (set #updatescan 
  297.     (cat "\nIch kann das CMSScan Programm nicht in Ihrer angegebenen Studio Schublade finden.\n\n"
  298.         "Wollen Sie CMSScan und CMSEdit Updaten?"
  299.     ))
  300.     (set #ask-cmsmod
  301.     (cat "\nBitte wählen Sie die Schublade, in dem sich das 'CMSScan'-Programm befindet."
  302.     ))
  303.     (set #ask-cmsmod-help
  304.     (cat "Bitte wählen Sie die Schublade, in dem sich das 'CMSScan'-Programm befindet. "
  305.         "Das Programm befindet sich normal in der Studio Schublade.\n"
  306.         "Wurde Studio auf Disketten installiert, finden Sie CMSScan "
  307.         "auf der zweiten installierten Studio Diskette.\n\n"
  308.         @askdir-help
  309.     ))
  310.     (set #nocmspro
  311.     (cat "Ich kann das \"CMSScan\" Programm nicht unter\n\n'%s'\n\nfinden. "
  312.         "Bitte prüfen Sie die angegebenen Dateinamen und versuchen Sie die Installation erneut."
  313.     ))
  314. ))
  315.  
  316.  
  317. (procedure Meter
  318. (
  319.     (set accum    (+ accum addm))
  320.     (complete (/ (* accum 100) total))
  321. ))
  322.  
  323. (complete 0)
  324. ;(message #welcome-pirate)
  325.  
  326. (set total    0)
  327. (set accum    0)
  328. (set addm    0)
  329. (set firstdisk "")
  330. (if (< (/ (getversion) 65536) 37)
  331.     (abort #bad-kick)
  332. )
  333. (complete 1)
  334. (set studio (askchoice (prompt #w-studio)
  335.     (help #w-studio-help)
  336.     (choices #w-studio-choices1 #w-studio-choices2 #w-studio-choices3  #w-studio-choices4  #w-studio-choices5 #w-studio-choices6 #w-studio-choices7)
  337.     (default 0)
  338. ))
  339. (working #waitmsg)
  340. (set total 50)
  341. (if (> studio 0)
  342. (
  343.     (set total 100)
  344. ))
  345. (set @default-dest "")
  346. (if (= (exists "StudioDisk_1:VER") 1)
  347. (
  348.     (set vernum (getversion "StudioDisk_1:VER"))
  349.     (set ver (/ vernum 65536))
  350.     (set rev (- vernum (* ver 65536) ) )
  351.     (if (OR (> ver 2) (> rev 12))
  352.     (
  353.         (abort (#bad-version ver rev))
  354.     ))
  355. ))
  356. (copyfiles (source "StudioDisk_1:lx")
  357.     (dest "RAM:")
  358.     (nogauge)
  359. )
  360. (set exerr (run "RAM:lx n"))
  361. (if (> exerr 0)
  362. (
  363.     (abort (#abortunpack "-none-"))
  364. ))
  365.  
  366. (set addm 5)
  367. (Meter)
  368. (set studiopath "");
  369. (if (= (exists "ENV:STUDIOPATH") 1)
  370. (
  371.     (set studiopath (getenv "StudioPath"))
  372. ))
  373. (set found 1)
  374. (if (> (strlen studiopath) 1)
  375. (
  376.     (if (= (substr studiopath 0 1)  "\"")
  377.     (
  378.         (set studiopath (substr studiopath 1 (- (strlen studiopath) 2)))
  379.     ))
  380.     (if (= (exists studiopath) 1)
  381.     (
  382.         (if (= (fileonly studiopath) "Studio")
  383.         (
  384.             (set found 2)
  385.             (if (askbool (prompt (#foundstudio (pathonly studiopath)))
  386.                 (choices #yesupdate #nodrawer)
  387.                 (help (#foundstudiohelp ))
  388.                 (default 1))
  389.             (
  390.                 (set found 0)
  391.             ))
  392.         ))
  393.     ))
  394. ))
  395. (set addm 5)
  396. (Meter)
  397. (if (> found 0)
  398. (
  399.     (if (= found 1)
  400.     (
  401.         (set studiopath (getassign "WORK" "d"))
  402.         (if (= studiopath "")
  403.         (
  404.             (set studiopath (getassign "DH0" "d"))
  405.             (if (= studiopath "")
  406.             (
  407.                 (set studiopath (getassign "DH2" "d"))
  408.                 (if (= studiopath "")
  409.                 (
  410.                     (set studiopath "SYS:")
  411.                 ))
  412.             ))
  413.         ))
  414.         (set studiopath (tackon studiopath "Studio")) 
  415.     ))
  416.     (set studiopath  (askdir (prompt #ask-studiomod)
  417.         (help #ask-studiomod-help)
  418.         (default (pathonly (studiopath)))
  419.     ))
  420.     (set studiopath (tackon studiopath "Studio"))
  421.     (if (<> (exists studiopath) 1)
  422.     (
  423.         (abort (#nostudiopro studiopath))
  424.     ))
  425.     (textfile   (dest "Env:StudioPath")
  426.         (append (cat "\"" studiopath "\"")) )
  427.     (textfile   (dest "Envarc:StudioPath")
  428.         (append (cat "\"" studiopath "\"")) )
  429. ))
  430. (set addm    5)
  431. (Meter)
  432. (working #waitmsg)
  433. (makeassign "STUDIOPARENT" (pathonly (studiopath)))
  434. (set ver 0)
  435. (set rev 0)
  436. (if (= (exists "STUDIOPARENT:Studio") 1)
  437. (
  438.     (set vernum (getversion "STUDIOPARENT:Studio"))
  439.     (set ver (/ vernum 65536))
  440.     (set rev (- vernum (* ver 65536) ) )
  441. ))
  442. (set addm    20)
  443. (Meter)
  444. (if (OR (> ver 2) (> rev 13))
  445. (
  446.     (message (#bad-version2 ver rev))
  447. )
  448. (
  449.     (set exerr (run (cat "RAM:lx x \"Studio/Studio.pkd\" \"STUDIOPARENT:\"")))
  450.     (if (> exerr 0)
  451.     (
  452.         (abort (#abortunpack "Studio/Studio.pkd"))
  453.     ))
  454.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Output"))
  455.     (if (= (exists "STUDIOPARENT:Epson_ESC-P2.output") 1)
  456.     (
  457.         (set exerr (run (cat "RAM:lx x \"Output/Epson_ESC-P2.pkd\" \"STUDIOPARENT:\"")))
  458.         (if (> exerr 0)
  459.         (
  460.             (abort (#abortunpack "Output/Epson_ESC-P2.pkd"))
  461.         ))
  462.     ))
  463.     (set cmspath (tackon (pathonly studiopath) "CMSScan"))
  464.     (set found 1)
  465.     (if (<> (exists cmspath) 1)
  466.     (
  467.         (if (askbool (prompt (#updatescan (pathonly cmspath)))
  468.             (choices "Yes, update CMSScan" "No, continue")
  469.             (help (#foundstudiohelp ))
  470.             (default 1))
  471.         (
  472.             (set found 1)
  473.             (set cmspath  (askdir (prompt #ask-cmsmod)
  474.                 (help #ask-cmsmod-help)
  475.                 (default (pathonly (cmspath))))
  476.             )
  477.             (set cmspath (tackon cmspath "CMSScan"))
  478.             (if (<> (exists cmspath) 1)
  479.             (
  480.                 (abort (#nocmspro cmspath))
  481.             ))
  482.         )
  483.         (
  484.             (set found 0)
  485.         ))
  486.     ))
  487.     (if (> found 0)
  488.     (
  489.         (working #waitmsg)
  490.         (makeassign "STUDIOPARENT" (pathonly (cmspath)))
  491.         (set exerr (run (cat "RAM:lx x \"Studio/Scan.pkd\" \"STUDIOPARENT:\"")))
  492.         (if (> exerr 0)
  493.         (
  494.             (abort (#abortunpack "Studio/Scan.pkd"))
  495.         ))
  496.     ))
  497. ))
  498. (working #waitmsg)
  499. (set addm    10)
  500. (Meter)
  501. (makeassign "STUDIOPARENT" "Devs:printers")
  502. (if (= (exists "STUDIOPARENT:EpsonP2") 1)
  503. (
  504.     (set exerr (run (cat "RAM:lx x \"Drivers/EpsonP2.pkd\" \"STUDIOPARENT:\"")))
  505.     (if (> exerr 0)
  506.     (
  507.         (abort (#abortunpack "Drivers/EpsonP2.pkd"))
  508.     ))
  509. ))
  510. (set prefdisk ("SYS:Prefs"))
  511. (if (exists "sys:preferences")
  512. (
  513.     (set prefdisk ("SYS:Preferences"))
  514. ))
  515. (if (exists "SYS:Prefs")
  516. (
  517.     (set prefdisk ("SYS:Prefs"))
  518. ))
  519. (set prefdisk (askdir (prompt #ask-prefs)
  520.     (help #ask-prefs-help)
  521.     (default prefdisk))
  522. )
  523. (set addm    3)
  524. (Meter)
  525. (working #waitmsg)
  526. (if (= (exists prefdisk) 2)
  527. (
  528.     (makeassign "STUDIOPARENT" prefdisk)
  529.     (if (= (exists "STUDIOPARENT:EpsonP2Pref") 1)
  530.     (
  531.         (set exerr (run (cat "RAM:lx x \"Prefs/EpsonP2Pref.pkd\" \"STUDIOPARENT:\"")))
  532.         (if (> exerr 0)
  533.         (
  534.             (abort (#abortunpack "Prefs/EpsonP2Pref.pkd"))
  535.         ))
  536.     ))
  537. ))
  538. (set drivername "EpsonP2")
  539. (set prefname "prefs/EpsonP2Pref")
  540. (set envname "EpsonP2Pref")
  541. ; SC
  542. (if (= studio 1)
  543. (
  544.     (set setupname "prefs/SetupStylus")
  545.     (set setupprtname "StylusColor")
  546.     (set presetname "DriverPresets/StylusColor")
  547.     (set studiodefault "StylusColor")
  548.     (set soutput "Output/StylusColor")
  549.     (set sprofile "Profiles/StylusColor")
  550.     (set sprofile2 "Profiles/StylusColorBasic")
  551. ))
  552. ; SC II
  553. (if (= studio 2)
  554. (
  555.     (set setupname "prefs/SetupStylus")
  556.     (set setupprtname "StylusColorII")
  557.     (set presetname "DriverPresets/StylusColorII")
  558.     (set studiodefault "StylusColorII")
  559.     (set soutput "Output/StylusColorII")
  560.     (set sprofile "Profiles/StylusColorII")
  561.     (set sprofile2 "Profiles/StylusColorBasic")
  562. ))
  563. ; SC IIS
  564. (if (= studio 3)
  565. (
  566.     (set setupname "prefs/SetupStylus")
  567.     (set setupprtname "StylusColorIIS")
  568.     (set presetname "DriverPresets/StylusColorIIS")
  569.     (set studiodefault "StylusColorIIS")
  570.     (set soutput "Output/StylusColorIIS")
  571.     (set sprofile "Profiles/StylusColorIIS")
  572.     (set sprofile2 "")
  573. ))
  574. ; SC Pro
  575. (if (= studio 4)
  576. (
  577.     (set setupname "prefs/SetupStylus")
  578.     (set setupprtname "StylusPro")
  579.     (set presetname "DriverPresets/StylusColorII")
  580.     (set studiodefault "StylusColor")
  581.     (set soutput "Output/StylusColor")
  582.     (set sprofile "Profiles/StylusColorII")
  583.     (set sprofile2 "Profiles/StylusColorBasic")
  584. ))
  585. ; SC Pro XL
  586. (if (= studio 5)
  587. (
  588.     (set setupname "prefs/SetupStylus")
  589.     (set setupprtname "StylusPro")
  590.     (set presetname "DriverPresets/StylusColorII")
  591.     (set studiodefault "StylusColor")
  592.     (set soutput "Output/StylusColor")
  593.     (set sprofile "Profiles/StylusColorII")
  594.     (set sprofile2 "Profiles/StylusColorBasic")
  595. ))
  596. ; Stylus 820
  597. (if (= studio 6)
  598. (
  599.     (set setupname "prefs/SetupStylus")
  600.     (set setupprtname "Stylus820")
  601.     (set presetname "DriverPresets/StylusColorIIS")
  602.     (set studiodefault "Stylus820")
  603.     (set soutput "Output/Stylus820")
  604.     (set sprofile "Profiles/StylusColorIIS")
  605.     (set sprofile2 "")
  606. ))
  607. (if (> studio 0)
  608. (
  609.     (set addm 10)
  610.     (Meter)
  611.     (makeassign "STUDIOPARENT" "Devs:Printers")
  612.     (set exerr (run (cat "RAM:lx x drivers/" drivername ".pkd \"STUDIOPARENT:\"")))
  613.     (if (> exerr 0)
  614.     (
  615.         (abort (#abortunpack (tackon "Drivers" drivername)))
  616.     ))
  617.     (makeassign "STUDIOPARENT" prefdisk)
  618.     (set exerr (run (cat "RAM:lx x " prefname ".pkd \"STUDIOPARENT:\"")))
  619.     (if (> exerr 0)
  620.     (
  621.         (abort (#abortunpack prefname))
  622.     ))
  623.     (if (<> setupname "")
  624.     (
  625.         (set exerr (run (cat "RAM:lx x " setupname ".pkd \"STUDIOPARENT:\"")))
  626.         (if (> exerr 0)
  627.         (
  628.             (abort (#abortunpack prefname))
  629.         ))
  630.         (tooltype (prompt        "")
  631.             (help        "")
  632.             (dest (cat "STUDIOPARENT:" (fileonly setupname)))
  633.             (settooltype "PRINTER" (setupprtname))
  634.             (noposition))
  635.         (message (#setupmsg prefdisk))
  636.     ))
  637.     (set addm 10)
  638.     (Meter)
  639.     (set delenv 1)
  640.     (if (= (exists (cat "ENV:" envname)) 1)
  641.     (
  642.             (if (NOT (askbool (prompt (#delenv))
  643.                 (choices #yesupdate #nochange)
  644.                 (help (#delenvhelp))
  645.                 (default 1)))
  646.             (
  647.                 (set delenv 0)
  648.             ))
  649.     ))
  650.     (if (> delenv 0)
  651.     (
  652.         (if (exists "ENV:")
  653.         (
  654.             (delete (cat "ENV:" envname))
  655.         ))
  656.         (if (exists "ENVARC:")
  657.         (
  658.             (delete (cat "ENVARC:" envname))
  659.         ))
  660.         (if (<> presetname "")
  661.         (
  662.             (if (= (exists presetname) 1)
  663.             (
  664.                 (copyfiles (source presetname)
  665.                     (dest "ENV:")
  666.                     (newname envname)
  667.                     (nogauge)
  668.                 )
  669.             )
  670.             (
  671.                 (if (= (exists (cat presetname ".pkd")) 1)
  672.                 (
  673.                     (set exerr (run (cat "RAM:lx x " presetname ".pkd ENV:")))
  674.                     (if (> exerr 0)
  675.                     (
  676.                         (abort (#abortunpack (cat presetname ".pkd")))
  677.                     ))
  678.                     (if (exists (cat "ENV:" envname))
  679.                     (
  680.                         (delete (cat "ENV:" envname))
  681.                     ))
  682.                     (rename (cat "ENV:" (fileonly presetname)) (cat "ENV:" envname))
  683.                 ))
  684.             ))
  685.             (if (= (exists (cat "ENV:" envname)) 1)
  686.             (
  687.                 (if (exists "ENVARC:")
  688.                 (
  689.                     (copyfiles (source (cat "ENV:" envname))
  690.                         (dest "ENVARC:")
  691.                         (newname envname)
  692.                         (nogauge)
  693.                     )
  694.                 ))
  695.             ))
  696.         ))
  697.     ))
  698.     (set addm 10)
  699.     (Meter)
  700.     (working #waitmsg)
  701.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Prefs"))
  702.     (set exerr (run (cat "RAM:lx x \"" (tackon "StudioPresets" (cat studiodefault ".pkd\"")) "\"T:\"")))
  703.     (if (> exerr 0)
  704.     (
  705.         (abort (#abortunpack (tackon "StudioPresets" (cat studiodefault ".pkd"))))
  706.     ))
  707.     (copyfiles (source (cat "T:" studiodefault ".prefs"))
  708.         (dest "STUDIOPARENT:")
  709.         (newname "DefaultSettings")
  710.         (nogauge)
  711.     )
  712.     (set addm    10)
  713.     (Meter)
  714.     (if (exists "STUDIOPARENT:Studio.prefs")
  715.     (
  716.         (if (askbool (prompt (#sdelenv))
  717.             (choices #yesdelete #nochange)
  718.             (help (#sdelenvhelp))
  719.             (default 1))
  720.         (
  721.             (delete "STUDIOPARENT:Studio.prefs")
  722.         ))
  723.     ))
  724.     (working #waitmsg)
  725.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Output"))
  726.     (set exerr (run (cat "RAM:lx x \"" soutput ".pkd\" \"STUDIOPARENT:\"")))
  727.     (if (> exerr 0)
  728.     (
  729.         (abort (#abortunpack (cat soutput ".pkd")))
  730.     ))
  731.     (set exerr (run (cat "RAM:lx x \"output/Epson_ESC-P2.pkd\" \"STUDIOPARENT:\"")))
  732.     (if (> exerr 0)
  733.     (
  734.         (abort (#abortunpack (cat "output/Epson_ESC-P2.pkd")))
  735.     ))
  736.     (set addm 5)
  737.     (Meter)
  738.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Profiles"))
  739.     (set exerr (run (cat "RAM:lx x \"" sprofile ".pkd\" \"STUDIOPARENT:\"")))
  740.     (if (> exerr 0)
  741.     (
  742.         (abort (#abortunpack (cat sprofile ".pkd")))
  743.     ))
  744.     (if (<> sprofile2 "")
  745.     (
  746.         (set exerr (run (cat "RAM:lx x \"" sprofile2 ".pkd\" \"STUDIOPARENT:\"")))
  747.         (if (> exerr 0)
  748.         (
  749.             (abort (#abortunpack (cat sprofile2 ".pkd")))
  750.         ))
  751.     ))
  752.     (message (#installed drivername (fileonly prefname)))
  753.  
  754. ))
  755. (run "RAM:lx n")
  756. (delete "RAM:lx")
  757. (makeassign "STUDIOPARENT")
  758. (complete 100)
  759.