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