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