home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / CC-FX261.DMS / in.adf / Install_2.6 < prev    next >
Encoding:
Text File  |  1996-04-25  |  55.5 KB  |  1,778 lines
  1. ; ImageFX Installer Utility
  2. ;
  3. ; For ImageFX Release 2.6
  4. ; This installation will update any previous version of ImageFX.
  5. ;
  6. ; Written by Thomas Krehbiel
  7. ; Copyright © 1994-1996 Nova Design, Inc.
  8. ;
  9.  
  10. (
  11.  
  12.    ;================================================================
  13.    ; Procedure Definitions
  14.    ;================================================================
  15.  
  16.    (procedure RenameOld
  17.       ; ro_name = name of file
  18.       ; ro_dir  = where old version is
  19.       ; ro_dir2 = where to put the renamed version
  20.       ; ro_sum  = checksum of old version
  21.       (
  22.          (if (exists (tackon ro_dir ro_name))
  23.             (
  24.                (if (<> ro_sum (getsum (tackon ro_dir ro_name)))
  25.                   (
  26.                      (rename (tackon ro_dir ro_name) (tackon ro_dir2 ("Old_%ls" ro_name)))
  27.                   )
  28.                )
  29.                (delete (tackon ro_dir ro_name))
  30.             )
  31.          )
  32.       )
  33.    )
  34.  
  35.    ;================================================================
  36.    ; Setup
  37.    ;================================================================
  38.  
  39.    ; script variables...
  40.  
  41.    (set programname "ImageFX 2.6")           ; name of program
  42.    (set drawername "ImageFX2")               ; name of drawer to make for program
  43.    (set assignname "ImageFX")                ; assign to make for program
  44.    (set diskname1 "ImageFX26_Disk1:")        ; install disk name
  45.    (set diskname2 "ImageFX26_Disk2:")        ; second install disk name
  46.    (set diskname3 "ImageFX26_Disk3:")        ; third install disk name
  47.    (set diskname4 "ImageFX26_Disk4:")        ; fourth install disk name
  48.    (set diskname5 "ImageFX26_Disk5:")        ; fifth install disk name
  49.    (set bytesreq "7.0MB")                    ; HD space required
  50.  
  51.    ; system information...
  52.  
  53.    (set osver (/ (getversion) 65536))        ; os version
  54.    (set cputype (database "cpu"))            ; cpu type
  55.  
  56.    ;-------------------
  57.    ; Pick a default directory for the installation...
  58.    (set initialdir @default-dest)            ; defaults to biggest drive
  59.    (if (getassign "ImageFX")
  60.       (
  61.          (set initialdir (getassign "ImageFX"))
  62.       )
  63.       ; else
  64.       (
  65.          (if (getassign "ImageFX2")
  66.             (
  67.                (set initialdir (getassign "ImageFX2"))
  68.                ; if we found ImageFX2:, assume user wants to keep ImageFX2:
  69.                (set assignname "ImageFX2")
  70.             )
  71.          )
  72.       )
  73.    )
  74.  
  75.    ;-------------------
  76.    ; Ask where to install it...
  77.    (set wheredir
  78.       (askdir
  79.          (prompt "Select a directory where you would like to install the " programname
  80.                  " software.  "
  81.                  "(Note:  About " bytesreq " of free space is required for "
  82.                  "complete installation.)")
  83.          (help "If you are upgrading from a previous version of ImageFX, "
  84.                "you can install this version in the same directory as your "
  85.                "existing copy.  Your settings will be preserved.")
  86.          (default initialdir)
  87.       )
  88.    )
  89.  
  90.    ;-------------------
  91.    ; Determine whether we are upgrading or installing new
  92.    (if (exists (tackon wheredir "modules/sys"))
  93.       (
  94.          ; Installing into an old ImageFX directory.
  95.          (set writeover 1)
  96.          (set oldimagefx 1)
  97.          (if (exists (tackon wheredir "modules/sys/Scale"))
  98.             (
  99.                ; Updating a 2.x ImageFX, instead of an older one.
  100.                (set oldimagefx 0)
  101.             )
  102.          )
  103.          (message "The version of ImageFX in `" wheredir "' will be updated.  If this is correct, click `Proceed'.")
  104.       )
  105.       ;
  106.       (
  107.          ; Create ImageFX directory.
  108.  
  109.          ; Ask expert user the name of the drawer to create
  110.          (if (> @user-level 1)
  111.             (set drawername
  112.                (askstring
  113.                   (prompt "This installation will create a drawer named `" drawername
  114.                           "' for the ImageFX software.  If you would like to change "
  115.                           "the name of this drawer, type the new name below.")
  116.                   (help @askstring-help)
  117.                   (default drawername)
  118.                )
  119.             )
  120.          )
  121.          (set wheredir (tackon wheredir drawername))
  122.          (set writeover 0)
  123.          (message programname " will be installed in a new drawer called `" wheredir "'.  If this is correct, click `Proceed'.")
  124.       )
  125.    )
  126.  
  127.    ;-------------------
  128.    ; See if we're upgrading a 2.0 beta...
  129.    ;(set beta 0)
  130.    ;(if (exists (tackon wheredir "modules/sys/Scale"))
  131.    ;   (
  132.    ;      (set beta 1)
  133.    ;   )
  134.    ;)
  135.  
  136.    ;-------------------
  137.    ; Ask which versions of modules the user wants to install.
  138.    (set cpu
  139.       (askchoice
  140.          (prompt "Select which versions of hooks and modules you would "
  141.                  "like to install:")
  142.          (help "Some ImageFX hooks and modules (such as the JPEG modules) "
  143.                "have alternate versions optimized for faster processors. "
  144.                "You may choose to install only the modules optimized for "
  145.                "the processor in your machine to save hard drive space.")
  146.          (choices
  147.             "For Any Processor"
  148.             "For 68000 Or 68010"
  149.             "For 680EC20 Or 680EC30 (No Math Support)"
  150.             "For 68020 Or 68030"
  151.             "For 68EC040 (No Math Support)"
  152.             "For 68040"
  153.          )
  154.          (default 0)
  155.       )
  156.    )
  157.  
  158.    (set cpu_any         0)
  159.    (set cpu_68000       1)
  160.    (set cpu_68030       2)
  161.    (set cpu_68030fp     3)
  162.    (set cpu_68040       4)
  163.    (set cpu_68040fp     5)
  164.  
  165.  
  166.    ;-------------------
  167.    ; Ask which hardware components to install
  168.    ; 2.1:  added cybergraphics & toaster
  169.    (set hardware
  170.       (askoptions
  171.          (prompt "Select the display drivers you would like to install:")
  172.          (help "Check the boxes to indicate which display adaptors you have "
  173.                "installed on your system.")
  174.          (choices
  175.             "DCTV"
  176.             "EGS-Compatible"
  177.             "Firecracker"
  178.             "HAM-E"
  179.             "IV-24"
  180.             "OpalVision"
  181.             "Picasso"
  182.             "Retina"
  183.             "SAGE (DMI)"
  184.             "Cybergraphics"
  185.             "Video Toaster/Flyer"
  186.          )
  187.       )
  188.    )
  189.    ; 2.1:  added scanjet & primerapro
  190.    ; 2.5:  added DigiView, Fotofun
  191.    (set hardware2
  192.       (askoptions
  193.          (prompt "Select the hardware drivers you would like to install:")
  194.          (help "Check the boxes to indicate which peripherals you have "
  195.                "installed on your system.")
  196.          (choices
  197.             "Epson Scanner"
  198.             "JX-100 Scanner"
  199.             "HP ScanJet Scanner"
  200.             "FrameGrabber"
  201.             "FrameGrabber 256"
  202.             "VLAB"
  203.             "DigiView"
  204.             "Primera Printer"
  205.             "PrimeraPro Printer"
  206.             "FotoFun Printer"
  207.          )
  208.       )
  209.    )
  210.  
  211.    (set mask_dctv    1)
  212.    (set mask_egs     2)
  213.    (set mask_fc24    4)
  214.    (set mask_hame    8)
  215.    (set mask_iv24    16)
  216.    (set mask_opal    32)
  217.    (set mask_pic     64)
  218.    (set mask_ret     128)
  219.    (set mask_sage    256)
  220.    (set mask_cyber   512)
  221.    (set mask_toast   1024)
  222.  
  223.    (set mask_epson      1)
  224.    (set mask_jx100      2)
  225.    (set mask_scanjet    4)
  226.    (set mask_fg         8)
  227.    (set mask_fg256      16)
  228.    (set mask_vlab       32)
  229.    (set mask_digiview   64)      ; 2.5
  230.    (set mask_prim       128)
  231.    (set mask_primpro    256)
  232.    (set mask_fotofun    512)     ; 2.5
  233.  
  234.  
  235.    ;-------------------
  236.    ; Create destination directory if it doesn't already exist.
  237.    ;(onerror
  238.    ;   (abort "Cannot create directory `%ls'.  (There may be a file "
  239.    ;          "already there with the same name.)" wheredir)
  240.    ;)
  241.    (makedir wheredir (infos))
  242.  
  243.    (set @default-dest wheredir)
  244.  
  245.    ;-------------------
  246.    ; Copy LHEX to RAM: for speediness
  247.    (copyfiles
  248.       (prompt "")
  249.       (help "")
  250.       (source diskname1)
  251.       (dest "RAM:")
  252.       (choices "lhex")
  253.    )
  254.  
  255.    ;-------------------
  256.    ; Save all the user's old stuff
  257.  
  258.    (makedir (tackon wheredir "Storage"))
  259.    (makedir (tackon wheredir "Storage/Convolve"))
  260.    (makedir (tackon wheredir "Storage/Transform"))
  261.    (makedir (tackon wheredir "Storage/Palettes"))
  262.  
  263.    (if oldimagefx
  264.       (
  265.  
  266.          ;-----------------------------
  267.          ; Update from ImageFX 1.x -- move files from obsolete directories
  268.          ; to their new locations.  Check to see if user has modified any
  269.          ; of the default Arexx or project files; make copy of them if he
  270.          ; has so they won't be overwritten by the new files.
  271.  
  272.          (working "Checking Existing ARexx Programs...")
  273.  
  274.          (set ro_dir (tackon wheredir "Rexx"))
  275.          (set ro_dir2 (tackon wheredir "Rexx"))
  276.          (set ro_name "Create.ifx")  (set ro_sum 1717538069)  (RenameOld)
  277.          (set ro_name "PrintFax.ifx")  (set ro_sum -204303043)  (RenameOld)
  278.          (set ro_name "TestRecord1.ifx")  (set ro_sum 1461551180)  (RenameOld)
  279.          (set ro_name "TestRecord2.ifx")  (set ro_sum -18212460)  (RenameOld)
  280.          (set ro_name "PostRedraw.ifx")  (set ro_sum 520430438)  (RenameOld)
  281.          (set ro_name "Shrink.ifx")  (set ro_sum -178741927)  (RenameOld)
  282.          (set ro_name "AnalyzeJPEG.ifx")  (set ro_sum -330128287)  (RenameOld)
  283.          (set ro_name "ReqDemo.ifx")  (set ro_sum -1088122375)  (RenameOld)
  284.          (set ro_name "Designs.ifx")  (set ro_sum -2000831490)  (RenameOld)
  285.          (set ro_name "Smear.ifx")  (set ro_sum 660493)  (RenameOld)
  286.          (set ro_name "StartWedge.ifx")  (set ro_sum -1621367841)  (RenameOld)
  287.          (set ro_name "StopWedge.ifx")  (set ro_sum -336712651)  (RenameOld)
  288.          (set ro_name "Wipe.ifx")  (set ro_sum 712807846)  (RenameOld)
  289.          (set ro_name "WIMP.ifx")  (set ro_sum 844288357)  (RenameOld)
  290.          (set ro_name "Scroller.ifx")  (set ro_sum 1893335356)  (RenameOld)
  291.          (set ro_name "Title.ifx")  (set ro_sum -1812038769)  (RenameOld)
  292.          (set ro_name "Border.ifx")  (set ro_sum 375756860)  (RenameOld)
  293.          (set ro_name "FastTimeLapse.ifx")  (set ro_sum 188651970)  (RenameOld)
  294.          (set ro_name "Find.ifx")  (set ro_sum 255094587)  (RenameOld)
  295.          (set ro_name "Halve.ifx")  (set ro_sum -1275396923)  (RenameOld)
  296.          (set ro_name "JPEG.ifx")  (set ro_sum 1242285095)  (RenameOld)
  297.          (set ro_name "MapToWB.ifx")  (set ro_sum 1444205335)  (RenameOld)
  298.          (set ro_name "Stars.ifx")  (set ro_sum 1146989337)  (RenameOld)
  299.          (set ro_name "TimeLapse.ifx")  (set ro_sum -698200919)  (RenameOld)
  300.          (set ro_name "UnJPEG.ifx")  (set ro_sum -782414455)  (RenameOld)
  301.          (set ro_name "UserMenu.ifx")  (set ro_sum -1586145330)  (RenameOld)
  302.          (set ro_name "Scaler.ifx")  (set ro_sum -1851082681)  (RenameOld)
  303.          (set ro_name "DrawAnim.ifx")  (set ro_sum -1734704617)  (RenameOld)
  304.          (set ro_name "Flying.ifx")  (set ro_sum -2076458896)  (RenameOld)
  305.          (set ro_name "ConvertAnim.ifx")  (set ro_sum 1261736011)  (RenameOld)
  306.          (set ro_name "ReAspect.ifx")  (set ro_sum 187873149)  (RenameOld)
  307.          (set ro_name "Snapshot.ifx")  (set ro_sum 694174291)  (RenameOld)
  308.          (set ro_name "ScanFax.ifx")  (set ro_sum 58664137)  (RenameOld)
  309.          (set ro_name "ScanMultiple.ifx")  (set ro_sum -165049923)  (RenameOld)
  310.  
  311.          (working "Checking Existing Matrix Files...")
  312.  
  313.          (if (exists (tackon wheredir "Matrix"))
  314.             (
  315.  
  316.                (set ro_dir (tackon wheredir "Matrix"))
  317.                (set ro_dir2 (tackon wheredir "Storage/Convolve"))
  318.                (set ro_name "Wood")  (set ro_sum 1911225900)  (RenameOld)
  319.                (set ro_name "Spackle")  (set ro_sum -1174976534)  (RenameOld)
  320.                (set ro_name "SoftenMedium")  (set ro_sum -926300746)  (RenameOld)
  321.                (set ro_name "SoftenLow")  (set ro_sum 1330794813)  (RenameOld)
  322.                (set ro_name "SoftenHigh")  (set ro_sum -825242437)  (RenameOld)
  323.                (set ro_name "SharpenMedium")  (set ro_sum 1441464786)  (RenameOld)
  324.                (set ro_name "SharpenLow")  (set ro_sum 1559299800)  (RenameOld)
  325.                (set ro_name "SharpenHigh")  (set ro_sum -2093574033)  (RenameOld)
  326.                (set ro_name "RippleVertical")  (set ro_sum -1462998847)  (RenameOld)
  327.                (set ro_name "RippleRight")  (set ro_sum 991658778)  (RenameOld)
  328.                (set ro_name "RippleLeft")  (set ro_sum -612686982)  (RenameOld)
  329.                (set ro_name "RippleHorizontal")  (set ro_sum 107988068)  (RenameOld)
  330.                (set ro_name "MotionRemove")  (set ro_sum 1920754831)  (RenameOld)
  331.                (set ro_name "Jiggle")  (set ro_sum -387054701)  (RenameOld)
  332.                (set ro_name "Horizontal")  (set ro_sum -1925043403)  (RenameOld)
  333.                (set ro_name "GuassianLow")  (set ro_sum 408950100)  (RenameOld)
  334.                (set ro_name "GuassianHigh")  (set ro_sum 890831921)  (RenameOld)
  335.                (set ro_name "GaussianMedium")  (set ro_sum -962619963)  (RenameOld)
  336.                (set ro_name "Focus")  (set ro_sum -1782634594)  (RenameOld)
  337.                (set ro_name "EnhanceDetail")  (set ro_sum 807939348)  (RenameOld)
  338.                (set ro_name "EmbossRight")  (set ro_sum 1091558886)  (RenameOld)
  339.                (set ro_name "EmbossLeft")  (set ro_sum 1157814771)  (RenameOld)
  340.                (set ro_name "Emboss")  (set ro_sum -1569144180)  (RenameOld)
  341.                (set ro_name "EdgeDetectMedium")  (set ro_sum -1218724234)  (RenameOld)
  342.                (set ro_name "EdgeDetectLow")  (set ro_sum -1533949572)  (RenameOld)
  343.                (set ro_name "EdgeDetectHigh")  (set ro_sum 1542522072)  (RenameOld)
  344.                (set ro_name "Diagonal")  (set ro_sum -1276028878)  (RenameOld)
  345.                (set ro_name "Deep")  (set ro_sum -872097050)  (RenameOld)
  346.                (set ro_name "Cross")  (set ro_sum 1782672188)  (RenameOld)
  347.                (set ro_name "Chisel")  (set ro_sum -990965070)  (RenameOld)
  348.                (set ro_name "BlurMedium")  (set ro_sum 2022075802)  (RenameOld)
  349.                (set ro_name "BlurHuge")  (set ro_sum 1544091189)  (RenameOld)
  350.                (set ro_name "Blur")  (set ro_sum -2089738024)  (RenameOld)
  351.                (set ro_name "BasRelief")  (set ro_sum 907852839)  (RenameOld)
  352.  
  353.                (copyfiles
  354.                   (prompt "")
  355.                   (help "")
  356.                   (source (tackon wheredir "Matrix"))
  357.                   (dest (tackon wheredir "Storage/Convolve"))
  358.                   (all)
  359.                )
  360.                (run ("delete %ls all quiet" (tackon wheredir "Matrix")))
  361.  
  362.             )
  363.          )
  364.  
  365.          (working "Checking Existing Transform Files...")
  366.  
  367.          (if (exists (tackon wheredir "Transform"))
  368.             (
  369.  
  370.                (set ro_dir (tackon wheredir "Transform"))
  371.                (set ro_dir2 (tackon wheredir "Storage/Transform"))
  372.                (set ro_name "Bumps")  (set ro_sum 100982919)  (RenameOld)
  373.                (set ro_name "Compress")  (set ro_sum -1585384598)  (RenameOld)
  374.                (set ro_name "Contrast")  (set ro_sum 531931855)  (RenameOld)
  375.                (set ro_name "Destroy")  (set ro_sum -873786136)  (RenameOld)
  376.                (set ro_name "Gamma")  (set ro_sum 264791662)  (RenameOld)
  377.                (set ro_name "Halve")  (set ro_sum -1026877563)  (RenameOld)
  378.                (set ro_name "Negative")  (set ro_sum 470517981)  (RenameOld)
  379.                (set ro_name "NegPoster")  (set ro_sum 1787365899)  (RenameOld)
  380.                (set ro_name "Posterize")  (set ro_sum 1775934469)  (RenameOld)
  381.                (set ro_name "Rough")  (set ro_sum 1114119002)  (RenameOld)
  382.                (set ro_name "Threshold")  (set ro_sum 1741536331)  (RenameOld)
  383.  
  384.                (copyfiles
  385.                   (prompt "")
  386.                   (help "")
  387.                   (source (tackon wheredir "Transform"))
  388.                   (dest (tackon wheredir "Storage/Transform"))
  389.                   (all)
  390.                )
  391.                (run ("delete %ls all quiet" (tackon wheredir "Transform")))
  392.  
  393.             )
  394.          )
  395.  
  396.          (working "Checking Existing Palette Files...")
  397.  
  398.          (if (exists (tackon wheredir "Palettes"))
  399.             (
  400.  
  401.                (set ro_dir (tackon wheredir "Palettes"))
  402.                (set ro_dir2 (tackon wheredir "Storage/Palettes"))
  403.                (set ro_name "Alternate.palette")  (set ro_sum 1392111271)  (RenameOld)
  404.                (set ro_name "BGR.palette")  (set ro_sum 263169167)  (RenameOld)
  405.                (set ro_name "Blues.palette")  (set ro_sum -950050277)  (RenameOld)
  406.                (set ro_name "BrightRGB.palette")  (set ro_sum 1375394107)  (RenameOld)
  407.                (set ro_name "Camel.palette")  (set ro_sum -1970655989)  (RenameOld)
  408.                (set ro_name "Chalk.palette")  (set ro_sum -792391446)  (RenameOld)
  409.                (set ro_name "Chroma1.palette")  (set ro_sum -130553093)  (RenameOld)
  410.                (set ro_name "Chroma2.palette")  (set ro_sum 458999371)  (RenameOld)
  411.                (set ro_name "Cos.palette")  (set ro_sum 958157115)  (RenameOld)
  412.                (set ro_name "Crayola.palette")  (set ro_sum 1015994206)  (RenameOld)
  413.                (set ro_name "D4.palette")  (set ro_sum 1073612919)  (RenameOld)
  414.                (set ro_name "Default.palette")  (set ro_sum -1569231324)  (RenameOld)
  415.                (set ro_name "D5.palette")  (set ro_sum -20416002)  (RenameOld)
  416.                (set ro_name "General.palette")  (set ro_sum -809329249)  (RenameOld)
  417.                (set ro_name "Firestorm.palette")  (set ro_sum 1921712845)  (RenameOld)
  418.                (set ro_name "Gamma1.palette")  (set ro_sum -564768457)  (RenameOld)
  419.                (set ro_name "Gamma2.palette")  (set ro_sum -23422533)  (RenameOld)
  420.                (set ro_name "Glasses1.palette")  (set ro_sum 465284763)  (RenameOld)
  421.                (set ro_name "Glasses2.palette")  (set ro_sum -1302442725)  (RenameOld)
  422.                (set ro_name "GoodEGA.palette")  (set ro_sum 1095918291)  (RenameOld)
  423.                (set ro_name "Greens.palette")  (set ro_sum -1083741677)  (RenameOld)
  424.                (set ro_name "Grey.palette")  (set ro_sum -600052133)  (RenameOld)
  425.                (set ro_name "Grid.palette")  (set ro_sum 1814826655)  (RenameOld)
  426.                (set ro_name "Headache.palette")  (set ro_sum 964942239)  (RenameOld)
  427.                (set ro_name "Heat.palette")  (set ro_sum 1583160059)  (RenameOld)
  428.                (set ro_name "Landscape.palette")  (set ro_sum -1318702508)  (RenameOld)
  429.                (set ro_name "Ly.palette")  (set ro_sum -1885451549)  (RenameOld)
  430.                (set ro_name "Markers.palette")  (set ro_sum 1190521342)  (RenameOld)
  431.                (set ro_name "Pastels.palette")  (set ro_sum 1189347685)  (RenameOld)
  432.                (set ro_name "Pencils.palette")  (set ro_sum -1793208548)  (RenameOld)
  433.                (set ro_name "Reds.palette")  (set ro_sum 1306315158)  (RenameOld)
  434.                (set ro_name "Watercolor.palette")  (set ro_sum -1322196056)  (RenameOld)
  435.                (set ro_name "Yellows.palette")  (set ro_sum 885444429)  (RenameOld)
  436.                (set ro_name "3D.palette")  (set ro_sum -1143206117)  (RenameOld)
  437.  
  438.                (copyfiles
  439.                   (prompt "")
  440.                   (help "")
  441.                   (source (tackon wheredir "Palettes"))
  442.                   (dest (tackon wheredir "Storage/Palettes"))
  443.                   (all)
  444.                )
  445.                (run ("delete %ls all quiet" (tackon wheredir "Palettes")))
  446.  
  447.             )
  448.          )
  449.  
  450.          (set ro_dir wheredir)
  451.          (set ro_dir2 wheredir)
  452.          (set ro_name "Default.presets")  (set ro_sum -1421670074)  (RenameOld)
  453.         ;(set ro_name "Default.keys")  (set ro_sum -150757786)  (RenameOld)
  454.  
  455.          ; Delete obsolete files
  456.  
  457.          (delete (tackon wheredir "Help/Main.guide"))
  458.          (delete (tackon wheredir "README"))
  459.          (delete (tackon wheredir "README.info"))
  460.  
  461.       )
  462.    )
  463.  
  464.    (if writeover
  465.       (
  466.  
  467.          ; These were replaced by hooks in 2.0:
  468.          (delete (tackon wheredir "Modules/Sys/AntiAlias"))
  469.          (delete (tackon wheredir "Modules/Sys/OilTransfer"))
  470.  
  471.          ; These were replaced by hooks in 2.5:
  472.          (delete (tackon wheredir "Modules/Sys/Distort"))
  473.  
  474.       )
  475.    )
  476.  
  477.    ;================================================================
  478.    ; DISK 1
  479.    ;================================================================
  480.  
  481.    (complete 0)
  482.  
  483.    (if (exists (tackon diskname1 "Program.lha"))
  484.       (
  485.          (working "Installing Program...")
  486.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sProgram.lha" wheredir diskname1))
  487.       )
  488.    )
  489.  
  490.    (if (exists (tackon diskname1 "Icons20.lha"))
  491.       (
  492.  
  493.          (working "Installing Icons...")
  494.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=RAM: x %sIcons20.lha" diskname1))
  495.  
  496.          ; Make sure we don't copy over any existing icons!
  497.  
  498.          (if (= (exists (tackon wheredir "Browser.info")) 0)
  499.             (copyfiles
  500.                (prompt "")
  501.                (help "")
  502.                (source "RAM:Browser.info")
  503.                (dest wheredir)
  504.             )
  505.          )
  506.          (if (= (exists (tackon wheredir "Cinemorph.info")) 0)
  507.             (copyfiles
  508.                (prompt "")
  509.                (help "")
  510.                (source "RAM:Cinemorph.info")
  511.                (dest wheredir)
  512.             )
  513.          )
  514.          (if (= (exists (tackon wheredir "Help.info")) 0)
  515.             (copyfiles
  516.                (prompt "")
  517.                (help "")
  518.                (source "RAM:Help.info")
  519.                (dest wheredir)
  520.             )
  521.          )
  522.          (if (= (exists (tackon wheredir "Icons.info")) 0)
  523.             (copyfiles
  524.                (prompt "")
  525.                (help "")
  526.                (source "RAM:Icons.info")
  527.                (dest wheredir)
  528.             )
  529.          )
  530.          (if (= (exists (tackon wheredir "ImageFX.info")) 0)
  531.             (copyfiles
  532.                (prompt "")
  533.                (help "")
  534.                (source "RAM:ImageFX.info")
  535.                (dest wheredir)
  536.             )
  537.          )
  538.          (if (= (exists (tackon wheredir "ImageFX_WB.info")) 0)
  539.             (copyfiles
  540.                (prompt "")
  541.                (help "")
  542.                (source "RAM:ImageFX_WB.info")
  543.                (dest wheredir)
  544.             )
  545.          )
  546.          (if (= (exists (tackon wheredir "ImageFX_WBP.info")) 0)
  547.             (copyfiles
  548.                (prompt "")
  549.                (help "")
  550.                (source "RAM:ImageFX_WBP.info")
  551.                (dest wheredir)
  552.             )
  553.          )
  554.          ; 2.5:
  555.          (if (= (exists (tackon wheredir "ImageFX_CyberWB.info")) 0)
  556.             (copyfiles
  557.                (prompt "")
  558.                (help "")
  559.                (source "RAM:ImageFX_CyberWB.info")
  560.                (dest wheredir)
  561.             )
  562.          )
  563.          ; 2.5:
  564.          (if (= (exists (tackon wheredir "ImageFX_RetinaWB.info")) 0)
  565.             (copyfiles
  566.                (prompt "")
  567.                (help "")
  568.                (source "RAM:ImageFX_RetinaWB.info")
  569.                (dest wheredir)
  570.             )
  571.          )
  572.          (if (= (exists (tackon wheredir "IMP.info")) 0)
  573.             (copyfiles
  574.                (prompt "")
  575.                (help "")
  576.                (source "RAM:IMP.info")
  577.                (dest wheredir)
  578.             )
  579.          )
  580.          (if (= (exists (tackon wheredir "AutoFX.info")) 0)
  581.             (copyfiles
  582.                (prompt "")
  583.                (help "")
  584.                (source "RAM:AutoFX.info")
  585.                (dest wheredir)
  586.             )
  587.          )
  588.          (if (= (exists (tackon wheredir "MAGIC.info")) 0)
  589.             (copyfiles
  590.                (prompt "")
  591.                (help "")
  592.                (source "RAM:MAGIC.info")
  593.                (dest wheredir)
  594.             )
  595.          )
  596.          (if (= (exists (tackon wheredir "Rexx.info")) 0)
  597.             (copyfiles
  598.                (prompt "")
  599.                (help "")
  600.                (source "RAM:Rexx.info")
  601.                (dest wheredir)
  602.             )
  603.          )
  604.          (if (= (exists (tackon wheredir "Sample_Proj.info")) 0)
  605.             (copyfiles
  606.                (prompt "")
  607.                (help "")
  608.                (source "RAM:Sample_Proj.info")
  609.                (dest wheredir)
  610.             )
  611.          )
  612.          (if (= (exists (tackon wheredir "Viewtek.info")) 0)
  613.             (copyfiles
  614.                (prompt "")
  615.                (help "")
  616.                (source "RAM:Viewtek.info")
  617.                (dest wheredir)
  618.             )
  619.          )
  620.          (if (= (exists (tackon wheredir "Pictures.info")) 0)
  621.             (copyfiles
  622.                (prompt "")
  623.                (help "")
  624.                (source "RAM:Pictures.info")
  625.                (dest wheredir)
  626.             )
  627.          )
  628.          (if (= (exists (tackon wheredir "Icons/AppIcon.info")) 0)
  629.             (
  630.                (makedir (tackon wheredir "Icons"))
  631.                (copyfiles
  632.                   (prompt "")
  633.                   (help "")
  634.                   (source "RAM:Icons")
  635.                   (dest (tackon wheredir "Icons"))
  636.                   (all)
  637.                )
  638.             )
  639.          )
  640.  
  641.       )
  642.    )
  643.  
  644.    (delete "RAM:AutoFX.info")
  645.    (delete "RAM:Browser.info")
  646.    (delete "RAM:Cinemorph.info")
  647.    (delete "RAM:Help.info")
  648.    (delete "RAM:Icons.info")
  649.    (run ("delete RAM:Icons all quiet"))
  650.    (delete "RAM:ImageFX.info")
  651.    (delete "RAM:ImageFX_WB.info")
  652.    (delete "RAM:ImageFX_WBP.info")
  653.    (delete "RAM:ImageFX_CyberWB.info")
  654.    (delete "RAM:ImageFX_RetinaWB.info")
  655.    (delete "RAM:IMP.info")
  656.    (delete "RAM:MAGIC.info")
  657.    (delete "RAM:Rexx.info")
  658.    (delete "RAM:Sample_Proj.info")
  659.    (delete "RAM:Viewtek.info")
  660.    (delete "RAM:Pictures.info")
  661.  
  662.    (if (exists (tackon diskname1 "Rexx.lha"))
  663.       (
  664.          (working "Installing Arexx Programs...")
  665.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sRexx.lha" wheredir diskname1))
  666.       )
  667.    )
  668.  
  669.    (if (exists (tackon diskname1 "Help.lha"))
  670.       (
  671.          (working "Installing Help Files...")
  672.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sHelp.lha" wheredir diskname1))
  673.       )
  674.    )
  675.  
  676.    (if (= 0 (BITAND mask_dctv hardware))
  677.       (
  678.          (delete (tackon wheredir "help/Render_DCTV.guide"))
  679.       )
  680.    )
  681.    (if (= 0 (BITAND mask_egs hardware))
  682.       (
  683.          (delete (tackon wheredir "help/Render_EGS.guide"))
  684.       )
  685.    )
  686.    (if (= 0 (BITAND mask_fc24 hardware))
  687.       (
  688.          (delete (tackon wheredir "help/Render_Firecracker.guide"))
  689.       )
  690.    )
  691.    (if (= 0 (BITAND mask_hame hardware))
  692.       (
  693.          (delete (tackon wheredir "help/Render_HAME.guide"))
  694.       )
  695.    )
  696.    (if (= 0 (BITAND mask_iv24 hardware))
  697.       (
  698.          (delete (tackon wheredir "help/Render_IV24.guide"))
  699.          (delete (tackon wheredir "help/Scanner_IVFG.guide"))
  700.       )
  701.    )
  702.    (if (= 0 (BITAND mask_opal hardware))
  703.       (
  704.          (delete (tackon wheredir "help/Render_OpalVision.guide"))
  705.       )
  706.    )
  707.    (if (= 0 (BITAND mask_pic hardware))
  708.       (
  709.          (delete (tackon wheredir "help/Render_Picasso.guide"))
  710.       )
  711.    )
  712.    (if (= 0 (BITAND mask_ret hardware))
  713.       (
  714.          (delete (tackon wheredir "help/Render_Retina.guide"))
  715.       )
  716.    )
  717.    (if (= 0 (BITAND mask_sage hardware))
  718.       (
  719.          (delete (tackon wheredir "help/Render_SAGE.guide"))
  720.       )
  721.    )
  722.    ; 2.1:
  723.    (if (= 0 (BITAND mask_toast hardware))
  724.       (
  725.          (delete (tackon wheredir "help/Scanner_Toaster.guide"))
  726.          (delete (tackon wheredir "help/Render_Toaster.guide"))
  727.       )
  728.    )
  729.  
  730.    (if (= 0 (BITAND mask_epson hardware2))
  731.       (
  732.          (delete (tackon wheredir "help/Scanner_Epson.guide"))
  733.       )
  734.    )
  735.    (if (= 0 (BITAND mask_jx100 hardware2))
  736.       (
  737.          (delete (tackon wheredir "help/Scanner_JX100.guide"))
  738.       )
  739.    )
  740.    ; 2.1:
  741.    (if (= 0 (BITAND mask_scanjet hardware2))
  742.       (
  743.          (delete (tackon wheredir "help/Printer_ScanJet.guide"))
  744.       )
  745.    )
  746.    (if (= 0 (BITAND mask_fg hardware2))
  747.       (
  748.          (delete (tackon wheredir "help/Scanner_FrameGrabber.guide"))
  749.       )
  750.    )
  751.    (if (= 0 (BITAND mask_fg256 hardware2))
  752.       (
  753.          (delete (tackon wheredir "help/Scanner_FrameGrabber256.guide"))
  754.       )
  755.    )
  756.    (if (= 0 (BITAND mask_vlab hardware2))
  757.       (
  758.          (delete (tackon wheredir "help/Scanner_VLAB.guide"))
  759.       )
  760.    )
  761.    ; 2.5:
  762.    (if (= 0 (BITAND mask_digiview hardware2))
  763.       (
  764.          (delete (tackon wheredir "help/Scanner_DigiView.guide"))
  765.       )
  766.    )
  767.    (if (= 0 (BITAND mask_prim hardware2))
  768.       (
  769.          (delete (tackon wheredir "help/Printer_Primera.guide"))
  770.       )
  771.    )
  772.    ; 2.1:
  773.    (if (= 0 (BITAND mask_primpro hardware2))
  774.       (
  775.          (delete (tackon wheredir "help/Printer_PrimeraPro.guide"))
  776.       )
  777.    )
  778.    ; 2.5:
  779.    (if (= 0 (BITAND mask_fotofun hardware2))
  780.       (
  781.          (delete (tackon wheredir "help/Printer_FotoFun.guide"))
  782.       )
  783.    )
  784.  
  785.    (if (< osver 39)
  786.       (
  787.          (if (= 0 (exists "SYS:Utilities/AmigaGuide"))
  788.             (
  789.                (working "Installing AmigaGuide utility...")
  790.                (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=SYS:Utilities\" x %sAG34.lha" diskname1))
  791.             )
  792.          )
  793.       )
  794.    )
  795.  
  796.    ;(working "Installing Addendum Document...")
  797.    ;(copyfiles
  798.    ;   (prompt "")
  799.    ;   (help @copyfiles-help)
  800.    ;   (source diskname1)
  801.    ;   (dest wheredir)
  802.    ;   (choices "Addendum_2.1a" "Addendum_2.1a.info")
  803.    ;)
  804.  
  805.    ;================================================================
  806.    ; DISK 2
  807.    ;================================================================
  808.  
  809.    (complete 20)
  810.  
  811.    (askdisk
  812.       (prompt "Please insert ImageFX Disk 2 in any drive.")
  813.       (help "")
  814.       (dest (substr diskname2 0 (- (strlen diskname2) 1)))
  815.       (assigns)
  816.    )
  817.  
  818.    (if (exists (tackon diskname2 "Libs.lha"))
  819.       (
  820.          ; moved to disk 2
  821.  
  822.          (working "Installing Libraries...")
  823.  
  824.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=RAM: x %sLibs.lha" diskname2))
  825.          (if (exists "RAM:libs/iffparse.library")
  826.             (
  827.                (copylib
  828.                   (prompt "Iffparse.library is required to load and save many "
  829.                           "file formats.")
  830.                   (help @copylib-help)
  831.                   (source "RAM:Libs/iffparse.library")
  832.                   (dest "LIBS:")
  833.                   (confirm)
  834.                )
  835.             )
  836.          )
  837.          (if (exists "RAM:libs/amigaguide.library")
  838.             (
  839.                (copylib
  840.                   (prompt "Amigaguide.library is required to use the online "
  841.                           "help features of ImageFX.")
  842.                   (help @copylib-help)
  843.                   (source "RAM:Libs/amigaguide.library")
  844.                   (dest "LIBS:")
  845.                   (confirm)
  846.                )
  847.             )
  848.          )
  849.          (if (exists "RAM:libs/dctv.library")
  850.             (
  851.                (if (BITAND mask_dctv hardware)
  852.                   (
  853.                      (copylib
  854.                         (prompt "DCTV.library is required for loading DCTV "
  855.                                 "images and previewing on the DCTV.")
  856.                         (help @copylib-help)
  857.                         (source "RAM:Libs/dctv.library")
  858.                         (dest "LIBS:")
  859.                         (confirm)
  860.                      )
  861.                   )
  862.                )
  863.             )
  864.          )
  865.          ; new in 2.6 -- required for EOT_PondRipple
  866.          (if (exists "RAM:libs/rexxmathlib.library")
  867.             (
  868.                (copylib
  869.                   (prompt "rexxmathlib.library is required for some AutoFX "
  870.                           "scripts to function properly.")
  871.                   (help @copylib-help)
  872.                   (source "RAM:Libs/rexxmathlib.library")
  873.                   (dest "LIBS:")
  874.                   (confirm)
  875.                )
  876.                (copyfiles
  877.                   (prompt "")
  878.                   (help "")
  879.                   (source "RAM:Libs")
  880.                   (dest "LIBS:")
  881.                   (choices "rexxmathlib.doc")
  882.                )
  883.             )
  884.          )
  885.          ;(if (exists "RAM:libs/req.library")
  886.          ;   (
  887.          ;      (copylib
  888.          ;         (prompt "")
  889.          ;         (help @copylib-help)
  890.          ;         (source "RAM:Libs/req.library")
  891.          ;         (dest "LIBS:")
  892.          ;         (confirm)
  893.          ;      )
  894.          ;   )
  895.          ;)
  896.          (if (exists "RAM:libs/thumbnail.library")
  897.             (
  898.                ; 2.1:  Removed:
  899.                ;(delete "LIBS:thumbnail.library")
  900.                ;(delete (tackon wheredir "thumbnail.library"))
  901.                (copylib
  902.                   (prompt "Thumbnail.library is required to use preview "
  903.                           "thumbnail requesters.")
  904.                   (help @copylib-help)
  905.                   (source "RAM:Libs/thumbnail.library")
  906.                   (dest "LIBS:")
  907.                   (confirm)
  908.                )
  909.             )
  910.          )
  911.  
  912.          (delete "RAM:libs/thumbnail.library")
  913.          (delete "RAM:libs/req.library")
  914.          (delete "RAM:libs/dctv.library")
  915.          (delete "RAM:libs/amigaguide.library")
  916.          (delete "RAM:libs/iffparse.library")
  917.          (delete "RAM:libs")
  918.  
  919.       )
  920.    )
  921.  
  922.    (if (exists (tackon diskname2 "Modules1.lha"))
  923.       (
  924.          (working "Installing Modules 1 of 2...")
  925.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sModules1.lha" wheredir diskname2))
  926.       )
  927.    )
  928.  
  929.    ;================================================================
  930.    ; DISK 3
  931.    ;================================================================
  932.  
  933.    (complete 40)
  934.  
  935.    (askdisk
  936.       (prompt "Please insert ImageFX Disk 3 in any drive.")
  937.       (help "")
  938.       (dest (substr diskname3 0 (- (strlen diskname3) 1)))
  939.       (assigns)
  940.    )
  941.  
  942.    (if (exists (tackon diskname3 "Modules2.lha"))
  943.       (
  944.          (working "Installing Modules 2 of 2...")
  945.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sModules2.lha" wheredir diskname3))
  946.       )
  947.    )
  948.  
  949.    ; get rid of modules user doesn't want:
  950.  
  951.    (if (= cpu cpu_68000)
  952.       (
  953.          ; only 68000
  954.          (delete (tackon wheredir "modules/loaders/JPEG.030"))
  955.          (delete (tackon wheredir "modules/loaders/JPEG.040"))
  956.          (delete (tackon wheredir "modules/savers/JPEG.030"))
  957.          (delete (tackon wheredir "modules/savers/JPEG.040"))
  958.          ; 2.1:
  959.          (delete (tackon wheredir "modules/loaders/PICT.030"))
  960.          (delete (tackon wheredir "modules/loaders/PICT.040"))
  961.       )
  962.    )
  963.    (if (= cpu cpu_68030)
  964.       (
  965.          ; only 68030
  966.          (delete (tackon wheredir "modules/loaders/JPEG.000"))
  967.          (delete (tackon wheredir "modules/loaders/JPEG.040"))
  968.          (delete (tackon wheredir "modules/savers/JPEG.000"))
  969.          (delete (tackon wheredir "modules/savers/JPEG.040"))
  970.          ; 2.1:
  971.          (delete (tackon wheredir "modules/loaders/PICT.000"))
  972.          (delete (tackon wheredir "modules/loaders/PICT.040"))
  973.       )
  974.    )
  975.    (if (= cpu cpu_68030fp)
  976.       (
  977.          ; only 68030
  978.          (delete (tackon wheredir "modules/loaders/JPEG.000"))
  979.          (delete (tackon wheredir "modules/loaders/JPEG.040"))
  980.          (delete (tackon wheredir "modules/savers/JPEG.000"))
  981.          (delete (tackon wheredir "modules/savers/JPEG.040"))
  982.          ; 2.1:
  983.          (delete (tackon wheredir "modules/loaders/PICT.000"))
  984.          (delete (tackon wheredir "modules/loaders/PICT.040"))
  985.       )
  986.    )
  987.    (if (= cpu cpu_68040)
  988.       (
  989.          ; only 68040
  990.          (delete (tackon wheredir "modules/loaders/JPEG.000"))
  991.          (delete (tackon wheredir "modules/loaders/JPEG.030"))
  992.          (delete (tackon wheredir "modules/savers/JPEG.000"))
  993.          (delete (tackon wheredir "modules/savers/JPEG.030"))
  994.          ; 2.1:
  995.          (delete (tackon wheredir "modules/loaders/PICT.000"))
  996.          (delete (tackon wheredir "modules/loaders/PICT.030"))
  997.       )
  998.    )
  999.  
  1000.    (if (= 0 (BITAND mask_dctv hardware))
  1001.       (
  1002.          (delete (tackon wheredir "modules/preview/DCTV"))
  1003.          (delete (tackon wheredir "modules/render/DCTV"))
  1004.       )
  1005.    )
  1006.    (if (= 0 (BITAND mask_egs hardware))
  1007.       (
  1008.          (delete (tackon wheredir "modules/render/EGS"))
  1009.       )
  1010.    )
  1011.    (if (= 0 (BITAND mask_fc24 hardware))
  1012.       (
  1013.          (delete (tackon wheredir "modules/preview/Firecracker"))
  1014.          (delete (tackon wheredir "modules/render/Firecracker"))
  1015.       )
  1016.    )
  1017.    (if (= 0 (BITAND mask_hame hardware))
  1018.       (
  1019.          (delete (tackon wheredir "modules/preview/HAME"))
  1020.          (delete (tackon wheredir "modules/render/HAME"))
  1021.       )
  1022.    )
  1023.    (if (= 0 (BITAND mask_iv24 hardware))
  1024.       (
  1025.          (delete (tackon wheredir "modules/preview/IV24"))
  1026.          (delete (tackon wheredir "modules/render/IV24"))
  1027.          (delete (tackon wheredir "modules/scanner/IVFG"))
  1028.       )
  1029.    )
  1030.    (if (= 0 (BITAND mask_opal hardware))
  1031.       (
  1032.          (delete (tackon wheredir "modules/preview/OpalVision"))
  1033.          (delete (tackon wheredir "modules/render/OpalVision"))
  1034.       )
  1035.    )
  1036.    (if (= 0 (BITAND mask_pic hardware))
  1037.       (
  1038.          (delete (tackon wheredir "modules/render/Picasso"))
  1039.       )
  1040.    )
  1041.    (if (= 0 (BITAND mask_ret hardware))
  1042.       (
  1043.          (delete (tackon wheredir "modules/preview/RetinaWB"))
  1044.          (delete (tackon wheredir "modules/render/Retina"))
  1045.       )
  1046.    )
  1047.    (if (= 0 (BITAND mask_sage hardware))
  1048.       (
  1049.          (delete (tackon wheredir "modules/render/SAGE"))
  1050.       )
  1051.    )
  1052.    ; 2.1:
  1053.    (if (= 0 (BITAND mask_cyber hardware))
  1054.       (
  1055.          (delete (tackon wheredir "modules/preview/CyberWB"))
  1056.       )
  1057.    )
  1058.    ; 2.1:
  1059.    (if (= 0 (BITAND mask_toast hardware))
  1060.       (
  1061.          (delete (tackon wheredir "modules/preview/Toaster"))
  1062.          (delete (tackon wheredir "modules/scanner/Toaster"))
  1063.          (delete (tackon wheredir "modules/render/Toaster"))
  1064.       )
  1065.    )
  1066.  
  1067.    (if (= 0 (BITAND mask_epson hardware2))
  1068.       (
  1069.          (delete (tackon wheredir "modules/scanner/Epson"))
  1070.       )
  1071.    )
  1072.    (if (= 0 (BITAND mask_jx100 hardware2))
  1073.       (
  1074.          (delete (tackon wheredir "modules/scanner/JX100"))
  1075.       )
  1076.    )
  1077.    ; 2.1:
  1078.    (if (= 0 (BITAND mask_scanjet hardware2))
  1079.       (
  1080.          (delete (tackon wheredir "modules/scanner/ScanJet"))
  1081.       )
  1082.    )
  1083.    (if (= 0 (BITAND mask_fg hardware2))
  1084.       (
  1085.          (delete (tackon wheredir "modules/scanner/FrameGrabber"))
  1086.       )
  1087.    )
  1088.    (if (= 0 (BITAND mask_fg256 hardware2))
  1089.       (
  1090.          (delete (tackon wheredir "modules/scanner/FrameGrabber256"))
  1091.       )
  1092.    )
  1093.    (if (= 0 (BITAND mask_vlab hardware2))
  1094.       (
  1095.          (delete (tackon wheredir "modules/scanner/VLAB"))
  1096.       )
  1097.    )
  1098.    ; 2.5:
  1099.    (if (= 0 (BITAND mask_digiview hardware2))
  1100.       (
  1101.          (delete (tackon wheredir "modules/scanner/DigiView"))
  1102.       )
  1103.    )
  1104.    (if (= 0 (BITAND mask_prim hardware2))
  1105.       (
  1106.          (delete (tackon wheredir "modules/printer/Primera"))
  1107.       )
  1108.    )
  1109.    ; 2.1:
  1110.    (if (= 0 (BITAND mask_primpro hardware2))
  1111.       (
  1112.          (delete (tackon wheredir "modules/printer/PrimeraPro"))
  1113.       )
  1114.    )
  1115.    ; 2.5:
  1116.    (if (= 0 (BITAND mask_fotofun hardware2))
  1117.       (
  1118.          (delete (tackon wheredir "modules/printer/FotoFun"))
  1119.       )
  1120.    )
  1121.  
  1122.    (if (exists (tackon diskname3 "Devs.lha"))
  1123.       (
  1124.          (if (BITAND (+ mask_prim mask_primpro mask_fotofun) hardware2)
  1125.             (
  1126.                (working "Installing Primera Support Files...")
  1127.                (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=SYS:\" x %sDevs.lha" diskname3))
  1128.             )
  1129.          )
  1130.       )
  1131.    )
  1132.  
  1133.    (if (exists (tackon diskname3 "Hooks1.lha"))
  1134.       (
  1135.          (working "Installing Hooks 1 of 2...")
  1136.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sHooks1.lha" wheredir diskname3))
  1137.       )
  1138.    )
  1139.  
  1140.    ;================================================================
  1141.    ; DISK 4
  1142.    ;================================================================
  1143.  
  1144.    (complete 60)
  1145.  
  1146.    (askdisk
  1147.       (prompt "Please insert ImageFX Disk 4 in any drive.")
  1148.       (help "")
  1149.       (dest (substr diskname4 0 (- (strlen diskname4) 1)))
  1150.       (assigns)
  1151.    )
  1152.  
  1153.    (if (exists (tackon diskname4 "Hooks2.lha"))
  1154.       (
  1155.          (working "Installing Hooks 2 of 2...")
  1156.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sHooks2.lha" wheredir diskname4))
  1157.       )
  1158.    )
  1159.  
  1160.    ; get rid of hooks user doesn't want:
  1161.  
  1162.    (if (= cpu cpu_68000)
  1163.       (
  1164.          ; only 68000
  1165.          (delete (tackon wheredir "hooks/CMIFX.FP"))
  1166.          (delete (tackon wheredir "hooks/sys/Lightning.FP"))
  1167.          (delete (tackon wheredir "hooks/sys/Spherize.FP"))
  1168.          (delete (tackon wheredir "hooks/sys/Perspective.FP"))
  1169.       )
  1170.    )
  1171.    (if (= cpu cpu_68030)
  1172.       (
  1173.          ; 68EC030
  1174.          (delete (tackon wheredir "hooks/CMIFX.FP"))
  1175.          (delete (tackon wheredir "hooks/sys/Lightning.FP"))
  1176.          (delete (tackon wheredir "hooks/sys/Spherize.FP"))
  1177.          (delete (tackon wheredir "hooks/sys/Perspective.FP"))
  1178.       )
  1179.    )
  1180.    (if (= cpu cpu_68030fp)
  1181.       (
  1182.          ; only 68030
  1183.          (delete (tackon wheredir "hooks/CMIFX"))
  1184.          (delete (tackon wheredir "hooks/sys/Lightning"))
  1185.          (delete (tackon wheredir "hooks/sys/Spherize"))
  1186.          (delete (tackon wheredir "hooks/sys/Perspective"))
  1187.       )
  1188.    )
  1189.    (if (= cpu cpu_68040)
  1190.       (
  1191.          ; only 680EC40
  1192.          (delete (tackon wheredir "hooks/CMIFX.FP"))
  1193.          (delete (tackon wheredir "hooks/sys/Lightning.FP"))
  1194.          (delete (tackon wheredir "hooks/sys/Spherize.FP"))
  1195.          (delete (tackon wheredir "hooks/sys/Perspective.FP"))
  1196.       )
  1197.    )
  1198.    (if (= cpu cpu_68040fp)
  1199.       (
  1200.          ; only 68040
  1201.          (delete (tackon wheredir "hooks/CMIFX"))
  1202.          (delete (tackon wheredir "hooks/sys/Lightning"))
  1203.          (delete (tackon wheredir "hooks/sys/Spherize"))
  1204.          (delete (tackon wheredir "hooks/sys/Perspective"))
  1205.       )
  1206.    )
  1207.  
  1208.    (if (= 0 (BITAND mask_fc24 hardware))
  1209.       (
  1210.          (delete (tackon wheredir "hooks/GrabFC"))
  1211.       )
  1212.    )
  1213.    ; 2.5:
  1214.    (if (= 0 (BITAND mask_cyber hardware))
  1215.       (
  1216.          (delete (tackon wheredir "hooks/GrabCyber"))
  1217.       )
  1218.    )
  1219.  
  1220.    (if (exists (tackon diskname4 "Viewtek.lha"))
  1221.       (
  1222.          (working "Installing Viewtek Utility...")
  1223.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sViewtek.lha" wheredir diskname4))
  1224.       )
  1225.    )
  1226.  
  1227.    (if (exists (tackon diskname4 "Storage.lha"))
  1228.       (
  1229.          (working "Installing Sample Project Files...")
  1230.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sStorage.lha" wheredir diskname4))
  1231.       )
  1232.    )
  1233.  
  1234.    (if (exists (tackon diskname4 "Brushes.lha"))
  1235.       (
  1236.          (working "Installing Sample Brushes...")
  1237.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sBrushes.lha" wheredir diskname4))
  1238.       )
  1239.    )
  1240.  
  1241.    (if (exists (tackon diskname4 "Pictures.lha"))
  1242.       (
  1243.          (working "Installing Sample Pictures...")
  1244.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sPictures.lha" wheredir diskname4))
  1245.       )
  1246.    )
  1247.  
  1248.  
  1249.    ;================================================================
  1250.    ; DISK 5
  1251.    ;================================================================
  1252.  
  1253.    (complete 80)
  1254.  
  1255.    (askdisk
  1256.       (prompt "Please insert ImageFX Disk 5 in any drive.")
  1257.       (help "")
  1258.       (dest (substr diskname5 0 (- (strlen diskname5) 1)))
  1259.       (assigns)
  1260.    )
  1261.  
  1262.    ; magic no longer installed:
  1263.    ;
  1264.    ;(if (exists (tackon diskname5 "Magic.lha"))
  1265.    ;   (
  1266.    ;
  1267.    ;      (working "Installing MAGIC Files...")
  1268.    ;      (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sMagic.lha" wheredir diskname5))
  1269.    ;
  1270.    ;      (copyfiles
  1271.    ;         (prompt "If you want the MAGIC utility automatically "
  1272.    ;                 "started each time you reboot, select `Proceed "
  1273.    ;                 "With Copy'.  Otherwise select `Skip This Part' "
  1274.    ;                 "to run the MAGIC utility manually.")
  1275.    ;         (help "The MAGIC system is used for sharing 24-bit image "
  1276.    ;               "data between applications while they are running.")
  1277.    ;         (source (tackon wheredir "MAGIC/MagicServer"))
  1278.    ;         (dest "SYS:WBStartup")
  1279.    ;         (confirm)
  1280.    ;      )
  1281.    ;
  1282.    ;   )
  1283.    ;)
  1284.  
  1285.    (if (exists (tackon diskname5 "Textures.lha"))
  1286.       (
  1287.          (working "Installing Sample Textures...")
  1288.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sTextures.lha" wheredir diskname5))
  1289.       )
  1290.    )
  1291.  
  1292.    (run "Delete RAM:lhex QUIET")
  1293.  
  1294.    ;================================================================
  1295.    ; Miscellaneous stuff
  1296.    ;================================================================
  1297.  
  1298.    (if (> @user-level 1)
  1299.       (
  1300.          (set theassign
  1301.             (askstring
  1302.                (prompt "Select an Assign name for the ImageFX drawer: "
  1303.                        "(Do NOT include a trailing colon (:)!)")
  1304.                (help @askstring-help)
  1305.                (default assignname)
  1306.             )
  1307.          )
  1308.       )
  1309.       ; else
  1310.       (
  1311.          (set theassign assignname)
  1312.       )
  1313.    )
  1314.  
  1315.    (makeassign theassign wheredir)
  1316.  
  1317.    (working "Setting Icon Tool Types...")
  1318.  
  1319.    (tooltype
  1320.       (prompt "")
  1321.       (help "")
  1322.       (dest (tackon wheredir "ImageFX"))
  1323.       (settooltype "ASSIGN" ("%ls:" theassign))
  1324.    )
  1325.    (tooltype
  1326.       (prompt "")
  1327.       (help "")
  1328.       (dest (tackon wheredir "Cinemorph"))
  1329.       (setdefaulttool "ImageFX")
  1330.    )
  1331.    (tooltype
  1332.       (prompt "")
  1333.       (help "")
  1334.       (dest (tackon wheredir "IMP"))
  1335.       (setdefaulttool "ImageFX")
  1336.    )
  1337.    (tooltype
  1338.       (prompt "")
  1339.       (help "")
  1340.       (dest (tackon wheredir "AutoFX"))
  1341.       (setdefaulttool "ImageFX")
  1342.    )
  1343.    (tooltype
  1344.       (prompt "")
  1345.       (help "")
  1346.       (dest (tackon wheredir "ImageFX_WB"))
  1347.       (setdefaulttool "ImageFX")
  1348.    )
  1349.    (tooltype
  1350.       (prompt "")
  1351.       (help "")
  1352.       (dest (tackon wheredir "ImageFX_WBP"))
  1353.       (setdefaulttool "ImageFX")
  1354.    )
  1355.    (tooltype
  1356.       (prompt "")
  1357.       (help "")
  1358.       (dest (tackon wheredir "ImageFX_CyberWB"))
  1359.       (setdefaulttool "ImageFX")
  1360.    )
  1361.    (tooltype
  1362.       (prompt "")
  1363.       (help "")
  1364.       (dest (tackon wheredir "ImageFX_RetinaWB"))
  1365.       (setdefaulttool "ImageFX")
  1366.    )
  1367.    (tooltype
  1368.       (prompt "")
  1369.       (help "")
  1370.       (dest (tackon wheredir "Sample_Proj"))
  1371.       (setdefaulttool "ImageFX")
  1372.    )
  1373.    (tooltype
  1374.       (prompt "")
  1375.       (help "")
  1376.       (dest (tackon wheredir "Icons/Buffer"))
  1377.       (setdefaulttool ("%ls:ImageFX" theassign))
  1378.    )
  1379.    (tooltype
  1380.       (prompt "")
  1381.       (help "")
  1382.       (dest (tackon wheredir "Icons/Brush"))
  1383.       (setdefaulttool ("%ls:ImageFX" theassign))
  1384.    )
  1385.    (tooltype
  1386.       (prompt "")
  1387.       (help "")
  1388.       (dest (tackon wheredir "Icons/Rendered"))
  1389.       (setdefaulttool ("%ls:ImageFX" theassign))
  1390.    )
  1391.    (tooltype
  1392.       (prompt "")
  1393.       (help "")
  1394.       (dest (tackon wheredir "Icons/Palette"))
  1395.       (setdefaulttool ("%ls:ImageFX" theassign))
  1396.    )
  1397.    (tooltype
  1398.       (prompt "")
  1399.       (help "")
  1400.       (dest (tackon wheredir "Rexx/ConvertAnim.ifx"))
  1401.       (setdefaulttool ("%ls:ImageFX" theassign))
  1402.    )
  1403.    (tooltype
  1404.       (prompt "")
  1405.       (help "")
  1406.       (dest (tackon wheredir "Rexx/CreateNails.ifx"))
  1407.       (setdefaulttool ("%ls:ImageFX" theassign))
  1408.    )
  1409.    (tooltype
  1410.       (prompt "")
  1411.       (help "")
  1412.       (dest (tackon wheredir "Rexx/DrawAnim.ifx"))
  1413.       (setdefaulttool ("%ls:ImageFX" theassign))
  1414.    )
  1415.    (tooltype
  1416.       (prompt "")
  1417.       (help "")
  1418.       (dest (tackon wheredir "Rexx/Flying.ifx"))
  1419.       (setdefaulttool ("%ls:ImageFX" theassign))
  1420.    )
  1421.    (tooltype
  1422.       (prompt "")
  1423.       (help "")
  1424.       (dest (tackon wheredir "Rexx/GrabScreen.ifx"))
  1425.       (setdefaulttool ("%ls:ImageFX" theassign))
  1426.    )
  1427.    (tooltype
  1428.       (prompt "")
  1429.       (help "")
  1430.       (dest (tackon wheredir "Browser"))
  1431.       (settooltype "IMAGEFX" ("%ls:ImageFX Iconify" theassign))
  1432.       (settooltype "VIEWTEK" ("%ls:Viewtek/VT Delay 5" theassign))
  1433.       ;(settooltype "MPEG" ("%ls:MPEG/mp" theassign))
  1434.    )
  1435.  
  1436.    (if (>= osver 39)
  1437.       (
  1438.          (set guideprog "MultiView")
  1439.       )
  1440.       ; else
  1441.       (
  1442.          (set guideprog "AmigaGuide")
  1443.       )
  1444.    )
  1445.  
  1446.    (tooltype
  1447.       (prompt "")
  1448.       (help "")
  1449.       (dest (tackon wheredir "Help/ImageFX.guide"))
  1450.       (setdefaulttool ("%ls" guideprog))
  1451.    )
  1452.    (tooltype
  1453.       (prompt "")
  1454.       (help "")
  1455.       (dest (tackon wheredir "Help/Cinemorph.guide"))
  1456.       (setdefaulttool ("%ls" guideprog))
  1457.    )
  1458.    (tooltype
  1459.       (prompt "")
  1460.       (help "")
  1461.       (dest (tackon wheredir "Help/IMP.guide"))
  1462.       (setdefaulttool ("%ls" guideprog))
  1463.    )
  1464.    (tooltype
  1465.       (prompt "")
  1466.       (help "")
  1467.       (dest (tackon wheredir "Help/Arexx.guide"))
  1468.       (setdefaulttool ("%ls" guideprog))
  1469.    )
  1470.    (tooltype
  1471.       (prompt "")
  1472.       (help "")
  1473.       (dest (tackon wheredir "Help/AutoFX.guide"))
  1474.       (setdefaulttool ("%ls" guideprog))
  1475.    )
  1476.  
  1477.    (if (exists (tackon wheredir "README"))
  1478.       (
  1479.          (if (>= osver 39)
  1480.             (
  1481.                (tooltype
  1482.                   (prompt "")
  1483.                   (help "")
  1484.                   (dest (tackon wheredir "README"))
  1485.                   (setdefaulttool "MultiView")
  1486.                )
  1487.             )
  1488.             ; else
  1489.             (
  1490.                (tooltype
  1491.                   (prompt "")
  1492.                   (help "")
  1493.                   (dest (tackon wheredir "README"))
  1494.                   (setdefaulttool "More")
  1495.                )
  1496.             )
  1497.          )
  1498.       )
  1499.    )
  1500.  
  1501.    (if writeover
  1502.       (
  1503.          (tooltype
  1504.             (prompt "")
  1505.             (help "")
  1506.             (dest (tackon wheredir "Help"))
  1507.             (noposition)
  1508.          )
  1509.          (tooltype
  1510.             (prompt "")
  1511.             (help "")
  1512.             (dest (tackon wheredir "Rexx"))
  1513.             (noposition)
  1514.          )
  1515.          (tooltype
  1516.             (prompt "")
  1517.             (help "")
  1518.             (dest (tackon wheredir "Icons"))
  1519.             (noposition)
  1520.          )
  1521.          (tooltype
  1522.             (prompt "")
  1523.             (help "")
  1524.             (dest (tackon wheredir "Browser"))
  1525.             (noposition)
  1526.          )
  1527.          (tooltype
  1528.             (prompt "")
  1529.             (help "")
  1530.             (dest (tackon wheredir "AutoFX"))
  1531.             (noposition)
  1532.          )
  1533.          (tooltype
  1534.             (prompt "")
  1535.             (help "")
  1536.             (dest (tackon wheredir "ImageFX_WBP"))
  1537.             (noposition)
  1538.          )
  1539.          (tooltype
  1540.             (prompt "")
  1541.             (help "")
  1542.             (dest (tackon wheredir "ImageFX_CyberWB"))
  1543.             (noposition)
  1544.          )
  1545.          (tooltype
  1546.             (prompt "")
  1547.             (help "")
  1548.             (dest (tackon wheredir "ImageFX_RetinaWB"))
  1549.             (noposition)
  1550.          )
  1551.          (tooltype
  1552.             (prompt "")
  1553.             (help "")
  1554.             (dest (tackon wheredir "Sample_Proj"))
  1555.             (noposition)
  1556.          )
  1557.       )
  1558.    )
  1559.  
  1560.    (makedir (tackon wheredir "Storage"))
  1561.    (makedir (tackon wheredir "Storage/AutoFX"))
  1562.    (makedir (tackon wheredir "Storage/IMP"))
  1563.    (makedir (tackon wheredir "Storage/CineMorph"))
  1564.    (makedir (tackon wheredir "Storage/Lightning"))
  1565.    (makedir (tackon wheredir "Storage/PaintFX"))
  1566.    (makedir (tackon wheredir "Storage/LensFlare"))
  1567.    ; 2.5:
  1568.    (makedir (tackon wheredir "Storage/Fire"))
  1569.    (makedir (tackon wheredir "Storage/Bubble"))
  1570.    (makedir (tackon wheredir "Storage/Wireless"))
  1571.  
  1572.    (set norexxmast (run "sys:rexxc/tcc"))
  1573.  
  1574.    (set runrexxmast 0)
  1575.    (if norexxmast
  1576.       (
  1577.          ; Ask expert user if he wants to run RexxMast
  1578.          (set runrexxmast 1)
  1579.          (if (> @user-level 1)
  1580.             (set runrexxmast
  1581.                (askbool
  1582.                   (prompt "The RexxMast server software is not currently running.  "
  1583.                           "Would you like to start RexxMast automatically at each reboot?" )
  1584.                   (help "ImageFX requires the RexxMast software to be running before you "
  1585.                         "can use any Arexx programs.")
  1586.                   (default 1)
  1587.                )
  1588.             )
  1589.          )
  1590.       )
  1591.    )
  1592.  
  1593.    (if runrexxmast
  1594.       (
  1595.          (set cmds
  1596.             ("Assign \"%ls:\" \"%ls\"\nIf NOT EXISTS ENV:ImageFX\n  Makedir ENV:ImageFX\nEndIf\nSetEnv ImageFX/JPEG_Smoothing ON\nRexxMast >NIL: <NIL:"
  1597.                theassign @default-dest (tackon @default-dest "Help"))
  1598.          )
  1599.          (run "sys:rexxc/RexxMast")    ; run it now, too.
  1600.       )
  1601.       ; else
  1602.       (
  1603.          (set cmds
  1604.             ("Assign \"%ls:\" \"%ls\"\nIf NOT EXISTS ENV:ImageFX\n  Makedir ENV:ImageFX\nEndIf\nSetEnv ImageFX/JPEG_Smoothing ON"
  1605.                theassign @default-dest (tackon @default-dest "Help"))
  1606.          )
  1607.       )
  1608.    )
  1609.  
  1610.    (onerror
  1611.       (message
  1612.          "Cannot update your user-startup file (this is probably because of some "
  1613.          "non-standard modifications that were made to the file).  You will "
  1614.          "need to add the following commands to `s:user-startup' manually:\n" cmds
  1615.       )
  1616.    )
  1617.  
  1618.    (startup theassign
  1619.       (prompt
  1620.          "Do you want to add the following commands to your "
  1621.          "user-startup file?\n" cmds
  1622.       )
  1623.       (help @startup-help)
  1624.       (command cmds)
  1625.    )
  1626.  
  1627.    ; fix up amigaguide path
  1628.  
  1629.    (if (= 0 writeover)
  1630.       (
  1631.  
  1632.          (set setupagpath 1)
  1633.          (if (> @user-level 1)
  1634.             (set setupagpath
  1635.                (askbool
  1636.                   (prompt "The installation will now add a line to ENV:AmigaGuide/Path.")
  1637.                   (help "This is sometimes needed to allow AmigaGuide help to find ImageFX's help files.")
  1638.                   (choices "Proceed" "Skip This Part")
  1639.                   (default 1)
  1640.                )
  1641.             )
  1642.          )
  1643.  
  1644.          (if setupagpath
  1645.             (
  1646.  
  1647.                (if (= 0 (exists "ENV:AmigaGuide/Path"))
  1648.                   (
  1649.                      (makedir "ENV:AmigaGuide")
  1650.                      (textfile
  1651.                         (dest "ENV:AmigaGuide/Path")
  1652.                         (help "")
  1653.                         (prompt "")
  1654.                         (append ("\"%ls:Help\"" theassign))
  1655.                      )
  1656.                   )
  1657.                   ; else
  1658.                   (
  1659.                      (textfile
  1660.                         (dest "RAM:temp_ag_path")
  1661.                         (help "")
  1662.                         (prompt "")
  1663.                         (include "ENV:AmigaGuide/Path")
  1664.                         (append ("\n\"%ls:Help\"" theassign))
  1665.                      )
  1666.                      (copyfiles
  1667.                         (prompt "")
  1668.                         (help "")
  1669.                         (source "RAM:temp_ag_path")
  1670.                         (dest "ENV:AmigaGuide")
  1671.                         (newname "Path")
  1672.                      )
  1673.                   )
  1674.                )
  1675.                (copyfiles
  1676.                   (prompt "")
  1677.                   (help "")
  1678.                   (source "ENV:AmigaGuide")
  1679.                   (dest "ENVARC:AmigaGuide")
  1680.                   (all)
  1681.                )
  1682.                (delete "RAM:temp_ag_path")
  1683.  
  1684.             )
  1685.          )
  1686.  
  1687.       )
  1688.    )
  1689.  
  1690.    (message "To install the ImageFX Extras, double-click on the "
  1691.             "\"Install-Extras\" icon on Disk 1 and follow the instructions "
  1692.             "provided.")
  1693.  
  1694.    (message "Please be sure to fill out and return your registration card!  "
  1695.             "Note that the program serial number can be found on the label "
  1696.             "of disk 1.")
  1697.  
  1698.    (complete 100)
  1699.  
  1700.    ; Installation complete!
  1701. )
  1702.  
  1703. ;-----------------------------------------------------------------------
  1704. ; Revision History:
  1705. ;
  1706. ;  7/30/94 tek
  1707. ;     Now creates drawer for the user.
  1708. ;
  1709. ;  8/03/94 tek
  1710. ;     Now includes AutoFX/WBP icons.
  1711. ;
  1712. ;  8/04/94 tek
  1713. ;     Rearranged all the components onto different disks.
  1714. ;     Prompts for FP or non-FP versions of stuff.
  1715. ;
  1716. ;  8/05/94 tek
  1717. ;     Asks expert users for the drawer name to create.
  1718. ;
  1719. ;  8/06/94 tek
  1720. ;     Can now update previous versions of ImageFX.
  1721. ;
  1722. ;  8/22/94 tek
  1723. ;     Now checks to see if RexxMast is running and puts it
  1724. ;     in user-startup if it isn't.
  1725. ;
  1726. ;  8/25/94 tek
  1727. ;     Moved 'extras' into seperate install script.
  1728. ;
  1729. ;  8/31/94 tek
  1730. ;     Added sample picture installation.
  1731. ;     Fixed problem of installing to "Ram Disk:".
  1732. ;
  1733. ;  10/11/94 tek
  1734. ;     Now installs AmigaGuide on pre-V39 systems.
  1735. ;
  1736. ;  10/15/94 tek
  1737. ;     Various tweaks and fixes.
  1738. ;     Sets AmigaGuide default tool under < V39.
  1739. ;
  1740. ;  10/24/94 tek
  1741. ;     Now defaults back to IMAGEFX: assign.
  1742. ;
  1743. ;  10/30/94 tek
  1744. ;     Now updates ENV:AmigaGuide/Path.
  1745. ;
  1746. ;  11/10/94 tek
  1747. ;     Installs addendum and sets default tool.
  1748. ;     Does not install help files for hardware that's not installed.
  1749. ;
  1750. ;  3/3/95 tek (2.1)
  1751. ;     More descriptive error message when update of user-startup fails.
  1752. ;     Now tags user-startup mods with the assign name chosen.
  1753. ;
  1754. ;  4/5/95 tek (2.1)
  1755. ;     Added PrimeraPro and ScanJet to hardware list.
  1756. ;
  1757. ;  4/6/95 tek (2.1)
  1758. ;     Re-arranged location of various archives for the new 5-disk set.
  1759. ;     Added Cybergraphics hardware choice.
  1760. ;
  1761. ;  4/7/95 tek (2.1)
  1762. ;     Added Toaster hardware choice.
  1763. ;
  1764. ;  9/21/95 tek (2.1a)
  1765. ;     Rearranged for 2.1a maintainence release.
  1766. ;
  1767. ;  3/17/96 tek (2.5)
  1768. ;     Updated for ImageFX 2.5.
  1769. ;
  1770. ;  4/23/96 tek (2.6)
  1771. ;     Final touches and tweaks for 2.6 release.  Lots of rearranging to make
  1772. ;     things fit.
  1773. ;
  1774. ;  4/25/96 tek (2.6)
  1775. ;     More final touches.  Now asks expert user before modifying AmigaGuide/Path.
  1776. ;
  1777.  
  1778.