home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / AdPro2_5_0-1.DMS / AdPro2_5_0-1.adf / Install-ADPro < prev    next >
Encoding:
Text File  |  1994-02-01  |  96.4 KB  |  4,002 lines
  1. ; ************************************************
  2. ; *
  3. ; * Install-ADPro
  4. ; *
  5. ; * $VER: Install-ADPro 2.5.0 (31.1.94)
  6. ; *
  7. ; * This is the installation script for ASDG's Art Department Professional
  8. ; * version 2.5.0.
  9. ; *
  10. ; * Copyright © 1990-1994 ASDG, Incorporated
  11. ; * All Rights Reserved
  12. ; *
  13. ; ************************************************
  14.  
  15.  
  16. ; ****************************
  17. ; * Set up some global variables.
  18. ; ****************************
  19. ;
  20. (set ProductName    "Art Department Professional")    ; product name
  21. (set ProductBaseName    "ADPro")            ; product base name
  22. (set ADProLiteName    "MorphPlus")            ; ADProLite name
  23. (set VersionNum        "2.5.0")            ; product version number
  24.  
  25. (set OSVersion        (/ (getversion) 65536))
  26. (set TotalFiles        0)
  27. (set AccumFiles        0)
  28. (set PctDone        0)
  29. (set DisplayReadMe    0)
  30.  
  31. (set CPUOpts        0)            ; 0=68000,68010; 1=68020,68030,68040
  32. (set FPUNameIEEE    "IEEE")            ; IEEE basename suffix
  33. (set FPUNameM68881    "M68881")        ; M68881 basename suffix
  34. (set FPUName        FPUNameIEEE)        ; default FPU basename suffix
  35.  
  36. (set Disk1Name            "ADPro_D1")    ; actual name of disk 1
  37. (set Disk2Name            "ADPro_D2")    ; actual name of disk 2
  38. (set Disk3Name            "ADPro_D3")    ; actual name of disk 3
  39. (set Disk4Name            "ADPro_D4")    ; actual name of disk 4
  40. (set Disk5Name            "ADPro_D5")    ; actual name of disk 5
  41. (set Disk6Name            "ADPro_D6")    ; actual name of disk 6
  42.  
  43. (set DiskInstall        Disk1Name)    ; installation (main) disk
  44. (set DiskADProPgm        Disk1Name)    ; ADPro program disk
  45. (set DiskRelNotes        Disk1Name)    ; ADPro release notes disk
  46. (set DiskLoaders        Disk1Name)    ; common loaders disk
  47. (set DiskLoadersDot        Disk1Name)    ; dot loaders disk
  48. (set DiskLoadersIEEE        Disk1Name)    ; IEEE-compiled loaders disk
  49. (set DiskLoadersM68881        Disk1Name)    ; M68881-compiled loaders disk
  50. (set DiskLoadersFPU        DiskLoadersIEEE); default FPU loaders disk
  51. (set DiskSavers            Disk1Name)    ; common savers disk
  52. (set DiskSaversDot        Disk1Name)    ; dot savers disk
  53.  
  54. (set DiskSaversIEEE        Disk2Name)    ; IEEE-compiled savers disk
  55. (set DiskSaversM68881        Disk2Name)    ; M68881-compiled savers disk
  56. (set DiskSaversFPU        DiskSaversIEEE)    ; default FPU savers disk
  57. (set DiskOperators        Disk2Name)    ; common operators disk
  58. (set DiskOperatorsDot        Disk2Name)    ; dot operators disk
  59. (set DiskOperatorsIEEE        Disk2Name)    ; IEEE-compiled operators disk
  60. (set DiskOperatorsM68881    Disk2Name)    ; M68881-compiled operators disk
  61. (set DiskOperatorsFPU        DiskOperatorsIEEE)    ; default FPU operators disk
  62. (set DiskLoadersExpans        Disk2Name)    ; expansion loaders disk
  63. (set DiskConvolutions        Disk2Name)    ; Convolution matrices disk
  64. (set DiskPatterns        Disk2Name)    ; Patterns disk
  65. (set DiskDisplays        Disk2Name)    ; common displays disk
  66.  
  67. (set DiskSaversExpans        Disk3Name)    ; expansion savers disk
  68. (set DiskOperatorsExpans    Disk3Name)    ; expansion operators disk
  69. (set DiskLoadersPseudo        Disk3Name)    ; pseudo loaders disk
  70. (set DiskLoadersIndep        Disk3Name)    ; 3rd party loaders disk
  71. (set DiskSaversPseudo        Disk3Name)    ; pseudo savers disk
  72. (set DiskSaversIndep        Disk3Name)    ; 3rd party savers disk
  73. (set DiskOperatorsPseudo    Disk3Name)    ; pseudo operators disk
  74. (set DiskOperatorsIndep        Disk3Name)    ; 3rd party operators disk
  75. (set DiskF2KIters        Disk3Name)    ; sample FRACTAL2000 iterations disk
  76. (set DiskFREDPgm        Disk3Name)    ; FRED program disk
  77. (set DiskAnimOps        Disk3Name)    ; FRED AnimOps disk
  78. (set DiskADProScripts        Disk3Name)    ; ADPro ARexx scripts disk
  79. (set DiskFREDScripts        Disk3Name)    ; FRED ARexx scripts disk
  80. (set DiskSplitzJoinz        Disk3Name)    ; Splitz & Joinz disk
  81. (set DiskZapDPI            Disk3Name)    ; ZapDDPI disk
  82. (set DiskSentry            Disk3Name)    ; File Sentry disk
  83. (set DiskView            Disk3Name)    ; View disk
  84. (set DiskDPaintPatches        Disk5Name)    ; DPaint AGA patches disk
  85. (set DiskTutorials        Disk6Name)    ; Tutorials disk
  86.  
  87. (set InstallDCTVLib        0)        ; 1 = install, 0 = don't install
  88.  
  89.                         ; Maximum memory requirements (in MB)
  90. (set MaxMemReqI            "310 K")    ; ProductBaseName
  91. (set MaxMemReqII        "1.6 MB")    ; Standard Modules
  92. (set MaxMemReqIII        "247 K")    ; Expansion Modules
  93. (set MaxMemReqIV        "129 K")    ; Third-Party Modules
  94. (set MaxMemReqV            " 41 K")    ; Pseudo Modules
  95. (set MaxMemReqVI        "210 K")    ; FRED
  96. (set MaxMemReqVII        "496 K")    ; ARexx Scripts
  97. (set MaxMemReqVIII        "197 K")    ; Splitz & Joinz
  98. (set MaxMemReqIX        "  9 K")    ; ZapDPI
  99. (set MaxMemReqX            " 43 K")    ; Sentry
  100. (set MaxMemReqXI        "119 K")    ; View
  101. (set MaxMemReqXII        "660 K")    ; Tutorials
  102. (set MaxMemReqXIII        "  6 K")    ; ReadMe
  103.  
  104.  
  105.  
  106.  
  107. (procedure setPkgOpts
  108. ;
  109. ; ****************************
  110. ; * Ask the user which parts of the package should be installed.
  111. ; ****************************
  112. ;
  113.     (
  114.     (set PkgOpts
  115.         (askoptions
  116.             (prompt
  117.                 ("Select the parts of the %s package you want to install " ProductName)
  118.                 "at this time."
  119.             )
  120.             (help
  121.                 "This part of the installation procedure lets you select the "
  122.                 ("parts of the %s package you want to install at this time.\n" ProductName)
  123.                 "\n"
  124.                 ("*** %s\n" ProductBaseName)
  125.                 ("(Max. required: %s)\n" MaxMemReqI)
  126.                 "This option lets you install the main program.\n"
  127.                 "\n"
  128.                 "*** Standard Modules\n"
  129.                 ("(Max. required: %s)\n" MaxMemReqII)
  130.                 "This option lets you install all of the standard modules "
  131.                 "that are supplied and supported by ASDG.\n"
  132.                 "\n"
  133.                 "*** Expansion Modules\n"
  134.                 ("(Max. required: %s)\n" MaxMemReqIII)
  135.                 "This option lets you install all the expansion modules "
  136.                 "that control and operate on expansion hardware, such as "
  137.                 "framegrabbers, digitizers, and display boards.  These modules "
  138.                 "are supplied and supported by ASDG.\n"
  139.                 "\n"
  140.                 "*** Third-Party Modules\n"
  141.                 ("(Max. required: %s)\n" MaxMemReqIV)
  142.                 ("This option lets you install %s modules which have been developed " ProductBaseName)
  143.                 ("by third-party %s developers through our %s Developer Program.  " ProductBaseName ProductBaseName)
  144.                 "THESE MODULES ARE NOT SUPPORTED BY ASDG.\n"
  145.                 "\n"
  146.                 "*** Pseudo Modules\n"
  147.                 ("(Max. required: %s)\n" MaxMemReqV)
  148.                 "This option lets you install the pseudo loader, saver and operator modules "
  149.                 "that are supplied and supported by ASDG.  These modules require that you have ARexx installed and running.\n"
  150.                 "\n"
  151.                 "*** FRED\n"
  152.                 ("(Max. required: %s)\n" MaxMemReqVI)
  153.                 ("This option lets you install the %s/%s FRame EDitor and its AnimOps. " ProductBaseName ADProLiteName)
  154.                 "FRED is a visually-oriented list organizer that allows you to "
  155.                 "assemble a sequence of images and batch process them through the "
  156.                 "use of ARexx scripts.\n"
  157.                 "\n"
  158.                 ("NOTE: If you currently own %s 2.1.0 or above " ProductBaseName)
  159.                 ("or %s 1.0.0 or above and had previously " ADProLiteName)
  160.                 "installed the FRED that came with those versions, "
  161.                 "you should select this option--the FRED that will "
  162.                 "be installed is a newer version, with more features, "
  163.                 "more keyboard shortcuts, and a revised Compositor AnimOp that "
  164.                 "completely supersedes the old Compositor and "
  165.                 "Alpha_Compositor AnimOps, while adding many more "
  166.                 "features and controls.\n"
  167.                 "\n"
  168.                 "*** ARexx Scripts\n"
  169.                 ("(Max. required: %s)\n" MaxMemReqVII)
  170.                 "This option lets you install some ARexx scripts for both "
  171.                 ("%s and FRED. These may come in handy if you " ProductBaseName)
  172.                 "plan to control the programs through ARexx. This option will "
  173.                 "also install the pre-written FRED Invoke ADPro scripts which "
  174.                 "we have created for your convenience.\n"
  175.                 "\n"
  176.                 "*** Splitz & Joinz\n"
  177.                 ("(Max. required: %s)\n" MaxMemReqVIII)
  178.                 "This option lets you install a set of utilities that make it "
  179.                 "possible to transfer larger-than-disk size files between "
  180.                 "computers and platforms. We have included versions of "
  181.                 "Splitz & Joinz for the Amiga, Macintosh, PC/MS-DOS, and "
  182.                 "PC/MS-Windows.\n"
  183.                 "\n"
  184.                 "*** ZapDPI\n"
  185.                 ("(Max. required: %s)\n" MaxMemReqIX)
  186.                 "This option lets you install a utility and ARexx scripts to "
  187.                 "remove, replace, and check for the existence of DPI chunk-embedded "
  188.                 "information within IFF-ILBM files. This is to make it compatible "
  189.                 "with older versions of Gold Disk's ProPage.\n"
  190.                 "\n"
  191.                 "*** Sentry\n"
  192.                 ("(Max. required: %s)\n" MaxMemReqX)
  193.                 "This option lets you install the ADPro File Sentry. This "
  194.                 "utility lets you launch CLI commands or ARexx scripts upon files in a "
  195.                 "directory, at the time they are added to or modified within the "
  196.                 "directory.\n"
  197.                 "\n"
  198.                 "*** View\n"
  199.                 ("(Max. required: %s)\n" MaxMemReqXI)
  200.                 "This option lets you install View 3.6, an IFF/ANIM "
  201.                 "viewer that is compatible with the ANIM-8 format "
  202.                 "which this package's ANIM saver is capable of producing.\n"
  203.                 "\n"
  204.                 "This View utility is included for your convenience.  All "
  205.                 "correspondences should be directed to Michael Hartman at "
  206.                 "the address provided in the View documentation.\n"
  207.                 "\n"
  208.                 "*** Tutorials\n"
  209.                 ("(Max. required: %s)\n" MaxMemReqXII)
  210.                 "This option lets you install the images and other files "
  211.                 "used for the tutorials in the User Manual.\n"
  212.                 "\n"
  213.                 "*** ReadMe\n"
  214.                 ("(Max. required: %s)\n" MaxMemReqXIII)
  215.                 "This option lets you install the ReadMe file from disk 1 "
  216.                 "onto your floppy or hard disk to use as a reference.\n"
  217.                 "\n"
  218.                 @askoptions-help
  219.             )
  220.             (choices
  221.                 ; bit position 0 -- todo & 1
  222.                 ;
  223.                 ("%s" ProductBaseName)
  224.  
  225.                 ; bit position 1 -- todo & 2
  226.                 ;
  227.                 "Standard Modules"
  228.  
  229.                 ; bit position 2 -- todo & 4
  230.                 ;
  231.                 "Expansion Modules"
  232.  
  233.                 ; bit position 3 -- todo & 8
  234.                 ;
  235.                 "Third-Party Modules"
  236.  
  237.                 ; bit position 4 -- todo & 16
  238.                 ;
  239.                 "Pseudo Modules"
  240.  
  241.                 ; bit position 5 -- todo & 32
  242.                 ;
  243.                 "FRED"
  244.  
  245.                 ; bit position 6 -- todo & 64
  246.                 ;
  247.                 "ARexx Scripts"
  248.  
  249.                 ; bit position 7 -- todo & 128
  250.                 ;
  251.                 "Splitz & Joinz"
  252.  
  253.                 ; bit position 8 -- todo & 256
  254.                 ;
  255.                 "ZapDPI"
  256.  
  257.                 ; bit position 9 -- todo & 512
  258.                 ;
  259.                 "Sentry"
  260.  
  261.                 ; bit position 10 -- todo & 1024
  262.                 ;
  263.                 "View"
  264.  
  265.                 ; bit position 11 -- todo & 2048
  266.                 ;
  267.                 "Tutorials"
  268.  
  269.                 ; bit position 12 -- todo & 4096
  270.                 ;
  271.                 "ReadMe"
  272.             )
  273.         )
  274.     )
  275.     )
  276. )
  277.  
  278.  
  279. (procedure setCPUOpts
  280. ;
  281. ; ****************************
  282. ; * Ask the user which version of the package should be installed.
  283. ; ****************************
  284. ;
  285.     (
  286.     (set CPUStr (database "cpu"))
  287.     (if (OR (= CPUStr "68020") (= CPUStr "68030"))
  288.         (set CPUOpts    1)
  289.         (set CPUOpts    0)
  290.     )
  291.  
  292.     (if (= CPUStr "68040")
  293.         (
  294.         (set fpu040check    (run ("%s:c/fpu68040check" DiskInstall)))
  295.         (if (<> fpu040check 0)
  296.             (
  297.             (if (BITAND fpu040check 32)
  298.                 (
  299.                 (message
  300.                     "Your machine is missing a math coprocessor.\n"
  301.                     "\n"
  302.                     "If you want to install the 68020/030/040 versions of \n"
  303.                     ("the %s modules, you must have the FPU properly\n" ProductBaseName)
  304.                     "activated.                                           \n"
  305.                     "\n"
  306.                     "To determine if it is, open up a Shell window and    \n"
  307.                     "type the 'CPU' command on a line by itself. You      \n"
  308.                     "should see either 68881 or 68882 listed after        \n"
  309.                     "'System: CPU 68040'. If neither is listed, contact   \n"
  310.                     "the manufacturer of your 68040 board for instructions\n"
  311.                     "on how to activate the math coprocessor.             \n"
  312.                     "\n"
  313.                     "The 68000/68010 versions will be installed instead.  \n")
  314.                 (if (BITAND fpu040check 4)
  315.                     (message
  316.                         "Upon further inspection, the command to run the      \n"
  317.                         "SetPatch program, which maybe required to properly   \n"
  318.                         "activate the math coprocessor, is missing from your  \n"
  319.                         "s:startup-sequence file.                             \n")
  320.                     (if (BITAND fpu040check 8)
  321.                         (message
  322.                             "Upon further inspection, the 68040.library file is   \n"
  323.                             "also missing from your LIBS: directory.              \n")
  324.                     )
  325.                 )
  326.                 )
  327.             )
  328.             (set CPUOpts    0)
  329.             )
  330.         )
  331.         (set CPUOpts    1)
  332.         )
  333.         (
  334.         (set fpucheck    (run ("%s:c/fpucheck" DiskInstall)))
  335.         (if (= fpucheck 0)
  336.             (set CPUOpts    0)
  337.             (set CPUOpts    1)
  338.         )
  339.         )
  340.     )
  341.  
  342.     (if (OR (IN PkgOpts 1) (IN PkgOpts 2))
  343.         (set CPUOpts
  344.             (askchoice
  345.                 (prompt    "Select the version of the programs you wish to install, based upon the CPU/FPU combination installed in your Amiga.")
  346.                 (help
  347.                     ("If you are installing the %s package onto " ProductName)
  348.                     "an accelerated Amiga, then there are special versions of "
  349.                     "many of the files which you should install.\n"
  350.                     "\n"
  351.                     "If you are unsure about which choice to select,\n"
  352.                     "use the following as a guide:\n"
  353.                     "\n"
  354.                     "A500/A600/A1000/A1200/A2000:\n"
  355.                     "   Stock              68000/68010 CPU or No FPU\n"
  356.                     "   Accelerated        68020/68030/68040 CPU with FPU\n"
  357.                     "\n"
  358.                     "A2500/A3000/A4000:\n"
  359.                     "   Stock/Accelerated  68020/68030/68040 CPU with FPU\n"
  360.                     "\n"
  361.                     "NOTE: If you are installing the 68020/030/040 "
  362.                     "version, then you MUST have a math coprocessor "
  363.                     "properly activated.  Otherwise, the FPU-specific "
  364.                     "modules will likely not work at all.  The stock "
  365.                     "A1200, for example, has a 68020 but no FPU, so "
  366.                     "you should install the 68000/68010 CPU version.\n"
  367.                     "\n"
  368.                     @askchoice-help
  369.                 )
  370.                 (choices
  371.                     ; bit position 0 -- todo & 1
  372.                     "68000/68010 CPU or No Floating Point Unit (FPU)"
  373.  
  374.                     ; bit position 1 -- todo & 2
  375.                     "68020/68030/68040 CPU with FPU"
  376.                 )
  377.                 (default CPUOpts)
  378.             )
  379.         )
  380.     )
  381.  
  382.     (if (= CPUOpts 0)
  383.         (
  384.         (set FPUName        FPUNameIEEE)
  385.         (set DiskLoadersFPU    DiskLoadersIEEE)
  386.         (set DiskSaversFPU    DiskSaversIEEE)
  387.         (set DiskOperatorsFPU    DiskOperatorsIEEE)
  388.         )
  389.         (
  390.         (set FPUName        FPUNameM68881)
  391.         (set DiskLoadersFPU    DiskLoadersM68881)
  392.         (set DiskSaversFPU    DiskSaversM68881)
  393.         (set DiskOperatorsFPU    DiskOperatorsM68881)
  394.         )
  395.     )
  396.     )
  397. )
  398.  
  399.  
  400. (procedure calcBitMaskAllOn
  401. ;
  402. ; ****************************
  403. ; * Calculate the decimal value of a bit mask with all bits on (= 1).
  404. ; ****************************
  405. ;
  406. ; these variables must be defined before calling this procedure:
  407. ;    numBits
  408. ;
  409. ; this procedure returns the calculated value in BitMaskValue
  410. ;
  411.     (
  412.     (set currBit 1)
  413.     (set BitMaskValue 1)
  414.     (while (<= currBit numBits)
  415.         (
  416.         (set BitMaskValue (* BitMaskValue 2))
  417.         (set currBit (+ currBit 1))
  418.         )
  419.     )
  420.     (set BitMaskValue (- BitMaskValue 1))
  421.     )
  422. )
  423.  
  424.  
  425. (procedure setDirPath
  426. ;
  427. ; ****************************
  428. ; * Ask the user for a directory name.
  429. ; ****************************
  430. ;
  431. ; these variables must be defined before calling this procedure:
  432. ;    setDirPathWhy
  433. ;    setDirPathHelp
  434. ;    DirPath
  435. ;
  436. ; this procedure returns the selected directory in DirPath
  437. ;
  438.     (
  439.     (set moveon    FALSE)
  440.     (while (NOT moveon)
  441.         (
  442.         (set DirPath
  443.             (askdir
  444.                 (prompt    ("Please select the directory %s" setDirPathWhy)
  445.                 )
  446.                 (help    setDirPathHelp
  447.                     "\n"
  448.                     "NOTE: If you will using the Installer program's "
  449.                     "function to create a new directory (using \"Make New Drawer...\"), "
  450.                     "it is highly recommended that you DO NOT include "
  451.                     "spaces in the drawer name.  Following this advice "
  452.                     "will avoid any problems accessing the directory, "
  453.                     "especially from ARexx scripts.\n"
  454.                     "\n"
  455.                     @askdir-help
  456.                 )
  457.                 (default DirPath)
  458.             )
  459.         )
  460.  
  461.         (if (= (exists DirPath) 0)
  462.             (makedir DirPath)
  463.             (set moveon    TRUE)
  464.         )
  465.         )
  466.     )
  467.     )
  468. )
  469.  
  470.  
  471. (procedure copyLibFile
  472. ;
  473. ; ****************************
  474. ; * Copy the specific library file to the LIBS: directory.
  475. ; ****************************
  476. ;
  477. ; these variables must be defined before calling this procedure:
  478. ;
  479. ;    copyLibFileName
  480. ;    copyLibFileHelp
  481. ;    DirPath
  482. ;
  483.     (
  484.     (if (= (exists (tackon DirPath copyLibFileName)) 1)
  485.         (
  486.         (protect (tackon DirPath copyLibFileName) "+rwed")
  487.         )
  488.     )
  489.     (copylib
  490.         (prompt    ("Copying %s to %s" copyLibFileName DirPath))
  491.         (help    copyLibFileHelp
  492.             "\n"
  493.             "If you already have a copy of this library in the selected destination directory, the library "
  494.             "included on the distribution disk will be compared to the one you "
  495.             "already have. If your current library is an old version, the newer "
  496.             "version will be installed.\n"
  497.             "\n"
  498.             @copylib-help
  499.         )
  500.         (source copyLibFileName)
  501.         (dest DirPath)
  502.         (confirm)
  503.     )
  504.     )
  505. )
  506.  
  507.  
  508. (procedure deleteIfExists
  509. ;
  510. ; ****************************
  511. ; * Delete the given file, if it exists.
  512. ; ****************************
  513. ;
  514. ; these variables must be defined before calling this procedure:
  515. ;
  516. ;    deleteFileName
  517. ;
  518.     (
  519.     (if (= (exists deleteFileName) 1)
  520.         (
  521.         (protect deleteFileName "+rwed")
  522.         (delete deleteFileName)
  523.         )
  524.     )
  525.     )
  526. )
  527.  
  528.  
  529. (procedure extractLZFile2Dir
  530. ;
  531. ; ****************************
  532. ; * Extract a single file from an LZ-extractable archive file.
  533. ; ****************************
  534. ;
  535. ;    workingMsg
  536. ;    arcFileName
  537. ;    srcFileName
  538. ;    destDirName
  539. ;
  540.     (
  541.     (working workingMsg)
  542.     (set lzrc    (run ("RAM:lhex -qfw=%s x %s \"%s\"" destDirName arcFileName srcFileName)))
  543.     (if (<> lzrc 0)
  544.         (message
  545.             ("Error decompressing %s from %s into the %s directory.\n" srcFileName arcFileName destDirName)
  546.             "\n"
  547.             "Be sure that the directory you have specified as the destination exists and has enough free space in it "
  548.             "to accept new files. Also be sure that if the file to be copied already exists, that the existing file "
  549.             "isn't protected from being overwritten or deleted.")
  550.     )
  551.     (if (= 0 (exists (tackon destDirName srcFileName)))
  552.         (abort ("An error occurred during the copying of %s" srcFileName))
  553.     )
  554.     )
  555. )
  556.  
  557.  
  558. (procedure dumpLZFile2Dir
  559. ;
  560. ; ****************************
  561. ; * Extract (dump) all files from an LZ-extractable archive file.
  562. ; ****************************
  563. ;
  564. ;    workingMsg
  565. ;    arcFileName
  566. ;    destDirName
  567. ;
  568.     (
  569.     (working workingMsg)
  570.     (set lzrc    (run ("RAM:lhex -qfw=%s x %s" destDirName arcFileName)))
  571.     (if (<> lzrc 0)
  572.         (message
  573.             ("Error decompressing %s's files into the %s directory." arcFileName destDirName)
  574.             "\n"
  575.             "Be sure that the directory you have specified as the destination exists and has enough free space in it "
  576.             "to accept new files. Also be sure that if the file to be copied already exists, that the existing file "
  577.             "isn't protected from being overwritten or deleted.")
  578.     )
  579.     )
  580. )
  581.  
  582.  
  583. (procedure incrementMeter
  584. ;
  585. ; ****************************
  586. ; * Increment the progress meter indicator.
  587. ; ****************************
  588. ;
  589. ;    addToMeter
  590. ;
  591.     (
  592.     (set PctDone    (/ (* AccumFiles 100) TotalFiles))
  593.     (set AccumFiles    (+ AccumFiles addToMeter))
  594.     (complete PctDone)
  595.     )
  596. )
  597.  
  598.  
  599. (procedure addToUserStartup
  600. ;
  601. ; ****************************
  602. ; * Assigns a name to a particular directory.  Optionally adds it to the
  603. ; * S:user-startup file, if requested.
  604. ; ****************************
  605. ;
  606. ;    userStartupAppName
  607. ;    userStartupAssignName
  608. ;    userStartupAssignToName
  609. ;    userStartupHelp
  610. ;
  611.     (
  612.     (startup
  613.         (userStartupAppName)
  614.         (prompt ("Add %s: assignment to \"S:user-startup\"?" userStartupAssignName))
  615.         (help    userStartupHelp
  616.             "\n"
  617.             ("Select the Proceed button to add an %s: assignment to the S:user-startup file.\n" userStartupAssignName)
  618.             "\n"
  619.             @startup-help)
  620.         (command ("assign %s: \"%s\"" userStartupAssignName userStartupAssignToName))
  621.     )
  622.     (makeassign userStartupAssignName userStartupAssignToName)
  623.     )
  624. )
  625.  
  626.  
  627. ; ****************************
  628. ; * ADPro Module Installation routine
  629. ; ****************************
  630. ;
  631. (procedure installADProModule
  632. ;
  633. ; This procedure does the work of de-arcing and copying files.
  634. ; It requires initialization of variables:
  635. ;    moduleArcName
  636. ;    moduleFileName
  637. ;    moduleType
  638. ;    moduleDestDir
  639. ;    modulesToDo
  640. ;    moduleCurrN
  641. ;
  642.     (
  643.     (set addToMeter    1)
  644.     (incrementMeter)
  645.  
  646.     (if (IN modulesToDo moduleCurrN)
  647.         (
  648.         (set deleteFileName    (tackon moduleDestDir moduleFileName))
  649.         (deleteIfExists)
  650.  
  651.         (set workingMsg        ("Installing %s %s..." moduleFileName moduleType))
  652.         (set arcFileName    moduleArcName)
  653.         (set srcFileName    moduleFileName)
  654.         (set destDirName    moduleDestDir)
  655.         (extractLZFile2Dir)
  656.         )
  657.     )
  658.     )
  659. )
  660.  
  661.  
  662. ; ****************************
  663. ; * ADPro Installation routine
  664. ; ****************************
  665. ;
  666. (procedure ADProInstall
  667.     (
  668.     ; ****************************
  669.     ; * copy adpro.library to the ADPRO: directory.
  670.     ; ****************************
  671.     ;
  672.     (set addToMeter    1)
  673.     (incrementMeter)
  674.  
  675.     (set copyLibFileName    "RAM:adpro.library")
  676.     (set copyLibFileHelp    ("This library is required to run the %s programs.\n" ProductBaseName))
  677.     (set DirPath        ADProDir)
  678.     (copyLibFile)
  679.  
  680.  
  681.     ; ****************************
  682.     ; * Install the Program
  683.     ; ****************************
  684.     ;
  685.     (makeassign "ADPROINSTALL" ADProDir)
  686.  
  687.     (set addToMeter    2)
  688.     (incrementMeter)
  689.  
  690.     (set deleteFileName    (tackon "ADPROINSTALL:" "ADPro"))
  691.     (deleteIfExists)
  692.     (set deleteFileName    (tackon "ADPROINSTALL:" "ADPro.info"))
  693.     (deleteIfExists)
  694.  
  695.     (set workingMsg        ("Installing %s..." ProductBaseName))
  696.     (set arcFileName    ("%s:ADPro.lha" DiskADProPgm))
  697.     (set destDirName    "ADPROINSTALL:")
  698.     (dumpLZFile2Dir)
  699.  
  700.     (tooltype
  701.         (prompt        "")
  702.         (help        "")
  703.         (dest        ("ADPROINSTALL:%s" ProductBaseName))
  704.         (settooltype    "MAXMEM" ("%ld" maxmemvalue))
  705.         (noposition)
  706.     )
  707.  
  708.     (set deleteFileName    (tackon "ADPROINSTALL:" "ADProDefaults"))
  709.     (deleteIfExists)
  710.  
  711.  
  712.     ; ****************************
  713.     ; * delete adpro.library from the LIBS: directory, if it exists
  714.     ; * and if ADPRO:adpro.library exists as well.
  715.     ; ****************************
  716.     ;
  717.     (if (= (exists (tackon ADProDir "adpro.library")) 1)
  718.         (
  719.         (set deleteFileName    "LIBS:adpro.library")
  720.         (deleteIfExists)
  721.         )
  722.     )
  723.  
  724.  
  725.     ; ****************************
  726.     ; * Install the default AppScript.  Update the icon to point to it.
  727.     ; ****************************
  728.     ;
  729.     (set addToMeter    1)
  730.     (incrementMeter)
  731.  
  732.     (set AppScriptDir    (tackon ADProDir "AppScripts"))
  733.  
  734.     (onerror
  735.         (abort    ("The %s directory could not be created. " AppScriptDir)
  736.             "This might be because your destination disk or drawer "
  737.             "has no room or is write protected.  This installation "
  738.             "cannot continue."
  739.         )
  740.     )
  741.     (if (= (exists AppScriptDir) 0)
  742.         (makedir AppScriptDir)
  743.     )
  744.     (onerror
  745.         (cleanUp)
  746.     )
  747.  
  748.     (makeassign "ADPROINSTALL" AppScriptDir)
  749.  
  750.     (copyfiles
  751.         (prompt    "")
  752.         (help    "")
  753.         (source    ("%s:DisplayImage.adproapp" DiskInstall))
  754.         (dest    "ADPROINSTALL:")
  755.     )
  756.  
  757.     (tooltype
  758.         (prompt        "")
  759.         (help        "")
  760.         (dest        (tackon ADProDir ProductBaseName))
  761.         (settooltype    "APPSCRIPT" ("%s" (tackon AppScriptDir "DisplayImage.adproapp")))
  762.         (noposition)
  763.     )
  764.  
  765.  
  766.     ; ****************************
  767.     ; * copy req.library to the LIBS: directory.
  768.     ; ****************************
  769.     ;
  770.     (set addToMeter    1)
  771.     (incrementMeter)
  772.  
  773.     (set copyLibFileName    "RAM:req.library")
  774.     (set copyLibFileHelp    ("This library is required to run the %s programs.\n" ProductBaseName))
  775.     (set DirPath        "LIBS:")
  776.     (copyLibFile)
  777.  
  778.  
  779.     ; ****************************
  780.     ; * Install the Release Notes program and text file
  781.     ; ****************************
  782.     ;
  783.     (makeassign "ADPROINSTALL" ADProDir)
  784.  
  785.     (set addToMeter    3)
  786.     (incrementMeter)
  787.  
  788.     (set workingMsg        ("Installing %s Release Notes and Viewer..." ProductBaseName))
  789.     (set arcFileName    ("%s:ReleaseNotes.lha" DiskRelNotes))
  790.     (set destDirName    "ADPROINSTALL:")
  791.     (dumpLZFile2Dir)
  792.  
  793.     (copyfiles
  794.         (prompt    "")
  795.         (help    "")
  796.         (source    ("%s:%s.notes" DiskInstall ProductBaseName))
  797.         (dest    "ADPROINSTALL:")
  798.     )
  799.  
  800.  
  801.     ; ****************************
  802.     ; * Create the program directories in ENVARC: and ENV:
  803.     ; ****************************
  804.     ;
  805.     (if (<> (getassign "ENVARC" "a") "")
  806.         (
  807.         (set ENVDir    ("ENVARC:%s" ProductBaseName))
  808.         (onerror
  809.             (abort    ("The %s directory could not be created. " ENVDir)
  810.                 "This might be because your destination disk or drawer "
  811.                 "has no room or is write protected.  This installation "
  812.                 "cannot continue."
  813.             )
  814.         )
  815.         (if (= (exists ENVDir) 0)
  816.             (makedir ENVDir)
  817.         )
  818.         (onerror
  819.             (cleanUp)
  820.         )
  821.         )
  822.     )
  823.  
  824.     (if (<> (getassign "ENV" "a") "")
  825.         (
  826.         (set ENVDir    ("ENV:%s" ProductBaseName))
  827.         (onerror
  828.             (abort    ("The %s directory could not be created. " ENVDir)
  829.                 "This might be because your destination disk or drawer "
  830.                 "has no room or is write protected.  This installation "
  831.                 "cannot continue."
  832.             )
  833.         )
  834.         (if (= (exists ENVDir) 0)
  835.             (makedir ENVDir)
  836.         )
  837.         (onerror
  838.             (cleanUp)
  839.         )
  840.         )
  841.     )
  842.     )
  843. )
  844.  
  845.  
  846. ; ****************************
  847. ; * ADProStdModules Installation routine
  848. ; ****************************
  849. ;
  850. (procedure ADProStdModulesInstall
  851.     (
  852.     (makeassign "ADPROINSTALL" ADProDir)
  853.  
  854.  
  855.     ; ****************************
  856.     ; * copy dctv.library to the LIBS: directory, if needed.
  857.     ; ****************************
  858.     ;
  859.     (if (= InstallDCTVLib 1)
  860.         (
  861.         (set addToMeter    1)
  862.         (incrementMeter)
  863.  
  864.         (set copyLibFileName    "RAM:dctv.library")
  865.         (set copyLibFileHelp    "This library is required to use the DCTV Operator.\n")
  866.         (set DirPath        "LIBS:")
  867.         (copyLibFile)
  868.         )
  869.     )
  870.  
  871.  
  872.     ; ****************************
  873.     ; * Install the Selected Loaders
  874.     ; ****************************
  875.     ;
  876.     (onerror
  877.         (abort    ("The directory %s could not be created. " ADProLoadersDir)
  878.             "This might be because your destination disk or drawer "
  879.             "has no room or is write protected. This installation "
  880.             "cannot continue."
  881.         )
  882.     )
  883.     (if (= (exists ADProLoadersDir) 0)
  884.         (makedir ADProLoadersDir)
  885.     )
  886.     (makeassign "ADPROINSTALL" ADProLoadersDir)
  887.     (onerror
  888.         (cleanUp)
  889.     )
  890.  
  891.     (if (OR (<> ADProLoadersSet1 0)
  892.         (<> ADProLoadersSet2 0))
  893.         (
  894.         (set moduleArcName    ("%s:Loaders.lha" DiskLoaders))
  895.         (copyfiles
  896.             (prompt "")
  897.             (help "")
  898.             (source moduleArcName)
  899.             (dest "RAM:")
  900.         )
  901.         (if (= 1 (exists "RAM:Loaders.lha"))
  902.             (set moduleArcName    "RAM:Loaders.lha")
  903.         )
  904.         )
  905.     )
  906.  
  907.     (if (<> ADProLoadersSet1 0)
  908.         (
  909.         (set moduleCurrN    0)
  910.         (set moduleType        "Loader")
  911.         (set moduleDestDir    "ADPROINSTALL:")
  912.         (set modulesToDo    ADProLoadersSet1)
  913.         (while (set moduleFileName (select moduleCurrN
  914.                 "ALPHA"
  915.                 "ANIM"
  916.                 "BACKDROP"
  917.                 "BACKLINE"
  918.                 "BMP"
  919.                 "CLIPBOARD"
  920.                 "DPAINT"
  921.                 "DV21"
  922.                 "GIF"
  923.                 "IFF"
  924.                 "IMPULSE"
  925.                 "MACPAINT"
  926.                 "PCX"
  927.                 "POINTER"
  928.                 ""))
  929.             (installADProModule)
  930.             (set moduleCurrN    (+ moduleCurrN 1))
  931.         )
  932.         )
  933.     )
  934.  
  935.     (if (<> ADProLoadersSet2 0)
  936.         (
  937.         (set moduleCurrN    0)
  938.         (set moduleType        "Loader")
  939.         (set moduleDestDir    "ADPROINSTALL:")
  940.         (set modulesToDo    ADProLoadersSet2)
  941.         (while (set moduleFileName (select moduleCurrN
  942.                 "QRT"
  943.                 "SCREEN"
  944.                 "SCULPT"
  945.                 "TEMP"
  946.                 "UNIVERSAL"
  947.                 ""))
  948.             (installADProModule)
  949.             (set moduleCurrN    (+ moduleCurrN 1))
  950.         )
  951.         )
  952.     )
  953.  
  954.     ; ****************************
  955.     ; * Remove the old DPIIE loader, since it's been absorbed by IFF
  956.     ; ****************************
  957.     ;
  958.     (set deleteFileName    "ADPROINSTALL:DPIIE")
  959.     (deleteIfExists)
  960.  
  961.     (set deleteFileName    "RAM:Loaders.lha")
  962.     (deleteIfExists)
  963.  
  964.  
  965.     ; ****************************
  966.     ; * Install the dot Loaders
  967.     ; ****************************
  968.     ;
  969.     (if (<> ADProLoadersDot1 0)
  970.         (
  971.         (set moduleArcName    ("%s:LoadersDot.lha" DiskLoadersDot))
  972.         (copyfiles
  973.             (prompt "")
  974.             (help "")
  975.             (source moduleArcName)
  976.             (dest "RAM:")
  977.         )
  978.         (if (= 1 (exists "RAM:LoadersDot.lha"))
  979.             (set moduleArcName    "RAM:LoadersDot.lha")
  980.         )
  981.  
  982.         (set moduleCurrN    0)
  983.         (set moduleType        "Loader")
  984.         (set moduleDestDir    "ADPROINSTALL:")
  985.         (set modulesToDo    ADProLoadersDot1)
  986.         (while (set moduleFileName (select moduleCurrN
  987.                 ".ALPHA"
  988.                 ""))
  989.             (installADProModule)
  990.             (set moduleCurrN    (+ moduleCurrN 1))
  991.         )
  992.         )
  993.     )
  994.  
  995.     (set deleteFileName    "RAM:LoadersDot.lha")
  996.     (deleteIfExists)
  997.  
  998.  
  999.     ; ****************************
  1000.     ; * Install the FPU-compiled Loaders
  1001.     ; ****************************
  1002.     ;
  1003.     (if (<> ADProLoadersSet3 0)
  1004.         (
  1005.         (set moduleArcName    ("%s:Loaders%s.lha" DiskLoadersFPU FPUName))
  1006.         (copyfiles
  1007.             (prompt "")
  1008.             (help "")
  1009.             (source moduleArcName)
  1010.             (dest "RAM:")
  1011.         )
  1012.         (if (= 1 (exists ("RAM:Loaders%s.lha" FPUName)))
  1013.             (set moduleArcName    ("RAM:Loaders%s.lha" FPUName))
  1014.         )
  1015.  
  1016.         (set moduleCurrN    0)
  1017.         (set moduleType        "Loader")
  1018.         (set moduleDestDir    "ADPROINSTALL:")
  1019.         (set modulesToDo    ADProLoadersSet3)
  1020.         (while (set moduleFileName (select moduleCurrN
  1021.                 "FRAMESTORE"
  1022.                 "JPEG"
  1023.                 ""))
  1024.             (installADProModule)
  1025.             (set moduleCurrN    (+ moduleCurrN 1))
  1026.         )
  1027.         )
  1028.     )
  1029.  
  1030.     (set deleteFileName    ("RAM:Loaders%s.lha" FPUName))
  1031.     (deleteIfExists)
  1032.  
  1033.  
  1034.     ; ****************************
  1035.     ; * Install the Selected Savers
  1036.     ; ****************************
  1037.     ;
  1038.     (onerror
  1039.         (abort    ("The directory %s could not be created. " ADProSaversDir)
  1040.             "This might be because your destination disk or drawer "
  1041.             "has no room or is write protected. This installation "
  1042.             "cannot continue."
  1043.         )
  1044.     )
  1045.     (if (= (exists ADProSaversDir) 0)
  1046.         (makedir ADProSaversDir)
  1047.     )
  1048.     (makeassign "ADPROINSTALL" ADProSaversDir)
  1049.     (onerror
  1050.         (cleanUp)
  1051.     )
  1052.  
  1053.     (if (<> ADProSaversSet1 0)
  1054.         (
  1055.         (set moduleArcName    ("%s:Savers.lha" DiskSavers))
  1056.         (copyfiles
  1057.             (prompt "")
  1058.             (help "")
  1059.             (source moduleArcName)
  1060.             (dest "RAM:")
  1061.         )
  1062.         (if (= 1 (exists "RAM:Savers.lha"))
  1063.             (set moduleArcName    "RAM:Savers.lha")
  1064.         )
  1065.         )
  1066.     )
  1067.  
  1068.     (if (<> ADProSaversSet1 0)
  1069.         (
  1070.         (set moduleCurrN    0)
  1071.         (set moduleType        "Saver")
  1072.         (set moduleDestDir    "ADPROINSTALL:")
  1073.         (set modulesToDo    ADProSaversSet1)
  1074.         (while (set moduleFileName (select moduleCurrN
  1075.                 "ANIM"
  1076.                 "BMP"
  1077.                 "CLIPBOARD"
  1078.                 "DPAINT"
  1079.                 "DPIIE"
  1080.                 "GIF"
  1081.                 "IFF"
  1082.                 "IMPULSE"
  1083.                 "PCX"
  1084.                 "POSTSCRIPT"
  1085.                 "PREFPRINTER"
  1086.                 "QRT"
  1087.                 "SCULPT"
  1088.                 "TEMP"
  1089.                 ""))
  1090.             (installADProModule)
  1091.             (set moduleCurrN    (+ moduleCurrN 1))
  1092.         )
  1093.         )
  1094.     )
  1095.  
  1096.     (set deleteFileName    "RAM:Savers.lha")
  1097.     (deleteIfExists)
  1098.  
  1099.  
  1100.     ; ****************************
  1101.     ; * Install the dot Savers
  1102.     ; ****************************
  1103.     ;
  1104.  
  1105.  
  1106.     ; ****************************
  1107.     ; * Install the FPU-compiled Savers
  1108.     ; ****************************
  1109.     ;
  1110.     (if (<> ADProSaversSet2 0)
  1111.         (
  1112.         (set moduleArcName    ("%s:Savers%s.lha" DiskSaversFPU FPUName))
  1113.         (copyfiles
  1114.             (prompt "")
  1115.             (help "")
  1116.             (source moduleArcName)
  1117.             (dest "RAM:")
  1118.         )
  1119.         (if (= 1 (exists ("RAM:Savers%s.lha" FPUName)))
  1120.             (set moduleArcName    ("RAM:Savers%s.lha" FPUName))
  1121.         )
  1122.  
  1123.         (set moduleCurrN    0)
  1124.         (set moduleType        "Saver")
  1125.         (set moduleDestDir    "ADPROINSTALL:")
  1126.         (set modulesToDo    ADProSaversSet2)
  1127.         (while (set moduleFileName (select moduleCurrN
  1128.                 "FRAMESTORE"
  1129.                 "JPEG"
  1130.                 ""))
  1131.             (installADProModule)
  1132.             (set moduleCurrN    (+ moduleCurrN 1))
  1133.         )
  1134.         )
  1135.     )
  1136.  
  1137.     (set deleteFileName    ("RAM:Savers%s.lha" FPUName))
  1138.     (deleteIfExists)
  1139.  
  1140.  
  1141.     ; ****************************
  1142.     ; * Install the Selected Operators
  1143.     ; ****************************
  1144.     ;
  1145.     (onerror
  1146.         (abort    ("The directory %s could not be created. " ADProOperatorsDir)
  1147.             "This might be because your destination disk or drawer "
  1148.             "has no room or is write protected. This installation "
  1149.             "cannot continue."
  1150.         )
  1151.     )
  1152.     (if (= (exists ADProOperatorsDir) 0)
  1153.         (makedir ADProOperatorsDir)
  1154.     )
  1155.     (makeassign "ADPROINSTALL" ADProOperatorsDir)
  1156.     (onerror
  1157.         (cleanUp)
  1158.     )
  1159.  
  1160.     (set deleteFileName    (tackon "ADPROINSTALL:" "Set_Pxl_Aspect"))
  1161.     (deleteIfExists)
  1162.  
  1163.     (if (OR    (<> ADProOperatorsSet1 0)
  1164.         (<> ADProOperatorsSet2 0)
  1165.         (<> ADProOperatorsSet3 0))
  1166.         (
  1167.         (set moduleArcName    ("%s:Operators.lha" DiskOperators))
  1168.         (copyfiles
  1169.             (prompt "")
  1170.             (help "")
  1171.             (source moduleArcName)
  1172.             (dest "RAM:")
  1173.         )
  1174.         (if (= 1 (exists "RAM:Operators.lha"))
  1175.             (set moduleArcName    "RAM:Operators.lha")
  1176.         )
  1177.         )
  1178.     )
  1179.  
  1180.     (if (<> ADProOperatorsSet1 0)
  1181.         (
  1182.         (set moduleCurrN    0)
  1183.         (set moduleType        "Operator")
  1184.         (set moduleDestDir    "ADPROINSTALL:")
  1185.         (set modulesToDo    ADProOperatorsSet1)
  1186.         (while (set moduleFileName (select moduleCurrN
  1187.                 "Antique"
  1188.                 "Apply_Map"
  1189.                 "Blur"
  1190.                 "Broadcast_Limit"
  1191.                 "Color_To_Gray"
  1192.                 "Colorize"
  1193.                 "Convolve"
  1194.                 "Crop_Image"
  1195.                 "Crop_Visual"
  1196.                 "Define_Pxl_Aspect"
  1197.                 "DeInterlace"
  1198.                 "Displace_Pixel"
  1199.                 "Dynamic_Range"
  1200.                 "Gray_To_Color"
  1201.                 ""))
  1202.             (installADProModule)
  1203.             (set moduleCurrN    (+ moduleCurrN 1))
  1204.         )
  1205.         )
  1206.     )
  1207.     (if (<> ADProOperatorsSet2 0)
  1208.         (
  1209.         (set moduleCurrN    0)
  1210.         (set moduleType        "Operator")
  1211.         (set moduleDestDir    "ADPROINSTALL:")
  1212.         (set modulesToDo    ADProOperatorsSet2)
  1213.         (while (set moduleFileName (select moduleCurrN
  1214.                 "Halve"
  1215.                 "Horizontal_Flip"
  1216.                 "Interlace"
  1217.                 "KillTemp"
  1218.                 "Line_Art"
  1219.                 "Median_Filter"
  1220.                 "Mosaic"
  1221.                 "Negative"
  1222.                 "Pattern"
  1223.                 "Rectangle"
  1224.                 "Rectangle_Visual"
  1225.                 "Rem_Isolated_Pxls"
  1226.                 "Rendered_To_Raw"
  1227.                 "Roll"
  1228.                 ""))
  1229.             (installADProModule)
  1230.             (set moduleCurrN    (+ moduleCurrN 1))
  1231.         )
  1232.         )
  1233.     )
  1234.     (if (<> ADProOperatorsSet3 0)
  1235.         (
  1236.         (set moduleCurrN    0)
  1237.         (set moduleType        "Operator")
  1238.         (set moduleDestDir    "ADPROINSTALL:")
  1239.         (set modulesToDo    ADProOperatorsSet3)
  1240.         (while (set moduleFileName (select moduleCurrN
  1241.                 "Saturation"
  1242.                 "Sim_Print"
  1243.                 "Text_Visual"
  1244.                 "Tile"
  1245.                 "Tile_Visual"
  1246.                 "Vertical_Flip"
  1247.                 ""))
  1248.             (installADProModule)
  1249.             (set moduleCurrN    (+ moduleCurrN 1))
  1250.         )
  1251.         )
  1252.     )
  1253.  
  1254.     (set deleteFileName    "RAM:Operators.lha")
  1255.     (deleteIfExists)
  1256.  
  1257.  
  1258.     ; ****************************
  1259.     ; * Install the dot Operators
  1260.     ; ****************************
  1261.     ;
  1262.     (if (<> ADProOperatorsDot1 0)
  1263.         (
  1264.         (set moduleArcName    ("%s:OperatorsDot.lha" DiskOperatorsDot))
  1265.         (copyfiles
  1266.             (prompt "")
  1267.             (help "")
  1268.             (source moduleArcName)
  1269.             (dest "RAM:")
  1270.         )
  1271.         (if (= 1 (exists "RAM:OperatorsDot.lha"))
  1272.             (set moduleArcName    "RAM:OperatorsDot.lha")
  1273.         )
  1274.  
  1275.         (set moduleCurrN    0)
  1276.         (set moduleType        "Operator")
  1277.         (set moduleDestDir    "ADPROINSTALL:")
  1278.         (set modulesToDo    ADProOperatorsDot1)
  1279.         (while (set moduleFileName (select moduleCurrN
  1280.                 ".Edit_Palette"
  1281.                 ""))
  1282.             (installADProModule)
  1283.             (set moduleCurrN    (+ moduleCurrN 1))
  1284.         )
  1285.         )
  1286.     )
  1287.  
  1288.     (set deleteFileName    "RAM:OperatorsDot.lha")
  1289.     (deleteIfExists)
  1290.  
  1291.  
  1292.     ; ****************************
  1293.     ; * Install the FPU-compiled Operators
  1294.     ; ****************************
  1295.     ;
  1296.     (if (<> ADProOperatorsSet4 0)
  1297.         (
  1298.         (set moduleArcName    ("%s:Operators%s.lha" DiskOperatorsFPU FPUName))
  1299.         (copyfiles
  1300.             (prompt "")
  1301.             (help "")
  1302.             (source moduleArcName)
  1303.             (dest "RAM:")
  1304.         )
  1305.         (if (= 1 (exists ("RAM:Operators%s.lha" FPUName)))
  1306.             (set moduleArcName    ("RAM:Operators%s.lha" FPUName))
  1307.         )
  1308.  
  1309.         (set moduleCurrN    0)
  1310.         (set moduleType        "Operator")
  1311.         (set moduleDestDir    "ADPROINSTALL:")
  1312.         (set modulesToDo    ADProOperatorsSet4)
  1313.         (while (set moduleFileName (select moduleCurrN
  1314.                 "Collapse"
  1315.                 "Hist_Equalization"
  1316.                 "Polar_Mosaic"
  1317.                 "Rotate"
  1318.                 "Twirl"
  1319.                 ""))
  1320.             (installADProModule)
  1321.             (set moduleCurrN    (+ moduleCurrN 1))
  1322.         )
  1323.         )
  1324.     )
  1325.  
  1326.     (set deleteFileName    ("RAM:Operators%s.lha" FPUName))
  1327.     (deleteIfExists)
  1328.  
  1329.                             ; Convolve's matrices
  1330.     (if (= 1 InstallConvolutions)
  1331.         (
  1332.         (if (= (exists ConvolutionsDir) 0)
  1333.             (makedir ConvolutionsDir)
  1334.         )
  1335.         (makeassign "ADPROINSTALL" ConvolutionsDir)
  1336.         (onerror
  1337.             (cleanUp)
  1338.         )
  1339.  
  1340.         (set addToMeter 28)            ; 28
  1341.         (incrementMeter)
  1342.  
  1343.         (set workingMsg        "Installing Convolution matrices...")
  1344.         (set arcFileName    ("%s:Convolutions.lha" DiskConvolutions))
  1345.         (set destDirName    "ADPROINSTALL:")
  1346.         (dumpLZFile2Dir)
  1347.         )
  1348.     )
  1349.  
  1350.                             ; Pattern files
  1351.     (if (= 1 InstallPatterns)
  1352.         (
  1353.         (if (= (exists PatternsDir) 0)
  1354.             (makedir PatternsDir)
  1355.         )
  1356.         (makeassign "ADPROINSTALL" PatternsDir)
  1357.         (onerror
  1358.             (cleanUp)
  1359.         )
  1360.  
  1361.         (set addToMeter 1)            ; 1
  1362.         (incrementMeter)
  1363.  
  1364.         (set workingMsg        "Installing Pattern operator patterns...")
  1365.         (set arcFileName    ("%s:Patterns.lha" DiskPatterns))
  1366.         (set destDirName    "ADPROINSTALL:")
  1367.         (dumpLZFile2Dir)
  1368.         )
  1369.     )
  1370.  
  1371.  
  1372.     ; ****************************
  1373.     ; * Install the Selected Displays
  1374.     ; ****************************
  1375.     ;
  1376.     (onerror
  1377.         (abort    ("The directory %s could not be created. " ADProDisplaysDir)
  1378.             "This might be because your destination disk or drawer "
  1379.             "has no room or is write protected. This installation "
  1380.             "cannot continue."
  1381.         )
  1382.     )
  1383.     (if (= (exists ADProDisplaysDir) 0)
  1384.         (makedir ADProDisplaysDir)
  1385.     )
  1386.     (makeassign "ADPROINSTALL" ADProDisplaysDir)
  1387.     (onerror
  1388.         (cleanUp)
  1389.     )
  1390.  
  1391.     (set moduleArcName    ("%s:Displays.lha" DiskDisplays))
  1392.     (copyfiles
  1393.         (prompt "")
  1394.         (help "")
  1395.         (source moduleArcName)
  1396.         (dest "RAM:")
  1397.     )
  1398.     (if (= 1 (exists "RAM:Displays.lha"))
  1399.         (set moduleArcName    "RAM:Displays.lha")
  1400.     )
  1401.  
  1402.     (set moduleType        "Display")
  1403.     (set moduleDestDir    "ADPROINSTALL:")
  1404.     (set moduleCurrN    0)
  1405.  
  1406.     ; Install the Amiga and Window display modules first.
  1407.     ;
  1408.     (set modulesToDo    1)
  1409.     (set moduleFileName    "Amiga")
  1410.     (installADProModule)
  1411.  
  1412.     (set modulesToDo    1)
  1413.     (set moduleFileName    "Window")
  1414.     (installADProModule)
  1415.  
  1416.     (if (<> ADProDisplaysSet1 0)
  1417.         (
  1418.         (set modulesToDo    ADProDisplaysSet1)
  1419.         (while (set moduleFileName (select moduleCurrN
  1420.                 "EGS"
  1421.                 "FC24"
  1422.                 "OpalVision"
  1423.                 "Picasso"
  1424.                 "Retina"
  1425.                 ""))
  1426.             (installADProModule)
  1427.             (set moduleCurrN    (+ moduleCurrN 1))
  1428.         )
  1429.         )
  1430.     )
  1431.  
  1432.     (set deleteFileName    "RAM:Displays.lha")
  1433.     (deleteIfExists)
  1434.  
  1435.  
  1436.     ; ****************************
  1437.     ; * Install the dot Displays
  1438.     ; ****************************
  1439.     ;
  1440.  
  1441.  
  1442.     ; ****************************
  1443.     ; * Install the Selected Commands
  1444.     ; ****************************
  1445.     ;
  1446.     (onerror
  1447.         (abort    ("The directory %s could not be created. " ADProCommandsDir)
  1448.             "This might be because your destination disk or drawer "
  1449.             "has no room or is write protected. This installation "
  1450.             "cannot continue."
  1451.         )
  1452.     )
  1453.     (if (= (exists ADProCommandsDir) 0)
  1454.         (makedir ADProCommandsDir)
  1455.     )
  1456.     (makeassign "ADPROINSTALL" ADProCommandsDir)
  1457.     (onerror
  1458.         (cleanUp)
  1459.     )
  1460.  
  1461.  
  1462.     ; ****************************
  1463.     ; * Install the dot User Commands
  1464.     ; ****************************
  1465.     ;
  1466.     )
  1467. )
  1468.  
  1469.  
  1470. ; ****************************
  1471. ; * ADPro Expansion Modules Installation routine
  1472. ; ****************************
  1473. ;
  1474. (procedure ADProExpansModulesInstall
  1475.     (
  1476.     (if (= (exists ADProDir) 0)
  1477.         (makedir ADProDir)
  1478.     )
  1479.     (makeassign "ADPROINSTALL" ADProDir)
  1480.     (onerror
  1481.         (cleanUp)
  1482.     )
  1483.  
  1484.  
  1485.     ; ****************************
  1486.     ; * Install the Expansion Loaders
  1487.     ; ****************************
  1488.     ;
  1489.     (onerror
  1490.         (abort    ("The directory %s could not be created. " ADProLoadersDir)
  1491.             "This might be because your destination disk or drawer "
  1492.             "has no room or is write protected. This installation "
  1493.             "cannot continue."
  1494.         )
  1495.     )
  1496.     (if (= (exists ADProLoadersDir) 0)
  1497.         (makedir ADProLoadersDir)
  1498.     )
  1499.     (makeassign "ADPROINSTALL" ADProLoadersDir)
  1500.     (onerror
  1501.         (cleanUp)
  1502.     )
  1503.  
  1504.     (if (<> ADProLoadersExpansSet1 0)
  1505.         (
  1506.         (set moduleArcName    ("%s:LoadersExpans.lha" DiskLoadersExpans))
  1507.         (copyfiles
  1508.             (prompt "")
  1509.             (help "")
  1510.             (source moduleArcName)
  1511.             (dest "RAM:")
  1512.         )
  1513.         (if (= 1 (exists "RAM:LoadersExpans.lha"))
  1514.             (set moduleArcName    "RAM:LoadersExpans.lha")
  1515.         )
  1516.  
  1517.         (set moduleCurrN    0)
  1518.         (set moduleType        "Expansion Loader")
  1519.         (set moduleDestDir    "ADPROINSTALL:")
  1520.         (set modulesToDo    ADProLoadersExpansSet1)
  1521.         (while (set moduleFileName (select moduleCurrN
  1522.                 "CDXL"
  1523.                 "FC24"
  1524.                 "FRAMEGRABBER"
  1525.                 "HAME"
  1526.                 "IV24"
  1527.                 ""))
  1528.             (installADProModule)
  1529.             (set moduleCurrN    (+ moduleCurrN 1))
  1530.         )
  1531.         )
  1532.     )
  1533.  
  1534.     (set deleteFileName    "RAM:LoadersExpans.lha")
  1535.     (deleteIfExists)
  1536.  
  1537.  
  1538.     ; ****************************
  1539.     ; * Install the Expansion Savers
  1540.     ; ****************************
  1541.     ;
  1542.     (onerror
  1543.         (abort    ("The directory %s could not be created. " ADProSaversDir)
  1544.             "This might be because your destination disk or drawer "
  1545.             "has no room or is write protected. This installation "
  1546.             "cannot continue."
  1547.         )
  1548.     )
  1549.     (if (= (exists ADProSaversDir) 0)
  1550.         (makedir ADProSaversDir)
  1551.     )
  1552.     (makeassign "ADPROINSTALL" ADProSaversDir)
  1553.     (onerror
  1554.         (cleanUp)
  1555.     )
  1556.  
  1557.     (if (<> ADProSaversExpansSet1 0)
  1558.         (
  1559.         (set moduleArcName    ("%s:SaversExpans.lha" DiskSaversExpans))
  1560.         (copyfiles
  1561.             (prompt "")
  1562.             (help "")
  1563.             (source moduleArcName)
  1564.             (dest "RAM:")
  1565.         )
  1566.         (if (= 1 (exists "RAM:SaversExpans.lha"))
  1567.             (set moduleArcName    "RAM:SaversExpans.lha")
  1568.         )
  1569.  
  1570.         (set moduleCurrN    0)
  1571.         (set moduleType        "Expansion Saver")
  1572.         (set moduleDestDir    "ADPROINSTALL:")
  1573.         (set modulesToDo    ADProSaversExpansSet1)
  1574.         (while (set moduleFileName (select moduleCurrN
  1575.                 "A2410"
  1576.                 "CDXL"
  1577.                 "FC24"
  1578.                 "HAME"
  1579.                 "HARLEQUIN"
  1580.                 "IV24"
  1581.                 "RESOLVER"
  1582.                 "VT_BUFFER"
  1583.                 ""))
  1584.             (installADProModule)
  1585.             (set moduleCurrN    (+ moduleCurrN 1))
  1586.         )
  1587.         )
  1588.     )
  1589.  
  1590.     (set deleteFileName    "RAM:SaversExpans.lha")
  1591.     (deleteIfExists)
  1592.  
  1593.  
  1594.     ; ****************************
  1595.     ; * Install the Expansion Operators
  1596.     ; ****************************
  1597.     ;
  1598.     (onerror
  1599.         (abort    ("The directory %s could not be created. " ADProOperatorsDir)
  1600.             "This might be because your destination disk or drawer "
  1601.             "has no room or is write protected. This installation "
  1602.             "cannot continue."
  1603.         )
  1604.     )
  1605.     (if (= (exists ADProOperatorsDir) 0)
  1606.         (makedir ADProOperatorsDir)
  1607.     )
  1608.     (makeassign "ADPROINSTALL" ADProOperatorsDir)
  1609.     (onerror
  1610.         (cleanUp)
  1611.     )
  1612.  
  1613.     (if (<> ADProOperatorsExpansSet1 0)
  1614.         (
  1615.         (set moduleArcName    ("%s:OperatorsExpans.lha" DiskOperatorsExpans))
  1616.         (copyfiles
  1617.             (prompt "")
  1618.             (help "")
  1619.             (source moduleArcName)
  1620.             (dest "RAM:")
  1621.         )
  1622.         (if (= 1 (exists "RAM:OperatorsExpans.lha"))
  1623.             (set moduleArcName    "RAM:OperatorsExpans.lha")
  1624.         )
  1625.  
  1626.         (set moduleCurrN    0)
  1627.         (set moduleType        "Expansion Operator")
  1628.         (set moduleDestDir    "ADPROINSTALL:")
  1629.         (set modulesToDo    ADProOperatorsExpansSet1)
  1630.         (while (set moduleFileName (select moduleCurrN
  1631.                 "DCTV"
  1632.                 "TPort_Controller"
  1633.                 ""))
  1634.             (installADProModule)
  1635.             (set moduleCurrN    (+ moduleCurrN 1))
  1636.         )
  1637.         )
  1638.     )
  1639.  
  1640.     (set deleteFileName    "RAM:OperatorsExpans.lha")
  1641.     (deleteIfExists)
  1642.     )
  1643. )
  1644.  
  1645.  
  1646. ; ****************************
  1647. ; * ADPro Independent (Third-Party) Modules Installation routine
  1648. ; ****************************
  1649. ;
  1650. (procedure ADProIndepModulesInstall
  1651.     (
  1652.     (if (= (exists ADProDir) 0)
  1653.         (makedir ADProDir)
  1654.     )
  1655.     (makeassign "ADPROINSTALL" ADProDir)
  1656.     (onerror
  1657.         (cleanUp)
  1658.     )
  1659.  
  1660.  
  1661.     ; ****************************
  1662.     ; * Install the Independent (Third-Party) Loaders
  1663.     ; ****************************
  1664.     ;
  1665.     (onerror
  1666.         (abort    ("The directory %s could not be created. " ADProLoadersDir)
  1667.             "This might be because your destination disk or drawer "
  1668.             "has no room or is write protected. This installation "
  1669.             "cannot continue."
  1670.         )
  1671.     )
  1672.     (if (= (exists ADProLoadersDir) 0)
  1673.         (makedir ADProLoadersDir)
  1674.     )
  1675.     (makeassign "ADPROINSTALL" ADProLoadersDir)
  1676.     (onerror
  1677.         (cleanUp)
  1678.     )
  1679.  
  1680.     (if (<> ADProLoadersIndepSet1 0)
  1681.         (
  1682.         (set moduleArcName    ("%s:LoadersIndep.lha" DiskLoadersIndep))
  1683.         (copyfiles
  1684.             (prompt "")
  1685.             (help "")
  1686.             (source moduleArcName)
  1687.             (dest "RAM:")
  1688.         )
  1689.         (if (= 1 (exists "RAM:LoadersIndep.lha"))
  1690.             (set moduleArcName    "RAM:LoadersIndep.lha")
  1691.         )
  1692.  
  1693.         (set moduleCurrN    0)
  1694.         (set moduleType        "Third-Party Loader")
  1695.         (set moduleDestDir    "ADPROINSTALL:")
  1696.         (set modulesToDo    ADProLoadersIndepSet1)
  1697.         (while (set moduleFileName (select moduleCurrN
  1698.                 "FLC"
  1699.                 "FRACTAL2000"
  1700.                 "ICO"
  1701.                 "ICON"
  1702.                 "PAR_PEG"
  1703.                 "VLAB"
  1704.                 "YUVN"
  1705.                 ""))
  1706.             (installADProModule)
  1707.             (set moduleCurrN    (+ moduleCurrN 1))
  1708.         )
  1709.         )
  1710.     )
  1711.  
  1712.     (set deleteFileName    "RAM:LoadersIndep.lha")
  1713.     (deleteIfExists)
  1714.  
  1715.                             ; FRACTAL 2000 iteration files
  1716.     (if (= 1 InstallF2KIters)
  1717.         (
  1718.         (if (= (exists F2KItersDir) 0)
  1719.             (makedir F2KItersDir)
  1720.         )
  1721.         (makeassign "ADPROINSTALL" F2KItersDir)
  1722.         (onerror
  1723.             (cleanUp)
  1724.         )
  1725.  
  1726.         (set addToMeter 1)            ; 1
  1727.         (incrementMeter)
  1728.  
  1729.         (set workingMsg        "Installing sample FRACTAL2000 iteration files...")
  1730.         (set arcFileName    ("%s:F2KIters.lha" DiskF2KIters))
  1731.         (set destDirName    "ADPROINSTALL:")
  1732.         (dumpLZFile2Dir)
  1733.         )
  1734.     )
  1735.  
  1736.  
  1737.     ; ****************************
  1738.     ; * Install the Independent (Third-Party) Savers
  1739.     ; ****************************
  1740.     ;
  1741.     (onerror
  1742.         (abort    ("The directory %s could not be created. " ADProSaversDir)
  1743.             "This might be because your destination disk or drawer "
  1744.             "has no room or is write protected. This installation "
  1745.             "cannot continue."
  1746.         )
  1747.     )
  1748.     (if (= (exists ADProSaversDir) 0)
  1749.         (makedir ADProSaversDir)
  1750.     )
  1751.     (makeassign "ADPROINSTALL" ADProSaversDir)
  1752.     (onerror
  1753.         (cleanUp)
  1754.     )
  1755.  
  1756.     (if (<> ADProSaversIndepSet1 0)
  1757.         (
  1758.         (set moduleArcName    ("%s:SaversIndep.lha" DiskSaversIndep))
  1759.         (copyfiles
  1760.             (prompt "")
  1761.             (help "")
  1762.             (source moduleArcName)
  1763.             (dest "RAM:")
  1764.         )
  1765.         (if (= 1 (exists "RAM:SaversIndep.lha"))
  1766.             (set moduleArcName    "RAM:SaversIndep.lha")
  1767.         )
  1768.  
  1769.         (set moduleCurrN    0)
  1770.         (set moduleType        "Third-Party Saver")
  1771.         (set moduleDestDir    "ADPROINSTALL:")
  1772.         (set modulesToDo    ADProSaversIndepSet1)
  1773.         (while (set moduleFileName (select moduleCurrN
  1774.                 "ICON"
  1775.                 "OPALVISION"
  1776.                 "PICASSO"
  1777.                 "RETINA"
  1778.                 ""))
  1779.             (installADProModule)
  1780.             (set moduleCurrN    (+ moduleCurrN 1))
  1781.         )
  1782.         )
  1783.     )
  1784.  
  1785.     (set deleteFileName    "RAM:SaversIndep.lha")
  1786.     (deleteIfExists)
  1787.  
  1788.  
  1789.     ; ****************************
  1790.     ; * Install the Independent (Third-Party) Operators
  1791.     ; ****************************
  1792.     ;
  1793.     (onerror
  1794.         (abort    ("The directory %s could not be created. " ADProOperatorsDir)
  1795.             "This might be because your destination disk or drawer "
  1796.             "has no room or is write protected. This installation "
  1797.             "cannot continue."
  1798.         )
  1799.     )
  1800.     (if (= (exists ADProOperatorsDir) 0)
  1801.         (makedir ADProOperatorsDir)
  1802.     )
  1803.     (makeassign "ADPROINSTALL" ADProOperatorsDir)
  1804.     (onerror
  1805.         (cleanUp)
  1806.     )
  1807.  
  1808.     (if (<> ADProOperatorsIndepSet1 0)
  1809.         (
  1810.         (set moduleArcName    ("%s:OperatorsIndep.lha" DiskOperatorsIndep))
  1811.         (copyfiles
  1812.             (prompt "")
  1813.             (help "")
  1814.             (source moduleArcName)
  1815.             (dest "RAM:")
  1816.         )
  1817.         (if (= 1 (exists "RAM:OperatorsIndep.lha"))
  1818.             (set moduleArcName    "RAM:OperatorsIndep.lha")
  1819.         )
  1820.  
  1821.         (set moduleCurrN    0)
  1822.         (set moduleType        "Third-Party Operator")
  1823.         (set moduleDestDir    "ADPROINSTALL:")
  1824.         (set modulesToDo    ADProOperatorsIndepSet1)
  1825.         (while (set moduleFileName (select moduleCurrN
  1826.                 "Intensity_Range"
  1827.                 "OpalPaint"
  1828.                 ""))
  1829.             (installADProModule)
  1830.             (set moduleCurrN    (+ moduleCurrN 1))
  1831.         )
  1832.         )
  1833.     )
  1834.  
  1835.     (set deleteFileName    "RAM:OperatorsIndep.lha")
  1836.     (deleteIfExists)
  1837.     )
  1838. )
  1839.  
  1840.  
  1841. ; ****************************
  1842. ; * ADPro Pseudo Modules Installation routine
  1843. ; ****************************
  1844. ;
  1845. (procedure ADProPseudoModulesInstall
  1846.     (
  1847.     (if (= (exists ADProDir) 0)
  1848.         (makedir ADProDir)
  1849.     )
  1850.     (makeassign "ADPROINSTALL" ADProDir)
  1851.     (onerror
  1852.         (cleanUp)
  1853.     )
  1854.  
  1855.  
  1856.     ; ****************************
  1857.     ; * Install the Pseudo Loaders
  1858.     ; ****************************
  1859.     ;
  1860.     (onerror
  1861.         (abort    ("The directory %s could not be created. " ADProLoadersDir)
  1862.             "This might be because your destination disk or drawer "
  1863.             "has no room or is write protected. This installation "
  1864.             "cannot continue."
  1865.         )
  1866.     )
  1867.     (if (= (exists ADProLoadersDir) 0)
  1868.         (makedir ADProLoadersDir)
  1869.     )
  1870.     (makeassign "ADPROINSTALL" ADProLoadersDir)
  1871.     (onerror
  1872.         (cleanUp)
  1873.     )
  1874.  
  1875.     (if (<> ADProLoadersPseudoSet1 0)
  1876.         (
  1877.         (set moduleArcName    ("%s:LoadersPseudo.lha" DiskLoadersPseudo))
  1878.         (copyfiles
  1879.             (prompt "")
  1880.             (help "")
  1881.             (source moduleArcName)
  1882.             (dest "RAM:")
  1883.         )
  1884.         (if (= 1 (exists "RAM:LoadersPseudo.lha"))
  1885.             (set moduleArcName    "RAM:LoadersPseudo.lha")
  1886.         )
  1887.  
  1888.         (set moduleCurrN    0)
  1889.         (set moduleType        "Pseudo Loader")
  1890.         (set moduleDestDir    "ADPROINSTALL:")
  1891.         (set modulesToDo    ADProLoadersPseudoSet1)
  1892.         (while (set moduleFileName (select moduleCurrN
  1893.                 "_LoadNShowFC24"
  1894.                 "_LoadNShowOV"
  1895.                 "_LoadNShowPICASSO"
  1896.                 "_LoadNShowRETINA"
  1897.                 "_VT_Grab"
  1898.                 ""))
  1899.             (installADProModule)
  1900.             (set moduleCurrN    (+ moduleCurrN 1))
  1901.         )
  1902.         )
  1903.     )
  1904.  
  1905.     (set deleteFileName    "RAM:LoadersPseudo.lha")
  1906.     (deleteIfExists)
  1907.  
  1908.  
  1909.     ; ****************************
  1910.     ; * Install the Pseudo Savers
  1911.     ; ****************************
  1912.     ;
  1913.     (onerror
  1914.         (abort    ("The directory %s could not be created. " ADProSaversDir)
  1915.             "This might be because your destination disk or drawer "
  1916.             "has no room or is write protected. This installation "
  1917.             "cannot continue."
  1918.         )
  1919.     )
  1920.     (if (= (exists ADProSaversDir) 0)
  1921.         (makedir ADProSaversDir)
  1922.     )
  1923.     (makeassign "ADPROINSTALL" ADProSaversDir)
  1924.     (onerror
  1925.         (cleanUp)
  1926.     )
  1927.  
  1928.     (if (<> ADProSaversPseudoSet1 0)
  1929.         (
  1930.         (set moduleArcName    ("%s:SaversPseudo.lha" DiskSaversPseudo))
  1931.         (copyfiles
  1932.             (prompt "")
  1933.             (help "")
  1934.             (source moduleArcName)
  1935.             (dest "RAM:")
  1936.         )
  1937.         (if (= 1 (exists "RAM:SaversPseudo.lha"))
  1938.             (set moduleArcName    "RAM:SaversPseudo.lha")
  1939.         )
  1940.  
  1941.         (set moduleCurrN    0)
  1942.         (set moduleType        "Pseudo Saver")
  1943.         (set moduleDestDir    "ADPROINSTALL:")
  1944.         (set modulesToDo    ADProSaversPseudoSet1)
  1945.         (while (set moduleFileName (select moduleCurrN
  1946.                 "_MultiCopyPREFPRINTER"
  1947.                 "_SCULPTWithDimen"
  1948.                 "_VT_Display"
  1949.                 ""))
  1950.             (installADProModule)
  1951.             (set moduleCurrN    (+ moduleCurrN 1))
  1952.         )
  1953.         )
  1954.     )
  1955.  
  1956.     (set deleteFileName    "RAM:SaversPseudo.lha")
  1957.     (deleteIfExists)
  1958.  
  1959.  
  1960.     ; ****************************
  1961.     ; * Install the Pseudo Operators
  1962.     ; ****************************
  1963.     ;
  1964.     (onerror
  1965.         (abort    ("The directory %s could not be created. " ADProOperatorsDir)
  1966.             "This might be because your destination disk or drawer "
  1967.             "has no room or is write protected. This installation "
  1968.             "cannot continue."
  1969.         )
  1970.     )
  1971.     (if (= (exists ADProOperatorsDir) 0)
  1972.         (makedir ADProOperatorsDir)
  1973.     )
  1974.     (makeassign "ADPROINSTALL" ADProOperatorsDir)
  1975.     (onerror
  1976.         (cleanUp)
  1977.     )
  1978.  
  1979.     (set deleteFileName    (tackon "ADPROINSTALL:" "_ScaleToAspect"))
  1980.     (deleteIfExists)
  1981.  
  1982.     (if (<> ADProOperatorsPseudoSet1 0)
  1983.         (
  1984.         (set moduleArcName    ("%s:OperatorsPseudo.lha" DiskOperatorsPseudo))
  1985.         (copyfiles
  1986.             (prompt "")
  1987.             (help "")
  1988.             (source moduleArcName)
  1989.             (dest "RAM:")
  1990.         )
  1991.         (if (= 1 (exists "RAM:OperatorsPseudo.lha"))
  1992.             (set moduleArcName    "RAM:OperatorsPseudo.lha")
  1993.         )
  1994.  
  1995.         (set moduleCurrN    0)
  1996.         (set moduleType        "Pseudo Operator")
  1997.         (set moduleDestDir    "ADPROINSTALL:")
  1998.         (set modulesToDo    ADProOperatorsPseudoSet1)
  1999.         (while (set moduleFileName (select moduleCurrN
  2000.                 "_ColorCharcoal"
  2001.                 "_DoubleSize"
  2002.                 "_Emboss"
  2003.                 "_Fresco"
  2004.                 "_Highlight"
  2005.                 "_Mirror"
  2006.                 "_OilPaint"
  2007.                 "_RemapNRerender"
  2008.                 "_RotateImage"
  2009.                 "_ScaleToPixelAspect"
  2010.                 "_Solarize"
  2011.                 ""))
  2012.             (installADProModule)
  2013.             (set moduleCurrN    (+ moduleCurrN 1))
  2014.         )
  2015.         )
  2016.     )
  2017.  
  2018.     (set deleteFileName    "RAM:OperatorsPseudo.lha")
  2019.     (deleteIfExists)
  2020.     )
  2021. )
  2022.  
  2023.  
  2024. ; ****************************
  2025. ; * FRED Installation routine
  2026. ; ****************************
  2027. ;
  2028. (procedure FREDInstall
  2029.     (
  2030.     (if (= (exists FREDDir) 0)
  2031.         (makedir FREDDir)
  2032.     )
  2033.     (makeassign "ADPROINSTALL" FREDDir)
  2034.     (onerror
  2035.         (cleanUp)
  2036.     )
  2037.  
  2038.     (set deleteFileName    (tackon "ADPROINSTALL:" "FredDefaults"))
  2039.     (deleteIfExists)
  2040.  
  2041.     (set AnimOpsDir    (tackon FREDDir "AnimOps"))
  2042.     (if (= (exists AnimOpsDir) 0)
  2043.         (makedir AnimOpsDir)
  2044.         (
  2045.         (set deleteFileName    (tackon AnimOpsDir "TimeStretch"))
  2046.         (deleteIfExists)
  2047.         )
  2048.     )
  2049.  
  2050.     (set addToMeter    2)
  2051.     (incrementMeter)
  2052.  
  2053.     (set workingMsg        "Installing FRED...")
  2054.     (set arcFileName    ("%s:FRED.lha" DiskFREDPgm))
  2055.     (set destDirName    "ADPROINSTALL:")
  2056.     (dumpLZFile2Dir)
  2057.  
  2058.     (set addToMeter    3)
  2059.     (incrementMeter)
  2060.  
  2061.     (if (= (exists AnimOpsDir) 0)
  2062.         (makedir AnimOpsDir)
  2063.     )
  2064.     (makeassign "ADPROINSTALL" AnimOpsDir)
  2065.     (onerror
  2066.         (cleanUp)
  2067.     )
  2068.     (set workingMsg        "Installing AnimOps...")
  2069.     (set arcFileName    ("%s:AnimOps.lha" DiskAnimOps))
  2070.     (set destDirName    "ADPROINSTALL:")
  2071.     (dumpLZFile2Dir)
  2072.  
  2073.     (if (= (exists (tackon FREDDir "Sequences")) 0)
  2074.         (makedir (tackon FREDDir "Sequences"))
  2075.     )
  2076.  
  2077.     (if (= (exists (tackon FREDDir "Projects")) 0)
  2078.         (makedir (tackon FREDDir "Projects"))
  2079.     )
  2080.     )
  2081. )
  2082.  
  2083.  
  2084. ; ****************************
  2085. ; * ARexxScript Installation routine
  2086. ; ****************************
  2087. ;
  2088. (procedure ARexxScriptInstall
  2089.     (
  2090.     (onerror
  2091.         (abort    ("The directory %s could not be created. " ADProScriptDir)
  2092.             "This might be because your destination disk or drawer "
  2093.             "has no room or is write protected. This installation "
  2094.             "cannot continue."
  2095.         )
  2096.     )
  2097.     (if (= (exists ADProScriptDir) 0)
  2098.         (makedir ADProScriptDir)
  2099.     )
  2100.     (makeassign "ADPROINSTALL" ADProScriptDir)
  2101.     (onerror
  2102.         (cleanUp)
  2103.     )
  2104.  
  2105.     (set deleteFileName    (tackon "ADPROINSTALL:" "ScaleToAspect.adpro"))
  2106.     (deleteIfExists)
  2107.  
  2108.     (set addToMeter    1)                ; 1 operation
  2109.     (incrementMeter)
  2110.  
  2111.     (set workingMsg        ("Installing %s ARexx Scripts..." ProductBaseName))
  2112.     (set arcFileName    ("%s:ADProScripts.lha" DiskADProScripts))
  2113.     (set destDirName    "ADPROINSTALL:")
  2114.     (dumpLZFile2Dir)
  2115.  
  2116.     (if (<> (exists (tackon ADProDir ("%s.info" ProductBaseName))) 0)
  2117.         (
  2118.         (tooltype
  2119.             (prompt        "")
  2120.             (help        "")
  2121.             (dest        (tackon ADProDir ProductBaseName))
  2122.             (settooltype    "REXXDIR" "ADPROSCRIPTS:")
  2123.             (noposition)
  2124.         )
  2125.         )
  2126.     )
  2127.  
  2128.     (makeassign "ADPROINSTALL" FREDScriptDir)
  2129.  
  2130.     (set addToMeter    1)                ; 1 operation
  2131.     (incrementMeter)
  2132.  
  2133.     (set workingMsg        "Installing FRED ARexx Scripts...")
  2134.     (set arcFileName    ("%s:FREDScripts.lha" DiskFREDScripts))
  2135.     (set destDirName    "ADPROINSTALL:")
  2136.     (dumpLZFile2Dir)
  2137.     )
  2138. )
  2139.  
  2140.  
  2141. ; ****************************
  2142. ; * Splitz & Joinz Installation routine
  2143. ; ****************************
  2144. ;
  2145. (procedure SplitzJoinzInstall
  2146.     (
  2147.     (if (IN SJOpts 0)                ; Amiga version
  2148.         (
  2149.         (makeassign "ADPROINSTALL" SJAmigaDir)
  2150.  
  2151.         (set addToMeter    4)
  2152.         (incrementMeter)
  2153.  
  2154.         (set workingMsg        "Installing Amiga Splitz & Joinz...")
  2155.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2156.         (set srcFileName    "splitz")
  2157.         (set destDirName    "ADPROINSTALL:")
  2158.         (extractLZFile2Dir)
  2159.  
  2160.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2161.         (set srcFileName    "splitz.info")
  2162.         (set destDirName    "ADPROINSTALL:")
  2163.         (extractLZFile2Dir)
  2164.  
  2165.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2166.         (set srcFileName    "joinz")
  2167.         (set destDirName    "ADPROINSTALL:")
  2168.         (extractLZFile2Dir)
  2169.  
  2170.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2171.         (set srcFileName    "joinz.info")
  2172.         (set destDirName    "ADPROINSTALL:")
  2173.         (extractLZFile2Dir)
  2174.         )
  2175.     )
  2176.  
  2177.     (if (IN SJOpts 1)                ; Macintosh version
  2178.         (
  2179.         (makeassign "ADPROINSTALL" SJMacDir)
  2180.  
  2181.         (set addToMeter    2)
  2182.         (incrementMeter)
  2183.  
  2184.         (set workingMsg        "Installing Macintosh Splitz & Joinz...")
  2185.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2186.         (set srcFileName    "macsplit.hqx")
  2187.         (set destDirName    "ADPROINSTALL:")
  2188.         (extractLZFile2Dir)
  2189.  
  2190.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2191.         (set srcFileName    "macreadme.hqx")
  2192.         (set destDirName    "ADPROINSTALL:")
  2193.         (extractLZFile2Dir)
  2194.         )
  2195.     )
  2196.  
  2197.     (if (IN SJOpts 2)                ; PC/MS-DOS version
  2198.         (
  2199.         (makeassign "ADPROINSTALL" SJDOSDir)
  2200.  
  2201.         (set addToMeter    2)
  2202.         (incrementMeter)
  2203.  
  2204.         (set workingMsg        "Installing PC/MS-DOS Splitz & Joinz...")
  2205.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2206.         (set srcFileName    "splitz.exe")
  2207.         (set destDirName    "ADPROINSTALL:")
  2208.         (extractLZFile2Dir)
  2209.  
  2210.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2211.         (set srcFileName    "joinz.exe")
  2212.         (set destDirName    "ADPROINSTALL:")
  2213.         (extractLZFile2Dir)
  2214.         )
  2215.     )
  2216.  
  2217.     (if (IN SJOpts 3)                ; PC/MS-Windows version
  2218.         (
  2219.         (makeassign "ADPROINSTALL" SJWindowsDir)
  2220.  
  2221.         (set addToMeter    3)
  2222.         (incrementMeter)
  2223.  
  2224.         (set workingMsg        "Installing PC/MS-Windows Splitz & Joinz...")
  2225.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2226.         (set srcFileName    "wsplitz.exe")
  2227.         (set destDirName    "ADPROINSTALL:")
  2228.         (extractLZFile2Dir)
  2229.  
  2230.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2231.         (set srcFileName    "wjoinz.exe")
  2232.         (set destDirName    "ADPROINSTALL:")
  2233.         (extractLZFile2Dir)
  2234.  
  2235.         (set arcFileName    ("%s:S_J.lha" DiskSplitzJoinz))
  2236.         (set srcFileName    "wininst.txt")
  2237.         (set destDirName    "ADPROINSTALL:")
  2238.         (extractLZFile2Dir)
  2239.         )
  2240.     )
  2241.     )
  2242. )
  2243.  
  2244.  
  2245. ; ****************************
  2246. ; * ZapDPI Installation routine
  2247. ; ****************************
  2248. ;
  2249. (procedure ZapDPIInstall
  2250.     (
  2251.     (if (IN ZapDPIOpts 0)                ; ZapDPI Program
  2252.         (
  2253.         (makeassign "ADPROINSTALL" ZapDPIPgmDir)
  2254.  
  2255.         (set addToMeter    2)
  2256.         (incrementMeter)
  2257.  
  2258.         (set workingMsg        "Installing ZapDPI utility...")
  2259.         (set arcFileName    ("%s:ZapDPI.lha" DiskZapDPI))
  2260.         (set srcFileName    "ZapDPI")
  2261.         (set destDirName    "ADPROINSTALL:")
  2262.         (extractLZFile2Dir)
  2263.  
  2264.         (set arcFileName    ("%s:ZapDPI.lha" DiskZapDPI))
  2265.         (set srcFileName    "ZapDPI.info")
  2266.         (set destDirName    "ADPROINSTALL:")
  2267.         (extractLZFile2Dir)
  2268.         )
  2269.     )
  2270.  
  2271.     (if (IN ZapDPIOpts 1)                ; ZapDPI Scripts
  2272.         (
  2273.         (makeassign "ADPROINSTALL" ZapDPIScriptsDir)
  2274.  
  2275.         (set addToMeter    3)
  2276.         (incrementMeter)
  2277.  
  2278.         (set workingMsg        "Installing ZapDPI ARexx scripts...")
  2279.         (set arcFileName    ("%s:ZapDPI.lha" DiskZapDPI))
  2280.         (set srcFileName    "ZapDPI.adpro")
  2281.         (set destDirName    "ADPROINSTALL:")
  2282.         (extractLZFile2Dir)
  2283.  
  2284.         (set arcFileName    ("%s:ZapDPI.lha" DiskZapDPI))
  2285.         (set srcFileName    "ReDPI.adpro")
  2286.         (set destDirName    "ADPROINSTALL:")
  2287.         (extractLZFile2Dir)
  2288.  
  2289.         (set arcFileName    ("%s:ZapDPI.lha" DiskZapDPI))
  2290.         (set srcFileName    "CheckDPI.adpro")
  2291.         (set destDirName    "ADPROINSTALL:")
  2292.         (extractLZFile2Dir)
  2293.         )
  2294.     )
  2295.     )
  2296. )
  2297.  
  2298.  
  2299. ; ****************************
  2300. ; * File Sentry Installation routine
  2301. ; ****************************
  2302. ;
  2303. (procedure FileSentryInstall
  2304.     (
  2305.     (makeassign "ADPROINSTALL" FileSentryDir)
  2306.  
  2307.     (set addToMeter    2)
  2308.     (incrementMeter)
  2309.  
  2310.     (set workingMsg        "Installing File Sentry utility...")
  2311.     (set arcFileName    ("%s:Sentry.lha" DiskSentry))
  2312.     (set destDirName    "ADPROINSTALL:")
  2313.     (dumpLZFile2Dir)
  2314.     )
  2315. )
  2316.  
  2317.  
  2318. ; ****************************
  2319. ; * View Installation routine
  2320. ; ****************************
  2321. ;
  2322. (procedure ViewInstall
  2323.     (
  2324.     (makeassign "ADPROINSTALL" ViewDir)
  2325.  
  2326.     (set addToMeter    3)
  2327.     (incrementMeter)
  2328.  
  2329.     (set workingMsg        "Installing View utility and documentation...")
  2330.     (set arcFileName    ("%s:View.lha" DiskView))
  2331.     (set destDirName    "ADPROINSTALL:")
  2332.     (dumpLZFile2Dir)
  2333.     )
  2334. )
  2335.  
  2336.  
  2337. ; ****************************
  2338. ; * Tutorials Installation routine
  2339. ; ****************************
  2340. ;
  2341. (procedure TutorialsInstall
  2342.     (
  2343.     (makeassign "ADPROINSTALL" TutorialsDir)
  2344.  
  2345.     (set addToMeter    1)
  2346.     (incrementMeter)
  2347.  
  2348.     (set workingMsg        "Installing Tutorial files...")
  2349.     (set arcFileName    ("%s:Tutorials.lha" DiskTutorials))
  2350.     (set destDirName    "ADPROINSTALL:")
  2351.     (dumpLZFile2Dir)
  2352.     )
  2353. )
  2354.  
  2355.  
  2356. ; ****************************
  2357. ; * ReadMe Installation routine
  2358. ; ****************************
  2359. ;
  2360. (procedure ReadMeInstall
  2361.     (
  2362.     (makeassign "ADPROINSTALL" ReadMeDir)
  2363.  
  2364.     (set addToMeter    2)
  2365.     (incrementMeter)
  2366.  
  2367.     (copyfiles
  2368.         (prompt        ("Installing ReadMe file as ReadMe_%s_%s..." ProductBaseName VersionNum))
  2369.         (help        "")
  2370.         (source        ("%s:ReadMe" DiskInstall))
  2371.         (dest        "ADPROINSTALL:")
  2372.         (newname    ("ReadMe_%s_%s" ProductBaseName VersionNum))
  2373.         (infos)
  2374.     )
  2375.  
  2376.     (if (= (exists ("ADPROINSTALL:ReadMe_%s_%s.info" ProductBaseName VersionNum)) 1)
  2377.         (
  2378.         (if (>= OSVersion 39)
  2379.             (set ReadMeTool    "MultiView")
  2380.             (set ReadMeTool    "More")
  2381.         )
  2382.  
  2383.         (tooltype
  2384.             (prompt        "")
  2385.             (help        "")
  2386.             (dest        ("ADPROINSTALL:ReadMe_%s_%s" ProductBaseName VersionNum))
  2387.             (setdefaulttool    ReadMeTool)
  2388.             (noposition)
  2389.         )
  2390.         )
  2391.     )
  2392.     )
  2393. )
  2394.  
  2395.  
  2396. ; ****************************
  2397. ; * General CleanUp routine
  2398. ; ****************************
  2399. ;
  2400. (procedure cleanUp
  2401.     (
  2402.     ; ****************************
  2403.     ; * remove temporary assignment
  2404.     ; ****************************
  2405.     ;
  2406.     (makeassign "ADPROINSTALL")
  2407.  
  2408.     ; ****************************
  2409.     ; * delete temporary files.
  2410.     ; ****************************
  2411.     ;
  2412.     (set deleteFileName    "RAM:lhex")
  2413.     (deleteIfExists)
  2414.     (set deleteFileName    "RAM:Loaders.lha")
  2415.     (deleteIfExists)
  2416.     (set deleteFileName    ("RAM:Loaders%s.lha" FPUName))
  2417.     (deleteIfExists)
  2418.     (set deleteFileName    "RAM:LoadersIndep.lha")
  2419.     (deleteIfExists)
  2420.     (set deleteFileName    "RAM:Savers.lha")
  2421.     (deleteIfExists)
  2422.     (set deleteFileName    ("RAM:Savers%s.lha" FPUName))
  2423.     (deleteIfExists)
  2424.     (set deleteFileName    "RAM:SaversIndep.lha")
  2425.     (deleteIfExists)
  2426.     (set deleteFileName    "RAM:Operators.lha")
  2427.     (deleteIfExists)
  2428.     (set deleteFileName    ("RAM:Operators%s.lha" FPUName))
  2429.     (deleteIfExists)
  2430.     (set deleteFileName    "RAM:OperatorsIndep.lha")
  2431.     (deleteIfExists)
  2432.     (set deleteFileName    "RAM:Displays.lha")
  2433.     (deleteIfExists)
  2434.     (set deleteFileName    "RAM:adpro.library")
  2435.     (deleteIfExists)
  2436.     (set deleteFileName    "RAM:dctv.library")
  2437.     (deleteIfExists)
  2438.     (set deleteFileName    "RAM:req.library")
  2439.     (deleteIfExists)
  2440.  
  2441.  
  2442.     ; ****************************
  2443.     ; * exit the program.
  2444.     ; ****************************
  2445.     ;
  2446.     (if (= DisplayReadMe 1)
  2447.         (
  2448. ;+++        (if (= serializeAfterInstall 1)
  2449. ;            (
  2450. ;            (message
  2451. ;                ("\nOnce the Proceed button is pressed, the %s application will be run so that you may serialize it.\n" ProductBaseName)
  2452. ;                "\n"
  2453. ;                ("This panel will stay open until you exit %s, so to remove this panel " ProductBaseName)
  2454. ;                ("you should exit out of %s once the serialization process has completed.\n" ProductBaseName)
  2455. ;                "\n\n"
  2456. ;                ("Press the Proceed button to serialize %s, or Abort Install to exit before serialization can begin.\n" ProductBaseName))
  2457. ;            (execute ("RAM:startADPro \"%s\"" ADProDir))
  2458. ;            )
  2459. ;        )
  2460.  
  2461.         (if (>= OSVersion 39)
  2462.             (run ("run SYS:Utilities/MultiView %s:ReadMe" DiskInstall))
  2463.             (run ("run %s:C/More %s:ReadMe" DiskInstall DiskInstall))
  2464.         )
  2465.  
  2466. ;+++        (set deleteFileName    "RAM:startADPro")
  2467. ;        (deleteIfExists)
  2468.         )
  2469.     )
  2470.  
  2471.     (complete 100)
  2472.  
  2473.     (if (= DisplayReadMe 1)
  2474.         (exit)
  2475.         (exit (quiet))
  2476.     )
  2477.     )
  2478. )
  2479.  
  2480.  
  2481. ; *************************************************************************
  2482. ; *                         ACTUAL START OF SCRIPT
  2483. ; *
  2484. ; * Ask all questions for the user now, do all of the work later.
  2485. ; *************************************************************************
  2486. ;
  2487.  
  2488. (onerror
  2489.     (cleanUp)
  2490. )
  2491.  
  2492. (if (< OSVersion 37)
  2493.     (abort    ("\%s version %s requires at least AmigaOS 2.04 to run.\n" ProductName VersionNum)
  2494.         "\n"
  2495.         "Press the Proceed button to stop the installation procedure.\n")
  2496. )
  2497.  
  2498.  
  2499. ; ****************************
  2500. ; * set the default destination to ADPRO: (if exists) or SYS:<ProductBaseName> (if it doesn't).
  2501. ; ****************************
  2502. ;
  2503. (if (= (getassign "ADPRO" "a") "")
  2504.     (set @default-dest ("SYS:%s" ProductBaseName))
  2505.     (set @default-dest (getassign "ADPRO" "a"))
  2506. )
  2507. ;(set @default-dest ("SYS:%s" ProductBaseName))
  2508.  
  2509. (setPkgOpts)
  2510. (setCPUOpts)
  2511.  
  2512.  
  2513. ; ****************************
  2514. ; * if (PkgOpts & 0), ask the user where to install ProductBaseName
  2515. ; * but don't actually do it yet.
  2516. ; ****************************
  2517. ;
  2518. (if (IN PkgOpts 0)                ; if bit position 0 is on
  2519.     (
  2520.     (set TotalFiles        (+ TotalFiles 2))    ; adpro.library, req.library
  2521.  
  2522.     (set continueOn        0)
  2523.     (while (<> continueOn 1)
  2524.         (
  2525.         (set setDirPathWhy    ("where you want to install the %s program." ProductBaseName))
  2526.         (set setDirPathHelp     ("This part of the installation is asking you where you would like to place the %s program. For current %s owners, you should select the directory where the %s program is currently located. If you choose a different location, then the current modules will be in a different place than the newly-installed modules.\n" ProductBaseName ProductBaseName ProductBaseName))
  2527.         (set DirPath        @default-dest)
  2528.         (setDirPath)
  2529.  
  2530.         (if (= 1 (askbool
  2531.                 (prompt    ("\n%s and its modules will be installed in the following directory:\n\n%s\n\n\nIs this correct?" ProductBaseName DirPath))
  2532.                 (help    ("This panel displays what you have told the Installer is the directory where %s files will be installed. " ProductBaseName)
  2533.                     "It is so that you know exactly where the files will be placed.\n"
  2534.                     "\n"
  2535.                     "To select a different directory, press the No button. Otherwise, press the "
  2536.                     "Yes button to proceed with the installation process.\n")))
  2537.             (set continueOn        1)
  2538.         )
  2539.         )
  2540.     )
  2541.  
  2542.     (set ADProDir        DirPath)
  2543.     (set @default-dest    ADProDir)
  2544.  
  2545.     (set TotalFiles        (+ TotalFiles 2))    ; ADPro + icon
  2546.  
  2547.     (onerror
  2548.         (cleanUp)
  2549.     )
  2550.  
  2551.     (set TotalFiles        (+ TotalFiles 3))    ; Release Notes + icon + notes
  2552.  
  2553. ;+++
  2554. ;    (if (= @user-level 2)
  2555. ;        (
  2556. ;        (set serializeAfterInstall (askbool
  2557. ;            (prompt        ("\n\nDo you want to serialize %s after installing it?" ProductName))
  2558. ;            (help        ("%s needs to be serialized before it can be run.\n" ProductName)
  2559. ;                    "\n"
  2560. ;                    "You do not need to serialize at this time.  However, the first time you "
  2561. ;                    ("run %s, it will ask you to serialize it.\n" ProductBaseName)
  2562. ;                    "\n"
  2563. ;                    @askbool-help)
  2564. ;            (default    1)))
  2565. ;        )
  2566. ;        (set serializeAfterInstall 1)
  2567. ;    )
  2568.  
  2569.  
  2570.     ; ****************************
  2571.     ; * Ask the user what the MAXMEM tool type should be set to.
  2572.     ; * (Default to half of the free fast memory.)
  2573.     ; ****************************
  2574.     ;
  2575.     (set freechip (database "graphics-mem"))
  2576.     (set freetotal (database "total-mem"))
  2577.     (set maxmemvalue (/ (- freetotal freechip) 2))
  2578.     (set minmemrange 1000000)
  2579.     (if (< maxmemvalue minmemrange)
  2580.         (set minmemrange maxmemvalue)
  2581.     )
  2582.  
  2583.     (set maxmemvalue (asknumber
  2584.         (prompt    ("\nWhat is the maximum amount of memory (in bytes) you want to allocate for %s's image buffer?" ProductBaseName))
  2585.         (help    ("The %s icon tool type called MAXMEM will be modified to " ProductBaseName)
  2586.             "the value you specify here.  If you want it to grab the largest "
  2587.             "amount of memory, then set this value to a number larger than the "
  2588.             "total amount of memory you have in your system.  The default "
  2589.             "value is half the amount of available fast memory.\n")
  2590.         (range    minmemrange 2000000000)
  2591.         (default maxmemvalue)
  2592.         )
  2593.     )
  2594.     )
  2595.     (if (OR (OR (OR (OR (OR (OR (IN PkgOpts 1) (IN PkgOpts 2)) (IN PkgOpts 3)) (IN PkgOpts 4)) (IN PkgOpts 6)) (IN PkgOpts 8)) (IN PkgOpts 11))
  2596.         (
  2597.         (set setDirPathWhy    ("where the %s (or %s, if you have it) program is located." ProductBaseName ADProLiteName))
  2598.         (set setDirPathHelp    ("You need to indicate where the %s (or %s) program is located so that the modules can be installed properly.\n" ProductBaseName ADProLiteName))
  2599.         (set DirPath        @default-dest)
  2600.         (setDirPath)
  2601.  
  2602.         (set ADProDir        DirPath)
  2603.         (set @default-dest    ADProDir)
  2604.         )
  2605.     )
  2606. )
  2607.  
  2608.  
  2609. ; ****************************
  2610. ; * if (PkgOpts & 1), ask the user which Standard Modules to install
  2611. ; * but don't actually do it yet.
  2612. ; ****************************
  2613. ;
  2614. (if (IN PkgOpts 1)                ; if bit position 1 is on
  2615.     (
  2616.     ; ****************************
  2617.     ; * Select the loaders.
  2618.     ; ****************************
  2619.     ;
  2620.     (if (= @user-level 2)
  2621.         (
  2622.         (set ADProLoadersSet1
  2623.             (askoptions
  2624.                 (prompt    "Please select the Loader Modules you wish to install:\n"
  2625.                     "(Set 1 of 3)")
  2626.                 (help    ("These modules let you import images into %s.\n" ProductBaseName)
  2627.                     "\n"
  2628.                     @askoptions-help)
  2629.                 (choices
  2630.                     "ALPHA"
  2631.                     "ANIM"
  2632.                     "BACKDROP"
  2633.                     "BACKLINE"
  2634.                     "BMP"
  2635.                     "CLIPBOARD"
  2636.                     "DPAINT"        ; 7
  2637.                     "DV21"
  2638.                     "GIF"
  2639.                     "IFF"
  2640.                     "IMPULSE"
  2641.                     "MACPAINT"
  2642.                     "PCX"
  2643.                     "POINTER"        ; 14
  2644.                 )
  2645.             )
  2646.         )
  2647.         (set ADProLoadersSet2
  2648.             (askoptions
  2649.                 (prompt    "Please select the Loader Modules you wish to install:\n"
  2650.                     "(Set 2 of 3)")
  2651.                 (help    ("These modules let you import images into %s.\n" ProductBaseName)
  2652.                     "\n"
  2653.                     @askoptions-help)
  2654.                 (choices
  2655.                     "QRT"
  2656.                     "SCREEN"
  2657.                     "SCULPT"
  2658.                     "TEMP"
  2659.                     "UNIVERSAL"        ; 5
  2660.                 )
  2661.             )
  2662.         )
  2663.         (set ADProLoadersSet3
  2664.             (askoptions
  2665.                 (prompt    "Please select the Loader Modules you wish to install:\n"
  2666.                     "(Set 3 of 3)")
  2667.                 (help    ("These modules let you import images into %s.\n" ProductBaseName)
  2668.                     "\n"
  2669.                     @askoptions-help)
  2670.                 (choices
  2671.                     "FRAMESTORE"
  2672.                     "JPEG"            ; 2
  2673.                 )
  2674.             )
  2675.         )
  2676.         )
  2677.         (
  2678.         (set numBits    14)
  2679.         (calcBitMaskAllOn)
  2680.         (set ADProLoadersSet1    BitMaskValue)
  2681.         (set numBits    5)
  2682.         (calcBitMaskAllOn)
  2683.         (set ADProLoadersSet2    BitMaskValue)
  2684.         (set numBits    2)
  2685.         (calcBitMaskAllOn)
  2686.         (set ADProLoadersSet3    BitMaskValue)
  2687.         )
  2688.     )
  2689.  
  2690.     (set TotalFiles        (+ TotalFiles 21))    ; 14 + 5 + 2
  2691.     (set ADProLoadersDir    (tackon ADProDir "Loaders2"))
  2692.  
  2693.  
  2694.     ; ****************************
  2695.     ; * Set dot files based on loaders selected.
  2696.     ; ****************************
  2697.     ;
  2698.     (set ADProLoadersDot1    0)
  2699.     (if (IN ADProLoadersSet1 0)            ; ALPHA -> .ALPHA
  2700.         (
  2701.         (set TotalFiles        (+ TotalFiles 1))
  2702.         (set ADProLoadersDot1    (+ ADProLoadersDot1 1))
  2703.         )
  2704.     )
  2705.  
  2706.  
  2707.     ; ****************************
  2708.     ; * Select the savers.
  2709.     ; ****************************
  2710.     ;
  2711.     (if (= @user-level 2)
  2712.         (
  2713.         (set ADProSaversSet1
  2714.             (askoptions
  2715.                 (prompt    "Please select the Saver Modules you wish to install:\n"
  2716.                     "(Set 1 of 2)")
  2717.                 (help    ("These modules let you export images from %s.\n" ProductBaseName)
  2718.                     "\n"
  2719.                     @askoptions-help)
  2720.                 (choices
  2721.                     "ANIM"
  2722.                     "BMP"
  2723.                     "CLIPBOARD"
  2724.                     "DPAINT"        ; 4
  2725.                     "DPIIE"
  2726.                     "GIF"
  2727.                     "IFF"
  2728.                     "IMPULSE"
  2729.                     "PCX"
  2730.                     "POSTSCRIPT"
  2731.                     "PREFPRINTER"
  2732.                     "QRT"
  2733.                     "SCULPT"
  2734.                     "TEMP"            ; 14
  2735.                 )
  2736.             )
  2737.         )
  2738.         (set ADProSaversSet2
  2739.             (askoptions
  2740.                 (prompt    "Please select the Saver Modules you wish to install:\n"
  2741.                     "(Set 2 of 2)")
  2742.                 (help    ("These modules let you export images from %s.\n" ProductBaseName)
  2743.                     "\n"
  2744.                     @askoptions-help)
  2745.                 (choices
  2746.                     "FRAMESTORE"
  2747.                     "JPEG"            ; 2
  2748.                 )
  2749.             )
  2750.         )
  2751.         )
  2752.         (
  2753.         (set numBits    14)
  2754.         (calcBitMaskAllOn)
  2755.         (set ADProSaversSet1    BitMaskValue)
  2756.         (set numBits    2)
  2757.         (calcBitMaskAllOn)
  2758.         (set ADProSaversSet2    BitMaskValue)
  2759.         )
  2760.     )
  2761.  
  2762.     (set TotalFiles        (+ TotalFiles 16))    ; 14 + 2
  2763.     (set ADProSaversDir    (tackon ADProDir "Savers2"))
  2764.  
  2765.  
  2766.     ; ****************************
  2767.     ; * Set dot files based on savers selected.
  2768.     ; ****************************
  2769.     ;
  2770.     (set ADProSaversDot1    0)
  2771.  
  2772.  
  2773.     ; ****************************
  2774.     ; * Inform the user that if the DPaint loader and/or saver are to
  2775.     ; * be installed, then the DPaint AGA program must be patched with
  2776.     ; * the patches on the Patch Disk.
  2777.     ; ****************************
  2778.     ;
  2779.     (if (OR (IN ADProLoadersSet1 (- 7 1)) (IN ADProSaversSet1 (- 4 1)))
  2780.         (
  2781.         (set DPaintMsg (cat
  2782.             "*** NOTE ***\n"
  2783.             "\n"
  2784.             "If you own DPaint AGA version 4.5, you must patch the program "
  2785.             "to at least version 4.6 before it can be used with the DPAINT "
  2786.             "loader and saver.  There are patches for various localized "
  2787.             ("versions of DPaint AGA on Patch Disk Two (%s).  " DiskDPaintPatches)
  2788.             ("Patch the program AFTER installing %s.  " ProductBaseName)
  2789.             "The loader and saver will not work with version 4.5.\n"
  2790.             "\n"
  2791.             "If you do not own DPaint AGA, then disregard this notice and "
  2792.             "select the Proceed button."))
  2793.  
  2794.         (message DPaintMsg
  2795.             (help    "This message is displayed to remind you that your "
  2796.                 "copy of DPaint AGA must be patched with the included "
  2797.                 ("patch on %s.  Do this AFTER installing %s.\n" DiskDPaintPatches ProductBaseName)
  2798.                 "\n"
  2799.                 "NOTE: There are currently patches available for the "
  2800.                 "North American, English, French, and German versions "
  2801.                 "of DPaint AGA.  If you have another version of DPaint AGA, "
  2802.                 "you will need to contact your regional Electronic Arts "
  2803.                 "office to get the proper patch.\n"
  2804.                 "\n"
  2805.                 ("NOTE: %s %s will be the last version of %s " ProductBaseName VersionNum ProductBaseName)
  2806.                 "that will include these DPaint patches.  After this version "
  2807.                 "the patches will have to be obtained by other means.")
  2808.         )
  2809.         )
  2810.     )
  2811.  
  2812.  
  2813.     ; ****************************
  2814.     ; * Select the operators.
  2815.     ; ****************************
  2816.     ;
  2817.     (if (= @user-level 2)
  2818.         (
  2819.         (set ADProOperatorsSet1
  2820.             (askoptions
  2821.                 (prompt    "Please select the Operator Modules you wish to install:\n"
  2822.                     "(Set 1 of 4)")
  2823.                 (help    ("These modules let you modify images within %s.\n" ProductBaseName)
  2824.                     "\n"
  2825.                     @askoptions-help)
  2826.                 (choices
  2827.                     "Antique"
  2828.                     "Apply_Map"
  2829.                     "Blur"
  2830.                     "Broadcast_Limit"
  2831.                     "Color_To_Gray"
  2832.                     "Colorize"
  2833.                     "Convolve"        ; 7
  2834.                     "Crop_Image"
  2835.                     "Crop_Visual"
  2836.                     "Define_Pxl_Aspect"
  2837.                     "DeInterlace"
  2838.                     "Displace_Pixel"
  2839.                     "Dynamic_Range"
  2840.                     "Gray_To_Color"        ; 14
  2841.                 )
  2842.             )
  2843.         )
  2844.         (set ADProOperatorsSet2
  2845.             (askoptions
  2846.                 (prompt    "Please select the Operator Modules you wish to install:\n"
  2847.                     "(Set 2 of 4)")
  2848.                 (help    ("These modules let you modify images within %s.\n" ProductBaseName)
  2849.                     "\n"
  2850.                     @askoptions-help)
  2851.                 (choices
  2852.                     "Halve"
  2853.                     "Horizontal_Flip"
  2854.                     "Interlace"
  2855.                     "KillTemp"
  2856.                     "Line_Art"
  2857.                     "Median_Filter"
  2858.                     "Mosaic"
  2859.                     "Negative"
  2860.                     "Pattern"        ; 9
  2861.                     "Rectangle"
  2862.                     "Rectangle_Visual"
  2863.                     "Rem_Isolated_Pxls"
  2864.                     "Rendered_To_Raw"
  2865.                     "Roll"            ; 14
  2866.                 )
  2867.             )
  2868.         )
  2869.         (set ADProOperatorsSet3
  2870.             (askoptions
  2871.                 (prompt    "Please select the Operator Modules you wish to install:\n"
  2872.                     "(Set 3 of 4)")
  2873.                 (help    ("These modules let you modify images within %s.\n" ProductBaseName)
  2874.                     "\n"
  2875.                     @askoptions-help)
  2876.                 (choices
  2877.                     "Saturation"
  2878.                     "Sim_Print"
  2879.                     "Text_Visual"
  2880.                     "Tile"
  2881.                     "Tile_Visual"
  2882.                     "Vertical_Flip"        ; 6
  2883.                 )
  2884.             )
  2885.         )
  2886.         (set ADProOperatorsSet4
  2887.             (askoptions
  2888.                 (prompt    "Please select the Operator Modules you wish to install:\n"
  2889.                     "(Set 4 of 4)")
  2890.                 (help    ("These modules let you modify images within %s.\n" ProductBaseName)
  2891.                     "\n"
  2892.                     @askoptions-help)
  2893.                 (choices
  2894.                     "Collapse"
  2895.                     "Hist_Equalization"
  2896.                     "Polar_Mosaic"
  2897.                     "Rotate"
  2898.                     "Twirl"            ; 5
  2899.                 )
  2900.             )
  2901.         )
  2902.         )
  2903.         (
  2904.         (set numBits    14)
  2905.         (calcBitMaskAllOn)
  2906.         (set ADProOperatorsSet1    BitMaskValue)
  2907.         (set numBits    14)
  2908.         (calcBitMaskAllOn)
  2909.         (set ADProOperatorsSet2    BitMaskValue)
  2910.         (set numBits    6)
  2911.         (calcBitMaskAllOn)
  2912.         (set ADProOperatorsSet3    BitMaskValue)
  2913.         (set numBits    5)
  2914.         (calcBitMaskAllOn)
  2915.         (set ADProOperatorsSet4    BitMaskValue)
  2916.         )
  2917.     )
  2918.  
  2919.     (set TotalFiles        (+ TotalFiles 39))    ; 14 + 14 + 6 + 5
  2920.     (set ADProOperatorsDir    (tackon ADProDir "Operators2"))
  2921.  
  2922.     (if (IN ADProOperatorsSet1 (- 7 1))
  2923.         (
  2924.         (set InstallConvolutions
  2925.             (askbool
  2926.                 (prompt "\nInstall supplied convolutions for Convolve operator?")
  2927.                 (help 
  2928.                     ("%s comes with a number of predefined convolution files. " ProductBaseName)
  2929.                     "These files contain useful convolution matrices developed by ASDG for your use. "
  2930.                     "These files are used with the Convolve operator and are quite small. If in doubt, "
  2931.                     "install these files."
  2932.                 )
  2933.             )
  2934.         )
  2935.         (if (= 1 InstallConvolutions)
  2936.             (set TotalFiles    (+ TotalFiles 28))    ; 28 convolutions
  2937.         )
  2938.  
  2939.         (set ConvolutionsDir    (tackon ADProDir "Convolutions"))
  2940.         )
  2941.         (set InstallConvolutions    0)
  2942.     )
  2943.  
  2944.     (if (IN ADProOperatorsSet2 (- 9 1))
  2945.         (
  2946.         (set InstallPatterns
  2947.             (askbool
  2948.                 (prompt "\nInstall supplied patterns for Pattern operator?")
  2949.                 (help 
  2950.                     ("%s comes with a number of predefined pattern files. " ProductBaseName)
  2951.                     "Since there are simple SCULPT files, you can create "
  2952.                     "your own patterns very easily."
  2953.                 )
  2954.             )
  2955.         )
  2956.         (if (= 1 InstallPatterns)
  2957.             (set TotalFiles    (+ TotalFiles 1))    ; 1 set of patterns
  2958.         )
  2959.  
  2960.         (set PatternsDir    (tackon ADProDir "Patterns"))
  2961.         )
  2962.         (set InstallPatterns    0)
  2963.     )
  2964.  
  2965.     ; ****************************
  2966.     ; * Set dot files based on operators selected.
  2967.     ; ****************************
  2968.     ;
  2969.     (set ADProOperatorsDot1    1)            ; .Edit_Palette
  2970.     (set TotalFiles    (+ TotalFiles 1))
  2971.  
  2972.     (onerror
  2973.         (cleanUp)
  2974.     )
  2975.  
  2976.  
  2977.     ; ****************************
  2978.     ; * Select the displays.
  2979.     ; ****************************
  2980.     ;
  2981. ;    (if (= @user-level 2)
  2982. ;        (
  2983.         (set ADProDisplaysSet1
  2984.             (askoptions
  2985.                 (prompt    "Please select the Display Modules you wish to install:\n"
  2986.                     "(Set 1 of 1)")
  2987.                 (help    "These modules let you render images directly to displays other than "
  2988.                     "the standard Amiga display.  The Amiga display module will be "
  2989.                     "installed automatically for you.\n"
  2990.                     "\n"
  2991.                     @askoptions-help)
  2992.                 (choices
  2993.                     "EGS"
  2994.                     "FC24"
  2995.                     "OpalVision"
  2996.                     "Picasso"
  2997.                     "Retina"        ; 5
  2998.                 )
  2999.             )
  3000.         )
  3001. ;        )
  3002. ;        (
  3003. ;        (set numBits    5)
  3004. ;        (calcBitMaskAllOn)
  3005. ;        (set ADProDisplaysSet1    BitMaskValue)
  3006. ;        )
  3007. ;    )
  3008.  
  3009.     (set TotalFiles        (+ TotalFiles 5))    ; 5
  3010.     (set TotalFiles        (+ TotalFiles 2))    ; 2 (Amiga, Window)
  3011.     (set ADProDisplaysDir    (tackon ADProDir "Displays2"))
  3012.  
  3013.     ; ****************************
  3014.     ; * Set dot files based on display selected.
  3015.     ; ****************************
  3016.     ;
  3017.     (set ADProDisplaysDot1    0)
  3018.  
  3019.     (onerror
  3020.         (cleanUp)
  3021.     )
  3022.  
  3023.  
  3024.     ; ****************************
  3025.     ; * Select the commands.
  3026.     ; ****************************
  3027.     ;
  3028.     (set ADProCommandsDir    (tackon ADProDir "Commands2"))
  3029.  
  3030.  
  3031.     ; ****************************
  3032.     ; * Set dot files based on commands selected.
  3033.     ; ****************************
  3034.     ;
  3035.     (set ADProCommandsDot1    0)
  3036.  
  3037.     (onerror
  3038.         (cleanUp)
  3039.     )
  3040.     )
  3041. )
  3042.  
  3043.  
  3044. ; ****************************
  3045. ; * if (PkgOpts & 2), ask the user which Expansion Modules to install
  3046. ; * but don't actually do it yet.
  3047. ; ****************************
  3048. ;
  3049. (if (IN PkgOpts 2)                ; if bit position 2 is on
  3050.     (
  3051.     ; ****************************
  3052.     ; * Select the expansion loaders.
  3053.     ; ****************************
  3054.     ;
  3055.     (if (= @user-level 2)
  3056.         (
  3057.         (set ADProLoadersExpansSet1
  3058.             (askoptions
  3059.                 (prompt    "Please select the Expansion Loader Modules you wish to install:\n"
  3060.                     "(Set 1 of 1)")
  3061.                 (help    ("These modules let you import images into %s.\n" ProductBaseName)
  3062.                     "\n"
  3063.                     @askoptions-help)
  3064.                 (choices
  3065.                     "CDXL"
  3066.                     "FC24"
  3067.                     "FRAMEGRABBER"
  3068.                     "HAME"
  3069.                     "IV24"            ; 5
  3070.                 )
  3071.             )
  3072.         )
  3073.         )
  3074.         (
  3075.         (set numBits    5)
  3076.         (calcBitMaskAllOn)
  3077.         (set ADProLoadersExpansSet1    BitMaskValue)
  3078.         )
  3079.     )
  3080.  
  3081.     (set TotalFiles            (+ TotalFiles 5))    ; 5
  3082.     (set ADProLoadersDir        (tackon ADProDir "Loaders2"))
  3083.  
  3084.  
  3085.     ; ****************************
  3086.     ; * Select the expansion savers.
  3087.     ; ****************************
  3088.     ;
  3089.     (if (= @user-level 2)
  3090.         (
  3091.         (set ADProSaversExpansSet1
  3092.             (askoptions
  3093.                 (prompt    "Please select the Expansion Saver Modules you wish to install:\n"
  3094.                     "(Set 1 of 1)")
  3095.                 (help    ("These modules let you export images from %s.\n" ProductBaseName)
  3096.                     "\n"
  3097.                     @askoptions-help)
  3098.                 (choices
  3099.                     "A2410"
  3100.                     "CDXL"
  3101.                     "FC24"
  3102.                     "HAME"
  3103.                     "HARLEQUIN"
  3104.                     "IV24"
  3105.                     "RESOLVER"
  3106.                     "VT_BUFFER"        ; 8
  3107.                 )
  3108.             )
  3109.         )
  3110.         )
  3111.         (
  3112.         (set numBits    8)
  3113.         (calcBitMaskAllOn)
  3114.         (set ADProSaversExpansSet1    BitMaskValue)
  3115.         )
  3116.     )
  3117.  
  3118.     (set TotalFiles            (+ TotalFiles 8))    ; 8
  3119.     (set ADProSaversDir        (tackon ADProDir "Savers2"))
  3120.  
  3121.  
  3122.     ; ****************************
  3123.     ; * Select the expansion operators.
  3124.     ; ****************************
  3125.     ;
  3126.     (if (= @user-level 2)
  3127.         (
  3128.         (set ADProOperatorsExpansSet1
  3129.             (askoptions
  3130.                 (prompt    "Please select the Expansion Operator Modules you wish to install:\n"
  3131.                     "(Set 1 of 1)")
  3132.                 (help    ("These modules let you manipulate images within %s.\n" ProductBaseName)
  3133.                     "\n"
  3134.                     @askoptions-help)
  3135.                 (choices
  3136.                     "DCTV"            ; 1
  3137.                     "TPort_Controller"    ; 2
  3138.                 )
  3139.             )
  3140.         )
  3141.         )
  3142.         (
  3143.         (set numBits    2)
  3144.         (calcBitMaskAllOn)
  3145.         (set ADProOperatorsExpansSet1    BitMaskValue)
  3146.         )
  3147.     )
  3148.  
  3149.     (if (IN ADProOperatorsExpansSet1 (- 1 1))        ; DCTV -> dctv.library
  3150.         (
  3151.         (set InstallDCTVLib 1)
  3152.         (set TotalFiles    (+ TotalFiles 1))
  3153.         )
  3154.         (set InstallDCTVLib 0)
  3155.     )
  3156.  
  3157.     (set TotalFiles            (+ TotalFiles 2))    ; 2
  3158.     (set ADProOperatorsDir        (tackon ADProDir "Operators2"))
  3159.     )
  3160. )
  3161.  
  3162.  
  3163. ; ****************************
  3164. ; * if (PkgOpts & 3), ask the user which Independent (Third-Party) Modules to install
  3165. ; * but don't actually do it yet.
  3166. ; ****************************
  3167. ;
  3168. (if (IN PkgOpts 3)                ; if bit position 3 is on
  3169.     (
  3170.     ; ****************************
  3171.     ; * Select the independent (third-party) loaders.
  3172.     ; ****************************
  3173.     ;
  3174.     (if (= @user-level 2)
  3175.         (
  3176.         (set ADProLoadersIndepSet1
  3177.             (askoptions
  3178.                 (prompt    "Please select the Third-Party Loader Modules you wish to install:\n"
  3179.                     "(Set 1 of 1)")
  3180.                 (help    ("These modules let you import images into %s.\n" ProductBaseName)
  3181.                     "\n"
  3182.                     @askoptions-help)
  3183.                 (choices
  3184.                     "FLC"
  3185.                     "FRACTAL2000"        ; 2
  3186.                     "ICO"
  3187.                     "ICON"
  3188.                     "PAR_PEG"
  3189.                     "VLAB"
  3190.                     "YUVN"            ; 7
  3191.                 )
  3192.             )
  3193.         )
  3194.         )
  3195.         (
  3196.         (set numBits    7)
  3197.         (calcBitMaskAllOn)
  3198.         (set ADProLoadersIndepSet1    BitMaskValue)
  3199.         )
  3200.     )
  3201.  
  3202.     (set TotalFiles            (+ TotalFiles 7))    ; 7
  3203.     (set ADProLoadersDir        (tackon ADProDir "Loaders2"))
  3204.  
  3205.     (if (IN ADProLoadersIndepSet1 (- 2 1))
  3206.         (
  3207.         (set InstallF2KIters
  3208.             (askbool
  3209.                 (prompt "\nInstall sample iteration files for FRACTAL2000 loader?")
  3210.                 (help 
  3211.                     ("%s comes with a few iteration files created with CygnusSoft's Mand2000 " ProductBaseName)
  3212.                     "mandelbrot program for use with the FRACTAL2000 loader.  Additional "
  3213.                     "iteration files can be created with the registered version of "
  3214.                     "Mand2000, available from CygnusSoft.  Consult the User Manual for "
  3215.                     "information on contacting CygnusSoft."
  3216.                 )
  3217.             )
  3218.         )
  3219.         (if (= 1 InstallF2KIters)
  3220.             (
  3221.             (set TotalFiles    (+ TotalFiles 1))    ; 1 set of files
  3222.  
  3223.             (set setDirPathWhy    "where you want to install the sample FRACTAL2000 iteration files.")
  3224.             (set setDirPathHelp    ("We suggest you install them either in the same directory as %s or in a directory of its own.\n" ProductBaseName))
  3225.             (set DirPath        ADProDir)
  3226.             (setDirPath)
  3227.  
  3228.             (set F2KItersDir    DirPath)
  3229.             )
  3230.         )
  3231.         )
  3232.         (set InstallF2KIters    0)
  3233.     )
  3234.  
  3235.  
  3236.     ; ****************************
  3237.     ; * Select the independent (third-party) savers.
  3238.     ; ****************************
  3239.     ;
  3240.     (if (= @user-level 2)
  3241.         (
  3242.         (set ADProSaversIndepSet1
  3243.             (askoptions
  3244.                 (prompt    "Please select the Third-Party Saver Modules you wish to install:\n"
  3245.                     "(Set 1 of 1)")
  3246.                 (help    ("These modules let you export images from %s.\n" ProductBaseName)
  3247.                     "\n"
  3248.                     @askoptions-help)
  3249.                 (choices
  3250.                     "ICON"
  3251.                     "OPALVISION"
  3252.                     "PICASSO"
  3253.                     "RETINA"        ; 4
  3254.                 )
  3255.             )
  3256.         )
  3257.         )
  3258.         (
  3259.         (set numBits    4)
  3260.         (calcBitMaskAllOn)
  3261.         (set ADProSaversIndepSet1    BitMaskValue)
  3262.         )
  3263.     )
  3264.  
  3265.     (set TotalFiles        (+ TotalFiles 4))        ; 4
  3266.     (set ADProSaversDir    (tackon ADProDir "Savers2"))
  3267.  
  3268.  
  3269.     ; ****************************
  3270.     ; * Select the independent (third-party) operators.
  3271.     ; ****************************
  3272.     ;
  3273.     (if (= @user-level 2)
  3274.         (
  3275.         (set ADProOperatorsIndepSet1
  3276.             (askoptions
  3277.                 (prompt    "Please select the Third-Party Operator Modules you wish to install:\n"
  3278.                     "(Set 1 of 1)")
  3279.                 (help    ("These modules let you modify images within %s.\n" ProductBaseName)
  3280.                     "\n"
  3281.                     @askoptions-help)
  3282.                 (choices
  3283.                     "Intensity_Range"
  3284.                     "OpalPaint"        ; 2
  3285.                 )
  3286.             )
  3287.         )
  3288.         )
  3289.         (
  3290.         (set numBits    2)
  3291.         (calcBitMaskAllOn)
  3292.         (set ADProOperatorsIndepSet1    BitMaskValue)
  3293.         )
  3294.     )
  3295.  
  3296.     (set TotalFiles        (+ TotalFiles 2))        ; 2
  3297.     (set ADProOperatorsDir    (tackon ADProDir "Operators2"))
  3298.     )
  3299. )
  3300.  
  3301.  
  3302. ; ****************************
  3303. ; * if (PkgOpts & 4), ask the user which Pseudo Modules to install
  3304. ; * but don't actually do it yet.
  3305. ; ****************************
  3306. ;
  3307. (if (IN PkgOpts 4)                ; if bit position 4 is on
  3308.     (
  3309.     ; ****************************
  3310.     ; * Select the pseudo loaders.
  3311.     ; ****************************
  3312.     ;
  3313.     (if (= @user-level 2)
  3314.         (
  3315.         (set ADProLoadersPseudoSet1
  3316.             (askoptions
  3317.                 (prompt    "Please select the Pseudo Loader Modules you wish to install:\n"
  3318.                     "(Set 1 of 1)")
  3319.                 (help    ("These modules let you import images into %s.\n" ProductBaseName)
  3320.                     "ARexx must be installed and running to use these modules.\n"
  3321.                     "\n"
  3322.                     @askoptions-help)
  3323.                 (choices
  3324.                     "_LoadNShowFC24"
  3325.                     "_LoadNShowOV"
  3326.                     "_LoadNShowPICASSO"
  3327.                     "_LoadNShowRETINA"
  3328.                     "_VT_Grab"        ; 5
  3329.                 )
  3330.             )
  3331.         )
  3332.         )
  3333.         (
  3334.         (set numBits    5)
  3335.         (calcBitMaskAllOn)
  3336.         (set ADProLoadersPseudoSet1    BitMaskValue)
  3337.         )
  3338.     )
  3339.  
  3340.     (set TotalFiles            (+ TotalFiles 5))    ; 5
  3341.     (set ADProLoadersDir        (tackon ADProDir "Loaders2"))
  3342.  
  3343.  
  3344.     ; ****************************
  3345.     ; * Select the pseudo savers.
  3346.     ; ****************************
  3347.     ;
  3348.     (if (= @user-level 2)
  3349.         (
  3350.         (set ADProSaversPseudoSet1
  3351.             (askoptions
  3352.                 (prompt    "Please select the Pseudo Saver Modules you wish to install:\n"
  3353.                     "(Set 1 of 1)")
  3354.                 (help    ("These modules let you export images from %s.\n" ProductBaseName)
  3355.                     "ARexx must be installed and running to use these modules.\n"
  3356.                     "\n"
  3357.                     @askoptions-help)
  3358.                 (choices
  3359.                     "_MultiCopyPREFPRINTER"
  3360.                     "_SCULPTWithDimen"
  3361.                     "_VT_Display"        ; 3
  3362.                 )
  3363.             )
  3364.         )
  3365.         )
  3366.         (
  3367.         (set numBits    3)
  3368.         (calcBitMaskAllOn)
  3369.         (set ADProSaversPseudoSet1    BitMaskValue)
  3370.         )
  3371.     )
  3372.  
  3373.     (set TotalFiles            (+ TotalFiles 3))    ; 3
  3374.     (set ADProSaversDir        (tackon ADProDir "Savers2"))
  3375.  
  3376.  
  3377.     ; ****************************
  3378.     ; * Select the pseudo operators.
  3379.     ; ****************************
  3380.     ;
  3381.     (if (= @user-level 2)
  3382.         (
  3383.         (set ADProOperatorsPseudoSet1
  3384.             (askoptions
  3385.                 (prompt    "Please select the Pseudo Operator Modules you wish to install:\n"
  3386.                     "(Set 1 of 1)")
  3387.                 (help    ("These modules let you manipulate images within %s.\n" ProductBaseName)
  3388.                     "ARexx must be installed and running to use these modules.\n"
  3389.                     "\n"
  3390.                     @askoptions-help)
  3391.                 (choices
  3392.                     "_ColorCharcoal"
  3393.                     "_DoubleSize"
  3394.                     "_Emboss"
  3395.                     "_Fresco"
  3396.                     "_Highlight"
  3397.                     "_Mirror"
  3398.                     "_OilPaint"
  3399.                     "_RemapNRerender"
  3400.                     "_RotateImage"
  3401.                     "_ScaleToPixelAspect"
  3402.                     "_Solarize"        ; 11
  3403.                 )
  3404.             )
  3405.         )
  3406.         )
  3407.         (
  3408.         (set numBits    11)
  3409.         (calcBitMaskAllOn)
  3410.         (set ADProOperatorsPseudoSet1    BitMaskValue)
  3411.         )
  3412.     )
  3413.  
  3414.     (set TotalFiles            (+ TotalFiles 11))    ; 11
  3415.     (set ADProOperatorsDir        (tackon ADProDir "Operators2"))
  3416.     )
  3417. )
  3418.  
  3419.  
  3420. ; ****************************
  3421. ; * if (PkgOpts & 5), ask the user where to install the FRED (FRame EDitor)
  3422. ; * program, but don't actually do it yet.
  3423. ; ****************************
  3424. ;
  3425. ;(if (= (getassign "ADP_FRED" "a") "")
  3426.     (set defaultFREDDir @default-dest)
  3427. ;    (set defaultFREDDir (getassign "ADP_FRED" "a"))
  3428. ;)
  3429. (if (IN PkgOpts 5)                ; if bit position 5 is on
  3430.     (
  3431.     (set setDirPathWhy    "where you want to install the FRED program.")
  3432.     (set setDirPathHelp    ("We suggest you install the FRED (FRame EDitor) into the directory where %s (or %s, if you have it) is located.\n" ProductBaseName ADProLiteName))
  3433.     (set DirPath        defaultFREDDir)
  3434.     (setDirPath)
  3435.  
  3436.     (set FREDDir        DirPath)
  3437.  
  3438.     (set TotalFiles (+ TotalFiles 2))            ; FRED + icon
  3439.  
  3440.     (set TotalFiles (+ TotalFiles 3))            ; Cinemorph, Compositor, TimeStretch
  3441.     )
  3442. )
  3443.  
  3444.  
  3445. ; ****************************
  3446. ; * if (PkgOpts & 6), ask the user where to install the ADPro and FRED
  3447. ; * ARexx scripts, but don't actually do it yet.
  3448. ; ****************************
  3449. ;
  3450. (if (IN PkgOpts 6)                ; if bit position 6 is on
  3451.     (
  3452.     (set ADProCommandsDir        (tackon ADProDir "Commands2"))
  3453.     (onerror
  3454.         (abort    ("The directory %s could not be created. " ADProCommandsDir)
  3455.             "This might be because your destination disk or drawer "
  3456.             "has no room or is write protected. This installation "
  3457.             "cannot continue."
  3458.         )
  3459.     )
  3460.     (if (= (exists ADProCommandsDir) 0)
  3461.         (makedir ADProCommandsDir)
  3462.     )
  3463.  
  3464.     (set ADProCommandsDir        (tackon ADProDir "FREDScripts"))
  3465.     (onerror
  3466.         (abort    ("The directory %s could not be created. " ADProCommandsDir)
  3467.             "This might be because your destination disk or drawer "
  3468.             "has no room or is write protected. This installation "
  3469.             "cannot continue."
  3470.         )
  3471.     )
  3472.     (if (= (exists ADProCommandsDir) 0)
  3473.         (makedir ADProCommandsDir)
  3474.     )
  3475.  
  3476.     (onerror
  3477.         (cleanUp)
  3478.     )
  3479.     )
  3480. )
  3481. (if (OR (OR (OR (OR (OR (OR (OR (IN PkgOpts 0) (IN PkgOpts 1)) (IN PkgOpts 2)) (IN PkgOpts 3)) (IN PkgOpts 4)) (IN PkgOpts 6)) (IN PkgOpts 8)) (IN PkgOpts 11))
  3482.     (
  3483.     (if (<> (getassign "ADPROSCRIPTS" "a") "")
  3484.         (set defaultADProScriptDir (getassign "ADPROSCRIPTS" "a"))
  3485.         (
  3486.         (if (<> (exists (tackon ADProDir "Commands2")) 0)
  3487.             (set defaultADProScriptDir (tackon ADProDir "Commands2"))
  3488.             (if (<> (exists (tackon ADProDir "Rexx")) 0)
  3489.                 (set defaultADProScriptDir (tackon ADProDir "Rexx"))
  3490.                 (
  3491.                 (if (<> (exists (tackon ADProDir "Scripts")) 0)
  3492.                     (set defaultADProScriptDir (tackon ADProDir "Scripts"))
  3493.                     (set defaultADProScriptDir "REXX:")
  3494.                 )
  3495.                 )
  3496.             )
  3497.         )
  3498.         )
  3499.     )
  3500.     (if (<> (getassign "FREDSCRIPTS" "a") "")
  3501.         (set defaultFREDScriptDir (getassign "FREDSCRIPTS" "a"))
  3502.         (
  3503.         (if (<> (exists (tackon ADProDir "FREDScripts")) 0)
  3504.             (set defaultFREDScriptDir (tackon ADProDir "FREDScripts"))
  3505.             (if (<> (exists (tackon ADProDir "Rexx")) 0)
  3506.                 (set defaultFREDScriptDir (tackon ADProDir "Rexx"))
  3507.                 (
  3508.                 (if (<> (exists (tackon ADProDir "Scripts")) 0)
  3509.                     (set defaultFREDScriptDir (tackon ADProDir "Scripts"))
  3510.                     (set defaultFREDScriptDir "REXX:")
  3511.                 )
  3512.                 )
  3513.             )
  3514.         )
  3515.         )
  3516.     )
  3517.     )
  3518. )
  3519. (if (IN PkgOpts 6)                ; if bit position 6 is on
  3520.     (
  3521.     (if (= @user-level 2)
  3522.         (
  3523.         (set setDirPathWhy    "where you want to install the ADPro ARexx scripts.")
  3524.         (set setDirPathHelp    ("You must select a directory into which the ADPro ARexx scripts will be installed.  We suggest the ADPRO:Commands2 subdirectory so that the function and keypad key macros will be available to you from the %s user interface\n" ProductBaseName))
  3525.         (set DirPath        defaultADProScriptDir)
  3526.         (setDirPath)
  3527.  
  3528.         (set ADProScriptDir    DirPath)
  3529.         )
  3530.         (
  3531.         (set InstallScriptsInCommands2Msg (cat
  3532.             "\n*** NOTE ***\n\n"
  3533.             ("The %s ARexx scripts will be installed in a special directory " ProductBaseName)
  3534.             "so that you can easily access them from the main control window.\n"
  3535.             "\n"
  3536.             ("If you had previously installed older %s ARexx scripts, " ProductBaseName)
  3537.             "please note that they will not be deleted.  You might "
  3538.             ("want to delete them yourself, and move any of your own %s " ProductBaseName)
  3539.             "scripts over to the ADPRO:Commands2 directory after the installation "
  3540.             "has completed."))
  3541.  
  3542.         (message InstallScriptsInCommands2Msg
  3543.             (help    "This message is displayed to remind you that the "
  3544.                 "ARexx scripts will be installed in a special directory "
  3545.                 "for your convenience.")
  3546.         )
  3547.  
  3548.         (set ADProScriptDir    (tackon ADProDir "Commands2"))
  3549.         )
  3550.     )
  3551.  
  3552.     (set defaultADProScriptDir    ADProScriptDir)
  3553.     (set TotalFiles    (+ TotalFiles 1))        ; 1 operation
  3554.  
  3555.     (if (= @user-level 2)
  3556.         (
  3557.         (set setDirPathWhy    "where you want to install the FRED (Invoke ADPro) ARexx scripts.")
  3558.         (set setDirPathHelp    ("You must select a directory into which the FRED ARexx scripts will be installed.  We suggest %s:FREDScripts so that the scripts will be located in the same directory as %s.\n" ProductBaseName ProductBaseName))
  3559.         (set DirPath        defaultFREDScriptDir)
  3560.         (setDirPath)
  3561.  
  3562.         (set FREDScriptDir    DirPath)
  3563.         )
  3564.         (
  3565.         (set InstallScriptsInFREDScriptsMsg (cat
  3566.             "\n*** NOTE ***\n\n"
  3567.             "The FRED ARexx scripts will be installed in the same directory "
  3568.             ("as the %s program to keep the %s-related files together.\n" ProductBaseName ProductBaseName)
  3569.             "\n"
  3570.             "If you had previously installed older FRED ARexx scripts, "
  3571.             "please note that they will not be deleted.  You might "
  3572.             "want to delete them yourself, and move any of your own FRED ARexx "
  3573.             "scripts over to the ADPRO:FREDScripts directories after the installation "
  3574.             "has completed."))
  3575.  
  3576.         (message InstallScriptsInFREDScriptsMsg
  3577.             (help    "This message is displayed to remind you that the "
  3578.                 "ARexx scripts will be installed in a special directory "
  3579.                 "for your convenience.")
  3580.         )
  3581.  
  3582.         (set FREDScriptDir    (tackon ADProDir "FREDScripts"))
  3583.         )
  3584.     )
  3585.  
  3586.     (set defaultFREDScriptDir    FREDScriptDir)
  3587.     (set TotalFiles    (+ TotalFiles 1))        ; 1 operation
  3588.     )
  3589. )
  3590.  
  3591.  
  3592. ; ****************************
  3593. ; * if (PkgOpts & 7), ask the user where to install the Splitz & Joinz
  3594. ; * programs, but don't actually do it yet.
  3595. ; ****************************
  3596. ;
  3597. (if (= (exists (tackon @default-dest "Utilities")) 0)
  3598.     (set defaultUtilDir @default-dest)
  3599.     (set defaultUtilDir (tackon @default-dest "Utilities"))
  3600. )
  3601. (if (IN PkgOpts 7)                ; if bit position 7 is on
  3602.     (
  3603.     (set SJOpts
  3604.         (askoptions
  3605.             (prompt
  3606.                 "Select the versions of Splitz & Joinz you want to install at this time."
  3607.             )
  3608.             (help
  3609.                 "This part of the installation procedure lets you select the "
  3610.                 "versions of Splitz & Joinz that should be installed at this time.\n"
  3611.                 "\n"
  3612.                 @askoptions-help
  3613.             )
  3614.             (choices
  3615.                 ; bit position 0 -- todo & 1
  3616.                 ;
  3617.                 "Amiga Version"
  3618.  
  3619.                 ; bit position 1 -- todo & 2
  3620.                 ;
  3621.                 "Macintosh Version"
  3622.  
  3623.                 ; bit position 2 -- todo & 4
  3624.                 ;
  3625.                 "PC/MS-DOS Version"
  3626.  
  3627.                 ; bit position 3 -- todo & 8
  3628.                 ;
  3629.                 "PC/MS-Windows Version"
  3630.             )
  3631.         )
  3632.     )
  3633.  
  3634.     (set SJDir    defaultUtilDir)
  3635.  
  3636.     (if (IN SJOpts 0)                ; Amiga version
  3637.         (
  3638.         (set setDirPathWhy    "where you want to install the Amiga version of Splitz & Joinz.")
  3639.         (set setDirPathHelp    "You must select a directory into which the Amiga Splitz & Joinz files will be installed.\n")
  3640.         (set DirPath        SJDir)
  3641.         (setDirPath)
  3642.         (set SJAmigaDir        DirPath)
  3643.         (set SJDir        SJAmigaDir)
  3644.  
  3645.         (set TotalFiles (+ TotalFiles 4))    ; 2 pgms + 2 icons
  3646.         )
  3647.     )
  3648.     (set defaultUtilDir    SJDir)
  3649.     (if (IN SJOpts 1)                ; Macintosh version
  3650.         (
  3651.         (set setDirPathWhy    "where you want to install the Macintosh version of Splitz & Joinz.")
  3652.         (set setDirPathHelp    "You must select a directory into which the Macintosh Splitz & Joinz files will be installed. Please read the section in the manual regarding installation of Mac Splitz & Joinz.\n")
  3653.         (set DirPath        SJDir)
  3654.         (setDirPath)
  3655.         (set SJMacDir        DirPath)
  3656.         (set SJDir        SJMacDir)
  3657.  
  3658.         (set TotalFiles (+ TotalFiles 2))    ; 2 pgms
  3659.         )
  3660.     )
  3661.     (if (IN SJOpts 2)                ; PC/MS-DOS version
  3662.         (
  3663.         (set setDirPathWhy    "where you want to install the PC/MS-DOS version of Splitz & Joinz.")
  3664.         (set setDirPathHelp    "You must select a directory into which the PC/MS-DOS Splitz & Joinz files will be installed. Please read the section in the manual regarding installation of DOS Splitz & Joinz.\n")
  3665.         (set DirPath        SJDir)
  3666.         (setDirPath)
  3667.         (set SJDOSDir        DirPath)
  3668.         (set SJDir        SJDOSDir)
  3669.  
  3670.         (set TotalFiles (+ TotalFiles 2))    ; 2 pgms
  3671.         )
  3672.     )
  3673.     (if (IN SJOpts 3)                ; PC/MS-Windows version
  3674.         (
  3675.         (set setDirPathWhy    "where you want to install the PC/MS-Windows version of Splitz & Joinz.")
  3676.         (set setDirPathHelp    "You must select a directory into which the PC/MS-Windows Splitz & Joinz files will be installed. Please read the section in the manual regarding installation of Windows Splitz & Joinz.\n")
  3677.         (set DirPath        SJDir)
  3678.         (setDirPath)
  3679.         (set SJWindowsDir    DirPath)
  3680.         (set SJDir        SJWindowsDir)
  3681.  
  3682.         (set TotalFiles (+ TotalFiles 3))    ; 3 pgms
  3683.         )
  3684.     )
  3685.     )
  3686. )
  3687.  
  3688.  
  3689. ; ****************************
  3690. ; * if (PkgOpts & 8), ask the user where to install the ZapDPI
  3691. ; * programs, but don't actually do it yet.
  3692. ; ****************************
  3693. ;
  3694. (if (IN PkgOpts 8)                ; if bit position 8 is on
  3695.     (
  3696.     (set ZapDPIOpts
  3697.         (askoptions
  3698.             (prompt
  3699.                 "Select the parts of the ZapDPI utility you want to install at this time."
  3700.             )
  3701.             (help
  3702.                 "This sequence is divided into two steps:\n"
  3703.                 "\n"
  3704.                 "1. In this step, you can install the programs supplied "
  3705.                 "by ASDG to patch IFF files written by ADPro 2.0.0 (or later) "
  3706.                 "to make them work properly with Professional Page 2.X. "
  3707.                 "Please read the section in the User Manual regarding ZapDPI "
  3708.                 "for more information.\n"
  3709.                 "\n"
  3710.                 "2. In this step, you can add a few additional ARexx scripts for use with ZapDPI. "
  3711.                 "If you don't have ARexx, you can skip this step. If you do own "
  3712.                 "ARexx and intend to use ZapDPI, you should select this step.\n"
  3713.                 "\n"
  3714.                 @askoptions-help
  3715.             )
  3716.             (choices
  3717.                 ; bit position 0 -- todo & 1
  3718.                 ;
  3719.                 "IFF Patch Programs"
  3720.  
  3721.                 ; bit position 1 -- todo & 2
  3722.                 ;
  3723.                 "ARexx Interface to the IFF Patch Programs"
  3724.             )
  3725.         )
  3726.     )
  3727.  
  3728.     (if (IN ZapDPIOpts 0)                ; ZapDPI Program
  3729.         (
  3730.         (set setDirPathWhy    "where you want to install the ZapDPI utility.")
  3731.         (set setDirPathHelp    "Please consult the manual for more information.\n")
  3732.         (set DirPath        defaultUtilDir)
  3733.         (setDirPath)
  3734.         (set ZapDPIPgmDir    DirPath)
  3735.         (set defaultUtilDir    ZapDPIPgmDir)
  3736.  
  3737.         (set TotalFiles (+ TotalFiles 2))    ; 1 pgm + 1 icon
  3738.         )
  3739.     )
  3740.     (if (IN ZapDPIOpts 1)                ; ZapDPI Scripts
  3741.         (
  3742.         (if (= @user-level 2)
  3743.             (
  3744.             (set setDirPathWhy    "where you want to install the ARexx scripts that call the ZapDPI utility.")
  3745.             (set setDirPathHelp    ("We suggest you install these scripts in the same directory as your other %s ARexx scripts.\n" ProductBaseName))
  3746.             (set DirPath        defaultADProScriptDir)
  3747.             (setDirPath)
  3748.             (set ZapDPIScriptsDir    DirPath)
  3749.             )
  3750.             (
  3751.             (set ADProCommandsDir        (tackon ADProDir "Commands2"))
  3752.             (onerror
  3753.                 (abort    ("The directory %s could not be created. " ADProCommandsDir)
  3754.                     "This might be because your destination disk or drawer "
  3755.                     "has no room or is write protected. This installation "
  3756.                     "cannot continue."
  3757.                 )
  3758.             )
  3759.             (if (= (exists ADProCommandsDir) 0)
  3760.                 (makedir ADProCommandsDir)
  3761.             )
  3762.             (onerror
  3763.                 (cleanUp)
  3764.             )
  3765.  
  3766.             (set ZapDPIScriptsDir    ADProCommandsDir)
  3767.             )
  3768.         )
  3769.  
  3770.         (set TotalFiles (+ TotalFiles 3))    ; 3 scripts
  3771.         )
  3772.     )
  3773.     )
  3774. )
  3775.  
  3776.  
  3777. ; ****************************
  3778. ; * if (PkgOpts & 9), ask the user where to install the File Sentry
  3779. ; * programs, but don't actually do it yet.
  3780. ; ****************************
  3781. ;
  3782. (if (IN PkgOpts 9)                ; if bit position 9 is on
  3783.     (
  3784.     (set setDirPathWhy    "where you want to install the File Sentry program.")
  3785.     (set setDirPathHelp    "This panel is asking in which directory the File Sentry utility should be installed.\n")
  3786.     (set DirPath        defaultUtilDir)
  3787.     (setDirPath)
  3788.  
  3789.     (set FileSentryDir    DirPath)
  3790.     (set defaultUtilDir    FileSentryDir)
  3791.  
  3792.     (set TotalFiles (+ TotalFiles 2))            ; File Sentry + icon
  3793.     )
  3794. )
  3795.  
  3796.  
  3797. ; ****************************
  3798. ; * if (PkgOpts & 10), ask the user where to install the View program and
  3799. ; * documentation, but don't actually do it yet.
  3800. ; ****************************
  3801. ;
  3802. (if (IN PkgOpts 10)                ; if bit position 10 is on
  3803.     (
  3804.     (set setDirPathWhy    "where you want to install the View program.")
  3805.     (set setDirPathHelp    "View 3.6 is an ANIM OpCode-8 (ANIM-8) compatible IFF/ANIM viewer. Michael Hartman has graciously given us permission to include this utility with this package.\n")
  3806.     (set DirPath        defaultUtilDir)
  3807.     (setDirPath)
  3808.  
  3809.     (set ViewDir        DirPath)
  3810.     (set defaultUtilDir    ViewDir)
  3811.  
  3812.     (set TotalFiles (+ TotalFiles 3))            ; View + icon + docs
  3813.     )
  3814. )
  3815.  
  3816.  
  3817. ; ****************************
  3818. ; * if (PkgOpts & 11), ask the user where to install the tutorial files,
  3819. ; * but don't actually do it yet.
  3820. ; ****************************
  3821. ;
  3822. (if (IN PkgOpts 11)                ; if bit position 11 is on
  3823.     (
  3824.     (if (<> (exists (tackon ADProDir "Tutorials")) 0)
  3825.         (set TutorialsDir    (tackon ADProDir "Tutorials"))
  3826.         (set TutorialsDir    @default-dest)
  3827.     )
  3828.  
  3829.     (set setDirPathWhy    "where you want to install the Tutorial files.")
  3830.     (set setDirPathHelp    ("Install the tutorial files if you want to go through the tutorials in the User Manual.  We suggest you install them in a subdirectory called \"Tutorials\" in the same directory as the %s program for easy access.\n" ProductBaseName))
  3831.     (set DirPath        TutorialsDir)
  3832.     (setDirPath)
  3833.  
  3834.     (set TutorialsDir    DirPath)
  3835.  
  3836.     (set TotalFiles (+ TotalFiles 1))            ; 1 set of tutorial files
  3837.     )
  3838. )
  3839.  
  3840.  
  3841. ; ****************************
  3842. ; * if (PkgOpts & 12), ask the user where to install the package's ReadMe file
  3843. ; * from disk 1.
  3844. ; ****************************
  3845. ;
  3846. (if (IN PkgOpts 12)                ; if bit position 12 is on
  3847.     (
  3848.     (set setDirPathWhy    "where you want to install the ReadMe file.")
  3849.     (set setDirPathHelp    "Although the ReadMe file will be displayed at the end of the installation process, you should install it onto your floppy or hard disk for future reference.  There is a lot of important information in the ReadMe which for one reason or another was left out of the manual and addendum.\n")
  3850.     (set DirPath        @default-dest)
  3851.     (setDirPath)
  3852.  
  3853.     (set ReadMeDir        DirPath)
  3854.  
  3855.     (set TotalFiles (+ TotalFiles 2))            ; ReadMe + icon
  3856.     )
  3857. )
  3858.  
  3859.  
  3860. (set TotalFiles    (+ TotalFiles 1))                ; lhex
  3861.  
  3862.  
  3863. (set userStartupCmds "")
  3864.  
  3865. (if (IN PkgOpts 0)
  3866.     (
  3867.     (makeassign "ADPRO"        ADProDir)
  3868.     (set userStartupCmds        (cat userStartupCmds
  3869.         ("Assign ADPRO: \"%s\"\n" ADProDir)))
  3870.     )
  3871. )
  3872. (if (IN PkgOpts 5)
  3873.     (
  3874.     (makeassign "ADP_FRED"        FREDDir)
  3875.     (set userStartupCmds        (cat userStartupCmds
  3876.         ("Assign ADP_FRED: \"%s\"\n" FREDDir)))
  3877.     )
  3878. )
  3879. (if (IN PkgOpts 6)
  3880.     (
  3881.     (makeassign "ADPROSCRIPTS"    ADProScriptDir)
  3882.     (set userStartupCmds        (cat userStartupCmds
  3883.         ("Assign ADPROSCRIPTS: \"%s\"\n" ADProScriptDir)))
  3884.  
  3885.     (makeassign "FREDSCRIPTS"    FREDScriptDir)
  3886.     (set userStartupCmds        (cat userStartupCmds
  3887.         ("Assign FREDSCRIPTS: \"%s\"\n" FREDScriptDir)))
  3888.     )
  3889. )
  3890.  
  3891. (if (OR (IN PkgOpts 0) (OR (IN PkgOpts 5) (IN PkgOpts 6)))
  3892.     (startup
  3893.         "ADPro & MorphPlus"
  3894.         (prompt "\nThe following assignments have been made:\n"
  3895.             "\n"
  3896.             userStartupCmds
  3897.             "\n\n"
  3898.             "Do you want them added to your startup file?\n")
  3899.         (help    "When the Installer program asks if you want to place "
  3900.             "these assignments into your startup file, you should select "
  3901.             "the Proceed button; otherwise, the next time you boot up "
  3902.             "your machine, the programs won't be able to find the necessary "
  3903.             "files they need to run.\n"
  3904.             "\n"
  3905.             "Select the Proceed button to add the assignments to your "
  3906.             "startup file (S:user-startup).\n"
  3907.             "\n"
  3908.             @startup-help)
  3909.         (command userStartupCmds)
  3910.     )
  3911. )
  3912.  
  3913.  
  3914. (complete 0)
  3915.  
  3916. (message "\nShall I proceed with the installation?"
  3917.     (help    "Once you press the Proceed button, the selected items will be installed. This is your last chance "
  3918.         "to abort this procedure without partially installing the selected files.\n"
  3919.         "\n"
  3920.         "After you press Proceed, you can use the Esc key to abort the installation procedure.\n")
  3921. )
  3922.  
  3923.  
  3924. ;+++
  3925. ; ****************************
  3926. ; * copy the startADPro script so that we don't need to do it later.
  3927. ; ****************************
  3928. ;
  3929. ;(copyfiles
  3930. ;    (prompt    "")
  3931. ;    (help    "")
  3932. ;    (source    ("%s:startADPro" DiskInstall))
  3933. ;    (dest    "RAM:")
  3934. ;)
  3935.  
  3936.  
  3937. ; ****************************
  3938. ; * copy lhex to the RAM: directory.
  3939. ; ****************************
  3940. ;
  3941. (set addToMeter    1)
  3942. (incrementMeter)
  3943.  
  3944. (copyfiles
  3945.     (prompt "")
  3946.     (help "")
  3947.     (source ("%s:C/lhex" DiskInstall))
  3948.     (dest "RAM:")
  3949. )
  3950. (onerror
  3951.     (cleanUp)
  3952. )
  3953.  
  3954. (set workingMsg        "Unarchiving library files...")
  3955. (set arcFileName    ("%s:Libs.lha" DiskInstall))
  3956. (set destDirName    "RAM:")
  3957. (dumpLZFile2Dir)
  3958.  
  3959.  
  3960. (if (IN PkgOpts 0)
  3961.     (ADProInstall)
  3962. )
  3963. (if (IN PkgOpts 1)
  3964.     (ADProStdModulesInstall)
  3965. )
  3966. (if (IN PkgOpts 2)
  3967.     (ADProExpansModulesInstall)
  3968. )
  3969. (if (IN PkgOpts 3)
  3970.     (ADProIndepModulesInstall)
  3971. )
  3972. (if (IN PkgOpts 4)
  3973.     (ADProPseudoModulesInstall)
  3974. )
  3975. (if (IN PkgOpts 5)
  3976.     (FREDInstall)
  3977. )
  3978. (if (IN PkgOpts 6)
  3979.     (ARexxScriptInstall)
  3980. )
  3981. (if (IN PkgOpts 7)
  3982.     (SplitzJoinzInstall)
  3983. )
  3984. (if (IN PkgOpts 8)
  3985.     (ZapDPIInstall)
  3986. )
  3987. (if (IN PkgOpts 9)
  3988.     (FileSentryInstall)
  3989. )
  3990. (if (IN PkgOpts 10)
  3991.     (ViewInstall)
  3992. )
  3993. (if (IN PkgOpts 11)
  3994.     (TutorialsInstall)
  3995. )
  3996. (if (IN PkgOpts 12)
  3997.     (ReadMeInstall)
  3998. )
  3999.  
  4000. (set DisplayReadMe    1)
  4001. (cleanUp)
  4002.